home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 44 / 044.d81 / jump! (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  7KB  |  284 lines
  1. 10 poke53281,.:poke53280,2:printchr$(14)
  2. 20 gosub2450
  3. 30 print"[147][159]                 [202]ump![159]                  "
  4. 40 s=54272:js=56320:dimtn(12):bc=0
  5. 50 fori=1to24:pokes+i,0:next
  6. 60 fori=1to12:readtn(i):next
  7. 70 pz=1:x=1154:iffl=1thengosub990
  8. 80 iffl=2thengosub1130
  9. 90 poke53281,bc:tn=0:gosub540:x=1523
  10. 95 printchr$(142);
  11. 100 onpzgosub1400,1430,1530,2000,2090,1630,1720,1820,1910,2180,2280,2340
  12. 110 mk=0
  13. 120 pokex,peek(x)+128
  14. 130 pokex,peek(x)-128
  15. 140 joy=15-(peek(js)and15):fb=peek(js)and16:getk$
  16. 150 ifjoy=8ork$=""thengosub900
  17. 160 ifjoy=4ork$="[157]"thengosub920
  18. 170 ifjoy=1ork$="[145]"thengosub940
  19. 180 ifjoy=2ork$=""thengosub960
  20. 190 iffb=0ork$=chr$(13)then230
  21. 195 ifk$<>"[133]"then200
  22. 196 bc=bc+1:ifbc>15thenbc=0
  23. 197 ifbc=1orbc=6orbc=7thenbc=bc+1:goto197
  24. 198 poke53281,bc
  25. 200 ifk$="[140]"thenpz=1:x=1154:gosub1130:goto90
  26. 210 pokex,peek(x)+128:fort=1to50:next
  27. 220 goto130
  28. 230 gosub850:mk=mk+1:p=peek(x+s)and15
  29. 240 ifmk=1andp=1thengosub780:goto120
  30. 250 ifmk=1andp=6thena=x:pokea+s,7:q=p:goto120
  31. 260 b=x
  32. 270 pp=peek(b+s)and15:ifpp<>1thengosub780:goto120
  33. 280 c=abs(a-b):t=0
  34. 290 ifa>bthend=1:rem less
  35. 300 ifb>athend=0:rem more
  36. 310 ifc=6thent=t+1:v=3
  37. 320 ifc=240thent=t+1:v=120
  38. 330 ift=0thengosub780:goto120
  39. 340 ifd=1thenz=b+v
  40. 350 ifd=0thenz=a+v
  41. 360 if(peek(z+s)and15)<>6thengosub780:goto120
  42. 370 pokez+s,1:tn=tn+1
  43. 380 pokea+s,1:pokeb+s,6
  44. 390 iftn<tn(pz)then110
  45. 400 pokex+s,1
  46. 410 fori=1to10
  47. 420 print""tab(10)"solved!"
  48. 430 gosub850
  49. 440 print""tab(10)"[159]solved!"
  50. 450 next
  51. 460 print""tab(13)"press"
  52. 470 print""tab(13)"[153]space"
  53. 480 getk$
  54. 490 print""tab(13)"[156]space"
  55. 500 ifk$<>" "then470
  56. 510 pz=1:x=1154:gosub1130:goto90
  57. 520 end
  58. 530 :
  59. 540 a$="   ":b$=" [209] ":c$="   "
  60. 550 print"[147]";chr$(142)
  61. 560 gosub680:gosub730
  62. 570 fori=1to3
  63. 580 printtab(9):forj=1to7:printa$;:next:print
  64. 590 printtab(9):forj=1to7:printb$;:next:print
  65. 600 printtab(9):forj=1to7:printc$;:next:print
  66. 610 next
  67. 620 gosub730:gosub680
  68. 630 print""tab(28)"[176][192][192][192][192][192][192][192][192][174]"
  69. 640 printtab(28)"[221]f1 color[221]"
  70. 645 printtab(28)"[221]f8  quit[221]"
  71. 650 printtab(28)"[173][192][192][192][192][192][192][192][192][189]"
  72. 660 return
  73. 670 :
  74. 680 printtab(15):forj=1to3:printa$;:next:print
  75. 690 printtab(15):forj=1to3:printb$;:next:print
  76. 700 printtab(15):forj=1to3:printc$;:next:print
  77. 710 return
  78. 720 :
  79. 730 printtab(12):forj=1to5:printa$;:next:print
  80. 740 printtab(12):forj=1to5:printb$;:next:print
  81. 750 printtab(12):forj=1to5:printc$;:next:print
  82. 760 return
  83. 770 :
  84. 780 print"[159]illegal move!"
  85. 790 fort=1to1000:next
  86. 800 print"             "
  87. 810 ifmk=2thenpokea+s,q
  88. 820 mk=0
  89. 830 return
  90. 840 :
  91. 850 pokes+24,15:pokes+5,9
  92. 860 pokes+4,17:pokes+1,17:pokes,50
  93. 870 fort=1to50:next
  94. 880 pokes+4,16:return
  95. 890 :
  96. 900 x=x+3:ifpeek(x)<>81thenx=x-3
  97. 910 return
  98. 920 x=x-3:ifpeek(x)<>81thenx=x+3
  99. 930 return
  100. 940 x=x-120:ifpeek(x)<>81thenx=x+120
  101. 950 return
  102. 960 x=x+120:ifpeek(x)<>81thenx=x-120
  103. 970 return
  104. 980 :
  105. 990 poke53281,0:print"  [212]he object of these puzzles is to
  106. 1000 [153]"  remove all the pegs on the grid but
  107. 1010 print"  one.  [217]ou may jump horizontally or
  108. 1015 [153]"  vertically.
  109. 1020 print"  [194]lue balls represent the pegs and
  110. 1030 [153]"  white balls represent the empty "
  111. 1031 [153]"  holes.
  112. 1040 print"  [213]se the joystick ([208]ort 2) or the"
  113. 1050 print"  cursor keys to move around the board."
  114. 1060 print"  [205]ark the peg that you want to jump"
  115. 1070 print"  by pushing the [198][201][210][197] button or by"
  116. 1071 print"  pressing [210][197][212][213][210][206]."
  117. 1072 print"  [212]hen move to the empty hole you want"
  118. 1073 print"  to jump to and push the button or"
  119. 1074 print"  press [210][197][212][213][210][206].
  120. 1080 [153]"  (NULL)ress defasc8 at any time to quit.
  121. 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]"
  122. 1100 printtab(6)"[153]  [208]ress [158][211][208][193][195][197][194][193][210][153] to play.  "
  123. 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]"
  124. 1120 getk$:ifk$<>" "then1120
  125. 1130 printchr$(14);:print"[147][159]                 [202]ump![159]                  "
  126. 1135 poke53281,0
  127. 1140 printtab(10)"* [211]olitaire
  128. 1150 [153][163]12)"lenross right$
  129. 1160 printtab(12)"[195]ross [201][201]
  130. 1170 [153][163]12)"lenross right$right$right$
  131. 1180 printtab(12)"[195]ross [201][214]
  132. 1190 [153][163]12)"(NULL)he valleven
  133. 1200 printtab(12)"[208]yramid [201]"
  134. 1210 printtab(12)"[208]yramid [201][201]"
  135. 1220 printtab(12)"[212]he [204]amp"
  136. 1230 printtab(12)"[212]he [196]iamond"
  137. 1240 printtab(12)"[212]he [207]ctagon"
  138. 1250 printtab(12)"[212]he [208]entagon"
  139. 1260 printtab(12)"[197]xit [208]rogram"
  140. 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]";
  141. 1280 print"[221][153] [205]ove the asterisk ([158]*[153]) with joystick  [221]";
  142. 1290 print"[221][153]   or cursor keys and press either    [221]";
  143. 1295 print"[221][153]   [158][198][201][210][197][153] or [158][210][197][212][213][210][206][153] to select.          [221]";
  144. 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]"
  145. 1310 jo=15-(peek(js)and15):pokex,32:pokex+s,14:getk$
  146. 1320 ifjo=1ork$="[145]"thenx=x-40:pz=pz-1:ifpz<1thenx=1634:pz=13
  147. 1330 ifjo=2ork$=""thenx=x+40:pz=pz+1:ifpz>13thenx=1154:pz=1
  148. 1340 pokex,42:pokex+s,14
  149. 1350 fb=peek(js)and16:iffb=0ork$=chr$(13)then1370
  150. 1360 goto1310
  151. 1370 gosub850:ifpz<>13thenreturn
  152. 1375 print"[145][145][145][145][145][145][145]  [193]re you sure you want to quit? ([159][217]/[159][206])"
  153. 1376 geta$:ifa$<>"y"anda$<>"n"then1376
  154. 1377 ifa$="n"thenpz=1:x=1154:goto1130
  155. 1380 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  156. 1385 ifer<>63thenend
  157. 1390 load "hello connect",8
  158. 1400 print"[159]               solitaire[159]                "
  159. 1410 pokex+s,1:return
  160. 1420 :
  161. 1430 print"[159]                cross i[159]                 "
  162. 1440 printtab(16)"[209][209][209]"
  163. 1450 printtab(13)"[209][209][209][209]"
  164. 1460 printtab(10)"[209][209][209][209]"
  165. 1470 printtab(10)"[209][209][209][209][209][209]"
  166. 1480 printtab(10)"[209][209][209][209][209][209]"
  167. 1490 printtab(13)"[209][209][209][209][209]"
  168. 1500 printtab(16)"[209][209][209]"
  169. 1510 return
  170. 1520 :
  171. 1530 print"[159]                cross ii[159]                "
  172. 1540 printtab(16)"[209][209][209]"
  173. 1550 printtab(13)"[209][209][209][209]"
  174. 1560 printtab(10)"[209][209][209][209][209][209]"
  175. 1570 printtab(10)"[209][209]"
  176. 1580 printtab(10)"[209][209][209][209][209][209]"
  177. 1590 printtab(13)"[209][209][209][209]"
  178. 1600 printtab(16)"[209][209][209]"
  179. 1610 return
  180. 1620 :
  181. 1630 print"[159]               the eleven[159]               "
  182. 1640 printtab(13)"[209][209]"
  183. 1650 printtab(10)"[209][209][209][209]"
  184. 1660 printtab(10)"[209][209][209][209][209]"
  185. 1670 printtab(10)"[209][209][209][209][209][209][209]"
  186. 1680 printtab(13)"[209][209][209][209][209]"
  187. 1690 printtab(16)"[209][209][209]"
  188. 1700 return
  189. 1710 :
  190. 1720 print"[159]                pyramid i[159]               "
  191. 1730 printtab(16)"[209][209][209]"
  192. 1740 printtab(13)"[209][209][209][209][209]"
  193. 1750 printtab(10)"[209][209][209][209][209][209]"
  194. 1760 printtab(10)"[209][209][209][209]"
  195. 1770 printtab(10)"[209][209]"
  196. 1780 printtab(13)"[209][209][209][209][209]"
  197. 1790 printtab(16)"[209][209][209]"
  198. 1800 return
  199. 1810 :
  200. 1820 print"[159]              pyramid ii[159]                "
  201. 1830 printtab(16)"[209][209][209]"
  202. 1840 print