10 POKE52,56:POKE51,0:CLR
20 DV=PEEK(186):IFDV<8THENDV=8
30 POKE53281,15:POKE53280,15:PRINT"[147]"
40 SC=1024:Z=40:CO=54272
50 SYS57812"LOGIC FONT",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
60 POKE53272,31
70 GOTO280
80 POKE214,Y:PRINT:POKE646,C
90 FORII=0TO4:PRINTTAB(X)"[[[[[":NEXT
100 RETURN
110 POKE214,YB:PRINT:POKE646,C
120 PRINTTAB(XB)"[176]"LEFT$(H$,XX)"[174]"
130 FORII=1TOYY:PRINTTAB(XB)"[221]"LEFT$(SP$,XX)"[221]":NEXT
140 PRINTTAB(XB)"[173]"LEFT$(H$,XX)"[189]"
150 RETURN
160 PD=SC+CO+X+Y*Z:PQ=PEEK(PD)AND15
162 FORJ=0TO10:POKEPD,1
164 POKESC+X+Y*Z,29
166 POKEPD,PQ:FORT=0TO20:NEXT
168 NEXT:GOSUB230:RETURN
170 PD=PEEK(SC+CO+X+W*Z)AND15:FORJ=0TO3
180 FORI=0TO4:PQ=SC+X+Z*I+W*Z:POKEPQ+CO,1
184 POKEPQ,29:POKEPQ+CO,PD:FORT=0TO20:NEXT:NEXT
190 FORI=0TO4:PQ=SC+V+I+Y*Z:POKEPQ+CO,1
194 POKEPQ,29:POKEPQ+CO,PD:FORT=0TO20:NEXT
200 POKESC+X+Y*Z,28
210 NEXT:NEXT
220 GOSUB230:RETURN
222 FORJ=0TO8
224 PRINT"";:POKE214,Y:PRINT:PRINTTAB(X)B$
226 PRINT"[144]";:POKE214,Y:PRINT:PRINTTAB(X)B$:FORT=0TO20:NEXT
228 NEXT:GOSUB230:RETURN
230 S=54272:POKES+1,130:POKES+5,9:POKES+15,30:POKES+24,15:POKES+4,21
240 FORT=0TO400:NEXT:POKES+4,20
250 POKE198,0:ZZ=0
252 PD=PEEK(214)-1:PQ=PEEK(646):POKE214,21:PRINT:PRINT" [208]RESS A KEY"
260 ZZ=ZZ+1:GETA$:IFA$=""ANDZZ<800THEN260
262 POKE214,21:PRINT:PRINT"            "
264 POKE214,PD:PRINT:POKE646,PQ
266 IFA$="Q"THEN40000
270 RETURN
280 FORJ=0TO2:X=3+J*5:FORI=0TO2-J:Y=2+5*I
290 C=11*((I+J)AND1):GOSUB80:NEXT:NEXT
300 PRINT"[144][208][209][210][211][212][203][204][205][206][207][198][199][200][201][202]"
310 PRINT"":FORI=1TO15:PRINTTAB(1)CHR$(192+I):NEXT
320 GOTO380
330 FORI=0TO5:READX,Y:POKESC+X+Z*Y,29:NEXT
340 DATA3,5,14,6,7,7,12,7,11,12,4,15
350 FORI=3TO7:POKESC+10+Z*I,29:NEXT
360 FORI=0TO4:POKESC+8+I+6*Z,29:NEXT
370 POKESC+10+240,28
380 H$="[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]"
390 SP$="                               "
400 PRINT""TAB(22)"[193]-[197] [198]-[202] [203]-[207] [208]-[212]"
410 PRINTTAB(21)"[176][192][192][192][178][192][192][192][178][192][192][192][178][192][192][192][174]"
420 FORI=0TO3
430 PRINTTAB(21)"[221]   [221]   [221]   [221]   [221]"
440 PRINTTAB(21)"[171][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][179]"
450 NEXT
460 PRINTTAB(21)"[221]   [221]   [221]   [221]   [221]"
470 PRINTTAB(21)"[173][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][189]"
480 PRINT"":FORI=0TO4:PRINTTAB(23)CHR$(193+I):PRINT:NEXT
490 XB=14:YB=11:XX=23:YY=10:C=6:GOSUB110
500 POKE214,12:PRINT:PRINTTAB(16)"[212]HE FIRST CLUE SAYS
510 [153][163]16)"LEN IS NOT (null). (null)O PUT AN
520 PRINTTAB(16)"[216] WHERE [195] CROSSES [208].
530 X[178]3:Y[178]5:[141]160
540 [153][163]16)"(null)IKEWISE, CHR$ IS NOT (null).
550 X=8:Y=9:GOSUB160
560 PRINTTAB(16)"[203] IS NOT [210] OR [212].
570 X[178]5:Y[178]13:[141]160:X[178]7:Y[178]13:[141]160
580 [153][163]16)"PEEK IS NOT CHR$.
590 X=14:Y=4:GOSUB160
600 PRINTTAB(16)"[193]ND [201] IS NOT [196].
610 X[178]16:Y[178]6:[141]160
620 [141]110:[151]214,12:[153]
630 [153][163]16)"(null)HE NEXT CLUE SAYS (null)
640 PRINTTAB(16)"IS [195]. [208]UT A DOT WHERE
650 [153][163]16)"(null) CROSSES LEN AND FILL
660 PRINTTAB(16)"THE REST OF THAT ROW
670 [153][163]16)"AND COLUMN WITH (null)S.
680 X=8:Y=5:W=3:V=8:GOSUB170
690 PRINTTAB(16)"[215]HENEVER YOU PLACE A
700 [153][163]16)"DOT, UPDATE THE ATN(null)(null)(null)VAL(null)
710 PRINTTAB(16)"[199][210][201][196].
720 X[178]31:Y[178]5:B$[178]"(null)":[141]222
740 [141]110:[151]214,12:[153]
750 [153][163]16)"ATNLSO, WHEN YOU PLACE
760 PRINTTAB(16)"A DOT, YOU CAN ASSUME
770 [153][163]16)"THAT THE REST OF THE
780 PRINTTAB(16)"INFORMATION FOR BOTH
790 [153][163]16)"LETTERS MATCHES.
810 PRINTTAB(16)"[211]O, [195]'S BOXES SHOULD
820 [153][163]16)"LOOK LIKE (null)'S; AN (null)
830 PRINTTAB(16)"FOR ONE IS MATCHED BY
840 [153][163]16)"AN (null) IN THE OTHER.
850 GOSUB230
860 GOSUB110:POKE214,12:PRINT
870 PRINTTAB(16)"[195]'S BOXES GET TWO [216]S.
880 X[178]5:Y[178]5:[141]160
890 X[178]7:Y[178]5:[141]160
900 [153][163]16)"ATNND (null)'S BOXES GET
910 PRINTTAB(16)"ONE.
920 X[178]3:Y[178]13:[141]160
930 [153][163]16)"ATNND FINALLY, LEN-CHR$
940 PRINTTAB(16)"GETS AN [216] TO MATCH
950 [153][163]16)"THE (null) AT CHR$-(null).
960 X=14:Y=5:GOSUB160
970 GOSUB110:POKE214,12:PRINT
980 PRINTTAB(16)"[207]KAY, THE NEXT CLUE
990 [153][163]16)"SAYS THAT RIGHT$ IS (null). (null)O
1000 PRINTTAB(16)"PLACE THE DOT AND ITS
1010 [153][163]16)"(null)S.
1020 X=8:Y=11:W=8:V=8:GOSUB170
1030 PRINTTAB(16)"[196]ON'T FORGET TO ADD
1040 [153][163]16)"TO THE ATN(null)(null)(null)VAL(null) CHR$(null)RIGHT$STR$.
1050 X=27:Y=5:B$="[201]":GOSUB222
1070 GOSUB110:POKE214,12:PRINT
1080 PRINTTAB(16)"[215]HENEVER YOU HAVE TWO
1090 [153][163]16)"DOTS IN THE SAME ROW
1100 PRINTTAB(16)"OR COLUMN, THERE IS
1110 [153][163]16)"ANOTHER DOT TO PLACE.
1120 PRINTTAB(16)"[201]N THIS CASE, [195]-[201]
1130 [153][163]16)"GETS A DOT.
1140 X=16:Y=5:W=3:V=13:GOSUB170
1150 PRINTTAB(16)"[205]AKE [201]'S BOXES THE
1160 [153][163]16)"SAME AS LEN'S.
1170 X=3:Y=11:GOSUB160
1180 X=5:Y=11:GOSUB160
1190 X=7:Y=11:GOSUB160
1200 GOSUB110:POKE214,12:PRINT
1210 PRINTTAB(16)"[206]OW LET'S SAY THAT [194]
1220 [153][163]16)"IS (null), ACCORDING TO
1230 PRINTTAB(16)"THE NEXT CLUE. [208]UT A
1240 [153][163]16)"DOT AT PEEK-(null).
1250 X=6:Y=4:W=3:V=3:GOSUB170
1260 PRINTTAB(16)"[205]AKE [194]'S BOXES AND
1270 [153][163]16)"(null)'S THE SAME AND
1280 PRINTTAB(16)"UPDATE THE [193][206][211][215][197][210]
1290 [153][163]16)"CHR$(null)RIGHT$STR$.
1300 X=6:Y=9:GOSUB160
1310 X=6:Y=11:GOSUB160
1312 X=6:Y=13:GOSUB160
1320 X=35:Y=3:B$="[211]":GOSUB222
1330 GOSUB110:POKE214,12:PRINT
1340 PRINTTAB(16)"[206]OTICE THAT THERE ARE
1350 [153][163]16)"THREE ROWS THAT HAVE
1360 PRINTTAB(16)"FOUR [216]S IN THEM. [212]HE
1370 [153][163]16)"EMPTY BOXES (null)(null)(null)(null) HAVE
1380 PRINTTAB(16)"DOTS IN THEM. [208]LACE
1390 [153][163]16)"DOTS AT LEN-(null), RIGHT$-(null) AND
1392 PRINTTAB(16)"[203]-[209].
1400 X[178]4:Y[178]5:W[178]3:V[178]3:[141]170
1410 X[178]4:Y[178]11:W[178]8:V[178]3:[141]170
1412 X[178]4:Y[178]13:W[178]13:V[178]3:[141]170
1414 [141]110:[151]214,13:[153]
1420 [153][163]16)"(null)PDATE THE ATN(null)(null)(null)VAL(null)
1430 PRINTTAB(16)"[199][210][201][196] AND CONTINUE
1432 [153][163]16)"WITH THE REST OF
1434 PRINTTAB(16)"THE CLUES.
1440 X[178]35:Y[178]5:B$[178]"(null)":[141]222
1510 [141]110:[151]214,13:[153]
1520 [153][163]16)"(null)HINGS TO REMEMBER:
1521 PRINTTAB(16)"(1) [215]HENEVER YOU
1522 [153][163]16)"(null)(null)(null)(null) A FACT, PLACE A
1523 PRINTTAB(16)"DOT AND FILL THE ROW
1524 [153][163]16)"AND COLUMN (IN THAT
1525 PRINTTAB(16)"SECTION) WITH [216]S.
1526 [141]230
1528 [141]110:[151]214,13:[153]
1530 [153][163]16)"(2) (null)HEN THERE'S
1540 PRINTTAB(16)"ONLY ONE BOX THAT'S
1550 [153][163]16)"NOT AN (null), THEN THAT
1560 PRINTTAB(16)"BOX GETS A DOT.
1570 [141]230
1580 [141]110:[151]214,13:[153]
1590 [153][163]16)"(3) (null)HENEVER A DOT
1600 PRINTTAB(16)"IS PLACED, THE TWO
1610 [153][163]16)"LETTERS' ROWS AND
1620 PRINTTAB(16)"COLUMNS SHOULD BE
1630 [153][163]16)"MADE TO MATCH, (null) FOR
1640 PRINTTAB(16)"[216], DOT FOR DOT.
1650 [141]230
1660 [141]110:[151]214,13:[153]
1670 [153][163]16)"(4) (null)EEP THE ATN(null)(null)(null)VAL(null)
1680 PRINTTAB(16)"[199][210][201][196] UPDATED EVERY
1690 [153][163]16)"TIME YOU PLACE A DOT.
1700 PRINTTAB(16)"[207]FTEN THE [199][210][201][196] WILL
1710 [153][163]16)"HELP MORE THAN THE
1720 PRINTTAB(16)"CHART WILL.
1730 [141]230
1740 [141]110:[151]214,13:[153]
1750 [153][163]16)"(5) RIGHT$F ONE OF THE
1760 PRINTTAB(16)"FIELDS IS SEQUENTIAL,
1770 [153][163]16)"OR ORDERED, USE THAT
1780 PRINTTAB(16)"FIELD AS THE FIRST
1790 [153][163]16)"COLUMN; AS COLUMN
1800 PRINTTAB(16)"[193]-[197] WAS IN THE DEMO.
1810 [141]230
1820 [141]110:[151]214,13:[153]
1830 [153][163]16)"(null)RESS STR$ TO SEE THE
1840 PRINTTAB(16)"DEMO AGAIN.
1850 [153][163]16)"(null)RESS ANY OTHER KEY
1860 PRINTTAB(16)"FOR [204][207][193][196][211][212][193][210].
1870 [151]198,0
1880 [161]A$:[139]A$[178]""[167]1880
1890 [139]A$[178]"D"[176]A$[178]"STR$"[167]280
1900 [137]40000
9999 [137]9999
10000 [159]15,8,15,"S0:LOGIC":[160]15:[148]"LOGIC",8:[128]
40000 [153]"LOAD":[151]53281,0:[151]53280,0
40002 A$[178]"HELLO CONNECT":[129]I[178]8[164]9:[160]2:[159]2,I,2:[160]2:[139]ST[167]40020
40010 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40030
40020 [130]:[153]"LOAD":[151]2048,0:[151]44,8:[151]53272,23:[151]186,8:[128]
40030 [151]646,[194](53281):[153]"LOADLOAD"[199](34)A$[199](34)","I
40040 [153]"RUN":[151]44,8:[151]2048,0:[151]631,13:[151]632,13:[151]198,2:[128]