home *** CD-ROM | disk | FTP | other *** search
Wrap
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 : 35 [143] +++ INPUT SECTION +++ 40 [151]UO,0:UR$[178]"":UI$[178]"" 42 [139]UL[178]0[167]UL[178]80 45 [153]" CMDCMD";:[151]UC,0 50 [161]UI$:[139]UI$[178]""[167]50 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 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]57[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 204 U5[178][194](59468) 205 [129]UQ[178]UB[164](U2%[172]256[170]U1%[170]U3%[171]2) 210 UQ%(UQ[171]UB)[178][194](UQ):[130]:[153]"LOAD" 211 [141]30000:[137]217:[143] ONE-PAGE HELP, THEN RESTORE SCREEN & RE-INPUT 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 218 [139][194](50003)[178]0[167][151]53281,1:[153]"LOAD";:[151]53281,6:[151]53280,14:[137]220 219 [153]"LOAD"; 220 UT$[178]UL$:[151]UT,UV%:[129]UQ[178]UB[164](U2%[172]256[170]U1%[170]U3%[171]3) 225 [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 MAP OF ENGLAND" 320 [153]" 2. STUDENT INSTRUCTIONS" 325 [153]" 3. TEACHER INSTRUCTIONS" 330 [153]" 4. MODIFICATION OF PROGRAM" 335 [153]" 5. QUIT" 340 [153]" --------------------------------------" 345 [153]" PRESS A NUMBER KEY (1-5) "; 350 UL[178]1:US$[178]"12345":[141]35:[143] INPUT ROUTINE 352 US$[178]"" 355 [145][197](UR$)[141]1000,400,500,600,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,6:[151]53280,14 398 [153]"CONTLOAD":[128] 399 [141]875:[142] 400 [143] ** STUDENT INSTRUCTIONS ** 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]" (null)HIS PROGRAM WILL PRINT A MAP OF VALNGLAND ON A 1525 GRAPHIC"; 414 [153]" PRINTER. RIGHT$F YOUR LEN64 IS CONNECTED TO SUCH A PRINTER," 416 [153]"MAKE SURE THERE IS SOME PAPER LOADED, SELECT OPTION 1 FROM THE"; 418 [153]" MENU, AND PRESS'(null)' THEN (null)VAL(null)(null)(null)(null)."; 420 [153] " RIGHT$F YOU SELECT OPTION 1 THEN DISCOVER YOU ARE NOT READY, PRESS" 460 [153]"'(null)' THEN (null)VAL(null)(null)(null)(null) TO GO BACK TO THE MENU." 465 [153]" RIGHT$F AT ANY TIME YOU NEED LEFT$VAL(null)(null) PRESS 'LEFT$'" 470 [153]"THEN (null)VAL(null)(null)(null)(null) TO GO TO A LEFT$ELP SCREEN." 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 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: [205]AP OF [197]NGLAND 514 [153]" (null)RITTEN PEEKY : CHR$. (null). (null)ICHOLSON 515 PRINT" [213]PGRADED [194]Y : [196]OUG [195]HENHALL 516 [153]" (null)HIS PROGRAM WILL RUN ON ANY 517 PRINT"[145][145][145][145][145] [213]PLOADED TO [199][197]NIE BY [197].[196][213][210][203][201][206]1 [146]" 518 PRINT" [[205][207][206][212][193][206][193] [203][201][196]] [146]" 519 PRINT" [208][197][212] 64 [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) 521 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 606 PRINT"" 610 PRINT" [212]HIS PROGRAM CAN BE MODIFIED IN A NUMBER OF DIFFERENT WAYS." 612 PRINT" [198]OR EXAMPLE, YOU COULD EASILY [204][201][211][212] 1250-2600 AND ADD INFOR"; 614 PRINT"MATION INTO THE [208][210][201][206][212] STATEMENTS. (EG. LABEL THE REGIONSOF "; 616 PRINT"[197]NGLAND.)" 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] 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 GOTO300 835 REM ** SPACE BAR PRESS ** 840 POKEUO,0:PRINTLEFT$(UD$,24);"PRESS SPACE BAR TO CONTINUE[146]" 842 FORA=0TO9:GETA$:NEXTA 844 GETUI$:IFUI$<>" "THEN844 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 H <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$="H":DIMUQ%(1000):UB=32768:U1=196:U2=197:U3=198:U4=216:UC=167:UU=1024 902 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 905 UD$="" 906 UP$=" " 907 UT$=" [205][193][208][160][207][198][160][197][206][199][204][193][206][196][160][160][160][160]":REM PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!*** 908 RETURN 910 REM ** SET VARIABLES ** 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,6:POKE53280,14 1010 REM############################## 1020 REM# UPGRADED BY DOUG CHENHALL # 1030 REM# JUNE 30,1982 # 1040 REM# OSHAWA, ONTARIO, CANADA # 1050 REM############################## 1100 POKEUT,UU%:PRINT"[147] ARE YOU READY (Y OR N -RETURN) ? ";:UL=1:US$="YN":GOSUB35 1110 IFUR$="Y"THEN GOSUB2640 1120 IFUR$="N"THEN RETURN 1240 POKEUT,UU% 1250 PRINTTAB(30)" [206][165][160]. ." 1260 PRINTTAB(30)"[217] [163][208] ." 1270 PRINTTAB(30)"[200][160][160][217] 1280 [153][163]30)"/STR$ASCSQR" 1290 [153][163]30)"LEFT$(null)CLOSE" 1300 [153][163]30)"CHR$LEFT$" 1310 [153][163]30)"MID$(null)" 1320 [153] 1330 [153][163]29)"(null)ASCLENLEN^" 1340 [153][163]24)"ASCLENASC(null)VAL (null)" 1350 [153][163]6)"ORSTR$RIGHT$ LEFT$STR$VALSTR$ASCLEFT$ (null)" 1360 [153][163]4)" LENEXP CHR$ (null) FN" 1370 [153][163]4)"(null)CLOSECLOSECLOSE(null)CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE(null)CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE(null)" 1380 [153][163]3)"(null) (null)(null) (null) (null)" 1390 [153][163]2)"(null) LEFT$ (null) (null)" 1400 [153]"(null)ASC(null)CLOSECLOSE(null)(null) (null) (null) 1410 PRINT"[200] [194] [206] [206]" 1420 PRINT"[200] [206][160][160][160][160][160][160][206][160][160][160][160][160][160][160][160][160][160][160][160][160][206]" 1430 PRINT"[200] [186] [204] [206]" " 1440 [153]"THENTOCLOSELEFT$CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSEMID$RIGHT$CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE(null)" " 1450 PRINTTAB(2)"[202][203] [194][160][160][160][160][160][160][160][160][160][160][206] " 1460 PRINTTAB(11)"[167][160][160][160][160][160][160][160][160][160][160][167][213][195][160]" 1470 PRINTTAB(12)"[208] [165][206][163][208][164][206][163][205][210][206][197][196][195][196][195][196][197][205]" 1480 PRINT" [186][163][205][160][160][160][167][160][160][160][160][160][160][160][160][160][160][160][160][206] [165][160] [160][160][160][160][160][160][160][160][160][160][160][160][165]" 1490 PRINT" [200][160][160][217][160][160][213][203][160][160][160][160][160][160][160][160] [160][210][206][206][197][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][205]" 1500 PRINT"[160][160][217][205][164][165][160][217][160][160][202][174][160][160][160][160][160][160][160] [202][195][196][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][217]" 1510 PRINT"[160][160][160][205][160][160][160][167][160][160][213][189][160][160][160][160][160][160] [160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][206]" 1520 PRINT" [205][160][160][160][205][160][202][174][160][160][160][160][160] [160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][206]" 1530 PRINT"[160][160][160][160][160][194][160][160][160][205][217] [160] [160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][200]"" 1540 [153]" MID$RIGHT$ (null)LEFT$CLOSECLOSECLOSE CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSELEFT$" 1550 [153]" MID$^CLOSECLOSE(null)LEFT$ CLOSECLOSECLOSECLOSECLOSECLOSECLOSE CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE CLOSELEFT$" " 1560 PRINT" [213][189][160][206][160][160][195][199][160] [160][160][160][160][160][160] [160][160][160][160][160][160][160][160][160][160] [160][200]" 1570 PRINT" [200][160][206][160][213][195][196][160][160] [160][160][160][160][160][160] [160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][194]" 1580 PRINT" [163][160][160][204][160][160][160] [160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]"" 1590 [153]" SQRCLOSECLOSECLOSE CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE(null)"" 1600 PRINT" . [164][186][160][160][160] [160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][206]" 1610 PRINT" [206] [217] 1620 [153]" VALLENLENRIGHT$CLOSECLOSE(null)(null)CLOSE CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE PEEK " 1630 [153]" (null)VALSTR$VAL(null)CLOSELEFT$ORLENCLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE PEEK " 1640 [153]" STR$LENCLOSECLOSECLOSECLOSETHEN FNCLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE(null)TO(null)TAB(" " 1650 PRINT"[160][160] [160][217][197][160][160][160] [186][167][174][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][164][210][206][213][195][201]"" " 1660 PRINT" [208][160][160][160][207][160][194][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][217][164][164][206][160][160][194]"" " 1670 PRINT"[160][160] [160][160][160][208][164][206][200][163][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160] [167]"" " 1680 PRINT" [217][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][213][195][203]" 1690 PRINT" [165][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][176][203]" 1700 PRINT" [200] [206]" 1710 PRINT" [206][194][199][167][167][205][160][160][160][160][160][160][160][160][160][160][160][160][210][160][210][198][206][160][213][201]" 1720 PRINT" [206][160][212][194] [194][206] [195][196][195][196][195][210][212][197][195][210][164][164]" 1730 PRINT" [206][217][160][160][212][212][160][212][212][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160] [160][160][160][160][160][160][160][160][205][198]" 1740 PRINT" [213][206][217][217][160][206][160][212][160][205][173][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][194][212]" 1750 PRINT" [194][206][212][212][197][160][160]>[160][206][160][205][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160] [200][199]" 1760 PRINT" [200][160][200][160][160][160][165][217][213][195][201][205][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160] [213][203][205][210]" 1770 PRINT" [194][160][194][160][160][200][160][217][217][160][200][160][205][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160] [160][212][160][160][160][205]" 1780 PRINT" [202][196][203][160][160][200][160][200][200][160][200][160][160][205][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167][160][160][160][160][160][165]" 1790 PRINT" [217][160][200][167][160][194][160][160][160][205][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][208][160][160][160][160][194]" 1800 PRINT"[160][160][160][160][160][160][160][160][160][160][194][160][199][202][210][203][160][160][160][217][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][206][160][160][160][160][199]" 1810 PRINT" [212][167][160][160][160][160][160][160] [206][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][213][196][160][160][160][160][160][194]" 1820 PRINT" [160][160][160][160][160][160][160][160][160][202][203] [160][160][160][160][160][160][189][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][206][160][160][160][160][160][160][167]" 1830 PRINT" [160][160] [160][160][160][160][160][160][160][160][160][160][217][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167][160][160][160][160][160][160][160][160][165]" 1840 PRINT" [160][160][160] [160][160][160][160][160][160][160][160] [206][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160] [206][160] [160][160][160][160][160][160][160][205]"" 1850 [153]" CLOSECLOSECLOSECLOSECLOSECLOSECLOSE(null)CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE(null)CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE (null)" 1860 [153]" CHR$CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE(null)CLOSECLOSECLOSECLOSECLOSECLOSECLOSE CLOSE CLOSE(null)" 1870 [153]"CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE CLOSECLOSECLOSECLOSECLOSECLOSECLOSE CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE(null)ASC(null) (null)CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSEFN 1880 PRINT" [160][160][160][160][160][160][212][160][164][160][160][160][160][160][160][160][160][164][206][160][160][206][163][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]" 1890 PRINT" [160][160][160][160][160][194][167][160][199][160][186][163][205][164][195][196][160][160][160][199][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][163][165]"" 1900 [153]" CLOSECLOSECLOSECLOSECLOSECLOSE(null)LEFT$CLOSE(null)SQRCLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSESQRCLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE(null)(null)" 1910 [153]" CLOSECLOSECLOSECLOSEMID$(null)CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE(null)CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE(null)(null)" 1920 [153]" CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE(null) CLOSE CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE(null)" 1930 [153]" CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSEFNCLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE(null)" 1940 [153]" CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE(null) CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE(null)" 1950 [153]" CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE(null)CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE(null)" 1960 [153]" CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSEFNCLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSEFN" 1970 [153]" CLOSECLOSECLOSE CLOSECLOSECLOSECLOSECLOSE(null)CLOSETOCLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE(null)" 1980 [153]" CLOSECLOSECLOSECLOSECLOSECLOSE CLOSECLOSECLOSECLOSECLOSE(null)(null)CLOSE(null)TO(null)TOCLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE(null)" 1990 [153]" CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSEFNCLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE(null)" 2000 [153]" CLOSECLOSECLOSECLOSECLOSECLOSECLOSE CLOSECLOSECLOSECLOSECLOSECLOSE(null)TAB(VALTAB(CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE LEFT$"" 2010 PRINTTAB(32)"[186][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]" 2020 PRINTTAB(32)"[165][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][205]" 2030 PRINTTAB(31)"[167][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][213][195][198][210][210][160][205]"" 2040 [153][163]32)"(null)CLOSECLOSECLOSECLOSECLOSECLOSECLOSE MID$LENLENASC(null)(null)TO(null)" """ 2050 PRINTTAB(32)"[206][160][160][160][160][160][160][160][160][160][160] [160][160][160][160][160][160][205] [163]" """ 2060 [153][163]31)"THENCLOSE CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE(null)" "" 2070 [153][163]32)"FNCLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE(null)" "" 2080 [153][163]32)"(null)CLOSE CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE(null)" "" 2090 [153][163]18)"(null)RIGHT$CLOSE CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE/RIGHT$CLOSECLOSECLOSECLOSECLOSE CLOSECLOSECLOSECLOSECLOSECLOSECLOSE CLOSECLOSECLOSECLOSETHEN" 2100 [153][163]17)"(null)CLOSECLOSE(null) CLOSECLOSECLOSETO(null)TO(null)(null)CLOSECLOSECLOSETOCLOSEFNCLOSECLOSECLOSE CLOSECLOSECLOSECLOSE CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE(null)" 2110 [153][163]17)"(null)CLOSECLOSESQR (null)TO(null)CLOSECLOSECLOSECLOSECLOSE(null)TOTO(null)(null)FNCLOSECLOSECLOSECLOSECLOSECLOSE CLOSECLOSECLOSECLOSECLOSECLOSECLOSE CLOSECLOSECLOSECLOSECLOSECLOSECLOSEFN" 2120 [153][163]18)"FN(null) SQRCLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSERIGHT$(null)CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE CLOSECLOSECLOSECLOSECLOSECLOSE THEN 2130 PRINTTAB(17)"[167][186] [186][160][160][160][160][160][160][160][160][160][160][160][160][194][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160] [160][160][160][206]" 2140 PRINTTAB(20)"[165][160][160][160][160][160][160][160][160][160][160][160][160][200][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160] [160][160][160][206] [186][163][197][196][197][196][198][201]" 2150 PRINTTAB(19)"[206][160][160][160][160][160][160][160][160][160][160][160][160][160][206][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160] [160][160][160][206][160] [167][160][160][160][160][160][160][160][202][174]" 2160 PRINTTAB(18)"[213] [164] [206][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160] [205][164][206][163][160][160][160][160][160][160][160][160][208]" 2170 PRINTTAB(17)"[206][160][206][163][197][206][160][160][160][160][160][160][160][160][200][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][163][197][174]" 2180 PRINTTAB(16)"[213][213][203][160][160][160][212][160][160][160][160][160][160][160][160][199][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][200]" 2190 PRINTTAB(16)"[202][203][160][160][160][160][205][164][160][160][160][160][160][160][160][173][212][160][160][160][160][160] [160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]" 2200 PRINTTAB(23)"[206][160][160][160][160][160][160][160][160][200] [160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]" 2210 PRINTTAB(22)"[202][160][160][160][160][160][160][160][160][213][203][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]" 2220 PRINTTAB(22)"[167][160][160][160][160][160][160][160][160][194][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][200]" 2230 PRINTTAB(22)"[167][160][160][160][160][160][160][160][160][194][160][160][160][160][160][160][160][160][160] [160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][200]" 2240 PRINTTAB(23)"[165][160][160][160][160][160][160][160][202][201][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160] [160][160][160][194] " 2250 PRINTTAB(22)"[206][160][160][160][160][160][160][160][160][160][217][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160] [160][206]" 2260 PRINTTAB(20)"[164][206][160][160][160][160][160][160][160][160][160][160][199][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160] [160][160][199]" 2270 PRINTTAB(18)"[206][197][160][160][160][160][160][160][160][160][160][160][160][160][199][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][212]" 2280 PRINTTAB(16)"[206][163] [167][163][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][206]" 2290 PRINTTAB(15)"[206][160][160][160][160][160][160] [160][160][160][167][160][160][160][160][160][160][160][160][160][160] [160] [160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][206]" 2300 PRINTTAB(14)"[206][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][205][160][160][160][160][160][160][160][160][160] [160][160] [160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][164][203]" 2310 PRINTTAB(14)"[202][198][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][205][160][160][160][160][160][160][160][160][160] [160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][217] " 2320 PRINTTAB(15)"[206][160] [160][160][160][160][160][163][197][205][160] [160] [160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][207]" " 2330 [153][163]14)" (null)CLOSE ASC(null)TOCLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE CLOSEVALTAB((null) CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSETHEN" 2340 [153][163]15)"THENTO(null)CLOSECLOSECLOSE(null)TOCLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE // /"" 2350 PRINTTAB(21)"[164][206][160] [160][160][160][160][160][160][160][164][206][206][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160] [210][164][206]"" 2360 [153][163]20)"MID$(null)TO(null)^CLOSECLOSECLOSECLOSE CLOSESQRTAB((null)CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE <ASC(null)TO(null)RIGHT$" 2370 [153][163]25)"(null)TOCLOSE TO(null)CLOSE(null)CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE (null)(null)ASCLENASCASCLENRIGHT$" 2380 [153][163]27)"(null)(null)CLOSECLOSECLOSE(null)CLOSE/ CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSELEN(null)" 2390 [153][163]28)"MID$LENASCLENCLOSE(null)CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE CLOSECLOSECLOSEFN" 2400 [153][163]32)"THENCLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE CLOSESQR" 2410 [153][163]32)"(null)CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE(null)TO(null)" 2420 [153][163]21)"(null)LENSTR$LENSTR$LENSTR$(null)(null)VALTAB(TAB(CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE (null)" 2430 [153][163]21)"(null) SQR" 2440 [153][163]20)"(null) (null)" 2450 [153][163]19)"(null)LEN(null)CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE TO(null)" 2460 [153][163]19)"(null) TO(null) CLOSECLOSECLOSE(null)LENASC(null)ASCVAL(null)TOCLOSE(null)" 2470 [153][163]19)"FN TO(null) VALSTR$LEN(null)CLOSECLOSECLOSECLOSECLOSECLOSECLOSEMID$(null)" 2480 [153][163]19)"CHR$CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSETO CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSETO(null)CLOSECLOSE(null)LENASCRIGHT$ " 2490 [153][163]17)" LENCLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE (null)VAL (null)(null) CLOSE(null) CLOSEPEEK MID$LENSTR$(null) " 2500 [153][163]17)"(null)CLOSECLOSE CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE(null) CLOSECLOSECLOSECLOSE(null)(null)MID$LENSTR$(null)" 2510 [153][163]16)"(null)CLOSE CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE(null) CLOSE " 2520 [153][163]14)" LEFT$CLOSECLOSECLOSECLOSE CLOSECLOSE (null)VAL CLOSECLOSECLOSECLOSECLOSE 2530 PRINTTAB(13)"[176][195][203][160][160][160][160][160] [160][160][160][160][212] " 2540 PRINTTAB(12)"[213][203][160][160][160][210][198][206][204][210][174][160][160][160][160][206]" 2550 PRINTTAB(11)"[213][189][160][160][160][206][160][160][160][160][160][202][195][198][160][160][201]" 2560 PRINT" [213][203][160][160][160][210][165][160][160][160][160][160][160][160][160][163][196][203]" 2570 PRINT" [213][195][197][203][160][160][160][206]" 2580 PRINT" [194][213][195][201][160][160][206]" 2590 PRINT" [202][203] [202][201][213][203]" 2600 PRINT" [202][203]" 2610 RETURN 2640 OPEN1,4,15 2650 OPEN4,4:PRINT#4,"":OPEN3,4,6 2660 N=18 2670 PRINT#3,CHR$(N) 2680 CMD1 2690 GOSUB1240 2700 REMCLOSE1:CLOSE4:CLOSE3 2710 PRINT#1:CLOSE1,4,15 2720 PRINT#3:CLOSE3,4,6 2730 PRINT#4:CLOSE4,4 2740 RETURN