home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 47 / 047.d81 / puzzles (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  9.4 KB  |  310 lines
  1. 5 poke53281,0:poke53280,11:printchr$(14);chr$(8);chr$(147);
  2. 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] "
  3. 11 print"[153]          [176][192][174][176] [174][176][192][174][176][192][174][176]  [176][192][174][176][192][174] "
  4. 12 print"          [171][192][189][221] [221][176][192][189][176][192][189][221]  [171][192] [173][192][174] "
  5. 13 print"          [173]  [173][192][189][173][192][189][173][192][189][173][192][189][173][192][189][173][192][189] "
  6. 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] "
  7. 20 s=54272:dimp1(9),p2(9)
  8. 30 fori=1to24:pokes+i,0:next
  9. 40 fori=1to9:readp1(i):next
  10. 50 fori=1to9:readl1(i):next
  11. 60 printtab(13)"1] [208]uzzle [201]
  12. 70 [153][163]13)"2] (NULL)uzzle right$right$
  13. 80 printtab(13)"3] [208]uzzle [201][201][201]
  14. 85 [153][163]13)"4] right$nstructions
  15. 86 printtab(13)"5] [197]xit program
  16. 87 [153][163]2)"  tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan  "
  17. 88 [153][163]3)"clr cont (len) 1987 by peekarbara left$. (NULL)chulak waitclr "
  18. 89 [153][163]3)" tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan  "
  19. 90 [161]k$:[139]k$[178]""[167]90
  20. 100 k[178][197](k$):[139]k[179]1[176]k[177]5[167]90
  21. 110 [139]k[178]2[167]430
  22. 120 [139]k[178]3[167]710
  23. 125 [139]k[178]4[167]2000:[143] instructions
  24. 126 [139]k[178]5[167][153]"load":[137]60000
  25. 130 :
  26. 140 [141]1020:[141]1920
  27. 150 bx[178]1:x[178]p1(bx):[151]x,[194](x)[171]128:k$[178]"":[141]1480:b[178]5
  28. 160 [151]x,[194](x)[170]128
  29. 170 [161]k$
  30. 180 [139]k$[178]""[167][141]1560
  31. 190 [139]k$[178]"cmd"[167][141]1580
  32. 200 [139]k$[178]"on"[167][141]1600
  33. 210 [139]k$[178]""[167][141]1620
  34. 220 [139]k$[178][199](13)[167]260
  35. 230 [139]k$[178]"q"[167][138]
  36. 240 [151]x,[194](x)[171]128:[129]t[178]1[164]100:[130]
  37. 250 [137]160
  38. 260 [141]1510
  39. 270 a[178]bx:l[178][194](x)
  40. 280 [139]a[178]1[167][139]b[178]2[176]b[178]5[176]b[178]4[167]380
  41. 290 [139]a[178]2[167][139]b[178]1[176]b[178]3[167]380
  42. 300 [139]a[178]3[167][139]b[178]2[176]b[178]5[176]b[178]6[167]380
  43. 310 [139]a[178]4[167][139]b[178]1[176]b[178]7[167]380
  44. 320 [139]a[178]5[167][139]b[178]1[176]b[178]3[176]b[178]7[176]b[178]9[167]380
  45. 330 [139]a[178]6[167][139]b[178]3[176]b[178]9[167]380
  46. 340 [139]a[178]7[167][139]b[178]4[176]b[178]5[176]b[178]8[167]380
  47. 350 [139]a[178]8[167][139]b[178]7[176]b[178]9[167]380
  48. 360 [139]a[178]9[167][139]b[178]8[176]b[178]5[176]b[178]6[167]380
  49. 370 [141]1420:[137]160
  50. 380 [151]p1(a),160:[151]p1(b),l:b[178]a
  51. 390 tn[178]tn[170]1:[141]1480:[141]1700
  52. 400 [139]f1[178]0[167][151]x,[194](x)[171]128:[137]160
  53. 410 [137]950
  54. 420 :
  55. 430 [141]1210:x[178]1387:bx[178]1:p2(0)[178]1383:b[178]1:[141]1480:[141]1920
  56. 440 [129]i[178]1[164]9:p2(i)[178]p2(i[171]1)[170]4:[130]
  57. 450 [151]x,32:[151]x[170]s,14
  58. 460 [151]x,[194](x)[170]128
  59. 470 [161]k$
  60. 480 [139]k$[178]""[167][141]1650
  61. 490 [139]k$[178]"cmd"[167][141]1670
  62. 500 [139]k$[178][199](13)[167]540
  63. 510 [139]k$[178]"q"[167][138]
  64. 520 [151]x,[194](x)[171]128:[129]t[178]1[164]100:[130]
  65. 530 [137]460
  66. 540 [141]1510
  67. 550 a[178]bx:l[178][194](x)
  68. 560 [139]a[178]1[167][139]b[178]2[176]b[178]4[167]660
  69. 570 [139]a[178]2[167][139]b[178]1[176]b[178]3[176]b[178]5[167]660
  70. 580 [139]a[178]3[167][139]b[178]2[176]b[178]6[167]660
  71. 590 [139]a[178]4[167][139]b[178]1[176]b[178]5[176]b[178]7[167]660
  72. 600 [139]a[178]5[167][139]b[178]2[176]b[178]4[176]b[178]6[176]b[178]8[167]660
  73. 610 [139]a[178]6[167][139]b[178]3[176]b[178]5[176]b[178]9[167]660
  74. 620 [139]a[178]7[167][139]b[178]4[176]b[178]8[167]660
  75. 630 [139]a[178]8[167][139]b[178]5[176]b[178]7[176]b[178]9[167]660
  76. 640 [139]a[178]9[167][139]b[178]8[176]b[178]6[167]660
  77. 650 [141]1420:[137]460
  78. 660 [151]p2(a),160:[151]p2(b),l:b[178]a
  79. 670 tn[178]tn[170]1:[141]1480:[141]1820
  80. 680 [139]f1[178]0[167][151]x,[194](x)[171]128:[137]460
  81. 690 [137]950
  82. 700 :
  83. 710 [141]1330:x[178]1387:bx[178]1:p2(0)[178]1383:b[178]1:[141]1480:[141]1920
  84. 720 [129]i[178]1[164]9:p2(i)[178]p2(i[171]1)[170]4:[130]
  85. 730 [151]x,32:[151]x[170]s,1
  86. 740 [151]x,[194](x)[170]128
  87. 750 [161]k$
  88. 760 [139]k$[178]""[167][141]1650
  89. 770 [139]k$[178]"cmd"[167][141]1670
  90. 780 [139]k$[178][199](13)[167]820
  91. 790 [139]k$[178]"q"[167][138]
  92. 800 [151]x,[194](x)[171]128:[129]t[178]1[164]100:[130]
  93. 810 [137]740
  94. 820 a[178]bx:l[178][194](x):c[178][182](a[171]b):[141]1510
  95. 830 [139]c[179]0[176]c[177]2[167][141]1420:[137]740
  96. 840 [139]a[178]b[167][141]1420:[137]740
  97. 850 [151]p2(a),160:[151]p2(b),l:b[178]a
  98. 860 tn[178]tn[170]1:[141]1480:[141]1820
  99. 870 [139]f1[178]0[167][151]x,[194](x)[171]128:[137]740
  100. 880 [137]950
  101. 890 :
  102. 950 fm$[178]"openclrsysdefprintcont"
  103. 955 [129]i[178]4[164]14:[153][200](fm$,i)"            (NULL)uzzle (NULL)olved!!!            "
  104. 960 [141]1510:[130]
  105. 965 [129]t[178]1[164]500:[130]
  106. 970 [153]"        (NULL)ress any key to continue       "
  107. 975 [161]k$:[139]k$[178]""[167]975
  108. 980 [138]
  109. 990 :
  110. 1000 :
  111. 1010 :
  112. 1020 [153]"loadtantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan";
  113. 1021 [153]"def               (NULL)uzzle right$                 ";
  114. 1022 [153]"waittantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan"
  115. 1030 [153][163]12)"ortan^ortan^ortan^"
  116. 1040 [153][163]12)"(NULL) (NULL)waittantantan(NULL) (NULL)waittantantan(NULL) (NULL)"
  117. 1050 [153][163]12)"/tanexp/tanexp/tanexp"
  118. 1060 [153][163]12)" (NULL) +       + (NULL)"
  119. 1070 [153][163]12)" (NULL)  +     +  (NULL)"
  120. 1080 [153][163]12)" (NULL)   +   +   (NULL)       sys1wait-2wait-3"
  121. 1090 [153][163]12)"ortan^ortan^ortan^wait      sys(NULL)   (NULL)"
  122. 1100 [153][163]12)"(NULL) (NULL)(NULL) (NULL)(NULL) (NULL)wait      sys4wait   5"
  123. 1110 [153][163]12)"/tanexp/tanexp/tanexpwait      sys(NULL)   (NULL)"
  124. 1120 [153][163]12)" (NULL)   +   +   (NULL)       sys6wait-7wait-8"
  125. 1130 [153][163]12)" (NULL)  +     +  (NULL)"
  126. 1140 [153][163]12)" (NULL) +       + (NULL)"
  127. 1150 [153][163]12)"ortan^ortan^ortan^"
  128. 1160 [153][163]12)"(NULL) (NULL)waittantantan(NULL) (NULL)waittantantan(NULL) (NULL)"
  129. 1170 [153][163]12)"/tanexp/tanexp/tanexp"
  130. 1180 [129]i[178]1[164]9:[151]p1(i)[170]s,1:[151]p1(i),l1(i)[170]128:[130]
  131. 1190 [142]
  132. 1200 :
  133. 1210 [153]"loadtantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan";
  134. 1211 [153]"cont               (NULL)uzzle right$right$                ";
  135. 1212 [153]"waittantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan"
  136. 1220 [153]"   ortantantantantantantantantantan^ ortantantantantantantantantantan^
  137. 1230 print"   [221]  [176][192][192][192][192][192][192][174][221] [221]  [176][192][192][192][192][192][174] [221]"
  138. 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]"
  139. 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]";
  140. 1260 print"[192][221][154]5[146][221][192][221][154]7[146][221]"
  141. 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]"
  142. 1280 print"           [221] [173][192][192][192][192][192][189]  [221] [221][173][192][192][192][192][192][189]   [221]"
  143. 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]"
  144. 1300 printtab(10)"[153] [146]-8[146]-7[146]-6[146]-5[146]-4[146]-3[146]-2[146]-1"
  145. 1310 return
  146. 1320 :
  147. 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]";
  148. 1331 print"[153]               [208]uzzle [201][201][201]               ";
  149. 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]"
  150. 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]"
  151. 1350 forj=1to3:print" ";
  152. 1360 fori=1to9:print"[146][150][221]   ";:next:print"[146][150][221]":next
  153. 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]"
  154. 1380 print" 12345678"
  155. 1390 print""tab(11)"[158] [146]-8[146]-7[146]-6[146]-5[146]-4[146]-3[146]-2[146]-1"
  156. 1400 return
  157. 1410 :
  158. 1420 print""tab(16)"[159][201]llegal [205]ove!"
  159. 1430 fort=1to1000:next
  160. 1440 print""tab(16)"             "
  161. 1450 pokex,peek(x)-128
  162. 1460 return
  163. 1470 :
  164. 1480 print"[156]  [192][192][192][192][192][192][192][192][192][192][192] "
  165. 1481 print"             "
  166. 1482 print"[145][205]oves:"tn
  167. 1483 print"[156]  [192][192][192][192][192][192][192][192][192][192][192] "
  168. 1490 return
  169. 1500 :
  170. 1510 pokes+24,15:pokes+5,9
  171. 1520 pokes+4,17:pokes+1,17:pokes,37
  172. 1530 fort=1to100:next
  173. 1540 pokes+4,16:return
  174. 1550 :
  175. 1560 bx=bx+1:x=x+6:ifpeek(x)=32thenbx=bx-1:x=x-6
  176. 1570 return
  177. 1580 bx=bx-1:x=x-6:ifpeek(x)=32thenbx=bx+1:x=x+6
  178. 1590 return
  179. 1600 bx=bx-3:x=x-240:ifx<1237thenbx=bx+3:x=x+240
  180. 1610 return
  181. 1620 bx=bx+3:x=x+240:ifpeek(x)=32thenbx=bx-3:x=x-240
  182. 1630 return
  183. 1640 :
  184. 1650 bx=bx+1:x=x+4:ifbx=10thenbx=9:x=x-4
  185. 1660 return
  186. 1670 bx=bx-1:x=x-4:ifbx=0thenbx=1:x=x+4
  187. 1680 return
  188. 1690 :
  189. 1700 f1=0
  190. 1710 ifpeek(p1(1))<>177thenreturn
  191. 1720 ifpeek(p1(2))<>178thenreturn
  192. 1730 ifpeek(p1(3))<>179thenreturn
  193. 1740 ifpeek(p1(4))<>180thenreturn
  194. 1750 ifpeek(p1(5))<>160thenreturn
  195. 1760 ifpeek(p1(6))<>181thenreturn
  196. 1770 ifpeek(p1(7))<>182thenreturn
  197. 1780 ifpeek(p1(8))<>183thenreturn
  198. 1790 ifpeek(p1(9))<>184thenreturn
  199. 1800 f1=1:return
  200. 1810 :
  201. 1820 f1=0:i=2:j=184
  202. 1830 ifpeek(p2(1))<>160thenreturn
  203. 1840 ifpeek(p2(i))<>jthenreturn
  204. 1850 i=i+1:j=j-1:ifi<10then1840
  205. 1860 f1=1:return
  206. 1870 :
  207. 1880 data  1237,1243,1249,1477,1483,1489
  208. 1890 data 1717,1723,1729
  209. 1900 data 52,54,55,49,32,56,50,51,53
  210. 1910 :
  211. 1920 print""tab(31)"[156] [192][192][192][192][192][192] "
  212. 1921 printtab(31)" [209]=[209]uit[156]"
  213. 1922 printtab(31)" [192][192][192][192][192][192] "
  214. 1923 return
  215. 1924 :
  216. 2000 poke53280,11:poke53281,0
  217. 2005 printchr$(147);chr$(14);chr$(8);
  218. 2010 x=1
  219. 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]";
  220. 2020 gosub2060:poke2023,125:poke56295,14
  221. 2025 getk$:ifk$=""then2025
  222. 2030 ifk$<>chr$(13)then2025
  223. 2035 x=x+1:ifx=4thenrun
  224. 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]";
  225. 2045 onxgosub2060,2190,2320
  226. 2050 goto2025
  227. 2055 :
  228. 2060 print"[154]{$7d}[150] Puzzles        by Barbara H. Schulak [146][154]{$7d}";
  229. 2065 print"[171]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[179]";
  230. 2070 print"{$7d}[153]                                      [154]{$7d}";
  231. 2075 print"{$7d}[153]   This program presents three[153]        [154]{$7d}";
  232. 2080 print"{$7d}[153] separate puzzles that require you to[153] [154]{$7d}";
  233. 2085 print"{$7d}[153] rearrange the numbers in the puzzle[153]  [154]{$7d}";
  234. 2090 print"{$7d}[153] in the fewest number of moves to[153]     [154]{$7d}";
  235. 2095 print"{$7d}[153] form a set pattern as shown on the[153]   [154]{$7d}";
  236. 2100 print"{$7d}[153] screen.[153]                              [154]{$7d}";
  237. 2105 print"{$7d}[153]                                      [154]{$7d}";
  238. 2110 print"{$7d}[153]   In all three puzzles, movement[153]     [154]{$7d}";
  239. 2115 print"{$7d}[153] from square to square is done by[153]     [154]{$7d}";
  240. 2120 print"{$7d}[153] using the cursor keys.  When the[153]     [154]{$7d}";
  241. 2125 print"{$7d}[153] flashing cursor is on the number     [154]{$7d}";
  242. 2130 print"{$7d}[153] that you wish to place in the empty[153]  [154]{$7d}";
  243. 2135 print"{$7d}[153] cell, simply press [156]RETURN.  Illegal[153]  [154]{$7d}";
  244. 2140 print"{$7d}[153] moves are not allowed by the         [154]{$7d}";
  245. 2145 print"{$7d}[153] computer.  Press '[156]Q' to quit a[153]       [154]{$7d}";
  246. 2150 print"{$7d}[153] puzzle.[153]                              [154]{$7d}";
  247. 2155 print"{$7d}[153]                                      [154]{$7d}";
  248. 2160 print"{$7d}[153]                                      [154]{$7d}";
  249. 2165 print"[171]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[179]";
  250. 2170 print"{$7d}[153]             Press RETURN             [146][154]{$7d}";
  251. 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]";
  252. 2180 return
  253. 2185 :
  254. 2190 print"{$7d}[150] Puzzles        by Barbara H. Schulak [146][154]{$7d}";
  255. 2195 print"[171]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[179]";
  256. 2200 print"{$7d}[153]                                      [154]{$7d}";
  257. 2205 print"{$7d}[153]  [156] The first puzzle is a number       [154]{$7d}";
  258. 2210 print"{$7d}[153] square.  By sliding the numbers one[153]  [154]{$7d}";
  259. 2215 print"{$7d}[153] at a time into the empty square, you[153] [154]{$7d}";
  260. 2220 print"{$7d}[153] must rearrange the numbers so that[153]   [154]{$7d}";
  261. 2225 print"{$7d}[153] they are in the correct order.  You[153]  [154]{$7d}";
  262. 2230 print"{$7d}[153] may only move between adjacent       [154]{$7d}";
  263. 2235 print"{$7d} squares that are connected by white[153]  [154]{$7d}";
  264. 2240 print"{$7d}[153] lines.  For example, at the start of[153] [154]{$7d}";
  265. 2245 print"{$7d}[153] the puzzle, you could move the 4, 7,[153] [154]{$7d}";
  266. 2250 print"{$7d}[153] 2 or 5 into the center square but   [153] [154]{$7d}";
  267. 2255 print"{$7d}[153] not the 1, 6, 8 or 3.[153]                [154]{$7d}";
  268. 2260 print"{$7d}[153]                                      [154]{$7d}";
  269. 2265 print"{$7d}[153]   This puzzle can be done in 30      [154]{$7d}";
  270. 2270 print"{$7d}[153] moves.[153]                               [154]{$7d}";
  271. 2275 print"{$7d}[153]                                      [154]{$7d}";
  272. 2280 print"{$7d}[153]                                      [154]{$7d}";
  273. 2285 print"{$7d}[153]                                      [154]{$7d}";
  274. 2290 print"{$7d}[153]                                      [154]{$7d}";
  275. 2295 print"[171]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[179]";
  276. 2300 print"{$7d}[153]             Press RETURN             [146][154]{$7d}";
  277. 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]";
  278. 2310 return
  279. 2315 :
  280. 2320 print"{$7d}[150] Puzzles        by Barbara H. Schulak [146][154]{$7d}";
  281. 2325 print"[171]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[179]";
  282. 2330 print"{$7d}[153]                                      [154]{$7d}";
  283. 2335 print"{$7d}[153]   The second puzzle again involves[153]   [154]{$7d}";
  284. 2340 print"{$7d}[153] rearranging[153] the numbers into the[153]     [154]{$7d}";
  285. 2345 print"{$7d}[153] correct order by shifting them from[153]  [154]{$7d}";
  286. 2350 print"{$7d}[153] square to square.  Again the cells[153]   [154]{$7d}";
  287. 2355 print"{$7d}[153] must be connected by white lines.[153]    [154]{$7d}";
  288. 2360 print"{$7d}[153] Jumps are not allowed.[153]               [154]{$7d}";
  289. 2365 print"{$7d}[153]                                      [154]{$7d}";
  290. 2370 print"{$7d}[153]   This puzzle can be solved in a[153]     [154]{$7d}";
  291. 2375 print"{$7d}[153] minimum of 26 moves.[153]                 [154]{$7d}";
  292. 2380 print"{$7d}[153]                                      [154]{$7d}";
  293. 2385 print"{$7d}[153]   The last puzzle is a variation of[153]  [154]{$7d}";
  294. 2390 print"{$7d}[153] the second but single moves and  [153]    [154]{$7d}";
  295. 2395 print"{$7d}[153] jumps are allowed.  At least 36   [153]   [154]{$7d}";
  296. 2400 print"{$7d}[153] moves are required to solve this    [153] [154]{$7d}";
  297. 2405 print"{$7d}[153] one.[153]                                 [154]{$7d}";
  298. 2410 print"{$7d}[153]                                      [154]{$7d}";
  299. 2415 print"{$7d}[153]                                      [154]{$7d}";
  300. 2420 print"{$7d}[153]                                      [154]{$7d}";
  301. 2425 print"[171]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[179]";
  302. 2430 print"{$7d}[153]             Press RETURN             [146][154]{$7d}";
  303. 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]";
  304. 2440 return
  305. 9999 :
  306. 10000 open15,8,15,"s0:puzzles":close15:save"0:puzzles",8
  307. 60000 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  308. 60010 ifer<>63thenend
  309. 60020 load"hello connect",8
  310.