home *** CD-ROM | disk | FTP | other *** search
1 GOTO910 2 REM ** ML STOP KEY DISABLE ** 3 PRINT"x[169]=[141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 4 [153]"xhhh+hNOThhhhhhhPRINT#HRUNHX`111" 5 [153]"hhhhhhh`1" 6 [143] ** 4 - POP ML SUBROUTINE ** 10 [143] **GENERAL INPUT ROUTINE ** 15 : 20 [143] ** TO OUR BEST KNOWLEDGE THIS 21 [143] PROGRAM IS FREE FOR 22 [143] DUPLICATION IN CANADA. 23 [143] IF YOU HAVE CONTARY 24 [143] INFORMATION, PLEASE 25 [143] CONTACT COMMODORE CANADA AND 26 [143] EVERY EFFORT WILL BE MADE TO 27 [143] WITHDRAW COPIES OF THIS 28 [143] PROGRAM. 30 : 32 "RHYMECONC.C0" PRG 35 [143] +++ INPUT SECTION +++ 40 [151]UO,0:UR$[178]"":UI$[178]"" 42 [139]UL[178]0[167]UL[178]80 45 [151]UC,0 50 [161]UI$:[139]UI$[178]""[167]50 53 [151]SID[170]4,17:[151]SID[170]1,[198](UI$):[129]WV[178]1[164]12:[130]WV:[151]SID[170]1,0 55 [139]UI$[178][199](13)[175][195](UR$)[177][178]1[167][151]UC,1:[153]" CMD";:[137]85 60 [139]UI$[178][199](20)[167]105 62 [139] [195](UR$)[178][177]UL[167]50 65 [141]120:[143] CHECK FOR VALID CHARACTER 70 UR$[178]UR$[170]UI$ 75 [153]UI$; 80 [137]50 85 [143] +++ CHECK FOR HELP REQUEST +++ 90 [139]UR$[178]UX$[167]195:[143] EXIT TO HELP ROUTINE 95 [139]UF[178]1[167][141]240 100 UF[178]0:[153]:[142] 102 [143] ++ CHECK DELETE ++ 105 [139][195](UR$)[179]1[167]50 110 UR$[178][200](UR$,[195](UR$)[171]1) 115 [153]"CMD CMDCMD";:[137]50 120 [143] ++ CHECK FOR VALID CHARACTERS ++ 125 [139][195](US$)[178]0[167]150 127 US$[178]US$[170]UX$ 130 [129]US[178]1[164][195](US$) 135 [139]UI$[178][202](US$,US,1)[167][142] 140 [130] 145 UI$[178]"":[142] 150 [143] ** STANDARD INPUT ** 152 [139][198](UI$)[178]46[167][142] 155 [139]UI$[178][199](32)[167][142] 160 [139][198](UI$)[179]48[176][198](UI$)[177]63[167]170 165 [142] 170 [139][198](UI$)[179]65[176][198](UI$)[177]90[167]180 175 [142] 180 [139][198](UI$)[179]193[176][198](UI$)[177]218[167]UI$[178]"":[142] 185 [139][194](UT)[178]UU%[167]UI$[178][199]([198](UI$)[171]128):[142] 187 [142] 190 UI$[178]"":[142] 195 UF[178]1:[143] +++ HELP ROUTINE EXIT +++ 197 [141]250 200 [141]245 205 [129]UQ[178]UB[164](U2%[172]256[170]U1%[170]U3%[171]2) 210 UQ%(UQ[171]UB)[178][194](UQ):DQ%(UQ[171]UB)[178][194](UQ[170]54272):[130]:[153]"LOAD" 215 UZ[178]1:UV%[178][194](UT) 216 [137]300 217 UZ[178]0:US$[178]UJ$:UG$[178]UK$:UP[178]UJ:UL[178]UK:[139][194](50003)[178]0[167][151]53281,0:[151]53280,0 220 UT$[178]UL$:[153]"LOAD";:[151]UT,UV%:[129]UQ[178]UB[164](U2%[172]256[170]U1%[170]U3%[171]3) 225 [151]UQ[170]54272,DQ%(UQ[171]UB):[151]UQ,UQ%(UQ[171]UB):[130] 230 [151]U1,U1% 232 [151]U2,U2% 233 [151]U4,U4% 234 [151]U3,U3%[171]1 235 [137]35 240 UD%[178]((U2%[172]256[170]U1%[170]U3%)[171]UB)[173]40:[153][200](UD$,UD%[170]1):[142] 245 [153][200](UD$,24);" HELP COMING WAIT ":[142] 250 U1%[178][194](U1):U2%[178][194](U2):U3%[178][194](U3):U4%[178][194](U4) 251 UJ$[178]US$:UK$[178]UG$:UL$[178]UT$:UJ[178]UP:UK[178]UL 255 [142] 300 [143] ** MENU ** 301 : 302 [153]"LOAD":[151]UT,UU%:[139][194](50003)[178]0[167][151]53281,9:[151]53280,8 303 : 305 [153]" MENU" 310 [153]" --------------------------------------" 315 [153]" 1. BEGIN WORD LADDER" 320 [153]" 2. STUDENT INSTRUCTIONS" 325 [153]" 3. TEACHER INSTRUCTIONS" 335 [153]" 4. QUIT" 340 [153]" --------------------------------------" 345 [153]" PRESS A NUMBER KEY (1-4) "; 350 UL[178]1:US$[178]"1234":[141]35:[143] INPUT ROUTINE 351 [139][195](UR$)[177]1[167]300 352 US$[178]"" 355 [145][197](UR$)[141]1000,400,500,396 360 [137]300 395 [143] ** RE-ENABLE STOP KEY AND END ** 396 [139][194](50003)[179][177]1[175][194](50003)[179][177]160[175][194](50003)[179][177]0[167]399 397 [158]UU[170]71:[139][194](50003)[178]0[167][151]53281,0:[151]53280,0 398 [153]"LOAD";[199](14);:[128] 399 [141]875:[142] 400 [143] ** STUDENT INSTRUCTIONS ** 402 UT$[178]" (null)ORD (null)ADDER" 405 [153]"LOAD":[151]UT,UL%:[139][194](50003)[178]0[167][151]53281,0:[151]53280,0 410 UP[178]0:UG$[178]"(null)TUDENT RIGHT$NST":[141]850 412 [153]" RIGHT$N THIS GAME YOU START WITH A WORD AND 416 PRINT" TRY TO GET TO ANOTHER WORD." 420 PRINT" [201]N EACH MOVE, YOU CHANGE ONE LETTER AT 422 [153]" A TIME. 426 PRINT" [217]OU WILL HAVE TO STICK TO WORDS THAT 428 [153]" ARE IN MY DICTIONARY. RIGHT$ KNOW ABOUT 430 PRINT" 250 WORDS." 431 GOSUB5000 432 GOSUB835:GOSUB850 434 PRINT" [201]F YOU TYPE ' H' (FOLLOWED BY RETURN)," 435 PRINT" [201]'LL LIST THE WORDS THAT COME FROM" 436 PRINT" YOUR CURRENT WORD" 438 PRINT" [158][199][207][207][196][160][204][213][195][203]! 455 [141] 835:[141]850 460 [153]" SYS(null)OTE:(null)O ADVANCE FROM ONE QUESTION" 470 [153]" TO THE NEXT PRESS THE (null)(null)ATNLENVAL BAR" 475 [153]" RIGHT$F AT ANY TIME YOU WISH TO RETURN" 480 [153]" TO THE (null)VAL(null)(null) PRESS ' ?' (null)VAL(null)(null)(null)(null)" 485 [141]835 490 [139]UZ[178]1[167][158]UP%:[137]217 499 [142] 500 [143] ** TEACHER INSTRUCTIONS ** 501 [153]"LOAD":[151]UT,UL%:[139][194](50003)[178]0[167][151]53281,2:[151]53280,10 502 UT$[178]" (null)ORD (null)ADDER":UP[178]0:UG$[178]"(null)EACHER RIGHT$NST":[141]850 503 [153]" (null)O THE BEST OF OUR KNOWLEDGE," 504 [153]" THIS PROGRAM IS IN THE PUBLIC" 505 [153]" DOMAIN. RIGHT$F THIS IS NOT THE CASE" 506 [153]" PLEASE CONTACT:" 507 [153]" LENOMMODORE PEEKUSINESS (null)ACHINES" 508 [153]" 3370 (null)HARMACY ATNVE. 509 PRINT" [193]GINCOURT, [207]NTARIO" 510 PRINT" [195]ANADA [205]1[215] 2[203]4" 511 PRINT" (416) 499-4292" 512 UP=1:GOSUB 835:GOSUB 850: 513 PRINT" [208]ROGRAM [206]AME: [215]ORD [204]ADDER 514 [153]" (null)RITTEN PEEKY : PEEKILL ASCINZER 515 PRINT" [213]PGRADED [194]Y : [211]EAN [215]INSTEAD 516 [153]" (null)HIS PROGRAM WILL RUN ON ANY 517 PRINT" [194][193][211][201][195][160]2.0 [208][197][212] [195][207][205][208][213][212][197][210] 518 [153]" PEEKATN(null)RIGHT$LEN 4.0 (null)VAL(null)CLOSELEN(null)(null)(null)(null)(null)VAL(null) 519 PRINT" 8032 [195][194][205] [195][207][205][208][213][212][197][210] 520 [153]" LEN(null)(null)(null)(null)STR$(null)(null)VAL 64 LEN(null)(null)(null)(null)(null)VAL(null) 580 GOSUB835 590 IFUZ=1THENSYSUP%:GOTO217 599 RETURN 600 REM ** PROGRAM MODIFICATION INST ** 601 PRINT"[147]":POKEUT,UL% 605 UP=0:UG$="[208]ROGRAM [205]OD":GOSUB850 660 GOSUB835 690 IFUZ=1THENSYSUP%:GOTO217 699 RETURN 700 REM ** TO USE 8032 LOAD CBM4032 ** 710 PRINT"[147]BEFORE RUNNING THIS PROGRAM ON AN 8032 720 [153]" LOAD THE 'CBM 4032' PROGRAM" 730 [158]UU[170]71 740 [128] 797 [143] ** TO USE 8032 LOAD CBM4032 ** 798 [153]"LOADBEFORE RUNNING THIS PROGRAM ON AN 8032 LOAD CBM 4032 PROGRAM" 799 [158]1093:[128] 800 [143] ** T I T L E P A G E ** 802 [153]"LOAD ";:[151]UT,UU%:[139][194](50003)[178]0[167][151]53280,14:[151]53281,6 804 [129]I[178]1[164]38:[153]"SPC(WAIT";:[130] 806 [129]I[178]1[164]22:[153]"CMDSPC(WAIT";:[130] 808 [129]I[178]1[164]37:[153]"CMDCMDSPC(WAIT";:[130] 810 [129]I[178]1[164]22:[153]"ONCMDSPC(WAIT";:[130] 812 [153]" STEP WAIT 814 PRINT" [146] [146][169] 816 [153]" WAIT TAB((null) 818 PRINT" [223] [146] 820 [153]" C O M M O D O R E 822 PRINT" EDUCATIONAL 824 [153]" SOFTWARE 826 REM ** COMMODORE LOGO ** 827 PRINTLEFT$(UD$,24);" PRESS SPACE BAR OR WAIT[146]":I=0 828 GETA$:IFA$<>" "THENI=I+1:IFI<250THEN828 830 T1$="":T2$="":T3$="":T4$="":I=0 832 GOSUB5100:GOTO300 835 REM ** SPACE BAR PRESS ** 840 POKEUO,0:PRINTLEFT$(UD$,24);" PRESS SPACE BAR TO CONTINUE[146]" 844 GETUI$:IFUI$<>" "THEN844 845 POKESID+4,17:POKESID+1,25:FORWV=1TO15:NEXTWV:POKESID+1,0 846 RETURN 850 REM ** PAGE DESIGN ROUTINE ** 852 UP=UP+1 855 PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18) 860 PRINT" --------------------------------------" 864 IFUH<>0THEN870 865 PRINTLEFT$(UD$,24);LEFT$(UP$,7);"HELP - PRESS ? <RETURN>" 870 UH=0:PRINT"":RETURN 875 REM ** PLEASE WAIT REMARK ** 880 PRINTLEFT$(UD$,24);" ONE MOMENT PLEASE... " 885 RETURN 900 REM ** SET UP VARIABLES ** 901 UX$="?":DIMUQ%(1000),DQ%(1000):UB=32768:U1=196:U2=197:U3=198:U4=216 902 UC=167:UU=1024:UT=59468:UU%=12:UL%=14:UP%=1146:UM=32768:UO=158:POKE 50003,0 903 IFPEEK(50003)=0THENUB=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UU=2048 904 IFPEEK(50003)=0THENUT=53272:UU%=21:UL%=23:UP%=2139:UM=1024:UO=198:U9=828 905 UD$="" 906 UP$=" ":IFPEEK(50003)=0THENU9=623 907 UT$=" [208][210][207][199][210][193][205][160][206][193][205][197][160][160][160][160][160][160]":REM PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!*** 908 SID=54272:FORX=SIDTOSID+24:POKEX,0:NEXTX:POKESID+24,10:POKESID+6,240 909 RETURN 910 REM ** SET VARIABLES ** 911 ZZ$=" " 915 GOSUB900 916 : 917 : 920 REM ** CHECK FOR 8032 ** 925 PRINT"[147]":PRINT"[160]":REM SHIFTED SPACE 930 IFPEEK(UB+40)<>96THENGOSUB700 931 REM ** MEMORY CHECK ** 932 IF FRE(0)>2000THEN937 933 PRINT"[147]THIS MACHINE DOES NOT HAVE ENOUGH" 934 PRINT"MEMORY TO RUN THIS PROGRAM !" 935 SYSUU+71 936 END 937 PRINT"[147]":IFPEEK(50003)=0THEN962 940 REM ** BASIC 2.0 OR 4.0 OR C-64 SETUP ** 941 POKE1075,133:POKE1076,144:POKE1077,234:POKE1079,4:POKE1080,133:POKE1081,145 942 POKE1091,155:POKE1098,133:POKE1099,144:POKE1100,234:POKE1103,133 943 POKE1104,145:POKE1105,234:POKE1082,234 945 IFPEEK(50003)<>160THEN955 950 POKE1093,88:POKE1094,228:POKE1097,85:POKE1102,228:GOTO965 955 IFPEEK(50003)<>1THEN990 960 POKE1093,49:POKE1094,230:POKE1097,46:POKE1102,230:GOTO965 962 POKE2099,141:POKE2100,20:POKE2101,3:POKE2103,8:POKE2104,141:POKE2105,21 963 POKE2106,3:POKE2115,145:POKE2117,52:POKE2118,234:POKE2121,49:POKE2122,141 964 POKE2123,20:POKE2124,3:POKE2126,234:POKE2127,141:POKE2128,21:POKE2129,3 965 SYSUU+48:REM DISABLE STOP KEY 970 GOSUB800:REM TITLE 980 GOTO300:REM MENU 990 PRINT"[147]THE PGM WILL NOT WORK ON THIS MACHINE!":END 1000 IFUZ=1THENSYSUP%:SYSUP%:UZ=0:REM ** PROGRAM STARTS HERE ** 1001 PRINT"[147]";:RESTORE:IFPEEK(50003)=0THENPOKE53281,0:POKE53280,0 1003 UG$="":UP=0:UT$=" [215]ORD [204]ADDER" 1004 UH=1:POKEUT,UL%:GOSUB850:GOSUB880:UP=UP-1 1100 REM WORD LADDERS BY BILL FINZER, SFSU, JANUARY, 1980 1105 GOTO 1435 1110 REM-SETTING UP A WORD LADDER------ 1115 GOSUB1145:REM INIT 1120 PRINT" WHAT IS THE STARTING WORD";:US$="":UL=10:GOSUB 35:WRD$=UR$ 1125 DICT$(0)=WRD$:NW=1*LI=-1 1130 GOSUB 1170:REM CONSTRUCT 1135 GOSUB 1355:REM TARGET 1140 RUN1435 1145 REM--INIT---- 1150 POKE UT,UL% 1155 IF VF=0 THEN DIMDICT$(255):VF=1 1160 SN=9100:REM STATEMENT # FOR DATA 1165 RETURN 1170 REM----DICTIONARY---- 1175 LI=LI+1:IF LI>=NW THEN RETURN 1180 IF LI>255 THEN RETURN 1185 CW$=DICT$(LI) 1190 PRINT" WORKING ON "CW$ 1195 GOSUB 1275:REM GO THROUGH PERMS 1200 GOSUB 1730:REM ADD DATA 1205 GOTO 1175 1210 REM-----LOOK UP W$----- 1215 F$="F" 1220 FORI=0TO NW-1 1225 IF W$=DI$(I)THENF$="T":I=NW-1 1230 NEXTI 1235 RETURN 1240 REM---ADD NW$--- 1245 W$=NW$ 1250 GOSUB1210 1255 IF F$="T" THEN 1270 1260 DI$(NW)=NW$ 1265 NW=NW+1 1270 RETURN 1275 REM--SUBSTITUTIONS-- 1280 LW=LEN(CW$) 1285 FOR LR=1 TO LW 1290 FOR NL=ASC("A") TO ASC("Z") 1295 NW$=CHR$(NL) 1300 IF LR>1 THEN NW$=LEFT$(CW$,LR-1)+NW$ 1305 IF LR<LW THEN NW$=NW$+MID$(CW$,LR+1) 1310 PRINT" "NW$"? "; 1315 GOSUB 2035:IF A$<>"Y" AND A$<>"N"AND A$<>"S" AND A$<>"B" THEN 1315 1320 PRINT" "A$ 1325 IF A$="S" THEN NL=ASC("Z") 1330 IF A$="B" THEN NL=NL-1:GOTO1295 1335 IF A$="Y" THEN GOSUB 1240 1340 NEXT NL 1345 NEXT LR 1350 RETURN 1355 REM-GET TARGET--- 1360 PRINT" [215][200][193][212][160][212][193][210][199][197][212][160][215][207][210][196][160][196][207][160][217][207][213][160][215][193][206][212]? "; 1365 C=0:F$="T" 1370 GOSUB 2125 1375 W$=B$:GOSUB 1210 1380 IFF$="F"THENPRINT" "B$" [201][211][160][206][207][212][160][201][206][160][205][217][160][196][201][195][212][201][207][206][193][210][217]":GOTO 1360 1385 GOSUB 850:GOSUB865:PRINT" 4010 T$="CHR$(34)B$CHR$(34) 1387 PRINT" GOTO 4000"; 1390 POKE UO,2:POKE U9,13:POKE U9+1,13:GOTO300 1395 RETURN 1400 REM-COMP OW$ WITH W$-- 1405 C=0:F$="T" 1410 FOR I=1 TO LEN(W$) 1415 IFMID$(W$,I,1)<>MID$(OW$,I,1) THEN C=C+1 1420 NEXTI 1425 IFC<>1THENF$="F" 1430 RETURN 1435 REM----MAIN ROUTINE OF GAME---- 1440 POKE UT,UL% 1445 T$="HUMS" 1450 GOSUB 1520:REM INIT GAME 1455 OW$=DI$(0) 1465 GOSUB 1670:REM PLAY GAME 1466 IF FV=5 THEN 1468 1467 GOTO 1500 1468 GOSUB 835 1469 GOSUB 850:GOSUB 865 1470 PRINT" [153][196][207][160][217][207][213][160][215][193][206][212][160][212][207][160][212][210][217][160]5 [205][207][210][197]? ";:US$="YN":UL=2:GOSUB 35:A$=UR$ 1475 FV=0:IF A$="Y"THEN 1500 1480 IF A$="N"THEN 300 1500 OW$=DI$(INT(RND(1)*NW)) 1505 T$=DI$(INT(RND(1)*NW)) 1510 W$=T$:GOSUB 1400:IF C<LEN(W$)-1 THEN 1500 1515 GOTO 1465 1520 REM----GAME INSTRUCTIONS 1525 BL$=" " 1530 D$="" 1535 NW=0:IF AA=0 THEN DIM DICT$(255):AA=1 1538 RESTORE 1540 READ W$ 1545 IF W$="////" THEN RETURN 1550 DICT$(NW)=W$:NW=NW+1 1555 GOTO 1540 1560 RETURN 1660 GOSUB 835 1665 RETURN 1670 REM-------PLAY GAME------ 1675 GOSUB 850:GOSUB865:PRINT"[158] [199][197][212] "T$" ";LEFT$(ZZ$,LEN(OW$)+1) 1680 PRINT" [211][212][193][210][212][160][215][201][212][200] "OW$"[146]" 1685 PRINT 1690 GOSUB 2125 1695 : IF B$="H" THEN GOSUB 1885:GOTO 1675:REM HELP 1700 : W$=B$ 1705 GOSUB 1400:IF F$="F" THEN GOSUB 1990:GOTO 1690:REM ILLEGAL MOVE 1710 : GOSUB1210:IF F$="F" THEN GOSUB 1865:GOTO 1690:REM NOT IN DICTIONARY 1715 IF B$<>T$ THEN OW$=B$:GOTO 1690 1720 PRINT" YOU GOT IT!":FV=FV+1:POKESID+4,33:FOREZ=1TO10:POKESID+1,20 1722 FORWV=1TO10:NEXTWV:POKESID+1,0:FORWV=1TO5:NEXTWV,EZ 1724 GOSUB 835 1725 RETURN 1730 REM----MAKE DATA----- 1735 IF DN=NW THEN RETURN 1740 GOSUB 850:GOSUB865:PRINT" "; 1745 SN=SN+1 1750 L=0 1755 PRINTSN"DATA"; 1760 PRINTDICT$(DN);:L=L+1:DN=DN+1 1765 IF DN>=NW THEN PRINT:GOTO 1780 1770 IF L=10 THEN SN=SN+1:PRINT:GOTO 1750 1775 PRINT",";:GOTO 1760 1780 PRINT" NW="NW":DN="DN":LI="LI":SN="SN":GOTO5200"; 1785 POKE UO,10:FORI=0 TO 9:POKE U9+I,13:NEXT I 1790 END 1795 REM----REINIT AND CONTINUE SETTING UP DICTIONARY 1800 POKE UO,0 1805 RESTORE 1810 DIM DICT$(255) 1815 FOR I=0 TO NW-1 1820 ::READ DICT$(I) 1825 NEXT I 1830 GOSUB 1840 1835 GOTO1130 1840 REM----LIST DICTIONARY--- 1845 FOR I=0 TO NW-1 STEP 2 1850 ::PRINTDICT$(I)" "DICT$(I+1) 1855 NEXT I 1860 RETURN 1865 REM---NOT IN DICT ERROR---- 1870 M$="[153][211]ORRY, [201] DON'T KNOW THAT WORD" 1875 GOSUB 2010 1880 RETURN 1885 REM----HELP- (FROM OW$)----- 1890 LI=PEEK(U4):LC=0 1895 TEMP$=OW$ 1900 REM GOSUB 1960:REM CLEAR HELP FRAME 1902 UH=1:GOSUB 850:GOSUB 399 1905 PRINT" [200][197][210][197][160][193][210][197][160][212][200][197][160][215][207][210][196][211][160][201][160][203][206][207][215]" 1910 PRINTTAB(9)"[211][212][193][210][212][201][206][199][160][198][210][207][205] [158]"OW$;"" 1915 POKESID+4,129:FOR W=0 TO NW-1 1920 : W$=DICT$(W) 1925 : GOSUB 1400:REM COMPARE 1930 : IF F$="F" THEN 1945 1935 : POKESID+1,5:PRINTTAB(11+LC*(LEN(W$)+2))W$; 1940 : LC=LC+1:IF (LC+1)*(LEN(W$)+2)>28 THEN LC=0:PRINT 1945 POKESID+1,0:NEXT W 1950 PRINT""LEFT$(D$,LI-2) 1955 GOSUB835:RETURN 1960 REM-----CLEAR HELP---- 1965 PRINT""; 1970 FOR I=1 TO 24 1975 : PRINTTAB(12)LEFT$(BL$,27) 1980 NEXT I 1985 RETURN 1990 REM---ILLEGAL MOVE----- 1995 M$="[129][211]ORRY, MUST DIFFER BY 1 LETTER" 2000 GOSUB 2010 2005 RETURN 2010 REM---PRINT MESSAGE----- 2015 PRINT"[145]"TAB(LEN(W$)+2)""M$ 2020 GOSUB 2150:REM WAIT 2025 PRINT"[145]"BL$"[145]" 2030 RETURN 2035 REM---GET SINGLE CHAR---- 2040 T=TI 2045 IF TI<T+30 THEN PRINT"[166][157]";:GOTO 2060 2050 IF TI<T+60 THEN PRINT" [157]";:GOTO 2060 2055 T=TI 2060 GET A$:IF A$="" THEN 2045 2065 PRINT" [157]";:RETURN 2070 REM----GET STRING---- 2072 IFPEEK(U4)>20THENUP=UP-1:A9=1:GOSUB850:PRINT" [199][197][212] "T$" "; 2073 IFA9=1THENPRINTLEFT$(ZZ$,LEN(OW$)+1) 2074 IFA9=1THENA9=0:OW$=QQ$:PRINT" [158][211][212][193][210][212][160][215][201][212][200] "OW$"[146]" 2075 PRINT" ";:US$="":UL=20:GOSUB35 2080 B$=UR$:QQ$=B$ 2082 IFLEN(B$)>LEN(OW$)THENPRINT"[145]";LEFT$(UP$,30)"[145]":GOTO2070 2085 RETURN 2125 REM---GET NON-EMPTY STRING--- 2130 B$="":POKE UO,0 2135 GOSUB 2070 2140 IF B$="" THEN 2135 2145 RETURN 2150 REM---WAIT 2 SECS---- 2155 T=TI 2160 IF TI<T+120 THEN 2160 2165 POKE UO,0:RETURN 2170 DATAMATH,BATH,HATH,LATH,OATH,PATH,MOTH,MYTH,MACH,MASH 2175 DATAMATE,MATS 2180 DATABETH,BOTH,BACH,BASH,BATS 2185 DATAHASH,HATE,HATS 2190 DATALASH,LATE 2195 DATAOATS 2200 DATAPITH,PATE,PATS 2205 DATADOTH,LOTH,MOTE 2210 DATAMUCH,MACE,MACK,MACY 2215 DATACASH,DASH,GASH,RASH,SASH,WASH,MESH,MUSH,MASK,MASS 2220 DATAMAST 2225 DATADATE,FATE,GATE,KATE,RATE,SATE,MADE,MAGE,MAKE,MALE 2230 DATAMANE,MARE,MAZE 2235 DATACATS,FATS,RATS,TATS,VATS,MITS,MUTS,MAGS,MANS,MAPS 2240 DATAMARS,MAWS 2245 DATASETH,BETA,BETS 2250 DATABOOH 2255 DATAEACH,BACK 2260 DATABASE,BASK,BASS 2265 DATABITS,BUTS,BAGS,BAMS,BANS,BARS,BAYS 2270 DATAHUSH,HASP 2275 DATAHALE,HARE,HAVE,HAZE 2280 DATAHITS,HOTS,HUTS,HAGS,HAMS,HANS 2285 DATALUSH,LASS,LAST 2290 DATALUTE,LACE,LAKE,LAME,LANE,LAZE 2295 DATAOPTS,OUTS,OAFS,OAKS,OARS 2300 DATAPITA,PITS,PITY 2305 DATAPACE,PAGE,PALE,PANE,PARE,PAVE 2310 DATAPETS,POTS,PUTS,PADS,PALS,PANS,PAWS,PAYS 2315 DATADOTE,DOTS 2320 DATALOTS 2325 DATANOTE,ROTE,TOTE,VOTE,MODE,MOLE,MOPE,MORE,MOVE 2330 DATAOUCH,SUCH,MUCK 2335 DATAFACE,RACE,MICE 2340 DATAHACK,JACK,LACK,PACK,RACK,SACK,TACK,MARK 2345 DATAMANY,MARY 2350 DATACASE,CASK,CAST 2355 DATADISH 2360 DATAGUSH,GASP 2365 DATARUSH,RASP 2370 DATAWISH,WASP 2375 DATAMESA,MESS 2380 DATABUSH,PUSH,MUSE,MUSK,MUST 2385 DATAGETS,JETS,LETS,NETS,SETS,WETS,BEES,BEGS,BESS 2390 DATAETCH 2395 DATABUCK,BALK,BANK,BARK 2400 DATAFITS,KITS,SITS,TITS,WITS,ZITS,BIAS,BIBS,BIDS,BITE 2405 DATACUTS,GUTS,NUTS,RUTS,BUDS,BUGS,BUMS,BUNS 2410 DATAGAGS,LAGS,NAGS,RAGS,SAGS,TAGS 2415 DATAHUGS 2420 DATAHUMS 2425 DATALUST 2430 DATALUBE,LURE 2435 DATALINE 2440 DATAOURS 2445 DATAPIES,PIGS,PINS 2450 DATACITY 2455 DATAPEAS,PEGS,PENS,PEWS,PETE 2460 DATANODE,NONE,NOPE,NOSE 2465 DATA"////" 5000 GOSUB835:GOSUB850 5010 PRINT" [200]ERE IS AN EXMPLE." 5020 PRINT" [158] [199][197][212] HUMS [146]" 5030 PRINT" [211][212][193][210][212][160][215][201][212][200] BATH[146]" 5040 PRINTTAB(17)" BATS":GOSUB6000 5050 PRINTTAB(17)" HATS":GOSUB6000 5060 PRINTTAB(17)" HAMS":GOSUB6000 5070 PRINTTAB(17)" HUMS":GOSUB6000 5090 PRINT" YOU GOT IT!![146] 5095 [142] 5100 [153]"LOAD";[199](14);:[151]53280,0:[151]53281,0 5102 [153]" CONTDISTRIBUTED BY":[129]WV[178]1[164]1000:[130]WV 5104 [153]" LOAD WAIT":[153]" WAIT":[153]" WAIT":[153]" WAIT":[153]" WAITCONTVANSVILLE" 5105 [153]:[153]" WAIT":[153]" WAIT WAIT":[153]" WAIT":[153]" WAIT":[153]" WAITCONT RINTING" 5106 [153]:[153]" WAIT":[153]" WAIT":[153]" WAIT":[153]" WAIT":[153]" WAITCONTORPORATION" 5108 [129]WV[178]1[164]2500:[130]WV 5110 [153]"LOAD MODIFIED BY: (null)EAN (null)INSTEAD":[129]WV[178]1[164]1500:[130]WV 5112 [142] 6000 [129]A[178]1[164]800:[130]:[142] 
(.txt)