home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1986 March / 1986-03.d64 / shifter (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  6KB  |  202 lines
  1. 10 poke56,60:poke55,0:clr:km=15360:ro=1:printchr$(8):dimz$(23)
  2. 20 h=54272:fori=htoh+24:pokei,0:next:fori=0to15:pokeh+24,i:next:pokeh+5,200
  3. 30 pokeh+6,200:pokeh+4,17
  4. 40 bc=53280:bk=53281:pokebc,6:pokebk,6:print"[147][159]"spc(6);
  5. 50 print"[172][172][187][146][187]     [187][172][146]     [188][187][172][146][190]    [161][172][187][146][187]"spc(12)"[188][188][146][162]      [161][146][161]";
  6. 60 printspc(6)"[161][146][161]     [161][188][190][146][190]"spc(12)"[172][187][161][146][161]     [161][146][161]      [161][146][161]     [161][172][188][146]";
  7. 70 printspc(14)"[162][162][146]      [162][162][146]      [188][190]     [188][190][188][190][145][145][145]"spc(16);
  8. 80 print"[161][146][161][161][146][161]"spc(4)"[161][172][162][146][190]"spc(4)"[161][172][162][146][190]"spc(20)"[161][188][190][146][161]"spc(4)"[161][188][146][187]";
  9. 90 printspc(5)"[161][188][146][187]"spc(21)"[161][146][161][161][146][161]"spc(4)"[161][146][161]"spc(6)"[161][146][161]"spc(22)"[188][190][188][190]";
  10. 100 printspc(4)"[188][190]"spc(6)"[188][162][162][146][190]":printspc(14)"enter level"
  11. 110 printspc(16)"1  2  3[157][157][157][157][157][157][157][157][157]fast   slow"
  12. 120 kt$="":getkt$:ifkt$<"1"orkt$>"3"then120
  13. 130 kt=val(kt$)+2:poke850,kt
  14. 140 printspc(12)"[145][145][145][145][145]designing board":print""spc(14)"please wait"
  15. 150 printspc(14)"           ":a$(1)="[192]":a$(2)="[194]":a$(3)="[206]":a$(4)="[205]":a$(5)=" "
  16. 160 b$="                         ":c$=" [146]":e$="[159][160]      ":d$=e$+" ":gosub570
  17. 170 fori=1to23:mt$=mt$+"[157]"+c$:next:mt$=mt$+""
  18. 180 gosub420:print"[147]";:pokebc,3:pokebk,0
  19. 190 printd$""b$"[159]      ":poke1063,160:poke55335,3
  20. 200 fori=1to23:printd$""c$"[155]"z$(i)""c$e$;:next:printd$""b$"[159]      "
  21. 210 poke2023,160:poke56295,3:pokebk,0
  22. 220 print"[159] [158]score[157][157][157][157][159]"s1:print" round[157][157][157][157]"ro
  23. 230 print"[159] [150]score[157][157][157][157][159]"s2
  24. 240 print""spc(36)"sh[157][157]i[157][157]fte[157][157]r"
  25. 250 ifck=1thenck=0:s1=0:s2=0:ro=1:kc=0:goto310
  26. 260 poke831,rnd(0)*4:ifkcthen280
  27. 270 gosub520
  28. 280 sys15360:kc=1:sp=peek(195)+256*peek(196):gosub430:pokesp,160
  29. 290 ro=ro+1:ifs1=5ors2=5thenck=1:ro=ro-1
  30. 300 goto220
  31. 310 print""spc(16)"game over":print""spc(12)"press firebutton"
  32. 320 if(peek(56320)andpeek(56321))and16then320
  33. 330 print"":fori=1to23:printd$""c$"[155]"z$(i)""c$e$;:next
  34. 340 printd$""b$"[159]      ":pokebk,15
  35. 350 printspc(15)"[144]enter level":printspc(18)"(1-3)"
  36. 360 poke198,0:wait198,1:getkt$:ifkt$<"1"orkt$>"3"then360
  37. 370 kt=val(kt$)+2:poke850,kt
  38. 380 print"[145][145][145][145]"spc(13)"[144]designing board":printspc(18)"     "
  39. 390 fori=1to23:z$(i)="":next:gosub420:print"";:goto190
  40. 400 x=int(28*rnd(1))+1:ifx>4thenx=5
  41. 410 return
  42. 420 forz=1to23:fori=1to23:gosub400:z$(z)=z$(z)+a$(x):nexti,z:return
  43. 430 ifsp<1063orsp>1984then470
  44. 440 s1=s1+1:te=7:gosub540:forq=1to8:poke646,te:print""spc(9)mt$""spc(33)mt$
  45. 450 ifte=7thente=6:fore=1to130:nexte,q:return
  46. 460 te=7:nextq:return
  47. 470 s2=s2+1:te=2:gosub540:forq=1to8:poke646,temp
  48. 480 print""spc(8)b$:print""spc(8)b$""
  49. 490 fore=1to75:nexte
  50. 500 ifte=2thente=6:nextq:return
  51. 510 te=2:nextq:return
  52. 520 fori=10to255step20:forl=255to10step-50:pokeh+1,i:pokeh,l:next:next
  53. 530 pokeh,0:pokeh+1,0:return
  54. 540 fori=255to120step-30:forl=10to255step10:pokeh+1,l:pokeh,i:next:next
  55. 550 goto530
  56. 560 poke646,6:return
  57. 570 reada:ifa=256thenreturn
  58. 580 pokekm,a:km=km+1:goto570
  59. 590 data 32,42,60,32,123,60
  60. 600 data 32,175,60,32,54,61
  61. 610 data 165,108,32,23,62,165
  62. 620 data 109,32,75,62,206,65
  63. 630 data 3,208,9,173,66,3
  64. 640 data 141,65,3,32,155,62
  65. 650 data 32,12,62,76,6,60
  66. 660 data 173,27,3,201,243,240
  67. 670 data 23,169,49,133,100,169
  68. 680 data 12,133,101,169,0,133
  69. 690 data 98,169,252,133,99,169
  70. 700 data 1,141,69,3,208,21
  71. 710 data 169,49,133,100,169,4
  72. 720 data 133,101,169,0,133,98
  73. 730 data 169,212,133,99,169,0
  74. 740 data 141,69,3,173,69,3
  75. 750 data 10,10,24,105,3,170
  76. 760 data 160,3,189,115,60,153
  77. 770 data 106,0,202,136,16,246
  78. 780 data 96,15,5,7,2,81
  79. 790 data 101,103,66,165,100,133
  80. 800 data 3,133,5,24,105,195
  81. 810 data 133,195,165,101,133,4
  82. 820 data 133,6,105,1,133,196
  83. 830 data 169,0,141,60,3,141
  84. 840 data 61,3,169,32,141,64
  85. 850 data 3,173,82,3,141,65
  86. 860 data 3,141,66,3,169,11
  87. 870 data 141,67,3,141,68,3
  88. 880 data 96,162,0,32,244,61
  89. 890 data 74,176,29,173,60,3
  90. 900 data 240,121,206,60,3,165
  91. 910 data 106,32,23,62,165,3
  92. 920 data 56,233,40,133,3,165
  93. 930 data 4,233,0,133,4,76
  94. 940 data 53,61,74,176,31,173
  95. 950 data 60,3,201,22,240,87
  96. 960 data 165,106,32,23,62,238
  97. 970 data 60,3,165,3,24,105
  98. 980 data 40,133,3,165,4,105
  99. 990 data 0,133,4,76,53,61
  100. 1000 data 174,60,3,236,67,3
  101. 1010 data 240,55,74,176,27,160
  102. 1020 data 0,177,3,72,136,200
  103. 1030 data 200,192,23,240,8,177
  104. 1040 data 3,136,145,3,76,7
  105. 1050 data 61,104,136,145,3,76
  106. 1060 data 53,61,74,176,22,160
  107. 1070 data 22,177,3,72,200,136
  108. 1080 data 136,48,8,177,3,200
  109. 1090 data 145,3,76,37,61,104
  110. 1100 data 200,145,3,96,162,1
  111. 1110 data 32,244,61,74,176,55
  112. 1120 data 174,61,3,236,68,3
  113. 1130 data 240,44,160,0,177,5
  114. 1140 data 72,165,5,133,252,165
  115. 1150 data 6,133,253,162,21,160
  116. 1160 data 40,177,252,160,0,145
  117. 1170 data 252,165,252,24,105,40
  118. 1180 data 133,252,165,253,105,0
  119. 1190 data 133,253,202,16,232,104
  120. 1200 data 160,0,145,252,76,243
  121. 1210 data 61,74,176,60,174,61
  122. 1220 data 3,236,68,3,240,115
  123. 1230 data 165,5,24,105,72,133
  124. 1240 data 252,165,6,105,3,133
  125. 1250 data 253,160,40,177,252,72
  126. 1260 data 162,21,160,0,177,252
  127. 1270 data 160,40,145,252,165,252
  128. 1280 data 56,233,40,133,252,165
  129. 1290 data 253,233,0,133,253,202
  130. 1300 data 16,232,104,160,40,145
  131. 1310 data 252,76,243,61,74,176
  132. 1320 data 29,173,61,3,240,55
  133. 1330 data 206,61,3,165,106,32
  134. 1340 data 75,62,165,5,56,233
  135. 1350 data 1,133,5,165,6,233
  136. 1360 data 0,133,6,76,243,61
  137. 1370 data 74,176,28,173,61,3
  138. 1380 data 201,22,240,21,238,61
  139. 1390 data 3,165,106,32,75,62
  140. 1400 data 165,5,24,105,1,133
  141. 1410 data 5,165,6,105,0,133
  142. 1420 data 6,96,173,69,3,208
  143. 1430 data 4,189,0,220,96,189
  144. 1440 data 10,62,141,8,255,234
  145. 1450 data 234,234,173,8,255,96
  146. 1460 data 250,253,162,50,160,0
  147. 1470 data 136,208,253,202,208,250
  148. 1480 data 96,141,62,3,165,3
  149. 1490 data 133,247,24,101,98,133
  150. 1500 data 252,165,4,133,248,101
  151. 1510 data 99,133,253,160,22,173
  152. 1520 data 62,3,145,252,177,247
  153. 1530 data 201,81,240,13,174,62
  154. 1540 data 3,228,106,240,4,9
  155. 1550 data 128,208,2,41,127,145
  156. 1560 data 247,136,16,227,96,141
  157. 1570 data 62,3,165,5,24,101
  158. 1580 data 98,133,252,165,6,101
  159. 1590 data 99,133,253,162,22,173
  160. 1600 data 62,3,160,0,145,252
  161. 1610 data 165,252,56,229,98,133
  162. 1620 data 247,165,253,229,99,133
  163. 1630 data 248,160,0,177,247,201
  164. 1640 data 81,240,13,172,62,3
  165. 1650 data 196,106,240,4,9,128
  166. 1660 data 208,2,41,127,160,0
  167. 1670 data 145,247,165,252,24,105
  168. 1680 data 40,133,252,165,253,105
  169. 1690 data 0,133,253,202,16,195
  170. 1700 data 96,173,64,3,160,0
  171. 1710 data 145,195,165,195,24,101
  172. 1720 data 98,133,252,165,196,101
  173. 1730 data 99,133,253,165,106,145
  174. 1740 data 252,173,63,3,170,173
  175. 1750 data 68,3,24,125,78,63
  176. 1760 data 141,68,3,173,67,3
  177. 1770 data 24,125,82,63,141,67
  178. 1780 data 3,173,63,3,10,170
  179. 1790 data 165,195,24,125,62,63
  180. 1800 data 133,195,165,196,125,63
  181. 1810 data 63,133,196,177,195,41
  182. 1820 data 127,141,64,3,162,3
  183. 1830 data 221,70,63,240,5,202
  184. 1840 data 48,35,16,246,201,64
  185. 1850 data 208,9,173,63,3,41
  186. 1860 data 1,208,22,240,11,201
  187. 1870 data 66,208,7,173,63,3
  188. 1880 data 41,1,240,9,173,63
  189. 1890 data 3,93,74,63,141,63
  190. 1900 data 3,169,81,145,195,165
  191. 1910 data 195,24,101,98,133,252
  192. 1920 data 165,196,101,99,133,253
  193. 1930 data 177,252,41,15,201,6
  194. 1940 data 208,13,165,106,32,23
  195. 1950 data 62,165,106,32,75,62
  196. 1960 data 104,104,96,165,107,145
  197. 1970 data 252,96,216,255,1,0
  198. 1980 data 40,0,255,255,64,66
  199. 1990 data 77,78,2,2,3,1
  200. 2000 data 0,1,0,255,255,0
  201. 2010 data 1,0,256
  202.