home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Uptime_The_Disk_Monthly_V1_12_19xx_Uptime_staff_Side_B.d64 / alphabopper (.txt) next >
Commodore BASIC  |  2023-02-26  |  6KB  |  159 lines
  1. 10 poke53281,0:poke53280,0:gosub 116:goto64
  2. 12 pokes1,90:pokes1+1,90:pokes1,0:pokes1+1,0:return
  3. 14 pokes2+4,17:pokes2,40:pokes2+1,35:forx=1to100:next:pokes2+4,0:return
  4. 16 pokes2+4,17:pokes2,40:pokes2+1,35:forx=1to100:next:pokeg+21,0:pokes2+4,0
  5. 18 return
  6. 20 pokeg+16,0:q=q+1:ifq=21then178
  7. 22 ifhhthenhh=0:xc(xx)=xc(xx)+300
  8. 24 xx=int(rnd(1)*37+1):ifxc(xx)>300thenxc(xx)=xc(xx)-300:pokeg+16,7:hh=1
  9. 26 pokeg,xc(xx):pokeg+1,yc(xx):pokeg+2,xc(xx)-1:pokeg+3,yc(xx)
  10. 28 pokeg+4,xc(xx):pokeg+5,yc(xx)
  11. 30 geta$:ifa$=l$(xx)thenpokeg+21,4:gosub16:goto20
  12. 32 pokeg+21,1:forx=1to50:next:gosub12
  13. 34 geta$:ifa$=l$(xx)thenpokeg+21,4:gosub16:goto20
  14. 36 pokeg+21,2:forx=1to50:next:gosub12
  15. 38 print"[152]"spc(17)mid$(ti$,3,2)":"right$(ti$,2):goto30
  16. 40 print""spc(13)sc"[157] [152]out of"q
  17. 42 pokeg+16,0:q=q+1:ifq=21then178
  18. 44 ifhhthenhh=0:xc(xx)=xc(xx)+300
  19. 46 xx=int(rnd(1)*37+1):ifxc(xx)>300thenxc(xx)=xc(xx)-300:pokeg+16,7:hh=1
  20. 48 pokeg,xc(xx):pokeg+1,yc(xx):pokeg+2,xc(xx)-1:pokeg+3,yc(xx)
  21. 50 pokeg+4,xc(xx):pokeg+5,yc(xx):z=0
  22. 52 z=z+1:ifz=skthenz=0:pokeg+21,0:goto40
  23. 54 geta$:ifa$=l$(xx)thenpokeg+21,4:gosub16:pokeg+21,0:sc=sc+1:goto40
  24. 56 pokeg+21,1:forx=1to50:next:gosub12
  25. 58 geta$:ifa$=l$(xx)thenpokeg+21,4:gosub16:pokeg+21,0:sc=sc+1:goto40
  26. 60 pokeg+21,2:forx=1to50:next:gosub12
  27. 62 goto52
  28. 64 printchr$(142)chr$(8):forx=858to1022:pokex,0:next
  29. 66 forx=832to857:ready:pokex,y:next:forx=896to920:ready:pokex,y:next
  30. 68 forx=960to986:ready:pokex,y:next
  31. 70 data192,192,0,255,192,0,109,128,0,204,192,0,255,192,0,63,0,0,243,0,0
  32. 72 data243,192,0,3,192
  33. 74 data192,192,0,255,192,0,109,128,0,204,192,0,255,192,0,63,0,0
  34. 76 data51,192,0,243,192,0,240,21,0,0,21,0,0,21,84,0,21,84,0,21,0,0
  35. 78 data149,128,0,136,128,0,170,128,0,162,128,0
  36. 80 g=53248:pokeg+39,5:pokeg+40,5:poke2040,13:poke2041,14:pokeg+29,7:pokeg+23,7
  37. 82 pokeg+37,14:pokeg+41,5:poke2042,15:pokeg+28,4
  38. 84 dimxc(37),yc(37),l$(37),m1(44),m2(44),m3(44):gosub182
  39. 86 forx=1to44:readm1(x),m2(x),m3(x):next
  40. 88 forx=1to37:readxc(x),yc(x),l$(x):next
  41. 90 z=0:pokeg+21,0
  42. 91 printtab(9)"press any key to play"
  43. 92 gosub196:geta$:z=z+1:ifz<44thenifa$=""then92
  44. 94 ifa$<>""then140
  45. 96 z=0:gosub224:print""tab(18)"demo":printtab(9)"[152]press any key to play[145]"
  46. 98 z=z+1
  47. 100 y=int(rnd(1)*37+1):ifxc(y)>300then100
  48. 102 pokeg,xc(y):pokeg+1,yc(y)
  49. 104 pokeg+2,xc(y):pokeg+3,yc(y):pokeg+4,xc(y):pokeg+5,yc(y)
  50. 106 forx=1to5:pokeg+21,1:gosub12:fort=1to70:next:pokeg+21,2:gosub12
  51. 108 fort=1to70:next:next
  52. 110 geta$:ifa$<>""thenpokeg+21,0:goto140
  53. 112 pokeg+21,4:gosub14:pokeg+21,0:ifz<10then98
  54. 114 goto90
  55. 116 print"[147]"chr$(142)"[169] [169][146][169][169]   [146][169][169][146][169][169][146][169][169] "
  56. 118 print"[169][146][169] [169][146][169][169][146][169][169][146][169][169][146][169][164][169][146][169][169][146][169] "
  57. 120 print"[169][146][169][163] [169][146][169][169][146][169][163][163][163][169][146][169][163][169][146][169][169][146][169][163] "
  58. 122 print"[169][146][169] [169][146][169][169][146][169][169][146][169][169][146][169][169][146][169] "
  59. 124 print"[163][163][163][163]"
  60. 126 print"[154]  [223][169] [223]  [223]  [223]     [223]"
  61. 128 print"           "
  62. 130 print"       [146][169]  [146][169]     "
  63. 132 print"         "
  64. 134 print"  [146][169][223] [146][169]       "
  65. 135 print"[151]by steve elder"
  66. 138 return
  67. 140 poke 198,0:print"[147]   [207]ptions:"
  68. 142 print"[152] 0. [201]nstructions":print"[152] 1. [211]tandard [193]lpha[194]opper"
  69. 144 print" 2. [211]peed [193]lpha[194]opper":printtab(9)"[208]ress '0', '1' or '2'"
  70. 145 print"[152]    ([208]ress '[198]8' to return to [213]p[212]ime)"
  71. 146 getx$:ifx$=""then146
  72. 148 ifx$="1"thengosub224:ti$="000000":goto20
  73. 150 ifx$="2"then154
  74. 151 ifx$="0"then300
  75. 152 ifx$="[140]"thensys(8*4096)+4
  76. 153 goto146
  77. 154 print"[147]"tab(11)"[211]peed [193]lpha[194]opper"
  78. 156 print"[152] 1. [211]lowest"
  79. 158 print" 2.":print" 3.":print" 4.":print" 5. [198]astest"
  80. 160 printtab(7)"[197]nter your speed (1 to 5)
  81. 162 [161]x$:[139]x$[178]""[167]162
  82. 164 [139]x$[178]"1"[167]sk[178]15:[137]176
  83. 166 [139]x$[178]"2"[167]sk[178]12:[137]176
  84. 168 [139]x$[178]"3"[167]sk[178]9:[137]176
  85. 170 [139]x$[178]"4"[167]sk[178]7:[137]176
  86. 172 [139]x$[178]"5"[167]sk[178]5:[137]176
  87. 174 [137]162
  88. 176 [141]224:[137]42
  89. 178 [153]""[166]15)"finished!":[153][163]8)"press return to continue"
  90. 179 [151]198,0
  91. 180 [161] a$:[139] a$[179][177][199](13) [167] 180
  92. 181 [138]
  93. 182 [129]x[178]54272[164]54296:[151]x,.:[130]
  94. 184 [151]54277,192:[151]54278,255
  95. 186 [151]54276,129:[151]54296,15
  96. 188 s1[178]54272:s2[178]54279:s3[178]54286:k[178]1
  97. 190 [151]54284,192:[151]54285,255
  98. 192 [151]54283,17
  99. 194 [142]
  100. 196 [151]s2[170]5,9:[151]s2[170]6,0:[151]s2[170]3,255:[151]s2[170]4,0
  101. 198 [151]s2,m1(k):[151]s2[170]1,m2(k):[151]s2[170]4,65
  102. 200 [129]x[178]1[164]m3(k):[130]:[151]s2[170]4,0
  103. 202 k[178]k[170]1:[139]k[178]45[167]k[178]1
  104. 204 [142]
  105. 206 [131]195,16,256,195,16,256,30,25,256,30,25,256,49,28,256
  106. 208 [131]49,28,256,30,25,512,96,22,256,96,22,256,31,21,256
  107. 210 [131]31,21,256,209,18,112,209,18,112,209,18,112,209,18,112
  108. 212 [131]195,16,640,30,25,256,30,25,256,96,22,256,96,22,256
  109. 214 [131]31,21,256,31,21,256,209,18,512,30,25,256,30,25,256
  110. 216 [131]96,22,256,96,22,256,31,21,256,31,21,256,209,18,512
  111. 218 [131]195,16,256,195,16,256,30,25,256,30,25,256,49,28,256
  112. 220 [131]49,28,256,30,25,512,96,22,256,96,22,256,31,21,256
  113. 222 [131]31,21,256,209,18,256,209,18,256,195,16,512
  114. 224 [153]"load"[199](142);
  115. 225 [153]"sys   verify(NULL)sys   verify(NULL)sys   verify(NULL)sys   verify(NULL)sys   verify(NULL)sys   verify(NULL)sys   verify(NULL)sys   verify(NULL)sys   verify(NULL)sys   verify(NULL)";
  116. 226 [153]"sys 1 verify sys 2 verify sys 3 verify sys 4 verify sys 5 verify sys 6 verify sys 7 verify sys 8 verify sys 9 verify sys 0 verify ";
  117. 228 [153]"wait(NULL)  (NULL)wait(NULL)  (NULL)wait(NULL)  (NULL)wait(NULL)  (NULL)wait(NULL)  (NULL)wait(NULL)  (NULL)wait(NULL)  (NULL)wait(NULL)  (NULL)wait(NULL)  (NULL)wait(NULL)  (NULL)";
  118. 230 [153]"sys   verify(NULL)sys   verify(NULL)sys   verify(NULL)sys   verify(NULL)sys   verify(NULL)sys   verify(NULL)sys   verify(NULL)sys   verify(NULL)sys   verify(NULL)sys   verify(NULL)";
  119. 232 [153]"sys q verify sys w verify sys e verify sys r verify sys t verify sys y verify sys u verify sys i verify sys o verify sys p verify ";
  120. 234 [153]"verifywait(NULL)  (NULL)wait(NULL)  (NULL)wait(NULL)  (NULL)wait(NULL)  (NULL)wait(NULL)  (NULL)wait(NULL)  (NULL)wait(NULL)  (NULL)wait(NULL)  (NULL)wait(NULL)  (NULL)wait(NULL)  (NULL)";
  121. 236 [153]"sys   verify(NULL)sys   verify(NULL)sys   verify(NULL)sys   verify(NULL)sys   verify(NULL)sys   verify(NULL)sys   verify(NULL)sys   verify(NULL)sys   verify(NULL)"
  122. 238 [153]"sys a verify sys s verify sys d verify sys f verify sys g verify sys h verify sys j verify sys k verify sys l verify "
  123. 240 [153]"wait(NULL)  (NULL)wait(NULL)  (NULL)wait(NULL)  (NULL)wait(NULL)  (NULL)wait(NULL)  (NULL)wait(NULL)  (NULL)wait(NULL)  (NULL)wait(NULL)  (NULL)wait(NULL)  (NULL)"
  124. 242 [153]"sys   verify(NULL)sys   verify(NULL)sys   verify(NULL)sys   verify(NULL)sys   verify(NULL)sys   verify(NULL)sys   verify(NULL)"
  125. 244 [153]"sys z verify sys x verify sys c verify sys v verify sys b verify sys n verify sys m verify "
  126. 246 [153]"(NULL)  (NULL)wait(NULL)  (NULL)wait(NULL)  (NULL)wait(NULL)  (NULL)wait(NULL)  (NULL)wait(NULL)  (NULL)wait(NULL)  (NULL)"
  127. 248 [153]"sys                                 verify(NULL)"
  128. 250 [153]"sys              space              verify "
  129. 252 [153]"verifywait(NULL)                                (NULL)"
  130. 254 [129]x[178]1[164]1000:[130]:[142]
  131. 256 [131]26,80,1,58,80,2,90,80,3,122,80,4,154,80,5,186,80,6,218,80,7
  132. 258 [131]250,80,8,326,80,9,358,80,0,26,104,q,58,104,w,90,104,e,122,104,r
  133. 260 [131]154,104,t,186,104,y,218,104,u,250,104,i,326,104,o,358,104,p
  134. 262 [131]42,128,a,74,128,s,106,128,d,138,128,f,170,128,g,202,128,h,234,128,j
  135. 264 [131]310,128,k,342,128,l,58,152,z,90,152,x,122,152,c,154,152,v
  136. 266 [131]186,152,b,218,152,n,250,152,m,186,176," "
  137. 300 [153]"loadprint#(NULL)he (NULL)eystomps have right$nvaded your (NULL)eyboard";
  138. 302 [153]"----------------------------------------";
  139. 305 [153]"list   (NULL)hey're tromping around on your keys.";
  140. 310 [153]"(NULL)hat's no good!  right$t's not that bad,"
  141. 315 [153]"though, 'cause you have a big hammer."
  142. 320 [153]"print#   (NULL)o 'peek(NULL)(NULL)' a keystomp, simply press"
  143. 325 [153]"the key on your (real) keyboard that"
  144. 330 [153]"the little mutant is jumping on."
  145. 335 [153]"list   (NULL)hen you've bopped 20 of them, the"
  146. 340 [153]"game is over.  (NULL)our score appears at the";
  147. 345 [153]"bottom of the screen."
  148. 350 [153]"print#   right$n '(NULL)tandard atnlphapeekopper' the"
  149. 355 [153]"keystomps stay on a key 'til you hit"
  150. 360 [153]"them.  (NULL)our score is the number of"
  151. 365 [153]"seconds required to get all 20."
  152. 370 [153]"list   right$n '(NULL)peed atnlphapeekopper' they only stay";
  153. 375 [153]"on the key a short time before moving."
  154. 380 [153]"(NULL)our score is how many you bop out of   the 20 that appear."
  155. 385 [153]"(NULL)ress (NULL)val(NULL)(NULL)(NULL)(NULL) to lenontinue";
  156. 390 [161]x$:[139]x$[179][177][199](13)[167]390
  157. 395 [137]140
  158. 400 [137]400
  159.