Notes

Disk info for 169_Volume_169.dsk:

File Name: riag_010_169_Volume_169/169_Volume_169.dsk
Disk Name: DISK VOLUME #254
Physical Size (bytes): 143360
Free Space (bytes): 11520
Used Space (bytes): 131840
Physical Size (KB): 140
Free Space (KB): 11
Used Space (KB): 128
Archive Order: DOS
Disk Format: DOS 3.3
Total Sectors: 560
Free Sectors: 45
Used Sectors: 515
Tracks On Disk: 35
Sectors On Disk: 16

Disk directory for 169_Volume_169.dsk:

riag_010_169_Volume_169/169_Volume_169.dsk DISK VOLUME #254
* A 039 PC
B 007 FONT
B 008 CM.MESS.S
B 025 NS1.S
B 025 NS2.S
B 026 NS3.S
B 023 NS4.S
B 026 NS5.S
T 002 PROB4
A 044 CM
B 025 NS6.S
B 026 NS7.S
B 007 PLAY.S
B 010 EXIT.S
B 002 PAGE3
B 007 MESSAGE.S
A 002 HELLO
B 026 NS8.S
B 010 CREATE.S
B 026 NS9.S
B 003 BRANCH.S
B 006 PAGEC-10
B 009 HELP0.S
B 009 HELP1.S
B 008 HELP2.S
B 014 PCMENU.S
B 008 HELP21.S
B 007 HELP3.S
B 008 HELP4.S
B 009 HELP5.S
B 005 RIGHT4
DOS 3.3 format; 11,520 bytes free; 131,840 bytes used.

Text found in 169_Volume_169.dsk/CM.bas:

900 REM CM - CREATE YOUR OWN PROBLEMS
901 REM COPYRIGHT 1983 BY THE 22ND AVENUE WORDSHOP
905 CS = 62450: POKE 230,32: CALL CS: POKE 49234,0: POKE 49239,0: POKE 49232,0:KSTROBE = 49152:KCLICK = 49200: POKE 33,40
910 D$ = CHR$(4):RF$ = D$ +"READ":LF$ = D$ +"BLOAD":WF$ = D$ +"WRITE":CF$ = D$ +"CLOSE":SETF = 816:OF$ = D$ +"OPEN"
912 DS = 43602:KB = 49168: ONERR GOTO 19010
915 HOME : VTAB 12: PRINT " Just a moment ..."
920 UNSC = 4096:SK = 4176:INSTR = 3920
940 ACCEPT = 768
950 CALL SETF
952 F1 = 25:F3 = 28:I1 = 35:I3 = 38: DIM BR%(127),PI$(127)
953 PRINT LF$"BRANCH.S,A$4000":PI$(0) = "1":DICT = 3584: CALL DICT FOR BR%(1),PI$(0):BR%(0) = 13: ONERR GOTO 970
955 PF$ = "PROB4": PRINT OF$PF$", L208": PRINT RF$PF$", R0": INPUT PC: IF PC THEN FOR P = 1 TO PC: CALL ACCEPT FOR PI$(P): NEXT
960 GOTO 1000
970 PRINT WF$PF$", R0": PRINT 0:PC = 0: PRINT CF$: GOTO 955
1000 QT$ = CHR$(34):BL = 3503: ONERR GOTO 19010
1020 DIM HP$(5,1): FOR L = 0 TO 5: READ HP$(L,0): READ HP$(L,1): NEXT
1030 DIM OK(6),AD(5),VT(5): FOR OP = 1 TO 5: READ AD(OP): NEXT : FOR OP = 1 TO 5: READ VT(OP): NEXT
1040 BASL = 40:CG = 22:UL = 3128:UC = 0:LC = 32:ES = 64578:SG = PEEK(64435): IF SG = 6 THEN LC = 0:CP = 1
1070 DIM CC$(40),C$(40),SY%(40),WS(1),WI$(1),WD(1),WC(1),M$(30),ML%(30):ACCEPT = 768
1080 PRINT LF$"CM.MESS.S, A$1100":M$(0) = "P": CALL DICT FOR ML%(1),M$(0)
1120 SP$ = " ": DIM CL(6): FOR C = 1 TO 6: READ CL(C): NEXT
1130 GOTO 10010
1200 CALL SETF: POKE 32,0: POKE 33,40: IF HF$ < >"CREATE.S" THEN HF$ = "CREATE.S": POKE DS,0: PRINT LF$;HF$
1210 HOME : CALL CS: PRINT : CALL UNSC
1290 VTAB 23: HTAB 35:CL = 1: GOSUB 1810
1300 ON (A$ = "3" OR BR = 6) GOTO 32000
1310 ON (BR < >3) GOTO 1320:MENU = VAL(A$): ON MENU GOTO 10010,1330
1320 CALL BL: GOTO 1290
1330 HF$ = "PLAY.S": POKE DS,0: PRINT LF$;HF$: CALL UNSC: VTAB 23: HTAB 35:CL = 1: GOSUB 1810
1340 ON (BR = 6) GOTO 32000: IF BR < >3 THEN CALL BL: GOTO 1330
1350 OP = VAL(A$): IF OP >4 THEN CALL BL: GOTO 1330
1360 ON (OP = 4) GOTO 20010: HOME :M = 20: GOSUB 15810: GOSUB 15010: POKE KB,0: ONERR GOTO 1400
1370 POKE 952,OP +10: POKE DS,0: HOME : PRINT D$"RUN HP"
1400 HOME : PRINT :M = 21: GOSUB 15810: GOSUB 15010: POKE KB,0: GOTO 1200
1810 A$ = ""
1820 P = LEN(A$) +1: IF P >1 THEN PRINT A$;
1830 ON (P >CL) GOTO 1910: POKE UL,CASE
1835 GET C$: ON ( LEN(C$) = 0) GOTO 1850:BR = BR%( ASC(C$))
1840 ON BR GOTO 1860,1860,1860,1860,1860,1910,1910,1850,1880,1850,1850,1910
1850 CALL BL: GOTO 1830
1860 IF CL >1 THEN PRINT C$;
1870 A$ = A$ +C$:P = P +1: GOTO 1830
1880 ON (P = 1) GOTO 1910:P = P -1:A$ = MID$ (A$,1,P -1): PRINT C$" "C$;: IF P >LL GOTO 1830
1910 CASE = LC: POKE UL +2,255: RETURN
2010 HOME : CALL SETF: FOR L = 1 TO 5: POKE AD(L),F3 +7 *(OK(L) = 1): NEXT : GOSUB 17115
2015 OP = 1: FOR W = 0 TO 1:W$(W) = CW$(W): NEXT :VT = 1:HT = 2: GOSUB 14010
2020 GOSUB 16010
2030 VTAB 5: HTAB 1: PRINT "3 DEFINITION: "; LEFT$(DF$,26): VTAB 6: HTAB 4: PRINT MID$ (DF$,27,37)
2035 VTAB 7: HTAB 4: PRINT MID$ (DF$,64)
2040 VTAB 9: HTAB 1: PRINT "4 HINT: ";: ON ( LEN(HI$) = 0) GOTO 2045
2042 PRINT LEFT$(HI$,32): VTAB 10: HTAB 4: PRINT MID$ (HI$,33): GOTO 2050
2045 PRINT "(optional)"
2050 ON (BOX = OK(5)) GOTO 2060: IF OK(5) = 2 THEN GOSUB 13910: RETURN
2055 M = 10: GOSUB 15810:M = 15: GOSUB 15830:CG = 13:BOX = 1
2060 IF BOX = 1 AND MP <3 THEN CG = 13:M = 3: GOSUB 15810: IF WD(0) +WD(1) = 0 THEN M = 23: GOSUB 15830
2070 RETURN
10010 POKE 32,0: POKE 33,40
10020 IF PC >60 THEN M = 22: GOSUB 15810: GOSUB 15010: POKE KB,0: GOTO 32000
10060 FOR W = 0 TO 1:CW$(W) = "":FW$(W) = "":WI$(W) = "":SE(W) = 0:WD(W) = 0:HP(W) = 0: NEXT :HI$ = "":DF$ = ""
10070 OK(1) = 1: FOR F = 2 TO 6:OK(F) = 0: NEXT :BOX = 1: GOSUB 2010:WM = 0:MP = MP +1:WC = 0
10080 CASE = LC
10090 DOK = 0:HOK = 1: GOTO 10120
10110 CALL 54915: CALL SETF: GOSUB 16310: FOR L = 1 TO 5: POKE AD(L),F3 +7 *(OK(L) = 1): NEXT : GOSUB 17115: GOSUB 2050: GOTO 10120
10115 GOSUB 2010
10120 VTAB 24: HTAB 1: PRINT "CHOOSE: ";: GOSUB 17010: PRINT "Help";: IF OK(6) THEN PRINT " ";: GOSUB 17010: PRINT "Save";
10130 FOR L = 1 TO 4: ON (OK(L) < >1) GOTO 10160: IF OK(L +1) < >1 AND OK(5) < >1 THEN PRINT " or";
10140 PRINT " ";: GOSUB 17010: PRINT L;
10160 NEXT L: IF OK(5) = 1 THEN PRINT " or ";: GOSUB 17010: PRINT "5";
10170 PRINT " ";: IF LEFT$(HF$,2) < >"NS" THEN TS = TS +(TS <1):HF$ = "NS" + STR$(TS) +".S": POKE DS,0: PRINT LF$;HF$", A$4000"
10180 HT = PEEK(36) +1: PRINT TAB( 39);: HTAB HT
10200 CL = 1: GOSUB 1810: ON BR GOTO 11210,10210,10220,10230,10210,1200,10010
10210 CALL BL: GOTO 10200
10220 OP = VAL(A$): ON (OP = 0 OR OP >5) GOTO 10210: ON (OK(OP) = 0) GOTO 10210: IF OK(5) = 2 THEN OK(5) = 1
10223 IF BOX = 3 AND MP <4 THEN CG = 13:M = 10: GOSUB 15810
10225 ON OP GOTO 10710,10810,10910,11010,10240
10230 ON (A$ = "h") GOTO 11210: ON (OK(6) AND A$ = "s") GOTO 11810: GOTO 10210
10240 OK(5) = 2: GOTO 11110
10710 OP = 1:VT = 1:HT = 2: FOR W = 0 TO 1:W$(W) = CW$(W): NEXT :CASE = LC:WW = ( LEN(CW$(0)) >0 AND LEN(W$(1)) = 0)
10720 GOSUB 17110: GOSUB 17210: GOSUB 14090: ON BR GOTO 11250,10730,10730,10730,10730,1200,10010,10730,10730,10730,10730,10740
10730 CALL BL: GOTO 10710
10740 X = 0: FOR W = 0 TO 1: ON (CW$(W) = W$(W)) GOTO 10750:WS(W) = 0:WC(W) = 0:WD(W) = 0:WI$(W) = "":X = 1
10745 CW$(W) = W$(W): IF OK(5) = 0 THEN OK(5) = 1
10750 NEXT : GOSUB 16110: GOSUB 16210: IF X = 0 GOTO 10110
10760 ON ( LEN(CW$(0)) >0 AND LEN(CW$(1)) >0) GOTO 11110:WM = 0: GOSUB 13510: IF WM = 0 THEN OK(5) = 1
10770 GOTO 10110
10810 OP = 2:VT = 3:HT = 12:W$(0) = FW$(0):W$(1) = FW$(1):CASE = UC: GOSUB 17110
10815 WW = (SE(0) >0): GOSUB 17210: POKE UL +2,223
10820 GOSUB 14090: ON BR GOTO 11250,10830,10830,10830,10830,1200,10010,10830,10830,10830,10830,10840
10830 CALL BL: GOTO 10810
10840 IF LEN(W$(0)) = 0 AND LEN(W$(1)) = 0 GOTO 10110
10845 IF LEN(W$(0)) = 0 OR LEN(W$(1)) = 0 THEN M = 1: GOSUB 15810: GOSUB 17210: GOTO 10815
10850 FOR W = 0 TO 1: FOR L = 1 TO 5: IF HP$(L,W) = W$(W) THEN SE(W) = L:L = 5: NEXT L: GOTO 10865
10860 NEXT L:M = 2: GOSUB 15810:W$(W) = "": GOSUB 17210: POKE UL +2,223: GOTO 10815
10865 NEXT W: FOR W = 0 TO 1: ON (WS(W) = SE(W)) GOTO 10880: IF WD(W) = 10 THEN WS(W) = SE(W): GOTO 10880
10870 W$ = CW$(W): IF ASC(W$) >91 THEN W$ = CHR$( ASC(W$) -32) + MID$ (W$,2)
10871 M$ = QT$ +W$ +QT$ +" has " + STR$(WS(W)) +" syllable" + RIGHT$("s.",1 +(WS(W) >1)): IF M < >10 THEN M = 10: GOSUB 15810
10872 VTAB 16 +3 *W: HTAB 19 - LEN(M$)/2: PRINT M$
10875 M$ = "It should be a " +HP$(WS(W),W) +".": HTAB 19 - LEN(M$)/2: PRINT M$:SE(W) = 0: IF CG >15 THEN CG = 15
10880 HP(W) = WS(W): NEXT W: IF SE(0) = 0 OR SE(1) = 0 GOTO 10815
10885 OK(3) = 1: FOR W = 0 TO 1:FW$(W) = W$(W): NEXT
10890 GOSUB 16010: GOTO 10110
10910 A$ = DF$:OK(6) = 0: FOR ST = 1 TO 2: ON (CL(ST) > LEN(A$)) GOTO 10915: NEXT
10915 GOSUB 17110: GOSUB 17210: POKE 32,3: POKE 33,37: FOR L = ST TO 3
10920 VTAB 5: HTAB 12
10930 CL = CL(L):LL = CL(L -1): GOSUB 1820: ON BR GOTO 10930,10970,10940,10940,10940,1200,10010,10935,10955,10935,10935,10980
10935 CALL BL: GOTO 10930
10940 IF L = 3 THEN A$ = LEFT$(A$,P -2): CALL BL: GOTO 10920
10945 FOR SP = P -1 TO P -17 STEP -1: IF MID$ (A$,SP,1) = " " GOTO 10960
10950 NEXT :A$ = LEFT$(A$,P -3) +"- " + RIGHT$(A$,2): GOTO 10970
10955 ON (L <2) GOTO 10935:L = L -1: GOTO 10920
10960 A$ = LEFT$(A$,SP) + LEFT$(SP$,P -1 -SP) + RIGHT$(A$,P -1 -SP)
10970 NEXT L
10980 DF$ = A$: POKE 32,0: POKE 33,40: GOSUB 16110: GOTO 10110
11010 A$ = HI$:OK(6) = 0: FOR ST = 5 TO 5: ON (CL(ST) > LEN(A$)) GOTO 11015: NEXT
11015 GOSUB 17110: GOSUB 17210: POKE 32,3: POKE 33,37: FOR L = ST TO 6
11020 VTAB 9: HTAB 6: IF LEN(A$) = 0 THEN PRINT SP$;: HTAB 6
11030 CL = CL(L):LL = CL(L -1): GOSUB 1820: ON BR GOTO 11030,11070,11040,11040,11040,1200,10010,11035,11055,11035,11035,11080
11035 CALL BL: GOTO 11030
11040 IF L = 6 THEN A$ = LEFT$(A$,P -2): CALL BL: GOTO 11020
11045 FOR SP = P -1 TO P -17 STEP -1: IF MID$ (A$,SP,1) = " " GOTO 11060
11050 NEXT :A$ = LEFT$(A$,P -3) +"- " + RIGHT$(A$,2): GOTO 11070
11055 ON (L <6) GOTO 11035:L = L -1: GOTO 11020
11060 A$ = LEFT$(A$,SP) + LEFT$(SP$,P -1 -SP) + RIGHT$(A$,P -1 -SP)
11070 NEXT L
11080 HI$ = A$: POKE 32,0: POKE 33,40: GOSUB 16210: GOTO 10110
11110 VTAB 18: CALL SETF: FOR T = 1 TO 9: ON (T = 1) GOTO 11120:TS = TS +1: IF TS = 10 THEN TS = 1
11111 IF T = 2 THEN M = 5: GOSUB 15810
11112 IF PEEK(KS) = 155 THEN POKE KB,0:OK(5) = 1: GOTO 10110
11115 HF$ = "NS" + STR$(TS) +".S": POKE DS,0: PRINT LF$;HF$", A$4000": PRINT ".";
11120 GOSUB 13510: IF ( LEN(CW$(0)) >0 AND WD(0) = 0) OR ( LEN(CW$(1)) >0 AND WD(1) = 0) THEN NEXT T
11125 FOR W = 0 TO 1: ON ( LEN(CW$(W)) = 0) GOTO 11145: ON (WD(W) >0) GOTO 11145
11127 M = 10: GOSUB 15810:M$ = CW$(W): IF ASC(M$) >91 THEN M$ = CHR$( ASC(M$) -32) + MID$ (M$,2)
11128 M$ = QT$ +M$ +M$(8): HTAB 21 - LEN(M$)/2: VTAB 17: PRINT M$:M = 9: POKE 2656,I3: POKE 2660,I3: GOSUB 15830
11130 CL = 1: GOSUB 1810: ON BR GOTO 11135,11135,11135,11140,11135,1200
11135 CALL BL: GOTO 11127
11140 CALL SETF:M = 10: GOSUB 15810: IF A$ = "N" OR A$ = "n" THEN CW$(W) = "":WI$(W) = "":WC = WC *(WD(1 -W) >0): GOTO 11145
11142 ON (A$ < >"y" AND A$ < >"Y") GOTO 11135:WD(W) = 10
11145 NEXT W: IF WD(0) = 10 AND WD(1) = 10 THEN ON (WC(0) >0 AND WC(1) >0) GOTO 11170:WC = 2: FOR W = 0 TO 1:CC$(W +1) = "*" +CW$(W):WC(W) = 1: NEXT : GOTO 11170
11147 ON (WD(0) = 10 OR WD(1) = 10) GOTO 11160: ON (WD(0) = 0 OR WD(1) = 0) GOTO 11170: IF WI$(0) = WI$(1) GOTO 11170
11150 M = 6: GOSUB 15810:OK(2) = 0: GOTO 10710
11160 W = (WD(1) = 10): IF WC(W) = 0 THEN R = WC +1 -(WC = 33):R = R -(CC$(R) = CW$(1 -W)):CC$(R) = "*" +CW$(W):WC = R:WC(W) = R
11170 OK(2) = (WD(0) >0 AND WD(1) >0): GOTO 10110
11210 CALL SETF: FOR LI = 1 TO 5: POKE AD(LI),I1: NEXT
11220 M = 10: GOSUB 15810:HF$ = "HELP0.S": POKE DS,0: PRINT LF$;HF$: POKE SK,8: CALL UNSC
11230 GOSUB 15010:CL = 1: GOSUB 1810: ON (BR = 6) GOTO 1200: ON (BR = 3) GOTO 11250: IF BR < >2 AND BR < >3 THEN CALL BL
11240 GOTO 10115
11250 CALL SETF:A = VAL(A$): IF A >5 THEN CALL BL: GOTO 11220
11260 HF$ = "HELP" +A$ +".S"
11270 POKE DS,0: POKE SK,8: PRINT LF$;HF$:M = 10: GOSUB 15810: CALL UNSC: FOR AD = 3037 TO 3045: POKE AD,I1: NEXT :M = 14: GOSUB 15830
11280 FOR SC = 1 TO 60: VTAB VT(A): HTAB 1: POKE AD(A),I3: PRINT A;
11290 FOR ST = 1 TO 30:RS = ( PEEK(KS) >127): IF RS GOTO 11350
11300 NEXT : HTAB 1: POKE AD(A),F3: PRINT A;: FOR ST = 1 TO 30:RS = ( PEEK(KS) >127): IF RS GOTO 11350
11310 NEXT : NEXT SC: CALL BL: GOTO 11280
11350 POKE KB,0: IF HF$ = "HELP2.S" THEN HF$ = "HELP21.S": GOTO 11270
11360 GOTO 10115
11810 CALL SETF:A$ = "":M = 11
11815 GOSUB 15810:CL = 6:CASE = UC: POKE UL +2,223: GOSUB 1820
11820 ON BR GOTO 11830,11830,11825,11825,11825,1200,10010,11825,11810,11825,11825,11830
11825 A$ = MID$ (A$,1,5): CALL BL: GOTO 11815
11830 IN$ = A$: ON ED GOTO 12610:M = 12: POKE 2663,I3: POKE 2667,I3: GOSUB 15830
11835 CL = 1: GOSUB 1810: ON BR GOTO 11840,11840,11840,11845,11840,1200,10010
11840 CALL BL: GOTO 11835
11845 ON (A$ < >"Y" AND A$ < >"y") GOTO 10110:M = 13: GOSUB 15830:PC = PC +1: POKE DS,0: PRINT OF$;PF$",L208": PRINT WF$PF$", R"PC
11855 PRINT CW$(0): PRINT CW$(1): PRINT HP(0): PRINT HP(1)
11860 FOR L = 1 TO 3:C = CL(L) -CL(L -1): PRINT MID$ (DF$,CL(L -1) +1,C): NEXT
11865 FOR L = 5 TO 6:C = CL(L) -CL(L -1): PRINT MID$ (HI$,CL(L -1) +1,C): NEXT
11870 PRINT WM:PI$(PC) = IN$
11880 POKE DS,0: PRINT WF$PF$", R0": PRINT PC: FOR P = 1 TO PC: PRINT PI$(P): NEXT : PRINT CF$
11890 GOTO 10010
13510 FOR W = 0 TO 1: ON (WD(W) >0 OR LEN(CW$(W)) = 0) GOTO 13550
13520 C$(0) = CW$(W) + CHR$(13): CALL DICT FOR SY%(1),C$(0):L = LEN(C$(0)): ON (L = 0) GOTO 13550:: IF L >33 THEN L = 33
13530 WC = L:WM = TS: FOR C = 1 TO WC:CC$(C) = C$(C) +"": IF C$(C) = CW$(W) THEN WC(W) = C:WS(W) = SY%(C) -10
13535 NEXT C: IF WC(W) >0 THEN WD(W) = TS:WI$(W) = C$(1)
13550 NEXT W: RETURN
13910 VTAB 12: HTAB 1: CALL ES: PRINT : ON (WC = 0) GOTO 13940:CG = 11
13915 HCOLOR= 2: HPLOT 0,83 TO 278,83 TO 278,180 TO 0,180 TO 0,83: HCOLOR= 3
13920 LP = WC/3 +2 *(WC <9): FOR W = 0 TO WC -1:C = INT(W/LP) *13 +2:R = W - INT((W)/LP) *LP +12
13930 HTAB C: VTAB R: PRINT CC$(W +1);: NEXT
13940 OK(5) = 2:BOX = 2: RETURN
14010 IF OP < >2 THEN VTAB 1: HTAB 3: PRINT "< "W$(0)" > < "W$(1)" >"SP$:PR = 5 + LEN(W$(0)) +(WW = 1) *(6 + LEN(W$(1))): RETURN
14020 VTAB 3: HTAB 12: PRINT W$(0)" "W$(1)SP$:PR = 12 + LEN(W$(0)) +(WW = 1) *(1 + LEN(W$(1))): RETURN
14030 ON (OP = 2) GOTO 14060: PRINT C$" >";: IF WW = 1 THEN PRINT TAB( 39);: GOTO 14100
14040 PRINT " < "W$(1)" >" TAB( 39);: GOTO 14100
14060 PRINT C$" ";: IF WW = 0 THEN PRINT W$(1);
14070 PRINT TAB( 39);: GOTO 14100
14090 GOSUB 14010
14100 POKE UL,CASE: VTAB VT: HTAB PR: GET C$: ON ( LEN(C$) = 0) GOTO 14120
14115 BR = BR%( ASC(C$)): ON BR GOTO 14190,14140,14120,14130,14120,14190,14190,14120,14150,14140,14160,14190
14120 CALL BL: GOTO 14100
14130 L = LEN(W$(WW)): ON (L >3 *(OP = 2) +12) GOTO 14120:W$(WW) = W$(WW) +C$:PR = PR +1: IF L <3 OR OP = 2 OR CP = 0 GOTO 14030
14132 FOR C = 1 TO 4: IF ASC( MID$ (W$(WW),C,1)) >90 THEN C = 12:CP = 0: NEXT C: GOTO 14030
14134 NEXT C:M = 24: GOSUB 15810:W$(WW) = "": GOTO 14010
14140 WW = 1 -WW: GOTO 14090
14150 IF LEN(W$(WW)) >0 THEN W$(WW) = MID$ (W$(WW),1, LEN(W$(WW)) -1):PR = PR -1: GOTO 14030
14155 ON (WW = 0) GOTO 14120:WW = 0: GOTO 14090
14160 W$(WW) = "": GOTO 14090
14190 POKE UL +2,255: RETURN
15010 ON ( PEEK(KS) >127) GOTO 15100
15020 FOR A = 3037 TO 3045: POKE A,I1: NEXT :M = 14: GOSUB 15830
15030 FOR W = 1 TO 3: GOSUB 21010: IF RS THEN W = 3
15040 NEXT W:SD = 0: IF RS = 1 GOTO 15100
15050 VTAB 24: FOR ST = 1 TO 20: FOR A = 1 TO 9: HTAB 13 +A: POKE A +3036,F1:S$ = MID$ ("SPACE BAR",A,1): PRINT S$;
15060 FOR W = 1 TO 14: IF PEEK(KS) >127 THEN W = 14:RS = 1:A = 9:ST = 20
15070 NEXT W: POKE A +3036,I1: HTAB A +13: PRINT S$;
15080 NEXT A: IF RS = 0 AND SD >0 THEN FOR W = 1 TO 2 *SD:X = PEEK(KC): NEXT
15085 IF PEEK(KS) <128 THEN FOR X = 1 TO 100: NEXT
15090 NEXT ST: IF RS = 0 THEN SD = 1 -SD: GOTO 15050
15100 CALL SETF: RETURN
15810 IF CG >ML%(M) THEN CG = ML%(M)
15820 VTAB CG: HTAB 1: CALL ES:BOX = 3
15830 VTAB ML%(M): HTAB 1: PRINT M$(M);
15840 RETURN
16010 VTAB 3: HTAB 1: PRINT "2 FORMULA: "FW$(0)" "FW$(1);: IF HP(0) >0 AND HP(1) >0 THEN PRINT " ("HP(0)","HP(1)") ": GOTO 16030
16020 PRINT LEFT$(SP$,39 - PEEK(36));
16030 RETURN
16110 DOK = 0:DF = LEN(DF$): ON (DF <1) GOTO 16195: FOR W = 0 TO 1:CW = LEN(CW$(W)): ON (CW <1) GOTO 16190:C% = 1
16120 CALL INSTR FOR DF$,CW$(W),C%: IF C% = 0 GOTO 16190
16130 IF C% >1 THEN IF ASC( MID$ (DF$,C% -1,1)) >64 GOTO 16180
16140 IF C% +CW < = DF THEN IF ASC( MID$ (DF$,C% +CW,1)) >64 GOTO 16180
16170 POKE 32,0: POKE 33,40: CALL SETF:M = 16: GOSUB 15810: GOSUB 15010: POKE KB,0:OK(4) = ( LEN(HI$) >0): GOTO 10110
16180 C% = C% +CW: IF C% 0):OK(4) = DOK: RETURN
16210 HOK = 0:HI = LEN(HI$): ON (HI <1) GOTO 16295: FOR W = 0 TO 1:CW = LEN(CW$(W)): ON (CW <1) GOTO 16290:C% = 1
16220 CALL INSTR FOR HI$,CW$(W),C%: IF C% = 0 GOTO 16290
16230 IF C% >1 THEN IF ASC( MID$ (HI$,C% -1,1)) >64 GOTO 16280
16240 IF C% +CW < = HI THEN IF ASC( MID$ (HI$,C% +CW,1)) >64 GOTO 16280
16270 POKE 32,0: POKE 33,40: CALL SETF:M = 7: GOSUB 15810: GOSUB 15010: POKE KB,0: GOTO 10110
16280 C% = C% +CW: IF C% HP(W) THEN HP(W) = 0:FW$(W) = "":SE(W) = 0
16325 NEXT : IF HP(0) = 0 OR HP(1) = 0 THEN GOSUB 16010: RETURN
16330 IF OK(1) +OK(2) = 2 AND DOK +HOK = 2 THEN OK(6) = 1
16340 RETURN
17010 HT = PEEK(36) +1:AD = PEEK(BA) +256 * PEEK(BA +1) +HT +1023
17020 F = PEEK(AD):F = F +7: IF F >40 THEN F = F -14
17030 POKE AD,F: RETURN
17110 POKE 34,22: CALL SETF
17115 FOR L = 1 TO 4: VTAB VT(L): HTAB 1: PRINT L;: NEXT : POKE 34,0: RETURN
17210 FOR A = 3036 TO 3041: POKE A,I1: NEXT :M = 4: GOSUB 15830: PRINT " ";: RETURN
18100 DATA " "," ",HINK,PINK,HINKY,PINKY,HINKETY,PINKETY,HINKHINKETY,PINKPINKETY,HINKHINKHINKETY,PINKPINKPINKETY
18120 DATA 2048,2304,2560,2088,2472,1,3,5,9,12
18160 DATA 26,63,100,0,32,69
19010 EN = PEEK(222):LN = PEEK(218) +256 * PEEK(219)
19020 ON (EN = 6) GOTO 19040: ON (EN = 9) GOTO 19050: IF EN = 255 THEN RESUME
19030 HOME : VTAB 12: CALL BL: PRINT "ERROR "EN" at line "LN: INPUT " TO CONTINUE... ";A$: CALL SETF: GOTO 1200
19040 HOME : CALL 64484: VTAB 12: HTAB 1: PRINT "There's a file missing on this disk.": GOSUB 21010: RUN
19050 CALL SETF: HOME :M = 22: GOSUB 15810: GOSUB 15010: POKE KB,0: GOTO 1200
20010 IF PC < = 0 THEN HOME :M = 17: GOSUB 15810: GOSUB 15010: POKE KB,0: GOTO 1200
20050 POKE DS,0: ONERR GOTO 20500
20060 HOME : PRINT D$"RUN PC"
20500 HOME :M = 18: GOSUB 15810: GOSUB 15010: ONERR GOTO 19010
20510 POKE KB,0: GOTO 1200
21010 FOR ST = 1 TO 800:RS = ( PEEK(KS) >127): IF RS THEN ST = 800
21020 NEXT : RETURN
32000 POKE DS,0: PRINT D$"CLOSE"
32010 PRINT LF$"EXIT.S": CALL CS: CALL UNSC:HF$ = "EXIT.S"
32020 CALL SETF: VTAB 24: HTAB 31
32030 CL = 1: GOSUB 1810: ON (BR = 9) GOTO 1200: HOME : POKE UL,UC
32766 REM COPYRIGHT 1983 BY THE 22ND AVENUE WORDSHOP
32767 POKE DS,0: PRINT D$"PR#6"

Text found in 169_Volume_169.dsk/FONT.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 00 00 00 00 00 00 00 00 00 08 08 08 08 08 00 08 ........ ........
$000010 00 14 14 14 00 00 00 00 00 14 14 3E 14 3E 14 14 ........ ...>.>..
$000020 00 08 3C 0A 1C 28 1E 08 00 06 26 10 08 04 32 30 ..<..(.. ..&...20
$000030 00 04 0A 0A 04 2A 12 2C 00 08 08 08 00 00 00 00 .....*., ........
$000040 00 08 04 02 02 02 04 08 00 08 10 20 20 20 10 08 ........ ... ..
$000050 00 08 2A 1C 08 1C 2A 08 00 00 08 08 3E 08 08 00 ..*...*. ....>...
$000060 00 00 00 00 00 08 08 04 00 00 00 00 3E 00 00 00 ........ ....>...
$000070 00 00 00 00 00 00 00 08 00 00 20 10 08 04 02 00 ........ .. .....
$000080 00 1C 22 32 2A 26 22 1C 00 08 0C 08 08 08 08 1C .."2*&". ........
$000090 00 1C 22 20 18 04 02 3E 00 3E 20 10 18 20 22 1C .." ...> .> .. ".
$0000A0 00 10 18 14 12 3E 10 10 00 3E 02 1E 20 20 22 1C .....>.. .>.. ".
$0000B0 00 38 04 02 1E 22 22 1C 00 3E 20 10 08 04 04 04 .8..."". .> .....
$0000C0 00 1C 22 22 1C 22 22 1C 00 1C 22 22 3C 20 10 0E ..""."". ..""< ..
$0000D0 00 00 00 08 00 08 00 00 00 00 00 08 00 08 08 04 ........ ........
$0000E0 00 10 08 04 02 04 08 10 00 00 00 3E 00 3E 00 00 ........ ...>.>..
$0000F0 00 04 08 10 20 10 08 04 00 1C 22 10 08 08 00 08 .... ... ..".....
$000100 00 1C 22 2A 3A 1A 02 3C 00 08 14 22 22 3E 22 22 .."*:..< ..."">""
$000110 00 1E 22 22 1E 22 22 1E 00 1C 22 02 02 02 22 1C ..""."". .."...".
$000120 00 1E 22 22 22 22 22 1E 00 3E 02 02 1E 02 02 3E ..""""". .>.....>
$000130 00 3E 02 02 1E 02 02 02 00 3C 02 02 02 32 22 3C .>...... .<...2"<
$000140 00 22 22 22 3E 22 22 22 00 1C 08 08 08 08 08 1C .""">""" ........
$000150 00 20 20 20 20 20 22 1C 00 22 12 0A 06 0A 12 22 . ". ."....."
$000160 00 02 02 02 02 02 02 3E 00 22 36 2A 2A 22 22 22 .......> ."6**"""
$000170 00 22 22 26 2A 32 22 22 00 1C 22 22 22 22 22 1C .""&*2"" ..""""".
$000180 00 1E 22 22 1E 02 02 02 00 1C 22 22 22 2A 12 2C .."".... .."""*.,
$000190 00 1E 22 22 1E 0A 12 22 00 1C 22 02 1C 20 22 1C ..""..." ..".. ".
$0001A0 00 3E 08 08 08 08 08 08 00 22 22 22 22 22 22 1C .>...... ."""""".
$0001B0 00 22 22 22 22 22 14 08 00 22 22 22 2A 2A 36 22 .""""".. ."""**6"
$0001C0 00 22 22 14 08 14 22 22 00 22 22 14 08 08 08 08 .""..."" ."".....
$0001D0 00 3E 20 10 08 04 02 3E 00 3E 06 06 06 06 06 3E .> ....> .>.....>
$0001E0 00 00 02 04 08 10 20 00 00 3E 30 30 30 30 30 3E ...... . .>00000>
$0001F0 00 00 00 08 14 22 00 00 00 00 00 00 00 00 00 3E .....".. .......>
$000200 00 04 08 10 00 00 00 00 00 00 1C 10 1C 14 3C 00 ........ ......<.
$000210 00 04 04 1C 24 24 1E 00 00 00 38 04 04 04 38 00 ....$$.. ..8...8.
$000220 00 10 10 1C 12 12 3C 00 00 00 18 24 3C 04 18 00 ......<. ...$<...
$000230 00 10 28 08 1C 08 08 00 00 00 18 24 24 38 20 18 ..(..... ...$$8 .
$000240 00 04 04 1C 24 24 24 00 00 08 00 08 08 08 1C 00 ....$$$. ........
$000250 00 10 00 10 10 10 14 08 00 04 24 14 0C 14 24 00 ........ ..$...$.
$000260 00 0C 08 08 08 08 1C 00 00 00 16 2A 2A 2A 2A 00 ........ ...****.
$000270 00 00 1C 24 24 24 24 00 00 00 18 24 24 24 18 00 ...$$$$. ...$$$..
$000280 00 00 1C 24 24 1C 04 04 00 00 1C 12 12 1C 10 30 ...$$... .......0
$000290 00 00 34 0C 04 04 04 00 00 00 3C 04 18 20 3C 00 ..4..... ..<.. <.
$0002A0 00 08 1C 08 08 08 10 00 00 00 24 24 24 24 38 00 ........ ..$$$$8.
$0002B0 00 00 22 22 14 14 08 00 00 00 22 22 2A 2A 14 00 .."".... ..""**..
$0002C0 00 00 22 14 08 14 22 00 00 00 24 24 24 38 20 18 .."...". ..$$$8 .
$0002D0 00 00 3E 10 08 04 3E 00 00 10 08 08 04 08 08 10 ..>...>. ........
$0002E0 00 08 08 08 00 08 08 08 00 04 08 08 10 08 08 04 ........ ........
$0002F0 00 00 00 20 1C 02 00 00 00 00 00 3E 3E 3E 3E 3E ... .... ...>>>>>
$000300 00 00 00 00 00 00 00 00 08 08 08 08 08 00 08 00 ........ ........
$000310 14 14 14 00 00 00 00 00 08 2A 08 2A 08 2A 08 00 ........ .*.*.*..
$000320 08 3C 0A 1C 28 1E 08 00 06 26 10 08 04 32 30 00 .<..(... .&...20.
$000330 04 0A 0A 04 2A 12 2C 00 08 08 04 00 00 00 00 00 ....*.,. ........
$000340 08 04 02 02 02 04 08 00 08 10 20 20 20 10 08 00 ........ .. ...
$000350 08 2A 1C 2A 08 00 00 00 00 08 08 3E 08 08 00 00 .*.*.... ...>....
$000360 00 00 00 00 08 08 04 00 00 00 00 3E 00 00 00 00 ........ ...>....
$000370 00 00 00 00 00 00 08 00 00 20 10 08 04 02 00 00 ........ . ......
$000380 1C 22 32 2A 26 22 1C 00 08 0C 08 08 08 08 1C 00 ."2*&".. ........
$000390 1C 22 20 18 04 02 3E 00 3E 20 10 18 20 22 1C 00 ." ...>. > .. "..
$0003A0 10 18 14 12 3E 10 10 00 3E 02 1E 20 20 22 1C 00 ....>... >.. "..
$0003B0 38 04 02 1E 22 22 1C 00 3E 20 10 08 04 04 04 00 8..."".. > ......
$0003C0 1C 22 22 1C 22 22 1C 00 1C 22 22 3C 20 10 0E 00 .""."".. .""< ...
$0003D0 00 00 08 00 08 00 00 00 00 00 08 00 08 08 04 00 ........ ........
$0003E0 10 08 04 02 04 08 10 00 00 00 3E 00 3E 00 00 00 ........ ..>.>...
$0003F0 04 08 10 20 10 08 04 00 1C 22 10 08 08 00 08 00 ... .... ."......
$000400 1C 22 3A 2A 3A 02 3C 00 08 14 22 22 3E 22 22 00 .":*:.<. .."">"".
$000410 1E 24 24 1C 24 24 1E 00 1C 22 02 02 02 22 1C 00 .$$.$$.. ."..."..
$000420 0E 12 22 22 22 12 0E 00 3E 02 02 1E 02 02 3E 00 .."""... >.....>.
$000430 3E 02 02 1E 02 02 02 00 1C 22 02 02 32 22 3C 00 >....... ."..2"<.
$000440 22 22 22 3E 22 22 22 00 1C 08 08 08 08 08 1C 00 """>""". ........
$000450 38 10 10 10 10 12 1E 00 22 12 0A 06 0A 12 22 00 8....... ".....".
$000460 02 02 02 02 02 02 3E 00 22 36 2A 2A 22 22 22 00 ......>. "6**""".
$000470 22 22 26 2A 32 22 22 00 1C 22 22 22 22 22 1C 00 ""&*2"". ."""""..
$000480 1E 22 22 1E 02 02 02 00 1C 22 22 22 2A 12 2C 00 .""..... ."""*.,.
$000490 1E 22 22 1E 0A 12 22 00 1C 22 02 1C 20 22 1C 00 .""...". .".. "..
$0004A0 3E 08 08 08 08 08 08 00 22 22 22 22 22 22 1C 00 >....... """"""..
$0004B0 22 22 22 14 14 08 08 00 22 22 22 22 2A 2A 14 00 """..... """"**..
$0004C0 22 22 14 08 14 22 22 00 22 22 14 08 08 08 08 00 ""..."". ""......
$0004D0 3E 20 10 08 04 02 3E 00 3E 06 06 06 06 06 3E 00 > ....>. >.....>.
$0004E0 00 02 04 08 10 20 00 00 3E 30 30 30 30 30 3E 00 ..... .. >00000>.
$0004F0 00 00 08 14 22 00 00 00 00 00 00 00 00 00 3E 00 ...."... ......>.
$000500 08 08 10 00 00 00 00 00 00 00 0E 10 1C 12 2C 00 ........ ......,.
$000510 02 02 1E 22 22 22 1E 00 00 00 1C 22 02 02 3C 00 ...""".. ..."..<.
$000520 20 20 3C 22 22 22 3C 00 00 00 1C 22 3E 02 3C 00 <"""<. ...">.<.
$000530 18 24 04 0E 04 04 04 00 00 00 3C 22 22 3C 20 1E .$...... ..<""< .
$000540 02 02 1E 22 22 22 22 00 08 00 08 08 08 08 08 00 ..."""". ........
$000550 10 00 10 10 10 10 12 0C 02 02 22 12 0A 16 22 00 ........ .."...".
$000560 0C 08 08 08 08 08 1C 00 00 00 16 2A 2A 2A 2A 00 ........ ...****.
$000570 00 00 1A 24 24 24 24 00 00 00 1C 22 22 22 1C 00 ...$$$$. ..."""..
$000580 00 00 1E 22 22 1E 02 02 00 00 3C 22 22 3C 20 20 ...""... ..<""<
$000590 00 00 1A 26 02 02 02 00 00 00 3C 02 1C 20 1E 00 ...&.... ..<.. ..
$0005A0 00 04 1E 04 04 04 18 00 00 00 12 12 12 12 2C 00 ........ ......,.
$0005B0 00 00 22 22 22 14 08 00 00 00 22 22 2A 2A 14 00 .."""... ..""**..
$0005C0 00 00 22 14 08 14 22 00 00 00 22 22 14 08 04 02 .."...". ..""....
$0005D0 00 00 3E 10 08 04 3E 00 18 04 04 02 04 04 18 00 ..>...>. ........
$0005E0 08 08 08 00 08 08 08 00 0C 10 10 20 10 10 0C 00 ........ ... ....
$0005F0 04 2A 10 00 00 00 00 00 .. .. .. .. .. .. .. .. .*......
** END **

Text found in 169_Volume_169.dsk/HELLO.bas:

100 PRINT : PRINT CHR$(4)"MAXFILES 2"
110 POKE 22784,0: POKE 103,1: POKE 104,89
115 POKE 1012,0
120 PRINT CHR$(4)"RUN PC"

Text found in 169_Volume_169.dsk/PC.bas:

900 REM PC - PLAY PROBLEMS CREATED BY OTHERS
901 REM COPYRIGHT 1983 BY THE 22ND AVENUE WORDSHOP
905 CS = 62450: POKE 230,32: CALL CS: POKE 49234,0: POKE 49239,0: POKE 49232,0: HOME
910 D$ = CHR$(4):RF$ = D$ +"READ ":LF$ = D$ +"BLOAD ":OF$ = D$ +"OPEN":CF$ = D$ +"CLOSE":WF$ = D$ +"WRITE"
920 UNSC = 4096: IF PEEK(3076) < >13 THEN PRINT LF$"PAGEC-10"
940 SETF = 816:ACCEPT = 768: IF PEEK(776) < >162 THEN PRINT LF$"PAGE3"
950 CALL SETF: IF PEEK(5905) < >20 THEN PRINT LF$"FONT"
960 F1 = 25:F3 = 28:I1 = 35:QT$ = CHR$(34): CALL 3075:SK = 4176: VTAB 12: PRINT " Just a moment ...":FJ = 1
1000 BL = 3503: POKE 33,40:KC = 49200:DS = 43602: ONERR GOTO 19010
1010 PRINT LF$"BRANCH.S, A$4000": DIM BR%(127),PI$(127):PI$(0) = "1":DICT = 3584: CALL DICT FOR BR%(1),PI$(0):BR%(0) = 13
1020 DIM HF$(4),PF$(4): FOR I = 1 TO 4: READ HF$(I): READ PF$(I): NEXT : DIM US(70)
1040 KSTROBE = 49152:CG = 22:SOUND = 864
1050 UL = 3128:UC = 0:LC = 32:M1 = 9:SG = PEEK(64435): IF SG = 6 THEN LC = 0:CP = 1
1070 DIM C1$(1),DF$(2),SY%(40),C$(40):ACCEPT = 768
1100 EL = 64668:ES = 64578:PF$ = "PROB4"
1110 PP = 7: DIM PP$(PP,1): FOR P = 1 TO PP: READ PP$(P,0),PP$(P,1): NEXT
1130 POKE DS,0: PRINT LF$"RIGHT4, A$1600"
1140 NM = 22: DIM M$(NM),ML%(NM),SM(NM): FOR M = 1 TO NM: READ SM(M): NEXT
1150 PRINT LF$"MESSAGE.S, A$1100":M$(0) = "T": CALL DICT FOR ML%(1),M$(0): IF SG < >6 THEN M$(16) = LEFT$(M$(16),19) +"CTRL" + MID$ (M$(16),27)
1160 DIM PC(3,1): FOR C = 0 TO 3: READ PC(C,0),PC(C,1): NEXT : DIM SC(1,1)
1170 IF PEEK(952) = 2 THEN PRINT : PRINT LF$"PCMENU.S": CALL UNSC: GOSUB 11910: IF BR = 6 GOTO 1210
1200 GOTO 12010
1210 ED = 0: GOSUB 13670: ON ( PEEK(952) = 2) GOTO 32000
1220 HF$ = "CREATE.S": POKE DS,0: PRINT LF$;HF$
1230 CALL UNSC: VTAB 23: HTAB 35:CL = 1: GOSUB 1810
1240 ON (BR = 6) GOTO 32000: IF BR < >3 THEN CALL BL: GOTO 1230
1250 OP = VAL(A$): IF OP >3 THEN CALL BL: GOTO 1230
1260 ON OP GOTO 21010,1300,32000
1300 HF$ = "PLAY.S": POKE DS,0: PRINT D$: PRINT LF$;HF$: CALL UNSC: VTAB 23: HTAB 35:CL = 1: GOSUB 1810
1310 ON (BR = 6) GOTO 32000: IF BR < >3 THEN CALL BL: GOTO 1300
1320 OP = VAL(A$): IF OP >4 THEN CALL BL: GOTO 1300
1330 ON (OP = 4) GOTO 12010: HOME :M = 13: GOSUB 15810: GOSUB 11910: ONERR GOTO 1400
1350 POKE 952,OP +10: POKE DS,0: HOME : PRINT CF$: PRINT D$"RUN HP"
1400 M = 13: GOSUB 15810: GOSUB 11910: GOTO 1350
1810 A$ = "":P = 1
1830 ON (P >CL) GOTO 1910: POKE UL,CASE: GET C$: ON ( LEN(C$) = 0) GOTO 1850:BR = BR%( ASC(C$))
1840 ON BR GOTO 1860,1900,1860,1860,1855,1910,1910,1850,1880,1910,1910,1910
1850 CALL BL: GOTO 1830
1855 IF ASC(C$) = 5 GOTO 16010
1860 IF CL >1 THEN PRINT C$;
1870 A$ = A$ +C$:P = P +1: GOTO 1830
1880 ON (P = 1) GOTO 1910:P = P -1:A$ = MID$ (A$,1,P -1): PRINT C$" "C$;: GOTO 1830
1900 IF P >1 GOTO 1860
1910 CASE = LC: POKE UL +2,255: RETURN
11910 GOSUB 13670: FOR A = 3036 TO 3044: POKE A,I1: NEXT
11920 VTAB 24: HTAB 1: PRINT " Press the SPACE BAR to continue. ";
11925 FOR W = 1 TO 3: GOSUB 20010: IF RS THEN W = 3
11927 NEXT W:SD = 0: IF RS = 1 GOTO 11948
11930 FOR ST = 1 TO 20: FOR A = 1 TO 9: HTAB 12 +A: POKE A +3035,F1:A$ = MID$ ("SPACE BAR",A,1): PRINT A$;
11935 FOR W = 1 TO 12: IF PEEK(KS) >127 THEN W = 12:RS = 1:A = 9:ST = 20
11940 NEXT W: POKE A +3035,I1: HTAB A +12: PRINT A$;
11943 NEXT A: IF RS = 0 AND SD >0 THEN FOR W = 1 TO 2 *SD:X = PEEK(KC): NEXT
11945 NEXT ST: IF RS = 0 THEN SD = 1 -SD: GOTO 11930
11948 CL = 1: GOSUB 1810
11950 CALL SETF: RETURN
11970 FOR A = 3036 TO 3044: POKE A,I1: NEXT
11980 VTAB 24: HTAB 3: PRINT "Press the SPACE BAR to play again.";
11990 GOTO 11925
12010 HOME : IF FJ = 0 THEN VTAB 12: HTAB 5: PRINT "Just a moment... "
12015 FJ = 0: ONERR GOTO 12060
12020 POKE DS,0: PRINT OF$;PF$", L208": PRINT RF$PF$", R0": INPUT PC: IF PC THEN FOR P = 1 TO PC: CALL ACCEPT FOR PI$(P): NEXT
12050 ONERR GOTO 19010
12060 IF PC < = 0 THEN POKE DS,0: PRINT CF$: HOME :M = 14: GOSUB 15810: GOSUB 11910: GOTO 1210
12070 TP = 0
12100 ON (TP = PC) GOTO 12100: IF US(HP) = 1 THEN HP = HP +1: ON (HP < = PC) GOTO 12130:HP = 1: GOTO 12130
12140 TP = TP +1:CN = 0: GOSUB 13010:US(HP) = 1
12145 CALL 54915: CALL SETF: HOME : GOSUB 13610: IF LEN(PI$(HP)) >0 THEN VTAB 2: HTAB 32: PRINT "By: "PI$(HP);
12150 HTAB 1: VTAB 3: PRINT "FORMULA: "HF$(H1)" "PF$(H2)" ("H1","H2")"
12160 VTAB 5: PRINT "DEFINITION: "DF$(0): VTAB 6: PRINT " "DF$(1): VTAB 7: PRINT " "DF$(2)
12170 GOSUB 13410: FOR W = 1 TO PC: IF PI$(W) < >PI$(HP) THEN US(W) = 0
12180 NEXT W: FOR W = 0 TO 1: FOR S = 0 TO 1:SC(W,S) = 0: NEXT :W$(W) = "":WS(W) = 0: NEXT :WW = 0:PC(1,0) = 80
12185 ON ED GOTO 16020: IF M1 >0 THEN M1 = M1 -1:M = 1: GOSUB 15810
12200 GOSUB 14090
12210 ON BR GOTO 12230,12220,12220,12220,12220,1210,12100,12220,12220,12220,12550,12300
12220 CALL BL: GOTO 12200
12230 CN = CN +(CN <3)
12240 ON CN GOSUB 13710,13810,13910: GOTO 12200
12300 FOR W = 0 TO 1: ON (WS(W) >2) GOTO 12320:EN = LEN(W$(W)): IF EN = 0 THEN SC(W,W) = 0:SC(W,1 -W) = 0:WS(W) = 0: GOTO 12320
12310 EN$ = W$(W):CW$ = CW$(W): GOSUB 15010:SC(W,W) = CC: IF SC(1 -W,1 -W) <3 THEN CW$ = CW$(1 -W):EN$ = W$(W): GOSUB 15010:SC(W,1 -W) = CC
12320 NEXT W: IF SC(0,1) +SC(1,0) >SC(0,0) +SC(1,1) THEN IF SC(0,1) >1 OR SC(1,0) >1 THEN GOSUB 13210
12330 IF WS(0) <4 THEN WS(0) = SC(0,0)
12335 IF WS(1) <4 THEN WS(1) = SC(1,1)
12350 IF CN = 1 AND (WS(0) >2 OR WS(1) >2) THEN CN = 2: VTAB 24: HTAB 1: PRINT " LIST=?";
12400 IF WS(0) >2 AND WS(1) >2 GOTO 12510
12410 WW = 0: ON (WS(0) = WS(1)) GOTO 12412:WW = (WS(1) >WS(0)): ON (WS(WW) <4) GOTO 12415:WW = 1 -WW: GOTO 12415
12412 WW = ( LEN(W$(0)) = 0 AND LEN(W$(1)) >0)
12415 IF WS(WW) = 3 THEN M = 10 +WW: GOSUB 15810:WS(WW) = 4:WW = 1 -WW: GOSUB 14010: FOR X = 1 TO 1000: NEXT : IF LEN(W$(WW)) = 0 THEN M = 4: GOSUB 15830: GOTO 12470
12430 IF WS(WW) = 2 THEN M = 9: GOSUB 15810: PRINT CW$(WW)"' ?":M = 6: GOSUB 15830: GOTO 12470
12440 IF WS(WW) = 1 THEN M = 7: GOSUB 15810: GOTO 12468
12450 IF LEN(W$(0)) >0 AND LEN(W$(1)) >0 AND WS(1 -WW) = 0 THEN M = 20: GOSUB 15810: GOTO 12468
12460 IF LEN(W$(WW)) >0 THEN M = 8: GOSUB 15810: GOTO 12468
12465 VTAB CG: CALL ES: PRINT " "
12468 IF CN > = 3 THEN M = 2 +(WS(0) <3 AND WS(1) <3): GOSUB 15830: POKE 3031,I1: VTAB 24: HTAB 1: PRINT " LIST=?";: FOR X = 1 TO 1800: NEXT
12469 IF LEN(W$(0)) = 0 AND LEN(W$(1)) = 0 THEN IF M1 >0 THEN M1 = M1 -1:M = 1: GOSUB 15810
12470 GOSUB 14010:W$(WW) = "": IF WS(1 -WW) = 0 AND WS(WW) = 0 THEN W$(1 -WW) = ""
12480 GOSUB 14100: GOTO 12210
12510 VTAB 11: CALL ES: PRINT : POKE SK,8: POKE 4103,22: CALL UNSC: GOSUB 12710: VTAB 1: HTAB 1
12520 PRINT "## "CW$(0)" "CW$(1)" ## ";: POKE 3031,F3: VTAB 24: HTAB 1: PRINT " ";: GOSUB 13510
12530 CL = 1: GOSUB 1810: ON BR GOTO 12540,12540,12540,12540,12540,1210,12100,12540,12145,12540,12550,12540
12540 M = 16: GOSUB 15810: GOSUB 20010: HTAB 1: VTAB 1: GOTO 12520
12550 GOSUB 13670:CN = 4:M = 17: GOSUB 15810: GOSUB 13610:CL = 5: VTAB 16: HTAB 22:CASE = UC: POKE UL +2,223: GOSUB 1810
12560 ON BR GOTO 12580,12580,12580,12580,12580,1210,12100,12570,12570,12570,12570,12580
12570 CALL BL: GOTO 12550
12580 IN$ = A$: FOR H = 1 TO PC:HP = HP +1: IF HP >PC THEN HP = 1
12590 IF (PI$(HP) = IN$ OR IN$ = "") AND US(HP) = 0 THEN H = PC +10
12600 NEXT H: ON (H > = PC +10) GOTO 12140: IF PI$(HP) < >IN$ THEN M = 18: GOSUB 15830: PRINT " "IN$".": GOSUB 11910: GOTO 12550
12610 M = 19: GOSUB 15830: PRINT " "IN$".": FOR ST = 1 TO 2000: NEXT
12620 FOR H = 1 TO PC: IF PI$(H) = IN$ THEN US(H) = 0
12630 NEXT H: GOTO 12550
12710 P% = 145:L% = 30: CALL SOUND FOR P%,L%: FOR X = 1 TO 10: NEXT
12720 P% = 145:L% = 210: CALL SOUND FOR P%,L%
12750 RETURN
13010 REC = HP: GOSUB 16500: FOR C = 0 TO 1:CW$(C) = F$(C):DF$(C) = F$(C +4):C1$(C) = F$(C +7): NEXT :DF$(2) = F$(6)
13040 H1 = VAL(F$(2)):H2 = VAL(F$(3)):DB = VAL(F$(9))
13050 WC = 0: ON (DB = 0) GOTO 13070: IF HF$ < >"NS" + STR$(DB) +".S" THEN HF$ = "NS" + STR$(DB) +".S": PRINT LF$;HF$",A$4000"
13060 C$(0) = CW$(0) + CHR$(13): CALL DICT FOR SY%(1),C$(0):WC = LEN(C$(0)): IF WC < = 0 THEN C$(0) = CW$(1) + CHR$(13): CALL DICT FOR SY%(1),C$(0):WC = LEN(C$(0))
13070 RETURN
13210 TIM = 180:SW$ = "< " +W$(1) +" >":WD = 5 + LEN(W$(0)):SW = LEN(SW$): FOR C = 2 TO 8: GOSUB 13310: HTAB WD +1: PRINT SPC( C);SW$" ": NEXT :CC = C
13220 TIM = TIM -40: FOR C = 0 TO SW: GOSUB 13310: HTAB WD +CC: PRINT SPC( C +1); MID$ (SW$,1,SW -C): HTAB 1: VTAB 1: PRINT MID$ (SW$,SW -C +1,C)" < "W$(0)" >";: NEXT
13240 Z$ = W$(0):W$(0) = W$(1):W$(1) = Z$: FOR W = 0 TO 1:Z = SC(0,W):SC(0,W) = SC(1,W):SC(1,W) = Z: NEXT : RETURN
13310 X = PEEK(KC):X = PEEK(KC): VTAB 1: HTAB 1: FOR X = 1 TO TIM: NEXT : RETURN
13410 IF WC <1 THEN WA(0) = 0:WA(1) = 0:RW$ = CW$(1): GOTO 13440
13415 W = INT( RND(1) *WC +1): IF WC >2 THEN IF C$(W) = CW$(0) OR C$(W) = CW$(1) GOTO 13415
13420 RW$ = C$(W): FOR W = 0 TO 1:WA(W) = 0: FOR C = 1 TO WC: IF C$(C) = CW$(W) THEN WA(W) = C:C = WC
13430 NEXT C: NEXT W: IF WA(0) >0 AND WA(1) >0 THEN RETURN
13440 FOR W = 1 TO 0 STEP -1: ON (WA(W) >0) GOTO 13460:R = WC +(WC <33):WC = R
13450 R = R -(C$(R) = CW$(1 -W) OR C$(R) = CW$(1 -W) +"*"):C$(R) = CW$(W) +"*"
13460 NEXT W: RETURN
13470 RETURN
13510 HTAB 22: PRINT " ";:ST = 0
13515 ST = ST +1: IF ST <10 AND PEEK(KS) <128 GOTO 13515
13520 HTAB 22: PRINT "=";:ST = 1
13525 ST = ST +1: IF ST <10 AND PEEK(KS) <128 GOTO 13525
13530 ON ( PEEK(KS) <128) GOTO 13510: RETURN
13610 POKE 3031,I1: FOR A = 3046 TO 3051: POKE A,I1: NEXT : FOR A = 3059 TO 3061: POKE A,I1: NEXT
13615 VTAB 24: HTAB 1: IF CN >3 THEN HTAB 11: GOTO 13640
13620 IF LEN(C1$(0)) = 0 THEN PRINT " RHYME=? ";:CN = 1: GOTO 13640
13630 PRINT " HINT=? ";:CN = 0
13640 PRINT "NEW PROBLEM=CTRL N ";: IF PEEK(952) = 2 THEN PRINT "EXIT=ESC";: GOTO 13660
13650 PRINT "MENU=ESC";
13660 POKE 35,23: VTAB 1: RETURN
13670 CALL SETF: POKE 35,24: RETURN
13710 VTAB 9: HTAB 1: CALL ES
13720 PRINT "HINT: "C1$(0): PRINT " "C1$(1): IF WS(0) >2 OR WS(1) >2 GOTO 13850
13730 VTAB 24: HTAB 1: PRINT " RHYME=?";: RETURN
13810 IF WS(0) >2 OR WS(1) >2 THEN GOSUB 13910: RETURN
13820 VTAB 12: HTAB 1: CALL ES: IF WC >2 THEN PRINT "Rhymes with '"RW$"'.": GOTO 13850
13830 PRINT "One of the words is '"RW$"'"
13850 VTAB 24: HTAB 1: IF WS(0) = 6 THEN PRINT "DELETE=Y";: RETURN
13860 PRINT " LIST";: RETURN
13910 VTAB 11: HTAB 1: CALL ES: PRINT : HCOLOR= 2: HPLOT 0,83 TO 278,83 TO 278,180 TO 0,180 TO 0,83: HCOLOR= 3
13940 LP = WC/3 +2 *(WC <9): FOR W = 0 TO WC -1:C = INT(W/LP) *13 +2:R = W - INT((W)/LP) *LP +12
13950 HTAB C: VTAB R: PRINT C$(W +1);: NEXT :CG = 11
13970 POKE 3031,F3: VTAB 24: HTAB 1: PRINT " ";:PC(1,0) = 101: RETURN
14010 HTAB 1: VTAB 1: FOR W = 0 TO 1: IF WS(W) = 4 THEN PRINT " "CW$(W)" ";: GOTO 14030
14020 PRINT "< "W$(W)" > ";
14030 NEXT : PRINT SPC( 25): RETURN
14050 PRINT C$" > ";: IF WW = 1 THEN PRINT TAB( 39);: GOTO 14100
14060 IF WS(1) = 4 THEN PRINT " "CW$(1) TAB( 39);: GOTO 14100
14070 PRINT "< "W$(1)" >" TAB( 39);: GOTO 14100
14090 GOSUB 14010
14100 W = LEN(W$(0)):PR = W +3: IF WW = 1 THEN PR = W + LEN(W$(1)) +9
14105 HTAB PR: VTAB 1
14110 POKE UL,LC: GET C$: ON ( LEN(C$) = 0) GOTO 14110:BR = BR%( ASC(C$)): ON BR GOTO 14190,14140,14120,14130,14120,14190,14190,14120,14150,14140,14160,14190
14120 ON ( ASC(C$) = 5) GOTO 16010: CALL BL: GOTO 14110
14130 L = LEN(W$(WW)): ON (L >12) GOTO 14120:W$(WW) = W$(WW) +C$: IF L <3 OR CP = 0 GOTO 14050
14132 FOR C = 1 TO 4: IF ASC( MID$ (W$(WW),C,1)) >90 THEN CP = 0:C = 12: NEXT C: GOTO 14050
14134 NEXT C:M = 22: GOSUB 15810:W$(WW) = "": GOTO 14010
14140 ON (WS(1 -WW) >2) GOTO 14120:WS(WW) = 1:WW = 1 -WW: GOTO 14090
14150 IF LEN(W$(WW)) = 0 THEN ON WW GOTO 14140: GOTO 14120
14155 W$(WW) = MID$ (W$(WW),1, LEN(W$(WW)) -1): GOTO 14050
14160 POP : GOTO 12550
14190 WS(WW) = 1: RETURN
15010 IF EN$ = CW$ THEN CC = 3: RETURN
15015 : IF LEN(EN$) >0 THEN CI = ASC(CW$):EI = ASC(EN$): IF ABS(CI -EI) = 32 THEN EN$ = CHR$(CI) + MID$ (EN$,2): GOTO 15010
15020 CW = LEN(CW$):EN = LEN(EN$):IM = 0: IF EN >4 GOTO 15200
15100 IF LEFT$(EN$,1) = LEFT$(CW$,1) THEN CC = 1: RETURN
15110 GOSUB 15510:CC = IM: RETURN
15200 IL = 1: IF LEFT$(EN$,1) < > LEFT$(CW$,1) THEN IL = 0: GOSUB 15510
15210 LO = CW: IF EN SC THEN CC = C -1:C = 3
15260 NEXT : IF CC = 3 AND IM = 1 THEN CC = 2
15290 RETURN
15510 FOR M = 1 TO PP: FOR P = 0 TO 1
15520 IF LEFT$(CW$, LEN(PP$(M,P))) < >PP$(M,P) GOTO 15550
15530 IF LEFT$(EN$, LEN(PP$(M,1 -P))) < >PP$(M,1 -P) GOTO 15550
15540 EN$ = PP$(M,P) + RIGHT$(EN$,EN - LEN(PP$(M,1 -P))):P = 1:M = PP:IM = 1:IL = 1
15550 NEXT : NEXT : RETURN
15810 IF CG >ML%(M) THEN CG = ML%(M)
15820 VTAB CG: HTAB 1: CALL ES
15830 VTAB ML%(M): HTAB 1: PRINT M$(M);: IF SM(M) <255 THEN M$(M) = MID$ (M$(M),1,SM(M))
15840 RETURN
16010 CALL 54915:ED = 1 -ED: IF ED = 0 GOTO 12120
16020 FOR W = 0 TO 1:W$(W) = CW$(W):WS(W) = 6: NEXT : GOSUB 14010: GOSUB 13710
16030 M = 21: GOSUB 15810: POKE 2284,I1: POKE 2288,I1: PRINT " (yes/no) ";:CL = 1: GOSUB 1810: POKE 2284,F3: POKE 2288,F3
16040 ON BR GOTO 16050,16200,16050,16060,16050,1210,16200,16050,16055,16200,12550,16200
16050 CALL BL: GOTO 16030
16055 HP = HP -1: GOTO 12130
16060 ON (A$ < >"Y" AND A$ < >"y") GOTO 16200:M = 5: GOSUB 15830
16070 IF HP TO CONTINUE... ";A$: GOSUB 13670: GOTO 12010
19030 RESUME
20010 FOR ST = 1 TO 800:RS = ( PEEK(KS) >127): IF RS >0 THEN ST = 800
20020 NEXT : RETURN
21010 ONERR GOTO 21050
21020 HOME : POKE DS,0: PRINT D$"RUN CM"
21050 M = 12: GOSUB 15830: GOSUB 11910: ON (BR = 9) GOTO 1210: GOTO 21020
32000 POKE DS,0: PRINT CF$
32010 PRINT LF$"EXIT.S": CALL CS: CALL UNSC:HF$ = "EXIT.S"
32020 CALL SETF: VTAB 24: HTAB 31
32030 CL = 1: GOSUB 1810: ON (BR = 9) GOTO 12010: HOME : POKE UL,UC
32766 REM COPYRIGHT 1983 BY THE 22ND AVENUE WORDSHOP
32767 POKE DS,0: PRINT D$"PR#6"

Text found in 169_Volume_169.dsk/PROB4.txt:

0

Text found in 169_Volume_169.dsk/RIGHT4.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 80 5E 88 80 0A 81 80 75 90 A0 C0 00 C4 88 C0 00 .^.....u . @.D.@.
$000010 81 82 80 76 90 00 00 8A 00 88 80 03 82 80 76 84 ...v.... ......v.
$000020 00 81 80 03 90 00 00 A0 80 4D A8 D5 AA D5 AA D5 ....... .M(U*U*U
$000030 AA D5 AA D5 AA 81 80 1C 88 2A 80 06 40 2A 05 90 *U*U*... .*..@*..
$000040 80 4C 88 90 80 08 82 81 80 1B D0 00 00 04 80 05 .L...... ..P.....
$000050 40 80 03 8A 80 4B 88 90 E0 08 63 0F 23 30 60 01 @....K.. `.c.#0`.
$000060 82 81 80 1B 84 80 0C A0 80 4B 88 90 80 08 82 81 ....... .K......
$000070 80 9C A8 D5 AA D5 AA D5 AA D5 AA D5 AA 81 80 75 ..(U*U*U *U*U*..u
$000080 90 A0 C0 00 D4 88 C0 00 81 82 80 76 D0 AA D5 82 . @.T.@. ...vP*U.
$000090 00 A8 D5 AA D5 82 80 76 81 00 81 80 03 D0 00 00 .(U*U..v .....P..
$0000A0 A0 80 4D 88 80 0A 81 80 1C 88 20 05 80 05 40 20 .M..... .. ...@
$0000B0 00 90 80 4C 88 90 80 08 82 81 80 1B 90 00 00 54 ...L.... .......T
$0000C0 2A 55 2A 55 2A 55 80 03 88 80 4B 88 90 80 08 82 *U*U*U.. ..K.....
$0000D0 81 80 1B D4 AA D5 AA D5 AA D5 AA D5 AA D5 AA D5 ...T*U*U *U*U*U*U
$0000E0 AA 80 4B 88 90 80 08 82 81 80 FE 80 1F D0 AA D5 *.K..... ..~..P*U
$0000F0 AA 95 88 D4 AA 95 82 80 78 D0 80 7D 81 00 85 80 *..T*... xP.}....
$000100 03 C0 00 00 A0 81 80 4C 88 C0 AA D5 AA D5 AA D5 .@.. ..L .@*U*U*U
$000110 AA D5 00 81 80 1C 8A 20 04 80 05 40 20 00 90 80 *U..... ...@ ...
$000120 4C 88 90 E0 0F 61 0F 21 7C 61 01 82 81 80 1B 90 L..`.a.! |a......
$000130 80 0C 88 80 4B 88 90 80 08 82 81 80 74 88 90 80 ....K... ....t...
$000140 08 82 81 80 9D D0 AA D5 AA 85 A8 D5 AA D5 82 80 .....P*U *.(U*U..
$000150 76 90 A0 CA 00 81 88 C0 94 81 82 80 78 90 80 7D v. J...@ ....x..}
$000160 81 00 84 80 03 D0 80 03 81 80 4C 88 90 80 08 82 .....P.. ..L.....
$000170 81 80 1C 82 20 55 2A 55 2A 55 2A 55 2A 00 C0 80 .... U*U *U*U*.@.
$000180 4C 88 90 A0 08 21 08 21 10 60 01 82 81 80 1B D4 L.. .!.! .`.....T
$000190 AA D5 AA D5 AA D5 AA D5 AA D5 AA D5 AA 80 4B 88 *U*U*U*U *U*U*.K.
$0001A0 90 80 08 82 81 80 74 88 90 80 08 82 81 80 9D 90 ......t. ........
$0001B0 80 03 84 88 80 03 82 80 76 90 A0 CA 00 81 88 C0 ........ v. J...@
$0001C0 94 81 82 80 76 D0 AA 95 00 00 A8 D5 AA D5 82 80 ....vP*. ..(U*U..
$0001D0 75 A0 00 00 94 80 03 94 80 03 81 80 4C 88 90 80 u ...... ....L...
$0001E0 08 82 81 80 1C 82 00 04 02 41 20 10 08 44 00 00 ........ .A ..D..
$0001F0 C0 80 4C 88 90 A0 08 21 00 21 10 60 01 82 81 80 @.L.. .! .!.`....
$000200 1B 84 80 0C A0 80 4B 88 90 80 08 82 81 80 74 88 .... .K. ......t.
$000210 90 80 08 82 81 80 9D 90 A0 D5 00 84 88 C0 AA 81 ........ U...@*.
$000220 82 80 76 90 A0 CA A0 81 88 C0 94 81 82 80 76 90 ..v. J . .@....v.
$000230 00 84 00 00 A0 85 00 00 88 80 75 A0 00 00 D4 80 .... ... ..u ..T.
$000240 03 84 00 20 05 84 80 4C 88 90 80 08 82 81 80 1B ... ...L ........
$000250 C0 82 00 04 02 41 20 10 08 44 00 00 C0 82 80 4B @....A . .D..@..K
$000260 88 90 E0 0F 23 0E 3F 10 60 01 82 81 80 1B 84 80 ..`.#.?. `.......
$000270 0C A0 80 4B 88 90 80 08 82 81 80 74 88 90 80 08 . .K.... ...t....
$000280 82 81 80 9D 90 A0 C0 00 84 88 C0 00 81 82 80 76 ..... @. ..@....v
$000290 90 A0 C2 A8 00 88 C0 90 81 82 80 76 84 00 84 80 . B(..@. ...v....
$0002A0 03 84 00 00 88 80 75 A0 2A 00 C0 AA 00 00 85 00 ......u *.@*....
$0002B0 20 04 84 80 4C 88 90 80 08 82 81 80 1B C0 00 00 ...L... .....@..
$0002C0 54 2A 55 2A 55 2A 55 80 03 82 80 4B 88 90 E0 04 T*U*U*U. ...K..`.
$0002D0 63 08 23 30 60 01 82 81 80 1B 84 80 0C A0 80 4B c.#0`... ..... .K
$0002E0 88 90 80 08 82 81 80 74 88 C0 AA D5 AA D5 AA D5 .......t .@*U*U*U
$0002F0 AA D5 00 81 80 9D 90 A0 C0 00 C4 8A C0 00 81 82 *U..... @.D.@...
$000300 80 76 90 A0 D5 8A 00 88 C0 AA 81 82 80 76 84 00 .v. U... @*...v..
$000310 85 80 03 94 00 00 A8 80 75 88 22 00 00 A0 D5 AA ......(. u.".. U*
$000320 81 00 20 04 84 80 4C 88 90 80 08 82 81 80 1B C0 .. ...L. .......@
$000330 00 00 04 80 05 40 80 03 82 80 4B 88 90 E0 08 63 .....@.. ..K..`.c
$000340 08 23 30 00 00 82 81 80 1B 84 80 0C A0 80 4B 88 .#0..... .... .K.
$000350 90 80 08 82 81 80 74 88 80 0A 81 80 3E .. .. .. ......t. ....>
** END **