10 REM ALPHAMETIX 20 REM (C)IAN ADAM 1990 40 IFATHENRUN50 48 GOSUB9000 50 GOSUB9100 100 GOSUB10000 110 GOSUB12900 120 ONREGOSUB20000,200,7000,8000,11000,9500 140 GOTO100 200 CLR:GOSUB5000 210 IFEFTHEN13000 220 GOSUB6000 230 IFEFTHEN13000 250 GOSUB12700:IFRE=1THEN350 260 IFRE=2ORRE=3THENGOSUB6290:GOTO250 265 IFRE=6THENIFPEEK(828)THENGOSUB16000:GOTO250 270 IFRE=7THENRUN50 275 IFRE-4THENRUN200 295 SYS51200:TJ=CO:SJ=10:POKEPR+3,LR 300 FORI=.TO10:U(I)=.:L(I)=.:CL(I)=.:UN$(I)="":NEXT 310 AA=.:EF=.:CC=.:NC=.:MA=.:S=.:X$="[150]< [212]HE END > 315 [153]"LOAD":[141]14000 320 [129]I[178]1[164]R:D$[178]" "[170]RW$(I):[141]5800:[130]:[141]6020:[137]230 350 [141]6500 360 [139][194](PR[170]1)[178].[167] 700 400 [139][194](2)[167][141]2000 410 [139]EF[167]530 500 [141]2200 510 [139]RE[178]7[167]600 520 [139]B[178]20[167][141]15000:[141]2400:[141]14500:[139]RE[178]7[167]600 530 [158]51203:[141]6800 540 [137]360 600 [151]PR[170]1,.:M[178]1 610 X$[178]"DEF <(null)UTPUT TERMINATED> 620 PRINT""X$ 630 GOTO820 700 IFSTHEN800 730 PRINT"[159] [211]ORRY.. NO SOLUTION TO BE FOUND [155] 740 [139][194](829)[167][141]11900 760 [137]840 800 [153]"OPEN NO MORE SOLUTIONS ... " 810 [139][194](829)[167][151]2,3:[141]7910 820 B[178]S[171]20[172][181]((S[171]1)[173]20) 830 [141]4300 840 [141]12300 850 [139]RE[178]1[167][139]S[167][141]4000 860 [139]RE[178]3[167]295 870 [139]RE[178]4[167]920 880 [139]RE[178]5[167][138]200 890 [139]RE[178]7[167][138]50 900 [137]840 920 [151]832,[194](832)[176][194](829) 930 [151]829,1[171][194](829) 940 [141]6900:[137]840 1000 CS$(21)[178]"PRIME":CS$(22)[178]"NOT PRIME":CS$(23)[178]"SQUARE":CS$(24)[178]"NOT SQUARE 1010 CS$(26)="EVEN":CS$(27)="ODD":CS$(28)="1 OR 2":CS$(29)="UNKNOWN 1020 [153]"LOAD":[141]14000 1030 [153]"" 1040 [129]I[178]1[164]R[171]1 1050 [153]I 1060 [130] 1070 [153]:[153]I 1080 [139]NC[179]9[167]1140 1100 [153]"OPEN"[163]99)"VALNOUGH! 1110 PRINTTAB(59)"[159][208]RESS A KEY.[155] 1120 [146]K,15:[161]A$:[142] 1140 [153]"OPEN"[163]60)"RIGHT$F YOU HAVE A CLUE 1150 PRINT,,"FOR ONE LETTER,"TAB(60)"PRESS THAT LETTER. 1160 [153][163]60)"RIGHT$F THE CLUE IS FOR":[153],,"A LINE IN THE 1170 PRINT,,"PUZZLE, PRESS THE"TAB(60)"LINE #. 1180 [153][163]60)"(null)O MORE CLUES: ASC1LIST 1190 WAITK,15:GETA$ 1200 A1$=CHR$(ASC(A$)+32):XX$=" " 1210 IFVAL(A$)THEN1530 1220 IFA$="[133]"THENRETURN 1240 FORI=1TONM 1250 IFUN$(I)=A1$THEN1280 1260 NEXT 1270 PRINTTAB(60)"[150][212]HANKS A LOT![155]":GOSUB10200 1274 FORI=1TO1500:NEXT:GOTO1020 1280 PRINT"[159]",,"[208]RESS A NUMBER FOR 1284 [153],,"THE LETTER " A1$ ", OR: 1286 PRINT,,XX$ 1288 PRINT,,"A IF EVEN " 1290 PRINT,,"B IF ODD " 1295 PRINT,,"C IF IT COULD BE " 1296 PRINT,," ONE OR TWO [155] 1298 [153],,XX$:[153],,XX$:[153],,XX$ 1300 [146]K,15:[161]B$:[141]10200 1305 TJ[178][198](B$)[171]48[170]7[172](B$[177]"9"):[139]TJ[179].[176]TJ[177]12[167]1270 1310 SJ[178]SO(I):[139]TJ[179]10[167]1410 1320 [139]SJ[179]10[167]1390 1330 [145]SJ[171]9[137]1340,1350,1360,1480,1370,1480,1380 1340 [145]TJ[171]9[137]1270,1510,1720 1350 [145]TJ[171]9[137]1510,1270,1700 1360 [145]TJ[171]9[137]1720,1700,1270 1370 [145]TJ[171]9[137]1510,1480,1700 1380 [145]TJ[171]9[137]1480,1480,1700 1390 [153][163]60)A1$" IS"SJ" OK?":[146]K,15:[161]A$ 1395 [139]A$[178]"N"[167]EF[178]6:[142] 1400 [137]1020 1410 [139]SJ[178]TJ[167]1270 1420 [139]SJ[179]10[167]EF[178]6:[142] 1430 [141]1900:[139]A1[178].[167]EF[178]6:[142] 1440 NC[178]NC[170]1:CS$(NC)[178]A1$[170]" MUST BE"[170][196](TJ) 1445 U(TJ)[178]1:L(I)[178]1:TR(I)[178]TJ:SO(I)[178]TJ 1450 [129]N[178]1[164]NM:[139]I[178]N[167]1470 1460 [139]TJ[178]SO(N)[167]EF[178]5:[142] 1470 [130]:[137]1020 1480 SO(I)[178]TJ:NC[178]NC[170]1:CS$(NC)[178]A1$[170]" MUST BE "[170]CS$(TJ[170]16) 1490 : 1500 [137] 1020 1510 EF[178]6:[142] 1530 A[178][197](A$):[139]A[179]1[176]A[177]R[167]1270 1532 [153]"OPEN",,XX$ 1540 [153],,"ON(null)INE"A"CMD: "RW$(A) 1542 [153],,XX$:[153],,"(null)ELL ME.. IS IT: " 1544 [153],,"A EVEN " 1546 [153],,"B ODD " 1548 [153],,"C PRIME " 1550 [153],,"D NOT PRIME " 1552 [153],,"E SQUARE " 1554 [153],,"F NOT SQUARE " 1556 [153],,"0 NONE OF THESE " 1560 [153],,XX$:[153],,"(null)LEASE PRESS A KEY.LIST 1565 WAITK,15:GETB$ 1570 GOSUB10200:B=ASC(B$)-64:I=CO(A,1):IFB<1ORB>6THEN1270 1580 IFB>2THEN1600 1590 NC=NC+1:CS$(NC)=RW$(A)+" IS "+CS$(25+B):TJ=9+B 1595 A1$=UN$(I):GOTO1310 1600 B=B-2:CL(A)=B:POKE50288+A,B:NC=NC+1:CS$(NC)=RW$(A)+" IS "+CS$(B+20) 1610 IFLEN(RW$(A))<9THEN1620 1615 CL(A)=.:PRINT"[195]AN'T BE SURE":CS$(NC)=CS$(NC)+"..? 1620 [139]B[178]1[167][139][195](RW$(A))[178]1[167]1690 1630 [145]B[137]1640,1020,1670,1020 1640 [145]SO(I)[170]1[137]1510,1020,1510,1020,1510,1510,1510,1020,1510,1020 1645 [145]SO(I)[171]9[137]1510,1660,1700 1650 [139]SO(I)[178]16[167]1510 1660 SO(I)[178]14:[137]1020 1670 [145]SO(I)[170]1[137]1020,1020,1510,1510,1020,1020,1020,1510,1510,1020 1680 [145]SO(I)[171]9[137]1020,1020,1700,1710,1510,1710 1690 [145]SO(I)[170]1[137]1510,1020,1020,1020,1510,1020,1510,1020,1510,1510 1695 [145]SO(I)[171]9[137]1720,1020,1020,1020 1700 SO(I)[178]1:TR(I)[178]1:U(1)[178]1:L(I)[178]1:NC[178]NC[170]1:CS$(NC)[178]UN$(I)[170]" IS 1":[137]1450 1710 SO(I)[178]16:[137]1020 1720 SO(I)[178]2:TR(I)[178]2:U(2)[178]1:L(I)[178]1:NC[178]NC[170]1:CS$(NC)[178]UN$(I)[170]" IS 2":[137]1450 1900 A1[178].:[145] SJ[171]9[137]1910,1910,1920,1940,1950,1960,1970 1910 A1[178]SJ[170]TJ[170]1[175]1:[142] 1920 [139]TJ[179]3[167]A1[178]TJ 1930 [142] 1940 A1[178]1:[142] 1950 A1[178][182](3[171][182](TJ[171]5))[178]1:[142] 1960 A1[178]TJ:[142] 1970 A1[178][182](K2[171][182](TJ[171]5))[171]K1:[142] 2000 [129]I[178]1[164]R 2010 N[178]CL(I):[139]N[178].[176]N[177]4[167]2080 2020 A[178].:C[178]10 2030 [129]A1[178][195](RW$(I))[164]1[169][171]1:A[178]C[172]A[170]TR(CO(I,A1)):[130] 2040 [139]N[177]2[167]2070 2050 [141]7800:[139]N[170](A1[177].)[178]1[167]2080 2060 EF[178]C:[142] 2070 B[178][181]([186](A)[172]A2):[139] N[178]3[171](A[178]B[172]B) [167] EF[178]C:[142] 2080 [130] 2090 EF[178].:[142] 2200 A[178]36:S[178]S[170]1:A$[178]"" 2210 [153]""[163]16)S"" 2220 [129]I[178]1[164]NM 2230 [153][163]A)TR(I) 2240 [130] 2250 B[178]S[171]20[172][181]((S[171]1)[173]20) 2260 [129]I[178]1[164]NM:SL(B,I)[178]TR(I):[130] 2270 [129]A1[178]1[164]LR:A$[178][201]([196](TR(CO(R,A1))),1)[170]A$:[130] 2280 SL$(B)[178]A$ 2300 [139][194](829)[167][141]11900 2330 [139][194](832)[170][194](K)[178].[167][142] 2340 [161]A$:[141]12000 2400 [139]RE[178]1[167][142] 2410 [139]RE[178]3[167][151]832,1[171][194](832):[137]6900 2420 [139]RE[178]5[167][151]832,[194](832)[176][194](829):[151]829,1[171][194](829):[137]6900 2430 [142] 4000 CS$(1)[178]"PRIME":CS$(2)[178]"ODD":CS$(3)[178]"EVEN":CS$(4)[178]"SQUARE":CS$(5)[178]"NOT SQR 4010 M1$="[150][198]1 [205]ORE ANALYSIS":SJ=1 4020 PRINT"[147][150] [208]UZZLE [193]NALYSIS: 4030 [153]" ================LIST 4040 PRINT" # "RW$(R)TAB(14)"FACTOR SQUARE 4050 [129]I[178]SJ[164]SJ[170]19 4060 [153]SJ[163]4)TS$(SJ); 4070 A[178][197](TS$(SJ)):[141]7800 4080 [139]A1[177]2[167]A1[178]1 4090 B[178][181]([186](A)[172]A2) 4100 [153][163]14)CS$(A1[170]1)[163]21)CS$((A[178]B[172]B)[170]5) 4110 [139]SJ[177][178]S[167][153]X$;:[142] 4120 SJ[178]SJ[170]1 4130 [130] 4140 [139]SJ[177]59[167][153]X$;:[142] 4150 [139]SJ[179][178]S[167][153]"...MORE"; 4200 [141]12310 4210 [139](RE[178]1)[172](SJ[179][178]S)[167]4020 4220 [142] 4300 [139]S[179]61[167][129]I[178]1[164]B:TS$(I[170]S[171]B)[178]SL$(I):[130]:[142] 4310 X$[178]"END MEMORY":[142] 4500 [160]1:[159]1,8,15 4510 [160]2:[159]2,8,8,"PUZZLES.TST 4520 INPUT#1,A,B$ 4530 IFA>19THENPRINT:INPUT"[206]EED PROGRAM DISK";A$:CLOSE2:CLOSE1:RUN200 4540 GET#2,A$:R=ASC(A$) 4600 FORI=1TOR 4610 INPUT#2,RW$(I) 4620 RT(I)=12-LEN(RW$(I)) 4630 NEXT 4640 B$="":NC=.:ZA=.:ZB=.:CS$(1)="":INPUT#2,B$ 4650 IFB$>" "THENCS$(1)=MID$(B$,3):ZA=ASC(B$):ZB=ASC(MID$(B$,2)):NC=1 4660 LR=LEN(RW$(R)):CC=. 4670 GET#2,A$:AA=ASC(A$+CHR$(0)) 4700 PRINT"[147]":GOSUB14000 4705 IFAA=.THENPRINT"[204]AST PUZZLE![155] 4710 [153]" ASC1 ATNCCEPT THIS 4720 IFAATHENPRINT" [198]3 [206]EXT PUZZLE 4730 [153]" ASC5 (null)UIT 4750 GOSUB 12900 4760 IFRE=3THENIFAATHENR=AA:GOTO4600 4770 CLOSE2:CLOSE1 4780 IFRE-1THENRUN50 4800 FORI=1TOR:PRINT"*" 4810 D$=" "+RW$(I) 4820 GOSUB5800 4830 NEXT 4840 POKEPR+3,LR:PRINT"[147] 4890 [142] 5000 [134]I,C,N,TJ,A1,SJ,R,LR,MA,NM,B,NC,P,CC,M,X$,XX$,EF,AA 5010 [141]9100:[151]BG,6:[151]BG[170]1,. 5020 [153]"LOADDEF":[153][163]5)"VALNTER A PUZZLE"[163]45)"--------------LIST 5030 PRINT"[200]OW MANY LINES IN THE PUZZLE, 5040 [153]"INCLUDING THE SUM? 5050 PRINT"[208]RESS A KEY FOR 3 TO 9 LINES 5060 [153]:[153]"ASC1: PUZZLE FROM DISK 5070 PRINT"[198]7: QUIT" 5100 CO=50336:RU=50176:TR=RU+32:SX=RU+16:ND=RU+48:SO=RU+64:RP=RU+80:LN=RP+16 5110 CL=RP+32:PR=50688:DI=50496:DIMTR(10),CO(10,10),SO(10) 5120 DIMRW$(9),SL(20,10),U(10),CL(10),L(10),CS$(29),SL$(20),TS$(60),RT(9) 5130 TJ=CO:SJ=10:SYS51200 5150 WAITK,15:GETA$ 5160 IFA$="[133]"THEN4500 5170 R=VAL(A$):PRINTR:IFR<3THENEF=1:RETURN 5200 PRINT"[147][150]"TAB(45)"[197]NTER THE PUZZLE"TAB(45)"----------------[155] 5220 [153]"(null)RESS (null)VAL(null)(null)(null)(null) AFTER EACH LINE: 5240 FORI=1TOR-1 5250 PRINT"LINE"I 5260 NEXT 5270 PRINT," ------- 5280 [153]"THE SUM 5300 FORI=1TOR 5310 GOSUB5600 5320 RW$(I)=MID$(D$,2) 5330 RT(I)=12-B:LR=B 5340 IFEFTHENRETURN 5350 NEXT 5370 POKEPR+3,LR 5380 IFMA>LRORLR>MA+1THENEF=3 5390 IFNM<2THENEF=4 5400 RETURN 5600 B$="":D$=" " 5610 SYSCR,I+6,18 5620 PRINT" " 5630 SYSCR,I+7-(I=R),17 5640 PRINT"[158]*[159] _ [197]NTER THIS LINE 5650 [137]5680 5670 [158]CR,I[170]7[171](I[178]R),18[171][195](D$):[153]"SYS"D$ 5680 [146]K,15:[161]A$:C$[178]A$ 5690 [139][195](B$)[179]1[167]5740 5700 [139]A$[178][199](13)[167]5800 5710 [139]A$[178][199](20)[167]B$[178][200](B$,[195](B$)[171]1):D$[178][200](D$,[195](D$)[171]1):[137]5670 5720 [139]A$[178]" "[167]5760 5740 [139]A$[179]"!"[176]A$[177]"_"[167]5680 5750 [139]A$[177]"@"[167][139]A$[179]"["[167]C$[178][199]([198](A$)[170]32) 5760 B$[178][200](B$,8)[170]A$:D$[178][200](D$,9)[170]C$ 5770 [137]5670 5800 TJ[178]TJ[170]12:B[178][195](D$)[171]1:[151]LN[170]I,B 5810 [139]I[178]R[167]5850 5820 AA[178]AA[171](B[178]MA) 5830 [139]B[177]MA[167]AA[178].:MA[178]B 5850 [129]N[178]1[164]B 5860 C$[178][200]([201](D$,N),1) 5870 [139]C$[179][199](97)[167]A[178].:UN$(.)[178]C$:L(.)[178]1:[137]5940 5880 [129]A[178]1[164]SJ 5890 [139]UN$(A)[178]C$[167]5940 5900 [139]UN$(A)[178]""[167]UN$(A)[178]C$:NM[178]A:[137]5940 5910 [130] 5920 EF[178]2:[142] 5940 CO(I,N)[178]A:[151] TJ[170]N,A 5950 [130]N 5960 [153]"LIST";:[142] 6000 [153]"LOAD":[141]14000 6020 [153]"RIGHT$NTERESTING PROBLEM. 6030 PRINT"[201]T HAS"NM"LETTERS: 6040 [129]I[178]1[164]NM 6050 [153]" "UN$(I); 6060 SO(I)[178]13:TR(I)[178]SJ 6070 [130]:[153] 6080 CS$(.)[178]"NO LEADING ZEROS":NC[178]. 6090 [153]"RIGHT$ ASSUME THE FIRST LETTER IN 6100 PRINT"A LINE CAN'T BE ZERO. 6140 [139]LR[178]MA[167]6200 6145 A[178]CO(R,LR) 6150 [139]AA[178]1[167]SO(A)[178]12 6155 [139]AA[167]6200 6160 TR(A)[178]1:SO(A)[178]1:U(1)[178]1:L(A)[178]1:NC[178]1 6170 CS$(1)[178][200](RW$(R),1)[170]" IS 1 6180 PRINT"[201] ALSO FIND THAT "CS$(1) 6200 IFZBTHENPOKE631,ZA:POKE632,ZB:POKE198,2:A$="Y":GOTO6220 6210 PRINT"[159][193]NY CLUES? Y/N 6215 [146]K,15:[161]A$ 6220 [139]A$[178]"Y"[167][153]A$;:CC[178]1:[141]1000:CC[178]. 6240 [129]I[178]1[164]R 6250 A[178]CO(I,[195](RW$(I))) 6260 [139]SO(A)[178]13[167]SO(A)[178]15 6270 [139]SO(A)[178].[167]6450 6280 [130] 6290 [153]"LOAD":[141]14000 6300 [153]"",,"LIST(null)OW READY TO SOLVE 6310 PRINT,,"THE PUZZLE. 6320 [139][194](829)[178].[167]6340 6330 [153]:[153],,"ATNLL SOLUTIONS WILL":[153],,"BE AUTO-PRINTED.":[137]6360 6340 [139][194](828)[178].[167]6360 6350 [153]:[153],,"(null)OLUTIONS WILL NOT":[153],,"BE AUTO-PRINTED. 6360 PRINT:PRINT,,"[212]HERE WILL"; 6370 IFPEEK(832)=.THENPRINT" NOT"; 6380 PRINT:PRINT,,"BE A PAUSE AFTER 6390 [153],,"EACH SOLUTION. 6400 PRINT:PRINT,,"[213]SE THE FUNCTION 6410 [153],,"KEYS TO CHANGE 6420 PRINT,,"THESE SETTINGS. 6430 [142] 6450 X$[178]""[170]CS$(0)[170][199](13)[170]UN$(A)[170]" CAN'T BE 0!":EF[178]7:[142] 6500 [129]C[178]1[164]MA:I[178]. 6510 [129]N[178]1[164]R[171]1 6520 [139]C[177][195](RW$(N))[167]6600 6530 A[178]CO(N,C):[139]L(A)[176]A[178].[167]6600 6540 [139][194](RP[170]C)[178].[167][139]A[178]CO(R,C)[167][151]RP[170]C,N:[137]6600 6550 I[178]I[170]1:L(A)[178]1 6560 [151]DI[170]12[172]C[170]I,A 6600 [130] 6610 [151]ND[170]C,I:[139]L(CO(R,C))[176][194](RP[170]C)[167]6630 6620 L(CO(R,C))[178]1:[151]SX[170]C,1 6630 [130] 6640 [139]LR[177]MA[167][139]L(CO(R,LR))[178].[167]L(CO(R,LR))[178]1:[151]SX[170]LR,1 6650 [141]14500:N[178]. 6660 [129]C[178]1[164]MA 6670 A[178]CO(R,C):[139]L(A)[167]6700 6680 N[178]N[170]1:L(A)[178]1:[151]50640[170]N,A 6700 [130] 6710 [151]ND[170]12,N:[151]PR,R:[151]PR[170]2,MA 6720 [129]I[178].[164]10:[151]RU[170]I,U(I):[151]TR[170]I,TR(I):[151]SO[170]I,SO(I):[130] 6730 [158]51212 6740 M1$[178]"DEFASC1 LENONTINUE 6750 M6$="[198]6 [208]RINT THIS 6760 M7$[178]"ASC7 (null)UIT 6770 GOSUB6900 6800 FORI=1TONM 6810 TR(I)=PEEK(TR+I) 6820 NEXT 6830 RETURN 6900 IFPEEK(832)THENM3$="[198]3 [206]O [193]UTO-PAUSE 6910 [139][194](832)[178].[167]M3$[178]"ASC3 ATNUTO PAUSE 6920 IFPEEK(829)THENM5$="[198]5 [206]O [193]UTO-PRINT":RETURN 6930 M5$="[198]5 [193]UTO PRINT":RETURN 7000 POKEBG,6:POKEBG+1,. 7010 PRINT"[147]"TAB(90)"[146][150][208]RIME NUMBERS":PRINT,"-------------[155] 7020 [153]"(null)OULD YOU LIKE TO... 7030 PRINT" 1. [212]EST A NUMBER 7040 [153]" 2. (null)IST PRIMES 7050 PRINT" 3. [204]IST NON-PRIMES 7060 [153]" 4. (null)ETURN TO MAIN MENU 7070 GOSUB12900:FX=. 7080 ONREGOTO7100,7200,7400:RETURN 7100 PRINT"[147][150] [212]EST PRIMES":PRINT" -----------[155] 7110 [141]7600 7120 [139]C[178].[167]7000 7130 A[178][182](C):[141]7800 7140 [139]A1[178].[167][153]C"CMD IS A PRIME";:[137]7170 7150 [153]C"CMD IS NOT PRIME, BEING 7160 PRINT"DIVISIBLE BY"A1;:IFC-A1*A1THENPRINT"AND"C/A1; 7170 PRINT:PRINT "NEXT?" 7180 GOSUB7630:GOTO7120 7200 PRINT"[147][150] [204]IST PRIMES":PRINT" -----------[155] 7210 [141]7600 7220 [139]C[178].[176]C[177]1E9[167]7000 7230 TB[178].:[153]"LOADDEF (null)RIME NUMBERS:":[158]CR,24:[153]" (ANY KEY=STOP)LIST 7240 FORD=1TO69 7250 A=ABS(C):GOSUB7800:C=C+1 7260 IFA1THEN7250 7270 IFD=24ORD=47THENTB=TB+13:PRINT"":IFA>9.9E8THEN7300 7280 PRINTTAB(TB)C-1 7290 IFPEEK(K)=.THENNEXT 7300 SYSCR,24:GETA$ 7310 IFPEEK(828)THENPRINT"[150][198]1 [208]RINT THIS "; 7320 PRINT"[150][198]3 [195]ONTINUE [198]5 [209]UIT[155]"; 7330 GOSUB12900 7340 IFRE=1THENGOSUB7900 7350 IFRE=3THEN7220 7360 IFRE=5THEN7000 7370 GOTO7330 7400 PRINT"[147][150] [204]IST NON-PRIMES":PRINT" ---------------[155] 7410 [141]7600 7420 [139]C[178].[176]C[177]1E9[167]7000 7430 TB[178].:[153]"LOADDEF (null)ON-PRIME NUMBERS:":[158]CR,24:[153]" (ANY KEY=STOP)LIST 7440 FORD=1TO69 7450 A=ABS(C):GOSUB7800:C=C+1 7460 IFA1=.THEN7450 7470 IFD=24ORD=47THENTB=TB+13:PRINT"":IFA>3.2E4THEN7500 7480 PRINTTAB(TB)C-1 7490 IFPEEK(K)=.THENNEXT 7500 SYSCR,24:GETA$ 7510 IFPEEK(828)THENPRINT"[150][198]1 [208]RINT THIS "; 7520 PRINT"[150][198]3 [195]ONTINUE [198]5 [209]UIT[155]"; 7530 GOSUB12900 7540 IFRE=1THENGOSUB7900 7550 IFRE=3THEN7420 7560 IFRE=5THEN7000 7570 GOTO7530 7600 PRINT" [197]NTER 0 TO STOP 7610 [153]"(null)HAT NUMBER WOULD YOU LIKE 7620 PRINT"TO START WITH? 7630 C[178].:B$[178]" " 7640 [153]B$" ON":[146]K,15:[161]A$ 7650 [139]A$[178][199](20)[167][139]C[167]B$[178][200](B$,C):C[178]C[171]1 7660 [139]A$[178]"-"[167][139]C[170]FX[178].[167]C[178]1:B$[178]" -" 7670 [139]A$[178][199](13)[167]C[178][197](B$):[137]7710 7680 [139]A$[179]"0"[176]A$[177]"9"[167]7640 7690 [139]C[177]8[167]C[178]8 7700 C[178]C[170]1:B$[178][200](B$,C)[170]A$:[137] 7640 7710 [139][182](C)[177]4E5[167][139]FX[178].[167][153]"OPENTHINKING...LIST 7720 RETURN 7800 A1=.:IFA<4THENRETURN 7810 IFA/T=INT(A/T)THENA1=T:RETURN 7820 FORA1=3TOSQR(A)STEPT:IFA/A1=INT(A/A1)THENRETURN 7830 NEXT:A1=.:RETURN 7900 POKE2,24 7910 GOSUB11800:IFATHENRETURN 7920 OPEN4,4,PEEK(830):SYSPD 7930 CLOSE4:RETURN 8000 POKEBG,6:POKEBG+1,. 8010 PRINT"[147]"TAB(90)"[146][150][211]QUARE NUMBERS":PRINT,"--------------[155] 8020 [153]"(null)OULD YOU LIKE TO... 8030 PRINT" 1. [212]EST A NUMBER 8040 [153]" 2. (null)IST SQUARES 8050 PRINT" 3. [210]ETURN TO MAIN MENU 8060 K3[178]1[170]2E[171]7:FX[178]1 8070 [141]12900:[153]"LOAD 8080 ONREGOTO8100,8400:RETURN 8100 PRINT"[150] [212]EST SQUARES":PRINT" ------------[155] 8110 [141]7600 8120 [139]C[178].[167]8000 8130 B[178][186](C):D[178][181](B[172]K3) 8140 [153]C"CMD IS "; 8150 [139]C[171]D[172]D[167][153]"NOT SQUARE;":[153]" ITS ROOT IS";:[137]8200 8160 B[178]D:[153]"THE SQUARE OF"; 8200 [153]B:[153]"NEXT? 8210 GOSUB 7630:GOTO 8120 8400 PRINT"[150] [204]IST SQUARES":PRINT " ------------[155] 8410 [141]7600 8420 [139]C[178].[167]8000 8430 C[178][181]([186](C[171]1))[170]1 8440 [153]"LOADDEF (null)QUARE"[163]18)"(null)OOTLIST 8450 FORC=CTOC+22 8460 IF C>31622THENPRINT"[159][211]IZE LIMIT FOR SQUARES!":GOTO8500 8470 PRINTC*CTAB(17)C 8480 NEXT 8500 SYSCR,24 8510 IFPEEK(828)THENPRINT"[150][198]1 [208]RINT THIS "; 8520 PRINT"[150][198]3 [195]ONTINUE [198]5 [209]UIT[155]"; 8530 GOSUB12900 8540 IFRE=1THENGOSUB7900 8550 IFRE=3THEN8440 8560 IFRE=5THEN8000 8570 GOTO8530 9000 GOSUB11800 9010 POKE829,PEEK(828) 9020 POKE832,1-PEEK(828) 9030 CLOSE1:OPEN 1,8,15 9040 CLOSE2:OPEN 2,8,8,"ALPHAMETIX.ML 9050 [132]1,A,B$:[160]2:[160]1 9060 [139]A[179][178]19[167]9070 9065 [153]"RIGHT$NSERT PROGRAM DISK AND PRESS (null)(null)ATNLENVAL.":[151]198,0 9067 [161]A$:[139]A$[178]""[167]9067 9068 [138] 9070 [151]830,7:[151]808,225 9080 A[178]1:[147]"ALPHAMETIX.ML",8,1 9100 BG[178]53280:K[178]198:[158]51200 9110 K1[178].5:K2[178]2.5:A2[178]1[170]2E[171]7:T[178]2 9120 CR[178]51209:DU[178]CR[171]3:PD[178]CR[170]12:S1[178]54276:X$[178]"DEF< (null)HE END > 9130 POKES1-3,70:POKES1+11,41:POKES1+14,17:POKES1+1,7:POKES1+2,217 9140 CLOSE4:POKE204,1 9150 RETURN 9500 POKEBG+1,.:SYS51215 9510 SYSCR,19 9520 PRINTTAB(24)"[150][209]UIT [193]LPHAMETIX 9530 [153][163]25)"-ATNRE YOU SURE? 9540 PRINTTAB(65)"[198]1 [195]ONTINUE 9550 [153][163]25)"ASC7 (null)ETURN":[153][163]27)"TO (null)OADSTAR"; 9580 [141]12900 9590 [139]RE[171]7[167][142] 9600 [158]58451:[151]808,237 9610 [153]"LOADCHR$OODBYE FROM ATN(null)(null)LEFT$ATN(null)VAL(null)RIGHT$(null) 9700 CLOSE1:OPEN1,8,15 9730 CLOSE2:OPEN2,8,8,"HELLO CONNECT 9740 [132]1,A,B$ 9750 [160]2:[160]1 9760 [139]A[177]19[167][155][171]20 9800 [147]"HELLO CONNECT",8 9810 [128] 10000 [141]10800 10040 [153][163]5)"(null)RESS: 10050 PRINTTAB(5)"1 [201]NSTRUCTIONS 10060 [153][163]5)"2 (null)OLVE ALPHAMETIC PUZZLE 10070 PRINTTAB(5)"3 [208]RIME NUMBERS 10080 [153][163]5)"4 (null)QUARE NUMBERS 10090 PRINTTAB(5)"5 [208]RINTER CONTROLS 10100 [153][163]5)"6 (null)UIT ATNLPHAMETIX 10120 PRINTTAB(205)"[194]Y [201]AN [193]DAM [214]ANCOUVER [194][195] 10130 [153][163]14)"AND (null)OADSTAR 10140 POKEBG+1,2:POKEBG-15,27 10200 POKES1,21:POKES1+20,143 10210 POKES1,20:RETURN 10800 POKEBG,.:POKEBG-15,11:POKEBG-11,. 10810 A$="[144] [157][148] " 10820 B$="[144] [146]  [157][148] " 10830 PRINT"[147]"A$ 10840 PRINTB$:PRINTB$:PRINTB$:PRINTB$:PRINTB$ 10850 PRINTA$:PRINTA$ 10860 FORI=1TO11:PRINTB$:NEXT 10870 PRINTA$:PRINTA$ 10880 FORI=1TO3:PRINTB$:NEXT:PRINTB$"[155] 10890 [153][163]8)"ATN (null) (null) LEFT$ ATN (null) VAL (null) RIGHT$ (null) 10900 PRINT:PRINTTAB(8)"... [212]HE [193]LPHAMETIC [197]XPRESS 10920 [142] 11000 [141]10800 11040 [153][163]5)"(null)RINTER LENONTROLS: 11050 GOSUB11800 11060 POKEBG+1,6:POKEBG-15,27 11070 IFATHEN11600 11100 PRINTTAB(45)"[212]HE SECONDARY ADDRESS IS SET 11110 [153][163]5)"TO"[194](830)"FOR UPPER/LOWER CASE, 11120 PRINTTAB(5)"TEXT MODE, AUTO LINE FEED. 11130 [139][194](829)[167][153][163]85)"ATNLL SOLUTIONS WILL BE PRINTED.":[137]11160 11140 [153][163]45)"(null)OLUTIONS WILL BE PRINTED 11150 PRINTTAB(5)"ONLY WHEN REQUESTED. 11160 [153][163]165)"ASC1 CHANGE SECONDARY ADDRESS 11170 IFPEEK(829)THENPRINTTAB(5)"[198]3 PRINT ON REQUEST ONLY 11180 [139][194](829)[178].[167][153][163]5)"ASC3 AUTO-PRINT ALL SOLUTIONS 11190 PRINTTAB(5)"[198]5 MAIN MENU"; 11300 GOSUB12900:IF(REAND1)=.THEN11300 11310 IFRE=5ORRE=7THENRETURN 11320 IFRE=3THENPOKE829,1-PEEK(829):IFPEEK(829)THENPOKE832,. 11330 IFRE-1THEN11000 11340 GOSUB10800 11380 PRINTTAB(45)"[212]HE SECONDARY ADDRESS MUST BE 11390 [153][163]5)"SET FOR UPPER & LOWER CASE, 11400 PRINTTAB(5)"TEXT MODE, AUTO LINE FEED. 11410 [153][163]85)"RIGHT$F NECESSARY, CHECK YOUR 11420 PRINTTAB(5)"PRINTER OR INTERFACE MANUAL. 11430 [153][163]205)"VALNTER SECONDARY ADDRESS:"; 11440 [151]BG[171]15,27:A$[178]" 11500 SYSCR,22,30:PRINTA$" " 11510 WAITK,15:GETB$ 11520 IFB$=CHR$(20)THENIFLEN(A$)THENA$=LEFT$(A$,LEN(A$)-1) 11530 IFB$=CHR$(13)THENPOKE830,VAL(A$)AND255:GOTO11000 11540 IFB$<"0"ORB$>"9"THEN11500 11550 IFLEN(A$)>2THENA$=LEFT$(A$,2) 11560 A$=A$+B$:GOTO11500 11600 PRINTTAB(45)"[212]HERE IS NO PRINTER ACTIVE. 11610 [153][163]45)"RIGHT$F YOU HAVE A PRINTER, 11620 PRINTTAB(5)"CHECK IT IS PROPERLY 11630 [153][163]5)"CONNECTED, HAS PAPER AVAILABLE, 11640 PRINTTAB(5)"AND TURNED ON. 11650 [153][163]165)"ASC1 ACTIVATE PRINTER 11660 PRINTTAB(5)"[198]3 MAIN MENU 11670 [141]12900:[139] RE[178]1[167]11000 11680 [139] RE[178]3[167][142] 11690 [137]11670 11800 [159]4,4,0:[151]781,4:[158]65481 11810 A[178]ST [175]128:[158]65484:[160]4 11820 [151]828,[171](A[178]0) 11830 [151]829,(A[178]0)[172]([194](829)[177]0) 11840 [142] 11900 [141]11800 11910 [139]A[178].[167][159]4,4,[194](830):[158]DU 11920 [160]4:[142] 12000 [158]51215 12010 [158]CR,19,23:[153]M1$ 12020 [153][163]23)M3$ 12030 [139][194](828)[167][153][163]23)M5$:[153][163]23)M6$ 12040 [153][163]23)M7$ 12100 [141]10200:[141]12900 12120 [139] RE[178]6[167][158]51218:[141]11900:[137]12000 12130 [139] RE[175]1[167][158]51218:[142] 12140 [137]12100 12300 M1$[178]"DEFASC1 ATNNALYZE THIS 12310 M3$="[150][198]3 [211]OLVE AGAIN 12320 M5$[178]"ASC5 ATN NEW PUZZLE 12330 M7$="[198]7 [194]ACK TO MENU 12340 [139][194](828)[178].[167]FX[178].:[137]12400 12360 FX[178]3:M6$[178]"ASC6 (null)RINT THIS 12370 IFPEEK(829)THENM4$="[198]4 [206]O [193]UTO-PRINT":GOTO12400 12380 M4$="[198]4 [193]UTO PRINT 12400 [158]51215 12410 [158]CR,19 12420 [139]FX[178].[167][153] 12430 [139]S[167][153][163]23)M1$ 12440 [153][163]23)M3$ 12450 [139]FX[175]2[167][153][163]23)M4$ 12460 [153][163]23)M5$ 12470 [139]FX[175]1[167][153][163]23)M6$ 12480 [153][163]23)M7$; 12500 [141]10200:[141]12900:[158]51218 12510 [139] RE[178]6[167][139]FX[175]1[167][141]11900:[137]12400 12520 [142] 12700 [158]51215 12710 [158]CR,19,. 12720 [153][163]23)"DEFASC1 (null)OLVE THIS":[139][194](828)[178].[167]12750 12730 [139][194](829)[178].[167][153][163]23)"ASC2 ATNUTO PRINT " 12740 [139][194](829)[167][153][163]23)"ASC2 (null)O ATNUTO-PRINT 12750 IFPEEK(832)=.THENPRINTTAB(23)"[198]3 [193]UTO PAUSE " 12760 IFPEEK(832)THENPRINTTAB(23)"[198]3 [206]O [193]UTO-PAUSE 12770 [153][163]23)"ASC4 (null)EDO CLUES 12790 IFPEEK(828)THENPRINTTAB(23)"[198]6 [208]RINT PUZZLE 12800 [153][163]23)"ASC7 PEEKACK TO MENU"; 12810 [141]10200:[141]12900 12820 [139]RE[178]2[167][151]829,1[171][194](829) 12830 [139]RE[178]3[167][151]832,1[171][194](832) 12840 [158]51218:[142] 12900 [153]"":[146]K,15 12910 [141]12940 12920 [139] RE[167][139]RE[179]8[167][142] 12930 [137]12900 12940 [161]A$:RE[178][197](A$) 12950 [139]A$[177]"INPUT#"[167][139]A$[179]"RESTORE"[167]RE[178]2[172][198](A$)[171]265:[139] RE[177]7[167]RE[178]RE[171]7 12960 [139]A$[178][199](13)[167]RE[178]1 12970 [142] 13000 [141]10200 13010 [145]EF[137]13100,13200,13300,13400,13500,13600,13600 13100 [138]50 13200 [153]"LOAD":[141]14000 13210 [153]"(null)OO MANY LETTERS! 13220 PRINT"[197]ACH LETTER REPRESENTS A 13230 [153]"DIGIT (null) TO 9, SO THERE CAN'T 13240 PRINT"BE OVER 10 DIFFERENT LETTERS. 13250 [137] 13900 13300 [153]"LOAD":[141]14000 13310 [153]"(null)OUR PUZZLE CAN'T BE SOLVED! 13320 IFMA>LRTHEN13350 13330 PRINT"[211]UM LINE IS TOO LONG, COMPARED 13340 [153]"TO THE OTHER LINES.":[137] 13900 13350 [153]"(null)O LINE IN THE PUZZLE CAN BE LONGERCLOSE 13360 PRINT"THAN THE SUM. 13370 [137]13900 13400 [153]"LOAD":[141]14000 13410 [153]"(null)OUR PUZZLE CAN'T BE SOLVED! RIGHT$T NEEDS 13430 PRINT"AT LEAST 2 LETTERS. 13440 [137]13900 13500 [153]"LOAD":[141]14000 13510 [153]"LENLUES ARE NOT COMPATIBLE." 13520 [153]A1$" & "UN$(N)" CAN'T BOTH BE"TJ 13530 [137]13900 13600 [153]"LOAD":[141]14000 13610 [153]"(null)OUR PUZZLE & CLUES CAN'T BE SOLVED!" 13620 [139]EF[177]6[167][153]X$ 13900 [153]"(null)RESS A KEY." 13910 [146]K,15:[161]A$ 13920 [138]200 14000 [153]"SYS"; 14010 [129]I[178]1[164]R[171]1 14020 [153][163]RT(I))RW$(I) 14030 [130] 14040 [153][163]12[171]LR)[200]("---------",LR) 14050 [153][163]12[171]LR)RW$(R); 14060 [139]CC[167][129]I[178]R[170]1[164]9:[153]:[130] 14070 [139]CC[178].[167][153] 14090 [129]I[178].[164]NC 14100 [153]:[153]CS$(I); 14110 [130]:[153] "LIST":[142] 14500 [153]"OPENLOADDEFWAIT (null)OLUTION NO."S 14520 [153]" DEF++++++++++++++++++WAIT TIME: : : . 14530 PRINT:GOSUB14000 14540 SYSCR,R+2,26-LR 14550 PRINTLEFT$("----------",LR) 14560 PRINT" 14570 [129]I[178]1[164]NM 14580 [153][163]33)UN$(I)" = 14590 NEXT 14610 IFNM11 THEN AA=. 20830 GOSUB12900 20840 IFRE=5THENGOSUB7900 20850 IFRE=3THENRUN50 20860 POKEBG-15,11:POKEBG,AA:POKEBG+1,AA 20870 PRINT"[147]":RETURN 20990 : 21000 PRINT" [193] [204] [208] [200] [193] [205] [197] [212] [201] [216] 21010 [153]:[153]" ... (null)HE ATNLPHAMETIC VALXPRESS":[153] 21020 [153]" (null)HAT IS AN ALPHAMETIC?":[153] 21030 [153]" RIGHT$'M GLAD YOU ASKED!":[153] 21040 [153]" ATNN ALPHAMETIC IS A TYPE OF PUZZLE 21050 PRINT" IN WHICH THE NUMBERS IN A STANDARD 21060 [153]" ADDITION FORMAT HAVE BEEN REPLACED 21070 PRINT" BY LETTERS. [197]ACH LETTER UNIQUELY 21080 [153]" REPLACES A DIFFERENT DIGIT.":[153] 21090 [153]" (null)HE CHALLENGE IS TO DEDUCE THE 21100 PRINT" ORIGINAL NUMBERS, GIVEN ONLY 21110 [153]" THE LETTERS OF THE PUZZLE. 21120 PRINT:RETURN 21990 : 22000 PRINT"[195]ONSIDER THIS SAMPLE PUZZLE:":PRINT 22010 PRINT" [196][207][206][212] 22020 [153]" STR$(null) 22030 PRINT" [201][212] 22040 [153]" (null)ATNRIGHT$STR$ 22050 PRINT" ----- 22060 [153]" STR$(null)(null)(null)ATN 22070 PRINT:PRINT"[200]ERE, EACH LETTER REPRESENTS 22080 [153]"A NUMBER, AND THE FIRST 4 LINES 22090 PRINT"MUST ADD UP TO EQUAL [196][207][206][206][193]. 22100 [153]:[153]"(null)HIS IS FAIRLY SIMPLE TO SOLVE, AND YOU 22110 PRINT"CAN[160]DEDUCE SOME CLUES QUICKLY.":PRINT 22120 PRINT"[204]OOK AT THE LEFT COLUMN. [196] AND [211] MUST 22130 [153]"ADD UP TO AT LEAST 10, BUT LESS THAN 22140 PRINT"20, SO A 1 CARRIES OVER TO FORM 22150 [153]"THE LAST DIGIT. (null)HEN YOU KNOW THAT 22160 PRINT"[196] MUST REPRESENT THE NUMBER 1. 22200 [153]:[142] 23000 [153]"(null)O MENTALLY REPLACE STR$ WITH 1, AND 23005 PRINT"ELIMINATE [206] ABOVE AND BELOW THE LINE:":PRINT 23010 PRINT" [196][207][206][212] 1[207].[212] 23020 [153]" STR$(null) 1(null) 23030 PRINT" [201][212] [201][212] 23040 [153]" (null)ATNRIGHT$STR$ (null)ATNRIGHT$1 23050 PRINT" ----- ----- 23060 [153]" STR$(null)(null)(null)ATN 1(null)(null).ATN 23070 PRINT:PRINT:PRINT"[194]Y EXAMINING THE LEFT COLUMN, YOU CAN 23080 [153]"FIGURE THAT THE LETTER (null) MUST BE 23090 PRINT"8 OR 9, TO ENSURE THAT [196]+[211] 23100 [153]"ADDS UP TO AT LEAST 10.":[153] 23110 [153]:[153]"ATNLSO, THE LETTER (null) MUST BE 23120 PRINT"0 OR 1. [211]INCE 1 IS ALREADY 23130 [153]"TAKEN (STR$ IS 1), THEN (null) MUST BE 0. 23200 RETURN 24000 PRINT"[204]ET'S MAKE THOSE CHANGES:":PRINT:PRINT 24010 PRINT" [196][207][206][212] 10.[212] 24020 [153]" STR$(null) 10 24030 PRINT" [201][212] [201][212] 24040 [153]" (null)ATNRIGHT$STR$ *ATNRIGHT$1 24050 PRINT" ----- ----- 24060 [153]" STR$(null)(null)(null)ATN 10(null).ATN 24070 PRINT:PRINT" * = 8 OR 9 24080 [153]:[153]"(null)OU COULD KEEP GOING LIKE THIS.":[153] 24090 [153]"ASCROM THE COLUMN ON THE RIGHT, YOU 24100 PRINT"KNOW THAT [212] MUST BE AT LEAST 6, AND 24110 [153]"THAT ATN MUST BE AN ODD DIGIT, 24120 PRINT"3, 5, OR 7.":PRINT 24130 PRINT"[198]ROM THE NEXT COLUMN, YOU CAN FIND 24140 [153]"THAT RIGHT$ MUST BE 4 OR 9.":[153] 24200 [142] 25000 [153]"(null)HE SOLUTION IS THEN CLOSE. 25010 PRINT:PRINT"[215]ITH A LITTLE EXPERIMENTING, 25020 [153]"IT IS FOUND TO BE:":[153]:[153] 25030 [153]" STR$(null)(null)(null) 1067 25040 PRINT" [196][207] 10 25050 [153]" RIGHT$(null) 47 25060 PRINT" [211][193][201][196] 9541 25070 [153]" ----- ----- 25080 PRINT" [196][207][206][206][193] 10665 25090 [153]:[153]:[153]"(null)IMPLE, RIGHT?":[153] 25100 [153]"(null)OST PUZZLES ARE NOT AS EASY 25110 PRINT"AS THAT! [213]SUALLY, YOU NEED 25120 [153]"A LOT OF TRIAL AND ERROR TO 25130 PRINT"GET THE ANSWER.":RETURN 26000 PRINT:PRINT:PRINT"[212]HIS IS WHERE YOU AND THE COMPUTER 26010 [153]"MAKE A GOOD TEAM. (null)HE COMPUTER IS 26020 PRINT"GOOD AT EXPERIMENTING. [201]N THEORY, 26030 [153]"UP TO 3.6 MILLION TRIALS (AND 26040 PRINT"3.6 MILLION ERRORS!) MAY BE REQUIRED 26050 [153]"BEFORE A SOLUTION IS FOUND. (null)HE 26060 PRINT"COMPUTER IS THOROUGH AT THIS. 26070 [153]"RIGHT$T IS ALSO GOOD AT KEEPING TRACK 26080 PRINT"OF COMPLEX THINGS LIKE ROWS OF 26090 [153]"LETTERS AND NUMBERS.":[153]:[153] 26100 [153]"PEEKUT THE COMPUTER IS NOT GOOD 26110 PRINT"AT FINDING CLUES, NOR AT MAKING 26120 [153]"LUCKY GUESSES.":[153]:[153] 26130 [153]"(null)HAT'S YOUR PART OF THE TEAMWORK! 26200 RETURN 27000 PRINT"[215]ITH YOUR HELP, THIS PROGRAM 27010 [153]"CAN SOLVE ALPHAMETIC PUZZLES, 27020 PRINT"EVEN THOUGH THEY MAY BE A 27030 [153]"LOT MORE DIFFICULT THAN THE 27040 PRINT"SAMPLE WE SAW.":PRINT 27050 PRINT"[212]HE PROGRAM IS ALSO FAST.":PRINT:PRINT 27060 PRINT"[217]OU HAVE THE FIRST JOB IN THE PROCESS, 27070 [153]"ENTERING THE PUZZLE. (null)HERE ARE A 27080 PRINT"FEW SAMPLES ON THE DISK, TO GET YOU 27090 [153]"STARTED. (null)NCE THE PUZZLE IS ENTERED, 27100 PRINT"THE COMPUTER WILL THEN SCAN IT, 27110 [153]"LOOKING FOR CLUES OR ERRORS.":[153] 27120 [153]"ATNT THIS STAGE, YOU CAN GO AHEAD AND 27130 PRINT"HAVE THE COMPUTER SOLVE THE PROBLEM. 27140 [153]"(null)HERE MAY BE SEVERAL POSSIBLE 27150 PRINT"SOLUTIONS, AND THE PROGRAM 27160 [153]"WILL LIST THEM ALL.":[142] 28000 [153]:[153]"ATNS FAST AS THE PROGRAM IS, HOWEVER, 28010 PRINT"IT TAKES TIME TO TRY 3.6 MILLION 28020 [153]"SOLUTIONS. (null)HE ANSWER IS FOUND 28030 PRINT"MUCH FASTER WITH TEAMWORK. 28040 [153]"RIGHT$F YOU CAN SEE ANY OBVIOUS 28050 PRINT"CLUES, GO AHEAD AND ENTER THEM 28060 [153]"WHEN THE PROGRAM ASKS. (null)OUR 28070 PRINT"BRAINPOWER WILL COMPLEMENT THE 28080 [153]"COMPUTER'S BRUTE FORCE VERY NICELY.":[153]:[153] 28090 [153]"(null)OMETIMES A CLUE WILL BE SUPPLIED WITH 28100 PRINT"THE PUZZLE, USUALLY BECAUSE THE PROBLEM 28110 [153]"HAS MORE THAN ONE SOLUTION... THE CLUE 28120 PRINT"SERVES TO LIMIT THE PUZZLE TO JUST ONE 28140 [153]"SOLUTION. VALNTER THIS TYPE OF CLUE TOO.":[153]:[142] 29000 [153]"(null)HE PROGRAM HAS SEVERAL OPTIONS:":[153] 29020 [153]"- RIGHT$F YOU HAVE A PRINTER, THE ANSWERS 29030 PRINT" WILL BE PRINTED AUTOMATICALLY AS 29040 [153]" THEY ARE FOUND. RIGHT$F YOU DON'T WANT 29050 PRINT" THIS AUTO-PRINT FEATURE, YOU CAN 29060 [153]" CANCEL IT FROM A MENU.":[153] 29070 [153]"- (null)OU CAN ALSO PRINT ANY SCREEN WHEN 29080 PRINT" THE MENU OFFERS.":PRINT 29090 PRINT"- [215]HEN NOT AUTO-PRINTING, THE PROGRAM 29100 [153]" WILL PAUSE AFTER FINDING A SOLUTION. 29120 PRINT" [217]OU CAN CANCEL THIS FEATURE TOO.":PRINT 29140 PRINT"- [212]RY HOLDING DOWN THE [195][212][210][204] KEY WHILE 29150 [153]" THE PROGRAM IS RUNNING. (null)HIS WILL 29160 PRINT" SLOW THE PROGRAM SO YOU CAN SEE THE 29170 [153]" SOLUTION DEVELOP.":[142] 30000 [153]"(null)ITH MOST MENUS, YOU CAN PRESS EITHER 30010 PRINT"A NUMBER OR FUNCTION KEY. [212]HE MAIN 30020 [153]"MENU OFFERS SOME ADDITIONAL CHOICES...":[153]:[153] 30040 [153]"RIGHT$F YOUR PRINTER DOESN'T WORK RIGHT, 30050 PRINT"TRY CHANGING THE SECONDARY ADDRESS. 30060 [153]"(null)ELECT 'PRINTER CONTROLS', CHECK THE 30070 PRINT"MANUAL FOR YOUR PRINTER OR INTERFACE, 30080 [153]"AND ENTER A NEW ADDRESS.":[153] 30110 [153]"ATNLSO, BECAUSE THE PROGRAM DEALS WITH 30120 PRINT"PRIME NUMBERS AND SQUARES, SPECIAL 30140 [153]"SECTIONS ARE PROVIDED TO ALLOW YOU TO 30150 PRINT"EXPERIMENT WITH THESE NUMBERS. 30160 [153]:[153]"(null)RESS (null)VAL(null)(null)(null)(null)VAL ANYTIME TO GET THE MENU. 30200 PRINT:RETURN 31000 PRINT"[212]HERE ARE MANY OTHER FEATURES IN 31010 [153]"THE PROGRAM, WHICH YOU WILL FIND 31020 PRINT"AS YOU TRY IT OUT. [202]UST FOR FUN, YOU 31030 [153]"MIGHT WANT TO TRY AND SOLVE SOME OF 31040 PRINT"THE PUZZLES BY HAND, AND COMPARE YOUR 31050 [153]"TIME TO THE COMPUTER'S.":[153]:[153]:[153] 31060 [153]"RIGHT$F YOU WANT TO TRY, THE PROGRAM 31070 PRINT"WILL PRINT THE PUZZLE ON A BLANK 31080 [153]"PAGE, LEAVING PLENTY OFCLOSEROOM FOR YOU 31090 PRINT"TO WORK ON IT. [201]T WILL EVEN TIME YOU 31100 [153]"AS YOU SOLVE THE PUZZLE! 32310 PRINT"[212]HERE ARE MANY PUZZLES ON THE [204]OADSTAR 32320 [153]"DISK. (null)HEN YOU CHOOSE '(null)OLVE A PUZZLE' 32330 PRINT"YOU CAN SELECT ONE OF THESE TO SOLVE, 32340 [153]"OR TYPE IN YOUR OWN.":[142]