0 CLR
100 REM COPYRIGHT 1993 COMPUTE PUBLICATIONS INTL LTD - ALL RIGHTS RESERVED
110 REM
135 GOTO2670
140 IF L$="AB" AND AT>0 GOTO465
145 IF L$="BC" AND BT>0 GOTO465
150 IF L$="CD" AND CT>0 GOTO465
155 IF L$="DE" AND DT>0 GOTO465
160 IF L$="AF" AND AL>0 GOTO465
165 IF L$="FK" AND EL>0 GOTO465
170 IF L$="KP" AND IL>0 GOTO465
175 IF L$="PU" AND ML>0 GOTO465
180 IF L$="EJ" AND DR>0 GOTO465
185 IF L$="JO" AND HR>0 GOTO465
190 IF L$="OT" AND LR>0 GOTO465
195 IF L$="TY" AND PR>0 GOTO465
200 IF L$="UV" AND MB>0 GOTO465
205 IF L$="VW" AND NB>0 GOTO465
210 IF L$="WX" AND OB>0 GOTO465
215 IF L$="XY" AND PB>0 GOTO465
220 IF L$="FG" AND AB>0 GOTO465
225 IF L$="FG" AND ET>0 GOTO465
230 IF L$="GH" AND BB>0 GOTO465
235 IF L$="GH" AND FT>0 GOTO465
240 IF L$="HI" AND CB>0 GOTO465
245 IF L$="HI" AND GT>0 GOTO465
250 IF L$="IJ" AND DB>0 GOTO465
255 IF L$="IJ" AND HT>0 GOTO465
260 IF L$="KL" AND EB>0 GOTO465
265 IF L$="KL" AND IT>0 GOTO465
270 IF L$="LM" AND FB>0 GOTO465
275 IF L$="LM" AND JT>0 GOTO465
280 IF L$="MN" AND GB>0 GOTO465
285 IF L$="MN" AND KT>0 GOTO465
290 IF L$="NO" AND HB>0 GOTO465
295 IF L$="NO" AND LT>0 GOTO465
300 IF L$="PQ" AND IB>0 GOTO465
305 IF L$="PQ" AND MT>0 GOTO465
310 IF L$="QR" AND JB>0 GOTO465
315 IF L$="QR" AND NT>0 GOTO465
320 IF L$="RS" AND KB>0 GOTO465
325 IF L$="RS" AND OT>0 GOTO465
330 IF L$="ST" AND LB>0 GOTO465
335 IF L$="ST" AND PT>0 GOTO465
340 IF L$="BG" AND AR>0 GOTO465
345 IF L$="BG" AND BL>0 GOTO465
350 IF L$="GL" AND ER>0 GOTO465
355 IF L$="GL" AND FL>0 GOTO465
360 IF L$="LQ" AND IR>0 GOTO465
365 IF L$="LQ" AND JL>0 GOTO465
370 IF L$="QV" AND MR>0 GOTO465
375 IF L$="QV" AND NL>0 GOTO465
380 IF L$="CH" AND BR>0 GOTO465
385 IF L$="CH" AND CL>0 GOTO465
390 IF L$="HM" AND FR>0 GOTO465
395 IF L$="HM" AND GL>0 GOTO465
400 IF L$="MR" AND JR>0 GOTO465
405 IF L$="MR" AND KL>0 GOTO465
410 IF L$="RW" AND NR>0 GOTO465
415 IF L$="RW" AND OL>0 GOTO465
420 IF L$="DI" AND CR>0 GOTO465
425 IF L$="DI" AND DL>0 GOTO465
430 IF L$="IN" AND GR>0 GOTO465
435 IF L$="IN" AND HL>0 GOTO465
440 IF L$="NS" AND KR>0 GOTO465
445 IF L$="NS" AND LL>0 GOTO465
450 IF L$="SX" AND OX>0 GOTO465
455 IF L$="SX" AND PL>0 GOTO465
460 RETURN
465 POKE 53270,PEEK(53270)OR16:PRINT""
470 GOSUB3300
475 PRINT"SORRY, THAT LINE HAS ALREADY BEEN TAKEN"
480 POKE 53270,PEEK(53270)OR16:PRINT""
485 PRINT"PRESS THE SPACE BAR WHEN YOU ARE READY."
490 POKE 53270,PEEK(53270)AND 239
495 GET A$: IF A$<> CHR$(32) GOTO495
500 T=2: GOSUB3300: GOTO3270
505 IF L$= "AB" GOTO1870
510 IF L$= "BC" GOTO1870
515 IF L$= "CD" GOTO1870
520 IF L$= "DE" GOTO1870
525 IF L$= "FG" GOTO1870
530 IF L$= "GH" GOTO1870
535 IF L$= "HI" GOTO1870
540 IF L$= "IJ" GOTO1870
545 IF L$= "KL" GOTO1870
550 IF L$= "LM" GOTO1870
555 IF L$= "MN" GOTO1870
560 IF L$= "NO" GOTO1870
565 IF L$= "PQ" GOTO1870
570 IF L$= "QR" GOTO1870
575 IF L$= "RS" GOTO1870
580 IF L$= "ST" GOTO1870
585 IF L$= "UV" GOTO1870
590 IF L$= "VW" GOTO1870
595 IF L$= "WX" GOTO1870
600 IF L$= "XY" GOTO1870
605 IF L$= "AF" GOTO1770
610 IF L$= "FK" GOTO1770
615 IF L$= "KP" GOTO1770
620 IF L$= "PU" GOTO1770
625 IF L$= "BG" GOTO1770
630 IF L$= "GL" GOTO1770
635 IF L$= "LQ" GOTO1770
640 IF L$= "QV" GOTO1770
645 IF L$= "CH" GOTO1770
650 IF L$= "HM" GOTO1770
655 IF L$= "MR" GOTO1770
660 IF L$= "RW" GOTO1770
665 IF L$= "DI" GOTO1770
670 IF L$= "IN" GOTO1770
675 IF L$= "NS" GOTO1770
680 IF L$= "SX" GOTO1770
685 IF L$= "EJ" GOTO1770
690 IF L$= "JO" GOTO1770
695 IF L$= "OT" GOTO1770
700 IF L$= "TY" GOTO1770
705 GOSUB3300
710 PRINT"BE CAREFUL, THAT IS NOT A CORRECT LINE.":PRINT
715 POKE 52370,PEEK(53270)OR16:PRINT""
720 PRINT"PRESS THE SPACE BAR WHEN YOU ARE READY."
725 POKE 52370,PEEK(53270)AND239
730 GET A$: IF A$<> CHR$(32)  GOTO730
735 GOSUB3300: T=2
740 GOTO 3265
745 IF(AT)+(AB)+(AL)+(AR)=3 THEN S=1: GOTO2410
750 IF(BT)+(BB)+(BL)+(BR)=3 THEN S=1: GOTO2530
755 IF(HT)+(HB)+(HL)+(HR)=3 THEN S=1: GOTO2590
760 IF(KT)+(KB)+(KL)+(KR)=3 THEN S=1: GOTO2570
765 IF(MT)+(MB)+(ML)+(MR)=3 THEN S=1: GOTO2370
770 IF(CT)+(CB)+(CL)+(CR)=3 THEN S=1: GOTO2470
775 IF(OT)+(OB)+(OL)+(OX)=3 THEN S=1: GOTO2610
780 IF(JT)+(JB)+(JL)+(JR)=3 THEN S=1: GOTO2550
785 IF(LT)+(LB)+(LL)+(LR)=3 THEN S=1: GOTO2510
790 IF(PT)+(PB)+(PL)+(PR)=3 THEN S=1: GOTO2650
795 IF(GT)+(GB)+(GL)+(GR)=3 THEN S=1: GOTO2390
800 IF(ET)+(EB)+(EL)+(ER)=3 THEN S=1: GOTO2430
805 IF(NT)+(NB)+(NL)+(NR)=3 THEN S=1: GOTO 2350
810 IF(DT)+(DB)+(DL)+(DR)=3 THEN S=1: GOTO2490
815 IF(IT)+(IB)+(IL)+(IR)=3 THEN S=1: GOTO2630
820 IF(FT)+(FB)+(FL)+(FR)=3 THEN S=1: GOTO2450
825 GOSUB3300
830 RETURN
835 IF(FT+FB+FL+FR)<>1  GOTO880
840 IF FT=1 OR(BT+BB+BL+BR)>1 GOTO850
845 L$="GH": GOTO1895
850 IF FR=1 OR(GT+GB+GL+GR)>1 GOTO860
855 L$="HM": GOTO1815
860 IF FB=1 OR (JT+JB+JL+JR)>1 GOTO870
865 L$="IN": GOTO1835
870 IF FL=1 OR (ET+EB+EL+ER)>1 GOTO880
875 L$="GL": GOTO1795
880 IF(GT+GB+GL+GR)<>1  GOTO925
885 IF GT=1 OR (CT+CB+CL+CR)>1 GOTO895
890 L$="HI": GOTO1900
895 IF GB=1 OR (KT+KB+KL+KR)>1 GOTO905
900 L$="MN": GOTO1920
905 IF GL=1 OR (FT+FB+FL+FR)>1 GOTO915
910 L$="HM": GOTO1815
915 IF GR=1 OR (HT+HB+HL+HR)>1 GOTO925
920 L$="IN": GOTO1835
925 IF(JT+JB+JL+JR)<>1  GOTO970
930 IF JT=1 OR (FT+FB+FL+FR)>1 GOTO940
935 L$="LM": GOTO1915
940 IF JR=1 OR (KT+KB+KL+KR)>1 GOTO950
945 L$="MR": GOTO1820
950 IF JB=1 OR (NT+NB+NL+NR)>1 GOTO960
955 L$="QR": GOTO1935
960 IF JL=1 OR (IT+IB+IL+IR)>1 GOTO970
965 L$="LQ": GOTO1800
970 IF(KT+KB+KL+KR)<>1  GOTO1015
975 IF KT=1 OR (GT+GB+GL+GR)>1 GOTO985
980 L$="MN": GOTO1920
985 IF KR=1 OR (LT+LB+LL+LR)>1 GOTO995
990 L$="NS": GOTO1840
995 IF KB=1 OR (OT+OB+OL+OX)>1 GOTO1005
1000 L$="RS": GOTO1940
1005 IF KL=1 OR (JT+JB+JL+JR)>1 GOTO1015
1010 L$="MR": GOTO1820
1015 IF(DT+DB+DL+DR)<>1  GOTO1060
1020 IF DT=1   GOTO1030
1025 L$="DE": GOTO1885
1030 IF DR=1  GOTO1040
1035 L$="EJ": GOTO1850
1040 IF DB=1 OR (HT+HB+HL+HR)>1 GOTO1050
1045 L$="IJ": GOTO1905
1050 IF DL=1 OR (CT+CB+CL+CR)>1 GOTO1060
1055 L$="DI": GOTO1830
1060 IF(PT+PB+PL+PR)<>1  GOTO1105
1065 IF PT=1 OR(LT+LB+LL+LR)>1 GOTO1075
1070 L$="ST": GOTO1945
1075 IF PR=1  GOTO1085
1080 L$="TY": GOTO1865
1085 IF PB=1  GOTO1095
1090 L$="XY": GOTO1965
1095 IF PL=1 OR (OT+OB+OL+OR)>1 GOTO1095
1100 L$="SX": GOTO1845
1105 IF(AT+AB+AL+AR)<>1  GOTO1150
1110 IF AT=1  GOTO1120
1115 L$="AB": GOTO1870
1120 IF AR=1 OR (BT+BB+BL+BR)>1 GOTO1130
1125 L$="BG": GOTO1790
1130 IF AB=1 OR (ET+EB+EL+ER)>1 GOTO1140
1135 L$="FG": GOTO1890
1140 IF AL=1 THEN  GOTO1150
1145 L$="AF": GOTO 1770
1150 IF(MT+MB+ML+MR)<>1  GOTO1195
1155 IF MT=1 OR (IT+IB+IL+IR)>1 GOTO1165
1160 L$="PQ": GOTO1930
1165 IF MR=1 OR (NT+NB+NL+NR)>1 GOTO1175
1170 L$="QV": GOTO1805
1175 IF MB=1 THEN  GOTO1185
1180 L$="UV": GOTO1950
1185 IF ML=1  GOTO1195
1190 L$="PU": GOTO1785
1195 IF(ET+EB+EL+ER)<>1  GOTO1240
1200 IF ET=1 OR (AT+AB+AL+AR)>1 GOTO1210
1205 L$="FG": GOTO1890
1210 IF ER=1 OR (FT+FB+FL+FR)>1 GOTO1220
1215 L$="GL": GOTO1795
1220 IF EB=1 OR (IT+IB+IL+IR)>1 GOTO1230
1225 L$="KL": GOTO1910
1230 IF EL=1  GOTO1240
1235 L$="FK": GOTO1775
1240 IF(CT+CB+CL+CR)<>1  GOTO1285
1245 IF CT=1 GOTO1255
1250 L$="CD" : GOTO1880
1255 IF CR=1 OR (DT+DB+DL+DR)>1 GOTO1265
1260 L$="DI": GOTO1830
1265 IF CB=1 OR (GT+GB+GL+GR)>1 GOTO1275
1270 L$="HI": GOTO1900
1275 IF CL=1 OR (BT+BB+BL+BR)>1 GOTO1285
1280 L$="CH": GOTO1810
1285 IF(IT+IB+IL+IR)<>1  GOTO1330
1290 IF IT=1 OR (ET+EB+EL+ER)>1 GOTO1300
1295 L$="KL": GOTO1910
1300 IF IR=1 OR (JT+JB+JL+JR)>1 GOTO1310
1305 L$="LQ": GOTO1800
1310 IF IB=1 OR (MT+MB+ML+MR)>1 GOTO1320
1315 L$="PQ": GOTO1930
1320 IF IL=1  GOTO1330
1325 L$="KP": GOTO1780
1330 IF(HT+HB+HL+HR)<>1  GOTO1375
1335 IF HT=1 OR (DT+DB+DL+DR)>1 GOTO1345
1340 L$="IJ": GOTO1905
1345 IF HR=1  GOTO1355
1350 L$="JO": GOTO1855
1355 IF HB=1 OR (LT+LB+LL+LR)>1 GOTO1365
1360 L$="NO": GOTO1925
1365 IF HL=1 OR (GT+GB+GL+GR)>1 GOTO1375
1370 L$="IN": GOTO1835
1375 IF(LT+LB+LL+LR)<>1  GOTO1420
1380 IF LT=1 OR (HT+HB+HL+HR)>1 GOTO1390
1385 L$="NO": GOTO1925
1390 IF LR=1  GOTO1400
1395 L$="OT": GOTO1860
1400 IF LB=1 OR (PT+PB+PL+PR)>1 GOTO1410
1405 L$="ST": GOTO1945
1410 IF LL=1 OR (KT+KB+KL+KR)>1 GOTO1420
1415 L$="NS": GOTO1840
1420 IF(NT+NB+NL+NR)<>1  GOTO1465
1425 IF NT=1 OR (JT+JB+JL+JR)>1 GOTO1435
1430 L$="QR": GOTO1935
1435 IF NR=1 OR (OT+OB+OL+OX)>1 GOTO1445
1440 L$="RW": GOTO1825
1445 IF NB=1  GOTO1455
1450 L$="VW": GOTO1955
1455 IF NL=1 OR (MT+MB+ML+MR)>1 GOTO1465
1460 L$="QV": GOTO1805
1465 IF(BT+BB+BL+BR)<>1  GOTO1510
1470 IF BT=1  GOTO1480
1475 L$="BC": GOTO1875
1480 IF BR=1 OR (CT+CB+CL+CR)>1 GOTO1490
1485 L$="CH": GOTO1810
1490 IF BB=1 OR (FT+FB+FL+FR)>1 GOTO1500
1495 L$="GH": GOTO1895
1500 IF BL=1 OR (AT+AB+AL+AR)>1 GOTO1510
1505 L$="BG": GOTO1790
1510 IF (JT+JB+JL+JR)<> 1 GOTO 1516
1512 IF FB= 1 OR (FT+FB+FL+FR)> 1 GOTO 1518
1514 L$= "LM": GOTO 4280
1516 IF(OT+OB+OL+OX)<>1 THEN RETURN
1518 IF OT=1 OR (KT+KB+KL+KR)>1 GOTO1525
1520 L$="RS": GOTO1940
1525 IF OX=1 OR (PT+PB+PL+PR)>1 GOTO1535
1530 L$="SX": GOTO1845
1535 IF OB=1  GOTO1545
1540 L$="WX": GOTO1960
1545 IF OL=1 OR (NT+NB+NL+NR)>1 THEN RETURN
1550 GOSUB3300
1555 RETURN
1560 IF(ET+EB+ER+EL)=0 AND (FT+FB+FR+FL)=0 GOTO1795
1565 IF(CT+CB+CR+CL)=0 GOTO1880
1570 IF(KT+KB+KR+KL)=0 AND (LT+LB+LR+LL)=0 GOTO1840
1575 IF(KT+KB+KR+KL)=0 AND (OT+OB+OX+OL)=0 GOTO1940
1580 IF(BT+BB+BR+BL)=0 GOTO1875
1585 IF(MT+MB+MR+ML)=0 AND (NT+NB+NR+NL)=0 GOTO1805
1590 IF(AT+AB+AR+AL)=0 GOTO 1770
1595 IF(HT+HB+HR+HL)=0 AND (LT+LB+LR+LL)=0 GOTO1925
1600 IF(CT+CB+CR+CL)=0 AND (GT+GB+GR+GL)=0 GOTO1900
1605 IF(NT+NB+NR+NL)=0 AND (OT+OB+OX+OL)=0 GOTO1825
1610 IF(BT+BB+BR+BL)=0 AND (FT+FB+FR+FL)=0 GOTO1895
1615 IF(HT+HB+HR+HL)=0 GOTO1855
1620 IF(PT+PB+PR+PL)=0 GOTO1965
1625 IF(IT+IB+IR+IL)=0 GOTO1800
1630 IF(AT+AB+AR+AL)=0 GOTO1770
1635 IF(NT+NB+NR+NL)=0 GOTO1955
1640 IF(DT+DB+DR+DL)=0 GOTO1850
1645 IF(BT+BB+BR+BL)=0 AND (AT+AB+AR+AL)=0 GOTO1810
1650 IF(JT+JB+JR+JL)=0 AND (NT+NB+NR+NL)=0 GOTO1935
1655 IF(AT+AB+AR+AL)=0 GOTO1790
1660 IF(ET+EB+ER+EL)=0 GOTO1775
1665 IF(OT+OB+OX+OL)=0 GOTO1960
1670 IF(LT+LB+LR+LL)=0 AND (PT+PB+PR+PL)=0 GOTO1945
1675 IF(IT+IB+IR+IL)=0 GOTO1780
1680 IF(DT+DB+DR+DL)=0 GOTO1885
1685 IF(FT+FB+FR+FL)=0 AND (JT+JB+JR+JL)=0 GOTO1915
1690 IF(JT+JB+JR+JL)=0 AND (NT+NB+NR+NL)=0 GOTO1930
1695 IF(CT+CB+CR+CL)=0 AND (DT+DB+DR+DL)=0 GOTO1830
1700 IF(AT+AB+AR+AL)=0 AND (ET+EB+ER+EL)=0 GOTO1890
1705 IF(MT+MB+MR+ML)=0 GOTO1950
1710 IF(DT+DB+DR+DL)=0 AND (HT+HB+HR+HL)=0 GOTO1905
1715 IF(FT+FB+FR+FL)=0 AND (GT+GB+GR+GL)=0 GOTO1815
1720 IF(ET+EB+ER+EL)=0 AND (IT+IB+IR+IL)=0 GOTO1910
1725 IF(MT+MB+MR+ML)=0 GOTO1785
1730 IF(JT+JB+JR+JL)=0 AND (KT+KB+KR+KL)=0 GOTO1820
1735 IF(LT+LB+LR+LL)=0 GOTO1860
1740 IF(GT+GB+GR+GL)=0 GOTO1920
1745 IF(GT+GB+GR+GL)=0 AND (HT+HB+HR+HL)=0 GOTO1835
1750 IF(OT+OB+OX+OL)=0 AND (PT+PB+PR+PL)=0 GOTO1845
1755 IF(PT+PB+PR+PL)=0 GOTO1865
1760 GOSUB3300
1765 RETURN
1770 IF L$="AF" THEN AL=1:X=6:Y=2:D=1
1775 IF L$="FK" THEN EL=1:X=6:Y=6:D=1
1780 IF L$="KP" THEN IL=1:X=6:Y=10:D=1
1785 IF L$="PU" THEN ML=1:X=6:Y=14:D=1
1790 IF L$="BG" THEN AR=1:BL=1:X=12:Y=2:D=1
1795 IF L$="GL" THEN ER=1:FL=1:X=12:Y=6:D=1
1800 IF L$="LQ" THEN IR=1:JL=1:X=12:Y=10:D=1
1805 IF L$="QV" THEN MR=1:NL=1:X=12:Y=14:D=1
1810 IF L$="CH" THEN BR=1:CL=1:X=18:Y=02:D=1
1815 IF L$="HM" THEN FR=1:GL=1:X=18:Y=06:D=1
1820 IF L$="MR" THEN JR=1:KL=1:X=18:Y=10:D=1
1825 IF L$="RW" THEN NR=1:OL=1:X=18:Y=14:D=1
1830 IF L$="DI" THEN CR=1:DL=1:X=24:Y=02:D=1
1835 IF L$="IN" THEN GR=1:HL=1:X=24:Y=06:D=1
1840 IF L$="NS" THEN KR=1:LL=1:X=24:Y=10:D=1
1845 IF L$="SX" THEN OX=1:PL=1:X=24:Y=14:D=1
1850 IF L$="EJ" THEN DR=1:X=30:Y=02:D=1
1855 IF L$="JO" THEN HR=1:X=30:Y=06:D=1
1860 IF L$="OT" THEN LR=1:X=30:Y=10:D=1
1865 IF L$="TY" THEN PR=1:X=30:Y=14:D=1
1870 IF L$= "AB" THEN AT=1:X=7:Y=1:D=2
1875 IF L$="BC" THEN BT=1:X=13:Y=1:D=2
1880 IF L$="CD" THEN CT=1:X=19:Y=1:D=2
1885 IF L$="DE" THEN DT=1:X=25:Y=1:D=2
1890 IF L$="FG" THEN AB=1:ET=1:X=7:Y=5:D=2
1895 IF L$="GH" THEN BB=1:FT=1:X=13:Y=5:D=2
1900 IF L$="HI" THEN CB=1:GT=1:X=19:Y=5:D=2
1905 IF L$="IJ" THEN DB=1:HT=1:X=25:Y=5:D=2
1910 IF L$="KL" THEN EB=1:IT=1:X=07:Y=9:D=2
1915 IF L$="LM" THEN FB=1:JT=1:X=13:Y=9:D=2
1920 IF L$="MN" THEN GB=1:KT=1:X=19:Y=9:D=2
1925 IF L$="NO" THEN HB=1:LT=1:X=25:Y=9:D=2
1930 IF L$="PQ" THEN IB=1:MT=1:X=07:Y=13:D=2
1935 IF L$="QR" THEN JB=1:NT=1:X=13:Y=13:D=2
1940 IF L$="RS" THEN KB=1:OT=1:X=19:Y=13:D=2
1945 IF L$="ST" THEN LB=1:PT=1:X=25:Y=13:D=2
1950 IF L$="UV" THEN MB=1:X=7:Y=17:D=2
1955 IF L$="VW" THEN NB=1:X=13:Y=17:D=2
1960 IF L$="WX" THEN OB=1:X=19:Y=17:D=2
1965 IF L$="XY" THEN PB=1:X=25:Y=17:D=2
1970 S=1: POKE781,0:POKE782,0:POKE783,PEEK(783)AND254:SYS65520
1975 FOR I=1TOY: PRINT:NEXT
1980 IF D=2  GOTO1995
1985 FORQ= 1TO3: PRINT TAB(X);"!":NEXT
1990 GOTO2000
1995 PRINT TAB(X);"-----"
2000 F=0: J=0: M=0: GOTO2010
2005 F=10: J=10: M=10
2010 IF A1=1 OR (AT+AB+AR+AL)<>4 GOTO2020
2015 A1=1: X=08: Y=03: J= 1: GOTO2180
2020 IF B1=1 OR (BT+BB+BR+BL)<>4  GOTO2030
2025 B1=1: X=14: Y=03: J= 1: GOTO2180
2030 IF C1=1 OR (CT+CB+CR+CL)<>4  GOTO2040
2035 C1=1: X=20: Y=03: J= 1: GOTO2180
2040 IF D1=1 OR (DT+DB+DR+DL)<>4  GOTO2050
2045 D1=1: X=26: Y=03: J= 1: GOTO2180
2050 IF E1=1 OR (ET+EB+ER+EL)<>4  GOTO2060
2055 E1=1: X=08: Y=07: J= 1: GOTO2180
2060 IF F1=1 OR (FT+FB+FR+FL)<>4  GOTO2070
2065 F1=1: X=14: Y=07: J= 1: GOTO2180
2070 IF G1=1 OR (GT+GB+GR+GL)<>4  GOTO2080
2075 G1=1: X=20: Y=07: J= 1: GOTO2180
2080 IF H1=1 OR (HT+HB+HR+HL)<>4  GOTO2090
2085 H1=1: X=26: Y=07: J= 1: GOTO2180
2090 IF I1=1 OR (IT+IB+IR+IL)<>4  GOTO2100
2095 I1=1: X=08: Y=11: J= 1: GOTO2180
2100 IF J1=1 OR (JT+JB+JR+JL)<>4  GOTO2110
2105 J1=1: X=14: Y=11: J= 1: GOTO2180
2110 IF K1=1 OR (KT+KB+KR+KL)<>4  GOTO2120
2115 K1=1: X=20: Y=11: J= 1: GOTO2180
2120 IF L1=1 OR (LT+LB+LR+LL)<>4  GOTO2130
2125 L1=1: X=26: Y=11: J= 1: GOTO2180
2130 IF M1=1 OR (MT+MB+MR+ML)<>4  GOTO2140
2135 M1=1: X=08: Y=15: J= 1: GOTO2180
2140 IF N1=1 OR (NT+NB+NR+NL)<>4  GOTO2150
2145 N1=1: X=14: Y=15: J= 1: GOTO2180
2150 IF O1=1 OR (OT+OB+OX+OL)<>4  GOTO2160
2155 O1=1: X=20: Y=15: J= 1: GOTO2180
2160 IF P1=1 OR (PT+PB+PR+PL)<>4 GOTO2170
2165 P1=1: X=26: Y=15: J= 1
2170 IF J= 0 THEN RETURN
2175 IF M=10 THEN GOTO2230
2180 IF T=1  GOTO2205
2185 POKE 53270,PEEK(53270)OR16:PRINT""
2190 POKE 781,Y:POKE782,X:POKE783,PEEK(783)AND254:SYS65520
2195 PRINT "YOU": H=H+1
2200 POKE 53270,PEEK(53270)OR16: GOTO2220
2205 POKE 53270,PEEK(53270)OR16:PRINT""
2210 POKE 781,Y:POKE782,X:POKE783,PEEK(783)AND254:SYS65520
2215 PRINT "M E" : C=C+1
2220 POKE 53270,PEEK(53270)OR 16: PRINT""
2225 IF F=0 GOTO2005
2230 GOSUB3300
2235 FOR I=1TO 1000: NEXT I
2240 F=0: J=0: M=0
2245 IF C+ H < 16 THEN RETURN
2250 PRINT"[147]": POKE 53280,15: POKE 53281,15
2255 PRINT"[147]": FORI=1TO3: PRINT:NEXT
2260 POKE 53270,PEEK(53270)OR16:PRINT"[144]"
2265 PRINT" C O N N E C T   T H E   L E T T E R S":PRINT
2270 POKE 53270,PEEK(53270)OR16:PRINT""
2275 POKE 781,10:POKE782,0:POKE783,PEEK(783)AND254:SYS65520: PRINT
2280 IF C> H THEN PRINT TAB(11);" I AM THE WINNER" : GOTO2295
2285 IF C< H THEN PRINT TAB(10);"YOU ARE THE WINNER": GOTO2295
2290 PRINT TAB(10); "WE HAVE A TIE !"
2295 PRINT: A=9: B=9
2300 A$="SQUARES": IF H=1 THEN A$="SQUARE"
2305 IF C<10 THEN B=10
2310 IF H<10 THEN A=10
2315 PRINT TAB(A);"YOU HAVE ";H;A$
2320 A$= "SQUARES": IF C= 1 THEN A$= "SQUARE"
2325 PRINT TAB(B);" I HAVE  ";C;A$
2330 PRINT
2335 PRINT "     SHALL WE PLAY AGIN?  (Y/N)": INPUT I$
2340 IF I$= "Y" THEN RUN 2910
2345 END
2350 IF NL=0 THEN L$="QV": RETURN
2355 IF NT=0 THEN L$="QR": RETURN
2360 IF NR=0 THEN L$="RW": RETURN
2365 IF NB=0 THEN L$="VW": RETURN
2370 IF MR=0 THEN L$="QV": RETURN
2375 IF MB=0 THEN L$="UV": RETURN
2380 IF MT=0 THEN L$="PQ": RETURN
2385 IF ML=0 THEN L$="PU": RETURN
2390 IF GT=0 THEN L$="HI": RETURN
2395 IF GL=0 THEN L$="HM": RETURN
2400 IF GB=0 THEN L$="MN": RETURN
2405 IF GR=0 THEN L$="IN": RETURN
2410 IF AR=0 THEN L$="BG": RETURN
2415 IF AT=0 THEN L$="AB": RETURN
2420 IF AL=0 THEN L$="AF": RETURN
2425 IF AB=O THEN L$="FG": RETURN
2430 IF EL=0 THEN L$="FK": RETURN
2435 IF EB=0 THEN L$="KL": RETURN
2440 IF ER=0 THEN L$="GL": RETURN
2445 IF ET=0 THEN L$="FG": RETURN
2450 IF FT=0 THEN L$="GH": RETURN
2455 IF FR=0 THEN L$="HM": RETURN
2460 IF FB=0 THEN L$="LM": RETURN
2465 IF FL=0 THEN L$="GL": RETURN
2470 IF CT=0 THEN L$="CD": RETURN
2475 IF CB=0 THEN L$="HI": RETURN
2480 IF CR=0 THEN L$="DI": RETURN
2485 IF CL=0 THEN L$="CH": RETURN
2490 IF DL=0 THEN L$="DI": RETURN
2495 IF DB=0 THEN L$="IJ": RETURN
2500 IF DT=0 THEN L$="DE": RETURN
2505 IF DR=0 THEN L$="EJ": RETURN
2510 IF LR=0 THEN L$="OT": RETURN
2515 IF LL=0 THEN L$="NS": RETURN
2520 IF LT=0 THEN L$="NO": RETURN
2525 IF LB=0 THEN L$="ST": RETURN
2530 IF BL=0 THEN L$="BG": RETURN
2535 IF BR=0 THEN L$="CH": RETURN
2540 IF BT=0 THEN L$="BC": RETURN
2545 IF BB=0 THEN L$="GH": RETURN
2550 IF JL=0 THEN L$="LQ": RETURN
2555 IF JT=0 THEN L$="LM": RETURN
2560 IF JB=0 THEN L$="QR": RETURN
2565 IF JR=0 THEN L$="MR": RETURN
2570 IF KB=0 THEN L$="RS": RETURN
2575 IF KR=0 THEN L$="NS": RETURN
2580 IF KT=0 THEN L$="MN": RETURN
2585 IF KL=0 THEN L$="MR": RETURN
2590 IF HT=0 THEN L$="IJ": RETURN
2595 IF HB=0 THEN L$="NO": RETURN
2600 IF HR=0 THEN L$="JO": RETURN
2605 IF HL=0 THEN L$="IN": RETURN
2610 IF OX=0 THEN L$="SX": RETURN
2615 IF OL=0 THEN L$="RW": RETURN
2620 IF OT=0 THEN L$="RS": RETURN
2625 IF OB=0 THEN L$="WX": RETURN
2630 IF IT=0 THEN L$="KL": RETURN
2635 IF IL=0 THEN L$="KP": RETURN
2640 IF IR=0 THEN L$="LQ": RETURN
2645 IF IB=0 THEN L$="PQ": RETURN
2650 IF PB=0 THEN L$="XY": RETURN
2655 IF PT=0 THEN L$="ST": RETURN
2660 IF PL=0 THEN L$="SX": RETURN
2665 IF PR=0 THEN L$="TY": RETURN
2670 POKE 53280,15: POKE 53281,15
2675 PRINT"[147]": FORI=1TO3: PRINT:NEXT
2680 POKE 53270,PEEK(53270)OR16:PRINT"[144]"
2685 PRINT" C O N N E C T   T H E   L E T T E R S":PRINT
2690 POKE 53270,PEEK(53270)OR16:PRINT""
2695 PRINT TAB(8);"WRITTEN BY DICK SANDS"
2700 PRINT
2705 PRINT TAB(9); " ATLANTA, GEORGIA "
2710 PRINT: PRINT
2715 FOR I= 1 TO 1000: NEXT
2720 PRINT TAB(15);"A     B"
2725 PRINT:PRINT:PRINT
2730 PRINT TAB(15);"C     D"
2735 FOR I= 1 TO 1000: NEXT
2740 POKE 53270,PEEK(53270)OR16:PRINT""
2745 PRINT"[145][145][145][145][145][145][145]":PRINT TAB(16);"-----"
2750 FOR I= 1 TO 1000: NEXT
2755 FOR I=1 TO 3: PRINT TAB(21);"!":NEXT
2760 FOR I= 1 TO 1000: NEXT
2765 A=20
2770 FOR I= 1TO5:PRINT TAB(A);"-";
2775 PRINT"[145]": A=A-1
2780 NEXT I
2785 PRINT"[145][157]":
2790 FOR I= 1 TO 1000: NEXT
2795 PRINT"[145][145][145]"
2800 FOR I= 1TO3: PRINT TAB(15);"!"
2805 NEXT I
2810 FOR I= 1TO6: PRINT
2815 FOR I= 1 TO 1000: NEXT
2820 POKE53270,PEEK(53270)OR16:PRINT""
2825 PRINT: PRINT:PRINT"DO YOU WANT TO SEE THE RULES? (Y/N)"
2830 POKE53270,PEEK(53270)AND 239: GET Q$: IF Q$="" GOTO2830
2835 IF Q$="Y"  GOTO2845
2840 JX=2.1:GOTO2980
2845 PRINT"[147]": POKE 53280,0:POKE 53281,0
2850 PRINT" C O N N E C T   T H E   L E T T E R S"
2855 PRINT:PRINT"THIS GAME IS FUN AND DECEPTIVELY[160]SIMPLE."
2860 PRINT:PRINT"THE OBJECTIVE OF THE GAME IS TO DRAW THEFOURTH SIDE OF A ";
2865 PRINT"SQUARE AND THUS, TO    'OWN' THE SQUARE.  THE MORE SQUARES YOU ";
2870 PRINT"'OWN,' THE GREATER YOUR SCORE."
2875 PRINT:PRINT"WHEN IT IS YOUR TURN, TELL THE COMPUTER WHICH LINE (HORIZON";
2880 PRINT"TAL OR VERTICAL), YOUWISH TO DRAW.  DECIDE WHICH TWO LETTERS ARE";
2885 PRINT" AT THE ENDS OF YOUR LINE.  THEN TYPETHOSE LETTERS IN ALPHABETICAL";
2890 PRINT" ORDER.": PRINT
2895 PRINT"CAREFUL!  THE COMPUTER WILL SHOW NO     MERCY.  IT MAY EVEN CHEAT!":PRINT
2900 PRINT"PRESS ANY KEY TO SEE THE NEXT PAGE."
2905 GET A$: IF A$=""  GOTO2905
2910 PRINT"[147]"
2915 PRINT "YOU CAN SELECT FROM FIVE DIFFERENT      LEVELS OF DIFFICULTY.":PRINT
2920 PRINT"LEVEL 1 IS EASY WHILE LEVEL 5 IS DIFFI- CULT, WITH THE OTHER ";
2925 PRINT "LEVELS RANGING IN  BETWEEN."
2930 PRINT: PRINT "MAKE YOUR SELECTION BY PRESSING KEYS 1 [160]THROUGH 5.":PRINT
2935 PRINT"ONCE YOU HAVE SELECTED THE LEVEL OF     DIFFICULTY, PRESS ENTER."
2940 PRINT
2945 INPUT AA
2950 IF AA= 1 THEN JX= 0
2955 IF AA= 2 THEN JX= 1.5
2960 IF AA= 3 THEN JX= 2.1
2965 IF AA= 4 THEN JX= 4.7
2970 IF AA= 5 THEN JX= 99
2975 IF AA= 0 OR AA> 5 GOTO2945
2980 POKE 53270,PEEK(53270) OR16:PRINT"[158]"
2985 PRINT"[147]": POKE 53280,0:POKE 53281,0
2990 PRINT TAB(6);"A     B     C     D     E"
2995 PRINT:PRINT:PRINT
3000 PRINT TAB(6);"F     G     H     I     J"
3005 PRINT:PRINT:PRINT
3010 PRINT TAB(6);"K     L     M     N     O"
3015 PRINT:PRINT:PRINT
3020 PRINT TAB(6);"P     Q     R     S     T"
3025 PRINT:PRINT:PRINT
3030 PRINT TAB(6);"U     V     W     X     Y"
3035 POKE 53270,PEEK(53270) OR16:PRINT""
3040 FT=0: POKE53270,PEEK(53270) AND239
3045 T=INT(2*RND(0))+1
3050 IF T=1  GOTO3060
3055 IF T=2  GOTO3135
3060 GOSUB3300
3065 PRINT"I START, PLEASE WAIT.":T=1:J=0
3070 FOR I= 1TO1500: NEXT I
3075 I=INT(09*RND(0))+1
3080 IF I=1 THEN L$= "ST"
3085 IF I=2 THEN L$= "DE"
3090 IF I=3 THEN L$= "NS"
3095 IF I=4 THEN L$= "RS"
3100 IF I=5 THEN L$= "SX"
3105 IF I=6 THEN L$= "KL"
3110 IF I=7 THEN L$= "CH"
3115 IF I=8 THEN L$= "IJ"
3120 IF I=9 THEN L$= "WX"
3125 GOSUB1770
3130 GOTO3265
3135 GOSUB3300
3140 PRINT"YOU START.":T=2:S=2:J=0
3145 PRINT"WHICH LINE DO YOU WISH TO DRAW? (XX)": INPUT L$
3150 GOSUB140
3155 GOSUB505
3160 GOSUB1770
3165 IF G= 1 THEN RUN 2980
3170 IF T=1 GOTO3265
3175 S=1: GOSUB3300
3180 PRINT"IT IS MY TURN, PLEASE WAIT.":T=1: S=0
3185 FOR I= 1 TO 1000: NEXT I
3190 IF JX=0 GOTO3240
3195 ZI= INT(RND(0)*JX)
3200 IF ZI>0 GOTO3210
3205 IF ZI=0 GOTO3240
3210 GOSUB745
3215 IF S=1  GOTO3245
3220 GOSUB835
3225 IF S=1  GOTO3245
3230 GOSUB1560
3235 IF S=1  GOTO3245
3240 GOSUB2350
3245 POKE 781,18:POKE 782,0: POKE783,PEEK(783) AND 254: SYS 65520:PRINT
3250 PRINT "I SELECTED THE LINE '";L$;"'    ": S=0
3255 GOSUB1770
3260 FOR I= 1 TO 1000: NEXT I
3265 GOSUB3300
3270 PRINT"IT IS YOUR TURN." :S=0:T=2
3275 PRINT"WHICH LINE DO YOU WISH TO DRAW? (XX)": INPUT L$
3280 GOSUB140
3285 GOSUB505
3290 GOSUB1770
3295 GOTO3175
3300 POKE 781,18:POKE 782,0: POKE783,PEEK(783) AND 254: SYS 65520
3305 FORI= 1TO5: PRINT"                                       ":NEXT
3310 POKE 781,18:POKE 782,0: POKE783,PEEK(783) AND 254: SYS 65520:PRINT
3315 RETURN