10 POKE55,0:POKE56,56:CLR
12 DV=PEEK(186):IFDV<8THENDV=8
20 POKE53281,0:POKE53280,0
30 PRINT"[147]":GOSUB60000
32 TQ=TI
40 SYS57812"NUMBER FONT",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
42 IFTI<TQ+100THEN42
50 DV=PEEK(186):IFDV<8THENDV=8
60 GOTO230
70 POKEN%(I,J),NN%(I,J)+48:POKEN%(I,J)+C,1:RETURN
80 POKES%(K,NP-2),SP%(SS%(K,NP-2)):POKES%(K,NP-2)+C,5:RETURN
90 IFV=0THENFL=1:RETURN
100 ONR+1GOTO110,120,130,140
110 W=U+V:RETURN
120 W=U-V:RETURN
130 W=U*V:RETURN
140 W=U/V:RETURN
150 PRINT"":FORI=0TO19:PRINT:NEXT:PRINT"                                    "
160 FORI=SC+762TOSC+794STEP2:POKEI,32:NEXT:RETURN
170 FL=1:FORII=0TONP:FORJJ=0TONP
180 IFNN%(II,JJ)+48<>PEEK(N%(II,JJ))THENFL=0
190 NEXT:NEXT:RETURN
200 :
210 :REM SETUP
220 :
230 SC=1024:VC=53248:C=54272:Z=40
240 DIMN%(4,4),NN%(4,4),S%(25,1),SS%(25,1),SP%(4),D%(4,4),DD%(4,4)
242 DIMO%(16),OO%(4,4),X%(25,1)
250 DEF FNB(I)=INT(RND(1)*I)
252 HZ$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
254 SP$="                                      "
260 FORI=0TO3:FORJ=0TO3:N%(I,J)=SC+92+J*4+I*Z*4:NEXT:NEXT
270 FORI=0TO3:READSP%(I):NEXT
272 DATA43,45,24,47
280 FORI=0TO23:READJ:S%(I,1)=SC+J:NEXT
282 DATA94,98,102,254,258,262,414,418,422,574,578,582
284 DATA172,332,492,176,336,496,180,340,500,184,344,504
286 FORI=0TO11:READJ:S%(I,0)=SC+J:NEXT
288 DATA94,98,254,258,414,418,172,332,176,336,180,340
290 FORI=0TO7:READJ:X%(I,1)=SC+J:NEXT
292 DATA106,266,426,586,651,655,659,663
294 FORI=0TO5:READJ:X%(I,0)=SC+J:NEXT
296 DATA102,262,422,491,495,499
300 FORI=0TO2:READM$(I),M(I):NEXT
302 DATA" [195][200][193][204][204][197][206][199][197] ",3,"  [205][207][206][211][212][197][210]  ",15,"   [209][213][201][212]   ",27
310 FORI=0TO6:READMM$(I),MM(I):NEXT
312 DATA" [200][193][210][196][197][211][212] ",0," 1 ",10," 2 ",14," 3 ",18," 4 ",22," 5 ",26," [197][193][211][201][197][211][212] ",30
320 PRINT"[147][152]":POKE53272,31
322 PRINT"[155]     [203] [206] [197] [197] [211]    [195] [193] [204] [200] [207] [207] [206] ' [211][129]"
330 PRINT"    [176][192][174] [176] [174]  [176] [176][192][174][176][192][174] [174][192][192][174] [176][192][192][174] [176][192][192][174]
332 [153]"    (null) (null) (null) (null)  (null) (null) /EXP (null) -TANTAN< -TAN<  -TAN=EXP
334 PRINT"    [189] [173][192][189] [173][192][192][189] [189]    [173] [189][192][192][189] [173][192][192][189] [189] [173][192][189]"
340 PRINT" [176][192][174][176][192][174] [176][192][192][174] [176][192][174] [176] [176][192][192][174] [176][192][178][192][174] [176][192][192][174] [176][192][192][174]
342 [153]" (null) /EXP (null) (null)  (null) (null) (null) (null) /TANTAN^   (null)   -TAN<  -TAN=EXP
344 PRINT" [189]    [173] [173][192][192][189] [189] [173][192][189] [173][192][192][189]   [177]   [173][192][192][189] [189] [173][192][189]
350 [151]214,22:[153]:[153]"LIST     (null)SE LEN(null)(null)(null) (null)RIGHT$CHR$LEFT$(null)/(null)VALASC(null) AND (null)VAL(null)(null)(null)(null)   "
352 [151]214,20:[153]
354 [153][163]M(0))M$(0)[163]M(1))M$(1)[163]M(2))M$(2)"ON"
356 M[178]0
358 [153][163]M(M))""M$(M)"ON"
360 [161]A$:[139]A$[178]""[167]360
362 [153][163]M(M))"PRINT#"M$(M)"ON"
364 [139]A$[178][199](13)[167]380
370 [139]A$[178]""[167]M[178]M[170]1:[139]M[177]2[167]M[178]0
372 [139]A$[178]"CMD"[167]M[178]M[171]1:[139]M[179]0[167]M[178]2
374 [137]358
380 [139]M[178]2[167]40000
390 NP[178]2[170]M
400 [145]NP[171]1[137]630,440
410 :
420 :[143] 4X4 SCREEN
430 :
440 [153]"LOADCLR"
450 [153][163]10)" ORTAN=TAN=TAN=TAN=TAN=TAN=TAN=TANTANTAN^"
458 [129]I[178]0[164]2
460 [153][163]10)" (null) (null) (null) (null) (null) (null) (null) (null)   (null)"
470 [153][163]10)" -TANOR=^WAITTANOR=^WAITTANOR=^WAITTAN(null)TANTANTANEXP
480 PRINTTAB(10)" [221] [171] [179][146][160][171] [179][146] [171] [179][146] [221]"
490 PRINTTAB(10)" [171][192][173][177][189][146][192][173][177][189][146][192][173][177][189][146][192][219][192][192][192][174]
492 [130]
580 [153][163]10)" (null) (null) (null)CLOSE(null) (null) (null) (null) (null)   (null)"
590 [153][163]10)"OR>TAN>=>TAN>=>TAN>=>TAN>=TANTANEXP
600 PRINTTAB(10)"[221]   [221][160]  [221]   [221]   [221]
610 [153][163]10)"/TANTANTAN>TANTANTAN>TANTANTAN>TANTANTANEXP"
620 [137]780
630 [153]"LOADCLR"
632 [153][163]10)" ORTAN=TAN=TAN=TAN=TAN=TANTANTAN^"
634 [129]I[178]0[164]1
640 [153][163]10)" (null) (null) (null) (null) (null) (null)   (null)"
650 [153][163]10)" -TANOR=^WAITTANOR=^WAITTAN(null)TANTANTANEXP
660 PRINTTAB(10)" [221] [171] [179][146] [171] [179][146] [221]"
670 PRINTTAB(10)" [171][192][173][177][189][146][192][173][177][189][146][192][219][192][192][192][174]
680 [130]
720 [153][163]10)" (null) (null) (null) (null) (null) (null)   (null)"
730 [153][163]10)"OR>TAN>=>TAN>=>TAN>=TANTANEXP
740 PRINTTAB(10)"[221]   [221]   [221]   [221]
750 [153][163]10)"/TANTANTAN>TANTANTAN>TANTANTANEXP"
760 :
770 :[143] SET LEVEL
772 :
780 [151]214,22:[153]:[153]"LIST (null)SE LEN(null)(null)(null) (null)RIGHT$CHR$LEFT$(null)/(null)VALASC(null)/(null)VAL(null)(null)(null)(null)   (null) - (null)ENU "
790 [151]214,20:[153]"PRINT#":[129]I[178]0[164]6:[153][163]MM(I))MM$(I);:[130]:[153]
792 MQ[178]0
794 [151]214,20:[153]:[153][163]MM(MQ))""MM$(MQ)"ON"
796 [161]A$:[139]A$[178]""[167]796
798 [153][163]MM(MQ))"PRINT#"MM$(MQ)"ON"
800 [139]A$[178]"M"[167]320
802 [139]A$[178][199](13)[167]810
804 [139]A$[178]""[167]MQ[178]MQ[170]1:[139]MQ[177]6[167]MQ[178]0
806 [139]A$[178]"CMD"[167]MQ[178]MQ[171]1:[139]MQ[179]0[167]MQ[178]6
808 [137]794
810 G[178]MQ
820 [151]781,21:[158]59903
830 :
840 :[143] CREATE GRID
850 :
860 [129]I[178]0[164]NP:[129]J[178]0[164]NP:NN%(I,J)[178][165]B(9)[170]1:[151]N%(I,J)[170]C,7
862 [130]:[130]
867 :
870 [151]214,22:[153]:[153]"LIST (null)SE LEN(null)(null)(null) KEYS  1 - 9  (null)(null)ATNLENVAL  (null) - (null)ENU "
878 K[178]0:[129]I[178]0[164]NP:D%(I,0)[178]NN%(I,0)
880 [129]J[178]0[164]NP[171]1
890 SS%(K,NP[171]2)[178][165]B(4)
900 R[178]SS%(K,NP[171]2):U[178]D%(I,J):V[178]NN%(I,J[170]1):[141]90
910 [139]FL[167]FL[178]0:[137]890
920 D%(I,J[170]1)[178]W:[139]W[179]1[176]W[179][177][181](W)[167]890
930 [141]80
940 K[178]K[170]1:[130]J:E%(I)[178]W:[130]I
947 :
950 [129]J[178]0[164]NP:DD%(0,J)[178]NN%(0,J)
960 [129]I[178]0[164]NP[171]1
970 SS%(K,NP[171]2)[178][165]B(4)
980 R[178]SS%(K,NP[171]2):U[178]DD%(I,J):V[178]NN%(I[170]1,J):[141]90
990 [139]FL[167]FL[178]0:[137]970
1000 DD%(I[170]1,J)[178]W:[139]W[179]1[176](W[179][177][181](W))[167]970
1010 [141]80
1020 K[178]K[170]1
1030 [130]I:E%(J[170]NP[170]1)[178]W:[130]J
1037 :
1038 :[143] CHECK SUMMATIONS
1039 :
1040 [129]I[178]0[164]7[170]2[172](NP[178]2):[139]E%(I)[177]999[167]870
1050 [130]
1060 [129]I[178]0[164]7[170]2[172](NP[178]2)
1070 E$(I)[178][196](E%(I)):E$(I)[178]"  "[170]E$(I):E$(I)[178][201](E$(I),3)
1080 [130]
1090 [129]I[178]0[164]7[170]2[172](NP[178]2):[129]J[178]0[164]2
1100 [151]X%(I,NP[171]2)[170]J,[198]([202](E$(I),J[170]1,1)):[151]X%(I,NP[171]2)[170]J[170]C,3
1110 [130]:[130]
1120 :
1130 :[143] NUMBERS AT BOTTOM
1140 :
1150 [151]214,18:[153]
1152 [153][163]2[171]7[172](NP[178]2))"OR"[200](HZ$,33[170]14[172](NP[178]2))"^"
1154 [153][163]2[171]7[172](NP[178]2))"(null)"[200](SP$,33[170]14[172](NP[178]2))"(null)"
1156 [153][163]2[171]7[172](NP[178]2))"/"[200](HZ$,33[170]14[172](NP[178]2))"EXP"
1158 [129]I[178]1[164]16[170]7[172](NP[178]2):O%(I)[178]0:[130]
1160 [129]I[178]0[164]NP:[129]J[178]0[164]NP
1170 RA[178][165]B(16[170]7[172](NP[178]2))[170]1:[139]O%(RA)[167]1170
1180 [151]SC[170]802[171]7[172](NP[178]2)[170]RA[172]2,NN%(I,J)[170]48:O%(RA)[178]1
1190 [130]:[130]
1200 [139]G[178]0[167]1290
1210 [129]I[178]0[164]NP:[129]J[178]0[164]NP:OO%(I,J)[178]0:[130]:[130]
1220 [129]I[178]1[164]G
1230 RA[178][165]B(NP[170]1):RB[178][165]B(NP[170]1):[139]OO%(RA,RB)[167]1230
1240 [151]N%(RA,RB),NN%(RA,RB)[170]48:[151]N%(RA,RB)[170]C,1:OO%(RA,RB)[178]1
1250 Y[178]0
1260 HJ[178]SC[170]802[171]7[172](NP[178]2)[170]Y:[139][194](HJ)[178]NN%(RA,RB)[170]48[167][151]HJ,32:[137]1280
1270 Y[178]Y[170]2:[137]1260
1280 [130]
1290 [129]I[178]0[164]31[170]14[172](NP[178]2):[151]SC[170]804[171]7[172](NP[178]2)[170]I[170]C,1:[130]
1300 I[178]0:J[178]0:H[178]0:L[178]1
1310 :
1320 :[143] LOOP
1330 :
1340 [151]N%(I,J),[194](N%(I,J))[170]128
1350 TQ[178]TI
1352 [139]TI[179]TQ[170]5[167]1352
1360 [151]N%(I,J),[194](N%(I,J))[171]128
1370 TQ[178]TI
1372 [139]TI[179]TQ[170]5[167]1372
1380 [161]A$:[139]A$[178]""[167]1340
1382 [139]A$[178]"M"[167]320
1390 [139]A$[179][177][199](13)[167]1410
1400 [141]170:[139]FL[167]1560
1402 [137]1610
1410 [139]A$[179][177]" "[167]1420
1412 [139]([194](N%(I,J)[170]C)[175]15)[178]1[167]1340
1414 MM[178][194](N%(I,J)):[151]N%(I,J),32
1416 [129]K[178]SC[170]802[171]7[172](NP[178]2)[164]SC[170]834[170]7[172](NP[178]2)[169]2
1418 [139][194](K)[178]32[167][151]K,MM:K[178]SC[170]834[170]7[172](NP[178]2)
1419 [130]:[137]1340
1420 [139]A$[178]"ON"[167]I[178]I[171]1:[139]I[179]0[167]I[178]NP
1430 [139]A$[178]""[167]I[178]I[170]1:[139]I[177]NP[167]I[178]0
1440 [139]A$[178]""[167]J[178]J[170]1:[139]J[177]NP[167]J[178]0
1450 [139]A$[178]"CMD"[167]J[178]J[171]1:[139]J[179]0[167]J[178]NP
1460 [139]A$[179]"1"[176]A$[177]"9"[167]1340
1470 MM[178][194](N%(I,J)[170]C)[175]15:[139]MM[178]1[167]1340
1480 [129]K[178]SC[170]802[171]7[172](NP[178]2)[164]SC[170]834[170]7[172](NP[178]2)
1482 [139][194](K)[178][198](A$)[167][151]K,32:K[178]SC[170]834[170]7[172](NP[178]2):[130]:[137]1510
1490 [130]:[137]1340
1510 M[178][194](N%(I,J)):[139]M[178]32[167]1530
1520 RA[178][165]B(16[170]7[172](NP[178]2)):K[178]SC[170]802[171]7[172](NP[178]2)[170]2[172]RA:[139][194](K)[179][177]32[167]1520
1530 [151]K,M
1540 [151]N%(I,J),[198](A$)
1542 [141]170:[139]FL[167]1560
1550 [137]1340
1560 [151]214,22:[153]"LIST":[153]"   (null) - (null)ENU    ATNNY KEY - (null)EW (null)UZZLE   "
1564 [151]214,19:[153]:[153][163]11)"  (null)OU DID IT!!!  "
1566 [151]214,19:[153]:[153][163]11)"  (null)OU DID IT!!!  "
1570 [161]A$:[139]A$[178]""[167]1560
1580 [139]A$[178]"M"[167]320
1590 [137]400
10000 D[178][194](186):N$[178]"B.NUMBER":[159]15,D,15,"S0:"[170]N$:[160]15:[148]N$,D:[128]
40000 [129]I[178]8[164]29:[151]820[170]I,I:[130]:[139]DV[177]8[175]DV[179]30[167][151]828,DV:[151]820[170]DV,8
40010 A$[178]"PRESENTER":[141]40030:A$[178]"HELLO CONNECT":[141]40030
40020 [153]"LOAD":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
40030 [129]J[178]8[164]29:I[178][194](820[170]J):[139]I[178]14[167][130]
40040 [160]2:[159]2,I,2:[160]2:[139]ST[167]40060
40050 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40070
40060 [130]:[142]
40070 A$[178]"HELLO CONNECT":Q$[178][199](34):[151]646,[194](53281):[153]"LOAD":[151]53272,23
40080 [153]"LOADP(null)2048,0:P(null)44,8:P(null)43,1:P(null)56,160:P(null)55,0:CLR:L(null)"Q$A$Q$","I
40090 [153]"RUN:":[151]631,13:[151]632,13:[151]198,2:[128]
60000 [153]"LOAD":Z$[178]" PRINT#                                      ":[151]214,10:[153]
60010 [153]" LISTFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE":[129]I[178]0[164]10:[153]Z$:[130]
60020 [153]" POKEPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPRINT#"
60030 Z$(0)[178]"(null) (null) (null) PEEK VAL (null)   (null) (null) (null) (null) (null) VAL (null)":Z$(1)[178]"BY (null)NEES LENALHOON
60040 Z$(3)="([195]) 1996 BY [202] & [198] [208]UBLISHING, [201]NC."
60050 Z$(5)="[212]HIS PROGRAM IS NOT SHAREWARE
60070 Z$(6)[178]"OR IN THE PUBLIC DOMAIN."
60080 Z$(8)[178]"1-800-594-3370 OR 1-318-221-8718
60090 POKE214,12:PRINT
60100 FORI=0TO8:PRINTTAB(20-(LEN(Z$(I))/2))""Z$(I):NEXT:RETURN