home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 47 / 047.d81 / puzzles (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  10KB  |  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]