5 POKE53281,0:POKE53280,11:PRINTCHR$(14);CHR$(8);CHR$(147);
10 PRINT""TAB(8)" [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192] "
11 PRINT"[153]          [176][192][174][176] [174][176][192][174][176][192][174][176]  [176][192][174][176][192][174] "
12 PRINT"          [171][192][189][221] [221][176][192][189][176][192][189][221]  [171][192] [173][192][174] "
13 PRINT"          [173]  [173][192][189][173][192][189][173][192][189][173][192][189][173][192][189][173][192][189] "
14 PRINTTAB(8)" [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192] "
20 S=54272:DIMP1(9),P2(9)
30 FORI=1TO24:POKES+I,0:NEXT
40 FORI=1TO9:READP1(I):NEXT
50 FORI=1TO9:READL1(I):NEXT
60 PRINTTAB(13)"1] [208]UZZLE [201]
70 [153][163]13)"2] (null)UZZLE RIGHT$RIGHT$
80 PRINTTAB(13)"3] [208]UZZLE [201][201][201]
85 [153][163]13)"4] RIGHT$NSTRUCTIONS
86 PRINTTAB(13)"5] [197]XIT PROGRAM
87 [153][163]2)"  TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN  "
88 [153][163]3)"CLR CONT (LEN) 1987 BY PEEKARBARA LEFT$. (null)CHULAK WAITCLR "
89 [153][163]3)" TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN  "
90 [161]K$:[139]K$[178]""[167]90
100 K[178][197](K$):[139]K[179]1[176]K[177]5[167]90
110 [139]K[178]2[167]430
120 [139]K[178]3[167]710
125 [139]K[178]4[167]2000:[143] INSTRUCTIONS
126 [139]K[178]5[167][153]"LOAD":[137]60000
130 :
140 [141]1020:[141]1920
150 BX[178]1:X[178]P1(BX):[151]X,[194](X)[171]128:K$[178]"":[141]1480:B[178]5
160 [151]X,[194](X)[170]128
170 [161]K$
180 [139]K$[178]""[167][141]1560
190 [139]K$[178]"CMD"[167][141]1580
200 [139]K$[178]"ON"[167][141]1600
210 [139]K$[178]""[167][141]1620
220 [139]K$[178][199](13)[167]260
230 [139]K$[178]"Q"[167][138]
240 [151]X,[194](X)[171]128:[129]T[178]1[164]100:[130]
250 [137]160
260 [141]1510
270 A[178]BX:L[178][194](X)
280 [139]A[178]1[167][139]B[178]2[176]B[178]5[176]B[178]4[167]380
290 [139]A[178]2[167][139]B[178]1[176]B[178]3[167]380
300 [139]A[178]3[167][139]B[178]2[176]B[178]5[176]B[178]6[167]380
310 [139]A[178]4[167][139]B[178]1[176]B[178]7[167]380
320 [139]A[178]5[167][139]B[178]1[176]B[178]3[176]B[178]7[176]B[178]9[167]380
330 [139]A[178]6[167][139]B[178]3[176]B[178]9[167]380
340 [139]A[178]7[167][139]B[178]4[176]B[178]5[176]B[178]8[167]380
350 [139]A[178]8[167][139]B[178]7[176]B[178]9[167]380
360 [139]A[178]9[167][139]B[178]8[176]B[178]5[176]B[178]6[167]380
370 [141]1420:[137]160
380 [151]P1(A),160:[151]P1(B),L:B[178]A
390 TN[178]TN[170]1:[141]1480:[141]1700
400 [139]F1[178]0[167][151]X,[194](X)[171]128:[137]160
410 [137]950
420 :
430 [141]1210:X[178]1387:BX[178]1:P2(0)[178]1383:B[178]1:[141]1480:[141]1920
440 [129]I[178]1[164]9:P2(I)[178]P2(I[171]1)[170]4:[130]
450 [151]X,32:[151]X[170]S,14
460 [151]X,[194](X)[170]128
470 [161]K$
480 [139]K$[178]""[167][141]1650
490 [139]K$[178]"CMD"[167][141]1670
500 [139]K$[178][199](13)[167]540
510 [139]K$[178]"Q"[167][138]
520 [151]X,[194](X)[171]128:[129]T[178]1[164]100:[130]
530 [137]460
540 [141]1510
550 A[178]BX:L[178][194](X)
560 [139]A[178]1[167][139]B[178]2[176]B[178]4[167]660
570 [139]A[178]2[167][139]B[178]1[176]B[178]3[176]B[178]5[167]660
580 [139]A[178]3[167][139]B[178]2[176]B[178]6[167]660
590 [139]A[178]4[167][139]B[178]1[176]B[178]5[176]B[178]7[167]660
600 [139]A[178]5[167][139]B[178]2[176]B[178]4[176]B[178]6[176]B[178]8[167]660
610 [139]A[178]6[167][139]B[178]3[176]B[178]5[176]B[178]9[167]660
620 [139]A[178]7[167][139]B[178]4[176]B[178]8[167]660
630 [139]A[178]8[167][139]B[178]5[176]B[178]7[176]B[178]9[167]660
640 [139]A[178]9[167][139]B[178]8[176]B[178]6[167]660
650 [141]1420:[137]460
660 [151]P2(A),160:[151]P2(B),L:B[178]A
670 TN[178]TN[170]1:[141]1480:[141]1820
680 [139]F1[178]0[167][151]X,[194](X)[171]128:[137]460
690 [137]950
700 :
710 [141]1330:X[178]1387:BX[178]1:P2(0)[178]1383:B[178]1:[141]1480:[141]1920
720 [129]I[178]1[164]9:P2(I)[178]P2(I[171]1)[170]4:[130]
730 [151]X,32:[151]X[170]S,1
740 [151]X,[194](X)[170]128
750 [161]K$
760 [139]K$[178]""[167][141]1650
770 [139]K$[178]"CMD"[167][141]1670
780 [139]K$[178][199](13)[167]820
790 [139]K$[178]"Q"[167][138]
800 [151]X,[194](X)[171]128:[129]T[178]1[164]100:[130]
810 [137]740
820 A[178]BX:L[178][194](X):C[178][182](A[171]B):[141]1510
830 [139]C[179]0[176]C[177]2[167][141]1420:[137]740
840 [139]A[178]B[167][141]1420:[137]740
850 [151]P2(A),160:[151]P2(B),L:B[178]A
860 TN[178]TN[170]1:[141]1480:[141]1820
870 [139]F1[178]0[167][151]X,[194](X)[171]128:[137]740
880 [137]950
890 :
950 FM$[178]"OPENCLRSYSDEFPRINTCONT"
955 [129]I[178]4[164]14:[153][200](FM$,I)"            (null)UZZLE (null)OLVED!!!            "
960 [141]1510:[130]
965 [129]T[178]1[164]500:[130]
970 [153]"        (null)RESS ANY KEY TO CONTINUE       "
975 [161]K$:[139]K$[178]""[167]975
980 [138]
990 :
1000 :
1010 :
1020 [153]"LOADTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN";
1021 [153]"DEF               (null)UZZLE RIGHT$                 ";
1022 [153]"WAITTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
1030 [153][163]12)"ORTAN^ORTAN^ORTAN^"
1040 [153][163]12)"(null) (null)WAITTANTANTAN(null) (null)WAITTANTANTAN(null) (null)"
1050 [153][163]12)"/TANEXP/TANEXP/TANEXP"
1060 [153][163]12)" (null) +       + (null)"
1070 [153][163]12)" (null)  +     +  (null)"
1080 [153][163]12)" (null)   +   +   (null)       SYS1WAIT-2WAIT-3"
1090 [153][163]12)"ORTAN^ORTAN^ORTAN^WAIT      SYS(null)   (null)"
1100 [153][163]12)"(null) (null)(null) (null)(null) (null)WAIT      SYS4WAIT   5"
1110 [153][163]12)"/TANEXP/TANEXP/TANEXPWAIT      SYS(null)   (null)"
1120 [153][163]12)" (null)   +   +   (null)       SYS6WAIT-7WAIT-8"
1130 [153][163]12)" (null)  +     +  (null)"
1140 [153][163]12)" (null) +       + (null)"
1150 [153][163]12)"ORTAN^ORTAN^ORTAN^"
1160 [153][163]12)"(null) (null)WAITTANTANTAN(null) (null)WAITTANTANTAN(null) (null)"
1170 [153][163]12)"/TANEXP/TANEXP/TANEXP"
1180 [129]I[178]1[164]9:[151]P1(I)[170]S,1:[151]P1(I),L1(I)[170]128:[130]
1190 [142]
1200 :
1210 [153]"LOADTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN";
1211 [153]"CONT               (null)UZZLE RIGHT$RIGHT$                ";
1212 [153]"WAITTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
1220 [153]"   ORTANTANTANTANTANTANTANTANTANTAN^ ORTANTANTANTANTANTANTANTANTANTAN^
1230 PRINT"   [221]  [176][192][192][192][192][192][192][174][221] [221]  [176][192][192][192][192][192][174] [221]"
1240 PRINT"  [176][192][174][176][192][174][176][192][174][146][221][176][192][174][176][192][174][176][192][174][146][221][176][192][174][176][192][174][176][192][174]"
1250 PRINT"  [221] [221][192][221][154]3[146][221][192][221][154]4[146][221][221][221][154]1[146][221][146][192][221][154]2[146][221][192][221][154]8[146][221][221][221][154]6[146][221]";
1260 PRINT"[192][221][154]5[146][221][192][221][154]7[146][221]"
1270 PRINT"  [173][192][189][173][192][189][173][192][189][146][221][173][192][189][173][192][189][173][192][189][146][221][173][192][189][173][192][189][173][192][189]"
1280 PRINT"           [221] [173][192][192][192][192][192][189]  [221] [221][173][192][192][192][192][192][189]   [221]"
1290 PRINT"           [173][192][192][192][192][192][192][192][192][192][192][189] [173][192][192][192][192][192][192][192][192][192][192][189]"
1300 PRINTTAB(10)"[153] [146]-8[146]-7[146]-6[146]-5[146]-4[146]-3[146]-2[146]-1"
1310 RETURN
1320 :
1330 PRINT"[147][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][192][192]";
1331 PRINT"[153]               [208]UZZLE [201][201][201]               ";
1332 PRINT"[146][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][192][192]"
1340 PRINT" [150][176][192][192][192][178][192][192][192][178][192][192][192][178][192][192][192][178][192][192][192][178][192][192][192][178][192][192][192][178][192][192][192][178][192][192][192][174]"
1350 FORJ=1TO3:PRINT" ";
1360 FORI=1TO9:PRINT"[146][150][221]   ";:NEXT:PRINT"[146][150][221]":NEXT
1370 PRINT" [150][173][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][189]"
1380 PRINT" 12345678"
1390 PRINT""TAB(11)"[158] [146]-8[146]-7[146]-6[146]-5[146]-4[146]-3[146]-2[146]-1"
1400 RETURN
1410 :
1420 PRINT""TAB(16)"[159][201]LLEGAL [205]OVE!"
1430 FORT=1TO1000:NEXT
1440 PRINT""TAB(16)"             "
1450 POKEX,PEEK(X)-128
1460 RETURN
1470 :
1480 PRINT"[156]  [192][192][192][192][192][192][192][192][192][192][192] "
1481 PRINT"             "
1482 PRINT"[145][205]OVES:"TN
1483 PRINT"[156]  [192][192][192][192][192][192][192][192][192][192][192] "
1490 RETURN
1500 :
1510 POKES+24,15:POKES+5,9
1520 POKES+4,17:POKES+1,17:POKES,37
1530 FORT=1TO100:NEXT
1540 POKES+4,16:RETURN
1550 :
1560 BX=BX+1:X=X+6:IFPEEK(X)=32THENBX=BX-1:X=X-6
1570 RETURN
1580 BX=BX-1:X=X-6:IFPEEK(X)=32THENBX=BX+1:X=X+6
1590 RETURN
1600 BX=BX-3:X=X-240:IFX<1237THENBX=BX+3:X=X+240
1610 RETURN
1620 BX=BX+3:X=X+240:IFPEEK(X)=32THENBX=BX-3:X=X-240
1630 RETURN
1640 :
1650 BX=BX+1:X=X+4:IFBX=10THENBX=9:X=X-4
1660 RETURN
1670 BX=BX-1:X=X-4:IFBX=0THENBX=1:X=X+4
1680 RETURN
1690 :
1700 F1=0
1710 IFPEEK(P1(1))<>177THENRETURN
1720 IFPEEK(P1(2))<>178THENRETURN
1730 IFPEEK(P1(3))<>179THENRETURN
1740 IFPEEK(P1(4))<>180THENRETURN
1750 IFPEEK(P1(5))<>160THENRETURN
1760 IFPEEK(P1(6))<>181THENRETURN
1770 IFPEEK(P1(7))<>182THENRETURN
1780 IFPEEK(P1(8))<>183THENRETURN
1790 IFPEEK(P1(9))<>184THENRETURN
1800 F1=1:RETURN
1810 :
1820 F1=0:I=2:J=184
1830 IFPEEK(P2(1))<>160THENRETURN
1840 IFPEEK(P2(I))<>JTHENRETURN
1850 I=I+1:J=J-1:IFI<10THEN1840
1860 F1=1:RETURN
1870 :
1880 DATA  1237,1243,1249,1477,1483,1489
1890 DATA 1717,1723,1729
1900 DATA 52,54,55,49,32,56,50,51,53
1910 :
1920 PRINT""TAB(31)"[156] [192][192][192][192][192][192] "
1921 PRINTTAB(31)" [209]=[209]UIT[156]"
1922 PRINTTAB(31)" [192][192][192][192][192][192] "
1923 RETURN
1924 :
2000 POKE53280,11:POKE53281,0
2005 PRINTCHR$(147);CHR$(14);CHR$(8);
2010 X=1
2015 PRINT"[154][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]";
2020 GOSUB2060:POKE2023,125:POKE56295,14
2025 GETK$:IFK$=""THEN2025
2030 IFK$<>CHR$(13)THEN2025
2035 X=X+1:IFX=4THENRUN
2040 PRINT"[154][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]";
2045 ONXGOSUB2060,2190,2320
2050 GOTO2025
2055 :
2060 PRINT"[154]}[150] pUZZLES        BY bARBARA h. sCHULAK [146][154]}";
2065 PRINT"[171]``````````````````````````````````````[179]";
2070 PRINT"}[153]                                      [154]}";
2075 PRINT"}[153]   tHIS PROGRAM PRESENTS THREE[153]        [154]}";
2080 PRINT"}[153] SEPARATE PUZZLES THAT REQUIRE YOU TO[153] [154]}";
2085 PRINT"}[153] REARRANGE THE NUMBERS IN THE PUZZLE[153]  [154]}";
2090 PRINT"}[153] IN THE FEWEST NUMBER OF MOVES TO[153]     [154]}";
2095 PRINT"}[153] FORM A SET PATTERN AS SHOWN ON THE[153]   [154]}";
2100 PRINT"}[153] SCREEN.[153]                              [154]}";
2105 PRINT"}[153]                                      [154]}";
2110 PRINT"}[153]   iN ALL THREE PUZZLES, MOVEMENT[153]     [154]}";
2115 PRINT"}[153] FROM SQUARE TO SQUARE IS DONE BY[153]     [154]}";
2120 PRINT"}[153] USING THE CURSOR KEYS.  wHEN THE[153]     [154]}";
2125 PRINT"}[153] FLASHING CURSOR IS ON THE NUMBER     [154]}";
2130 PRINT"}[153] THAT YOU WISH TO PLACE IN THE EMPTY[153]  [154]}";
2135 PRINT"}[153] CELL, SIMPLY PRESS [156]return.  iLLEGAL[153]  [154]}";
2140 PRINT"}[153] MOVES ARE NOT ALLOWED BY THE         [154]}";
2145 PRINT"}[153] COMPUTER.  pRESS '[156]q' TO QUIT A[153]       [154]}";
2150 PRINT"}[153] PUZZLE.[153]                              [154]}";
2155 PRINT"}[153]                                      [154]}";
2160 PRINT"}[153]                                      [154]}";
2165 PRINT"[171]``````````````````````````````````````[179]";
2170 PRINT"}[153]             pRESS return             [146][154]}";
2175 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]";
2180 RETURN
2185 :
2190 PRINT"}[150] pUZZLES        BY bARBARA h. sCHULAK [146][154]}";
2195 PRINT"[171]``````````````````````````````````````[179]";
2200 PRINT"}[153]                                      [154]}";
2205 PRINT"}[153]  [156] tHE FIRST PUZZLE IS A NUMBER       [154]}";
2210 PRINT"}[153] SQUARE.  bY SLIDING THE NUMBERS ONE[153]  [154]}";
2215 PRINT"}[153] AT A TIME INTO THE EMPTY SQUARE, YOU[153] [154]}";
2220 PRINT"}[153] MUST REARRANGE THE NUMBERS SO THAT[153]   [154]}";
2225 PRINT"}[153] THEY ARE IN THE CORRECT ORDER.  yOU[153]  [154]}";
2230 PRINT"}[153] MAY ONLY MOVE BETWEEN ADJACENT       [154]}";
2235 PRINT"} SQUARES THAT ARE CONNECTED BY WHITE[153]  [154]}";
2240 PRINT"}[153] LINES.  fOR EXAMPLE, AT THE START OF[153] [154]}";
2245 PRINT"}[153] THE PUZZLE, YOU COULD MOVE THE 4, 7,[153] [154]}";
2250 PRINT"}[153] 2 OR 5 INTO THE CENTER SQUARE BUT   [153] [154]}";
2255 PRINT"}[153] NOT THE 1, 6, 8 OR 3.[153]                [154]}";
2260 PRINT"}[153]                                      [154]}";
2265 PRINT"}[153]   tHIS PUZZLE CAN BE DONE IN 30      [154]}";
2270 PRINT"}[153] MOVES.[153]                               [154]}";
2275 PRINT"}[153]                                      [154]}";
2280 PRINT"}[153]                                      [154]}";
2285 PRINT"}[153]                                      [154]}";
2290 PRINT"}[153]                                      [154]}";
2295 PRINT"[171]``````````````````````````````````````[179]";
2300 PRINT"}[153]             pRESS return             [146][154]}";
2305 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]";
2310 RETURN
2315 :
2320 PRINT"}[150] pUZZLES        BY bARBARA h. sCHULAK [146][154]}";
2325 PRINT"[171]``````````````````````````````````````[179]";
2330 PRINT"}[153]                                      [154]}";
2335 PRINT"}[153]   tHE SECOND PUZZLE AGAIN INVOLVES[153]   [154]}";
2340 PRINT"}[153] REARRANGING[153] THE NUMBERS INTO THE[153]     [154]}";
2345 PRINT"}[153] CORRECT ORDER BY SHIFTING THEM FROM[153]  [154]}";
2350 PRINT"}[153] SQUARE TO SQUARE.  aGAIN THE CELLS[153]   [154]}";
2355 PRINT"}[153] MUST BE CONNECTED BY WHITE LINES.[153]    [154]}";
2360 PRINT"}[153] jUMPS ARE NOT ALLOWED.[153]               [154]}";
2365 PRINT"}[153]                                      [154]}";
2370 PRINT"}[153]   tHIS PUZZLE CAN BE SOLVED IN A[153]     [154]}";
2375 PRINT"}[153] MINIMUM OF 26 MOVES.[153]                 [154]}";
2380 PRINT"}[153]                                      [154]}";
2385 PRINT"}[153]   tHE LAST PUZZLE IS A VARIATION OF[153]  [154]}";
2390 PRINT"}[153] THE SECOND BUT SINGLE MOVES AND  [153]    [154]}";
2395 PRINT"}[153] JUMPS ARE ALLOWED.  aT LEAST 36   [153]   [154]}";
2400 PRINT"}[153] MOVES ARE REQUIRED TO SOLVE THIS    [153] [154]}";
2405 PRINT"}[153] ONE.[153]                                 [154]}";
2410 PRINT"}[153]                                      [154]}";
2415 PRINT"}[153]                                      [154]}";
2420 PRINT"}[153]                                      [154]}";
2425 PRINT"[171]``````````````````````````````````````[179]";
2430 PRINT"}[153]             pRESS return             [146][154]}";
2435 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]";
2440 RETURN
9999 :
10000 OPEN15,8,15,"S0:PUZZLES":CLOSE15:SAVE"0:PUZZLES",8
60000 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60010 IFER<>63THENEND
60020 LOAD"HELLO CONNECT",8