10 POKE53281,.:POKE53280,2:PRINTCHR$(14)
20 GOSUB2450
30 PRINT"[147][159]                 [202]UMP![159]                  "
40 S=54272:JS=56320:DIMTN(12):BC=0
50 FORI=1TO24:POKES+I,0:NEXT
60 FORI=1TO12:READTN(I):NEXT
70 PZ=1:X=1154:IFFL=1THENGOSUB990
80 IFFL=2THENGOSUB1130
90 POKE53281,BC:TN=0:GOSUB540:X=1523
95 PRINTCHR$(142);
100 ONPZGOSUB1400,1430,1530,2000,2090,1630,1720,1820,1910,2180,2280,2340
110 MK=0
120 POKEX,PEEK(X)+128
130 POKEX,PEEK(X)-128
140 JOY=15-(PEEK(JS)AND15):FB=PEEK(JS)AND16:GETK$
150 IFJOY=8ORK$=""THENGOSUB900
160 IFJOY=4ORK$="[157]"THENGOSUB920
170 IFJOY=1ORK$="[145]"THENGOSUB940
180 IFJOY=2ORK$=""THENGOSUB960
190 IFFB=0ORK$=CHR$(13)THEN230
195 IFK$<>"[133]"THEN200
196 BC=BC+1:IFBC>15THENBC=0
197 IFBC=1ORBC=6ORBC=7THENBC=BC+1:GOTO197
198 POKE53281,BC
200 IFK$="[140]"THENPZ=1:X=1154:GOSUB1130:GOTO90
210 POKEX,PEEK(X)+128:FORT=1TO50:NEXT
220 GOTO130
230 GOSUB850:MK=MK+1:P=PEEK(X+S)AND15
240 IFMK=1ANDP=1THENGOSUB780:GOTO120
250 IFMK=1ANDP=6THENA=X:POKEA+S,7:Q=P:GOTO120
260 B=X
270 PP=PEEK(B+S)AND15:IFPP<>1THENGOSUB780:GOTO120
280 C=ABS(A-B):T=0
290 IFA>BTHEND=1:REM LESS
300 IFB>ATHEND=0:REM MORE
310 IFC=6THENT=T+1:V=3
320 IFC=240THENT=T+1:V=120
330 IFT=0THENGOSUB780:GOTO120
340 IFD=1THENZ=B+V
350 IFD=0THENZ=A+V
360 IF(PEEK(Z+S)AND15)<>6THENGOSUB780:GOTO120
370 POKEZ+S,1:TN=TN+1
380 POKEA+S,1:POKEB+S,6
390 IFTN<TN(PZ)THEN110
400 POKEX+S,1
410 FORI=1TO10
420 PRINT""TAB(10)"SOLVED!"
430 GOSUB850
440 PRINT""TAB(10)"[159]SOLVED!"
450 NEXT
460 PRINT""TAB(13)"PRESS"
470 PRINT""TAB(13)"[153]SPACE"
480 GETK$
490 PRINT""TAB(13)"[156]SPACE"
500 IFK$<>" "THEN470
510 PZ=1:X=1154:GOSUB1130:GOTO90
520 END
530 :
540 A$="   ":B$=" [209] ":C$="   "
550 PRINT"[147]";CHR$(142)
560 GOSUB680:GOSUB730
570 FORI=1TO3
580 PRINTTAB(9):FORJ=1TO7:PRINTA$;:NEXT:PRINT
590 PRINTTAB(9):FORJ=1TO7:PRINTB$;:NEXT:PRINT
600 PRINTTAB(9):FORJ=1TO7:PRINTC$;:NEXT:PRINT
610 NEXT
620 GOSUB730:GOSUB680
630 PRINT""TAB(28)"[176][192][192][192][192][192][192][192][192][174]"
640 PRINTTAB(28)"[221]F1 COLOR[221]"
645 PRINTTAB(28)"[221]F8  QUIT[221]"
650 PRINTTAB(28)"[173][192][192][192][192][192][192][192][192][189]"
660 RETURN
670 :
680 PRINTTAB(15):FORJ=1TO3:PRINTA$;:NEXT:PRINT
690 PRINTTAB(15):FORJ=1TO3:PRINTB$;:NEXT:PRINT
700 PRINTTAB(15):FORJ=1TO3:PRINTC$;:NEXT:PRINT
710 RETURN
720 :
730 PRINTTAB(12):FORJ=1TO5:PRINTA$;:NEXT:PRINT
740 PRINTTAB(12):FORJ=1TO5:PRINTB$;:NEXT:PRINT
750 PRINTTAB(12):FORJ=1TO5:PRINTC$;:NEXT:PRINT
760 RETURN
770 :
780 PRINT"[159]ILLEGAL MOVE!"
790 FORT=1TO1000:NEXT
800 PRINT"             "
810 IFMK=2THENPOKEA+S,Q
820 MK=0
830 RETURN
840 :
850 POKES+24,15:POKES+5,9
860 POKES+4,17:POKES+1,17:POKES,50
870 FORT=1TO50:NEXT
880 POKES+4,16:RETURN
890 :
900 X=X+3:IFPEEK(X)<>81THENX=X-3
910 RETURN
920 X=X-3:IFPEEK(X)<>81THENX=X+3
930 RETURN
940 X=X-120:IFPEEK(X)<>81THENX=X+120
950 RETURN
960 X=X+120:IFPEEK(X)<>81THENX=X-120
970 RETURN
980 :
990 POKE53281,0:PRINT"  [212]HE OBJECT OF THESE PUZZLES IS TO
1000 [153]"  REMOVE ALL THE PEGS ON THE GRID BUT
1010 PRINT"  ONE.  [217]OU MAY JUMP HORIZONTALLY OR
1015 [153]"  VERTICALLY.
1020 PRINT"  [194]LUE BALLS REPRESENT THE PEGS AND
1030 [153]"  WHITE BALLS REPRESENT THE EMPTY "
1031 [153]"  HOLES.
1040 PRINT"  [213]SE THE JOYSTICK ([208]ORT 2) OR THE"
1050 PRINT"  CURSOR KEYS TO MOVE AROUND THE BOARD."
1060 PRINT"  [205]ARK THE PEG THAT YOU WANT TO JUMP"
1070 PRINT"  BY PUSHING THE [198][201][210][197] BUTTON OR BY"
1071 PRINT"  PRESSING [210][197][212][213][210][206]."
1072 PRINT"  [212]HEN MOVE TO THE EMPTY HOLE YOU WANT"
1073 PRINT"  TO JUMP TO AND PUSH THE BUTTON OR"
1074 PRINT"  PRESS [210][197][212][213][210][206].
1080 [153]"  (null)RESS DEFASC8 AT ANY TIME TO QUIT.
1090 REMPRINTTAB(6)"[156][176][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][174]"
1100 PRINTTAB(6)"[153]  [208]RESS [158][211][208][193][195][197][194][193][210][153] TO PLAY.  "
1110 REMPRINTTAB(6)"[173][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][189]"
1120 GETK$:IFK$<>" "THEN1120
1130 PRINTCHR$(14);:PRINT"[147][159]                 [202]UMP![159]                  "
1135 POKE53281,0
1140 PRINTTAB(10)"* [211]OLITAIRE
1150 [153][163]12)"LENROSS RIGHT$
1160 PRINTTAB(12)"[195]ROSS [201][201]
1170 [153][163]12)"LENROSS RIGHT$RIGHT$RIGHT$
1180 PRINTTAB(12)"[195]ROSS [201][214]
1190 [153][163]12)"(null)HE VALLEVEN
1200 PRINTTAB(12)"[208]YRAMID [201]"
1210 PRINTTAB(12)"[208]YRAMID [201][201]"
1220 PRINTTAB(12)"[212]HE [204]AMP"
1230 PRINTTAB(12)"[212]HE [196]IAMOND"
1240 PRINTTAB(12)"[212]HE [207]CTAGON"
1250 PRINTTAB(12)"[212]HE [208]ENTAGON"
1260 PRINTTAB(12)"[197]XIT [208]ROGRAM"
1270 PRINT"[176][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][174]";
1280 PRINT"[221][153] [205]OVE THE ASTERISK ([158]*[153]) WITH JOYSTICK  [221]";
1290 PRINT"[221][153]   OR CURSOR KEYS AND PRESS EITHER    [221]";
1295 PRINT"[221][153]   [158][198][201][210][197][153] OR [158][210][197][212][213][210][206][153] TO SELECT.          [221]";
1300 PRINT"[173][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][189]"
1310 JO=15-(PEEK(JS)AND15):POKEX,32:POKEX+S,14:GETK$
1320 IFJO=1ORK$="[145]"THENX=X-40:PZ=PZ-1:IFPZ<1THENX=1634:PZ=13
1330 IFJO=2ORK$=""THENX=X+40:PZ=PZ+1:IFPZ>13THENX=1154:PZ=1
1340 POKEX,42:POKEX+S,14
1350 FB=PEEK(JS)AND16:IFFB=0ORK$=CHR$(13)THEN1370
1360 GOTO1310
1370 GOSUB850:IFPZ<>13THENRETURN
1375 PRINT"[145][145][145][145][145][145][145]  [193]RE YOU SURE YOU WANT TO QUIT? ([159][217]/[159][206])"
1376 GETA$:IFA$<>"Y"ANDA$<>"N"THEN1376
1377 IFA$="N"THENPZ=1:X=1154:GOTO1130
1380 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
1385 IFER<>63THENEND
1390 LOAD "HELLO CONNECT",8
1400 PRINT"[159]               SOLITAIRE[159]                "
1410 POKEX+S,1:RETURN
1420 :
1430 PRINT"[159]                CROSS I[159]                 "
1440 PRINTTAB(16)"[209][209][209]"
1450 PRINTTAB(13)"[209][209][209][209]"
1460 PRINTTAB(10)"[209][209][209][209]"
1470 PRINTTAB(10)"[209][209][209][209][209][209]"
1480 PRINTTAB(10)"[209][209][209][209][209][209]"
1490 PRINTTAB(13)"[209][209][209][209][209]"
1500 PRINTTAB(16)"[209][209][209]"
1510 RETURN
1520 :
1530 PRINT"[159]                CROSS II[159]                "
1540 PRINTTAB(16)"[209][209][209]"
1550 PRINTTAB(13)"[209][209][209][209]"
1560 PRINTTAB(10)"[209][209][209][209][209][209]"
1570 PRINTTAB(10)"[209][209]"
1580 PRINTTAB(10)"[209][209][209][209][209][209]"
1590 PRINTTAB(13)"[209][209][209][209]"
1600 PRINTTAB(16)"[209][209][209]"
1610 RETURN
1620 :
1630 PRINT"[159]               THE ELEVEN[159]               "
1640 PRINTTAB(13)"[209][209]"
1650 PRINTTAB(10)"[209][209][209][209]"
1660 PRINTTAB(10)"[209][209][209][209][209]"
1670 PRINTTAB(10)"[209][209][209][209][209][209][209]"
1680 PRINTTAB(13)"[209][209][209][209][209]"
1690 PRINTTAB(16)"[209][209][209]"
1700 RETURN
1710 :
1720 PRINT"[159]                PYRAMID I[159]               "
1730 PRINTTAB(16)"[209][209][209]"
1740 PRINTTAB(13)"[209][209][209][209][209]"
1750 PRINTTAB(10)"[209][209][209][209][209][209]"
1760 PRINTTAB(10)"[209][209][209][209]"
1770 PRINTTAB(10)"[209][209]"
1780 PRINTTAB(13)"[209][209][209][209][209]"
1790 PRINTTAB(16)"[209][209][209]"
1800 RETURN
1810 :
1820 PRINT"[159]              PYRAMID II[159]                "
1830 PRINTTAB(16)"[209][209][209]"
1840 PRINTTAB(13)"[209][209][209][209]"
1850 PRINTTAB(10)"[209][209][209][209]"
1860 PRINTTAB(10)"[209][209]"
1870 PRINTTAB(13)"[209][209][209][209][209]"
1880 PRINTTAB(16)"[209][209][209]"
1890 RETURN
1900 :
1910 PRINT"[159]               THE LAMP[159]                 "
1920 PRINTTAB(16)"[209][209]"
1930 PRINTTAB(13)"[209][209]"
1940 PRINTTAB(10)"[209][209]"
1950 PRINTTAB(10)"[209][209][209][209][209][209]"
1960 PRINTTAB(10)"[209][209][209][209][209][209]"
1970 PRINTTAB(13)"[209][209]"
1980 RETURN
1990 :
2000 PRINT"[159]              CROSS III[159]                 "
2010 PRINTTAB(16)"[209][209]"
2020 PRINTTAB(13)"[209][209]"
2030 PRINTTAB(10)"[209][209][209][209]"
2040 PRINTTAB(10)"[209][209][209][209]"
2050 PRINTTAB(13)"[209][209]"
2060 PRINTTAB(16)"[209][209]"
2070 RETURN
2080 :
2090 PRINT"[159]                CROSS IV[159]                "
2100 PRINTTAB(16)"[209][209]"
2110 PRINTTAB(13)"[209][209]"
2120 PRINTTAB(10)"[209][209][209][209]"
2130 PRINTTAB(10)"[209][209][209][209]"
2140 PRINTTAB(13)"[209][209]"
2150 PRINTTAB(16)"[209][209]"
2160 RETURN
2170 :
2180 PRINT"[159]              THE DIAMOND[159]               "
2190 PRINTTAB(16)"[209][209]"
2200 PRINTTAB(13)"[209][209]"
2210 PRINTTAB(10)"[209][209]"
2220 PRINTTAB(10)"[209]"
2230 PRINTTAB(10)"[209][209]"
2240 PRINTTAB(13)"[209][209]"
2250 PRINTTAB(16)"[209][209]"
2260 RETURN
2270 :
2280 PRINT"[159]              THE OCTAGON[159]               "
2290 PRINTTAB(16)"[209][209]"
2300 PRINTTAB(10)"[209][209]"
2310 PRINTTAB(10)"[209][209]"
2320 PRINTTAB(16)"[209][209]"
2330 RETURN
2340 PRINT"[159]              THE PENTAGON[159]              "
2350 PRINTTAB(16)"[209][209]"
2360 PRINTTAB(13)"[209][209]"
2370 PRINTTAB(10)"[209][209]"
2380 PRINTTAB(10)"[209][209]"
2390 PRINTTAB(13)"[209][209]"
2400 PRINTTAB(16)"[209][209][209]"
2410 RETURN
2420 :
2430 DATA 35,5,8,20,20,10,8,15,16,23,28,23
2440 :
2450 PRINT"[147]           [158][204][207][193][196][211][212][193][210] [208]RESENTS:"
2460 PRINTTAB(4)"[156][176][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][174]"
2470 FORI=1TO16:PRINTTAB(4)"[221]                             [156][221]":NEXT
2480 PRINTTAB(4)"[173][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][189]"
2490 PRINT""
2500 PRINTTAB(6)"           "
2510 PRINTTAB(6)"          "
2520 PRINTTAB(6)"            "
2530 PRINTTAB(6)"       "
2540 PRINTTAB(6)"              "
2550 PRINT:PRINT:PRINT
2560 PRINTTAB(6)"([195]) 1987 BY [194]ARBARA [211]CHULAK
2570 [153]
2580 [161]K$
2590 [153]"":[153][163]10)"OPENRIGHT$NSTRUCTIONS [Y/N]
2600 IFK$="Y"THENFL=1:GOTO2640
2610 IFK$="N"THENFL=2:GOTO2640
2620 PRINT"":PRINTTAB(10)"[150][201]NSTRUCTIONS [Y/N]
2630 [137]2580
2640 [142]
2650 :