home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / commodor / bikerdav (.txt) < prev    next >
Commodore BASIC  |  1993-05-20  |  7KB  |  215 lines
  1. 10 POKE53280,12:POKE53281,12
  2. 20 PRINT"[147][144][181]     BIKER DAVE WILL BE READY       [144][182]"
  3. 30 PRINT"[181]     TO RIDE IN JUST A MOMENT       [144][182][146]"
  4. 40 PRINT"[181]";:PRINTSPC(36);:PRINT"[182]"
  5. 50 PRINT"[181]";:PRINTSPC(36);:PRINT"[182]"
  6. 60 PRINT"[181]";:PRINTSPC(36);:PRINT"[182]"
  7. 70 SA=249*64:POKE53250,72:POKE53251,153:POKE53276,2:POKE2041,249
  8. 80 GOSUB1360:GOSUB1360:RESTORE
  9. 90 POKE53285,7:POKE53286,1:POKE53288,0:POKE53269,2
  10. 100 PRINT"[144]":PRINTSPC(6);:FORI=1TO22:POKE53250,72+I*8:PRINT"[191]";:FORJ=1TO50
  11. 110 NEXT:NEXT:POKE55,0:POKE56,48:CLR
  12. 120 POKE54276,0:POKE54296,15:POKE54290,128:POKE54287,255:GOSUB1370
  13. 130 POKE54276,16
  14. 140 POKE54277,0:POKE54278,240:POKEV1,0:POKEV2,50
  15. 150 FORI=1TO3:POKE214,13:PRINT:PRINTTAB(15)"GET READY!";
  16. 160 POKE54276,17:FORJ=1TO255:NEXT
  17. 170 PRINT"[157][157][157][157][157][157][157][157][157][157]          ":POKE54276,64:FORJ=1TO255:NEXT:NEXT
  18. 180 FORI=1TO150:NEXT
  19. 190 POKE54276,0:POKE54278,240:POKE54277,9
  20. 200 POKEV1,0:POKEV2,0:POKE54274,100:POKE54275,0:POKE54276,65
  21. 210 X=X+INT(SP*.04)+1:POKEV1,SP*TWANDF:POKEV2,SP*.0078+TW
  22. 220 IFX>FTHENPOKE53264,18:X=X-256:L=1
  23. 230 IFL=1THENIFX>55THENGOTO290
  24. 240 POKEVX,X:IF(PEEK(JS)AND16)=0THENSP=SP+5
  25. 250 POKE214,20:PRINT:PRINTTAB(19)SP:FORI=0TOF-SP*SP:NEXT
  26. 260 IFSP>S1THENPOKE2041,254
  27. 270 IFSP>S2THENDX=4:GOTO640
  28. 280 GOTO210
  29. 290 C1=153+C*8:Y=131:POKE53251,Y:POKEVX,57:POKE2041,253:FORI=1TOF:NEXT
  30. 300 X=X-INT(SP*.04)-1:POKEV1,SP*TWANDF:POKEV2,SP*.0078+TW
  31. 310 IFL=0THENIFX<C1THEN360
  32. 320 IFX<0THENPOKE53264,16:X=F+X:L=0
  33. 330 POKEVX,X:IF(PEEK(JS)AND16)=0THENSP=SP+5
  34. 340 POKE214,20:PRINT:PRINTTAB(19)SP
  35. 350 FORJ=1TOF-SP*SP:NEXT:GOTO300
  36. 360 POKE2041,F:DX=-3:DY=INT(DX*.35):K=0
  37. 370 MP=INT(((SP-JP)*.5+JP)*.105)
  38. 380 X=X+DX:Y=Y+DY:K=K+1
  39. 390 POKEVX,X:POKE53251,Y
  40. 400 FORJ=1TOF-SP*SP:NEXT
  41. 410 IFY>131THENY=131:DY=0:POKE2041,253:GOTO380
  42. 420 IFK=MPTHENDY=-DY*.3
  43. 430 IFX<122THENIFX>117THENIFY<112ORY>120THENPOKE53251,131:GOTO650
  44. 440 IFX<37THEN460
  45. 450 GOTO380
  46. 460 C1=242-C*16:Y=195:POKE53251,Y:POKEVX,35:POKE2041,249:FORI=1TOF:NEXT
  47. 470 X=X+INT(SP*.04)+1:POKEV1,SP*TWANDF:POKEV2,SP*.0078+2
  48. 480 IFX>C1THEN530
  49. 490 IFX>FTHENPOKE53264,18:X=X-256:L=1
  50. 500 POKEVX,X:IF(PEEK(JS)AND16)=0THENSP=SP+5
  51. 510 POKE214,20:PRINT:PRINTTAB(19)SP
  52. 520 FORJ=1TOF-SP*SP:NEXT:GOTO470
  53. 530 POKE2041,254:DX=4:DY=-INT(DX*.5):K=0
  54. 540 MP=INT(((SP-JP)*.5+JP)*.105)
  55. 550 X=X+DX:Y=Y+DY:K=K+1
  56. 560 IFX>FTHENPOKE53264,18:X=X-256:L=1
  57. 570 POKEVX,X:POKE53251,Y
  58. 580 FORJ=1TOF-SP*SP:NEXT
  59. 590 IFY<195THEN620
  60. 600 Y=195:POKE53251,Y:POKE2041,249:IFX<54ORX>66THEN640
  61. 610 GOTO790
  62. 620 IFK=MPTHENDY=-INT(DY*.3)
  63. 630 GOTO550
  64. 640 C1=-5:POKE2041,249:GOTO660
  65. 650 C1=-2:POKE2041,253
  66. 660 X=X+DX:C1=-C1:POKE2041,PEEK(2041)+C1
  67. 670 IFX>FTHENPOKE53264,18:X=X-256:L=1
  68. 680 IFL=1THENIFX>53THENIFY=67THEN730
  69. 690 IFX<40THENIFL=0THEN730
  70. 700 IFX>100THENIFL=1THEN730
  71. 710 POKEVX,X:FORJ=1TOF-SP*SP:NEXT
  72. 720 POKEV2,RND(1)*4:POKEV1,F*RND(1):GOTO660
  73. 730 POKE54276,64:POKEVX,0:POKE53264,16
  74. 740 POKE54279,0:POKE54280,4:POKE54284,37:POKE54285,250:POKE54283,129
  75. 750 FORI=1TO15:J=RND(1)*6
  76. 760 POKE53265,(PEEK(53265)AND248)ORJ:POKE53270,(PEEK(53270)AND248)ORJ
  77. 770 NEXT:POKE54283,128:FORI=1TO255:NEXT
  78. 780 POKE53265,27:POKE53270,200:GOTO950
  79. 790 X=X+DX
  80. 800 IFX>150THENPOKE54276,0:GOTO840
  81. 810 POKEVX,X
  82. 820 FORJ=1TOF-SP*SP:NEXT
  83. 830 GOTO790
  84. 840 POKE214,21:PRINT:PRINTTAB(14)TC
  85. 850 C=C+1:TC=TC+C:S=2*(C*10-TR*5):TR=2:IFC>9THEND=1:GOTO1270
  86. 860 S1=RND(1)*10+36+8*C:S2=RND(1)*15+81+8*C:JP=RND(1)*20+90
  87. 870 POKE54277,0:POKE54278,160:POKEV1,47:POKEV2,65:POKE54274,0:POKE54275,8
  88. 880 FORI=TTOT+SSTEP5
  89. 890 POKE54276,65:POKE54276,64
  90. 900 POKE214,22:PRINT:PRINTTAB(19)I:FORJ=1TO50:NEXT
  91. 910 NEXT:T=T+S
  92. 920 FORI=1TO8:POKE53254,PEEK(53254)-2:POKE53258,PEEK(53258)+1:NEXT
  93. 930 GOSUB1160
  94. 940 GOTO970
  95. 950 BI=BI-1:IFBI>0THENTR=TR+1:POKE214,21:PRINT:PRINTTAB(35)BI:GOTO970
  96. 960 D=0:GOTO1270
  97. 970 POKE54272,0:POKE54273,0
  98. 980 X=42:Y=67:POKE2041,249:POKE53251,Y:POKEVX,X:POKE53264,16:L=0:SP=5
  99. 990 POKE214,20:PRINT:PRINTTAB(19)" 0  "
  100. 1000 GOTO130
  101. 1010 POKE53280,12:POKE53281,12
  102. 1015 PRINT"[147]BIKER":PRINT" DAVE":PRINT"[144][165]   [167]";TAB(36);"[153]  [223]"
  103. 1020 PRINT"[144] [204][175][175][175][186][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][153]   "
  104. 1030 PRINTTAB(37);:GOSUB1150
  105. 1040 PRINT" [169]  ";TAB(36);"   "
  106. 1050 PRINT"    [144][146][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][153]  [146][169]
  107. 1060 [153]" ";:[141]1150
  108. 1070 [153]"    "
  109. 1080 [153]" (null)  WAITSTOPANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDAND      ANDANDANDANDANDANDAND"
  110. 1090 [129]C[178]1[164]3:[141]1160:[130]:[153]
  111. 1100 [151]56095,0:[151]1823,111
  112. 1110 [153][163]13)"SPEED: 0   MPH"
  113. 1120 [153]" CARS JUMPED:  0        BIKES LEFT: 5"
  114. 1130 [153][163]13)"SCORE: 0"
  115. 1140 [142]
  116. 1150 [153]"  CMDCMD  CMDCMD  CMDCMD  CMDCMD  CMDCMD  ":[142]
  117. 1160 J[178][181]([187](1)[172]8):[151]214,17:[153]:[153][163]32[171]C[172]2);C$(J);"  CMDCMD^_":[142]
  118. 1170 X[178]42:Y[178]67:[151]53250,X:[151]53251,Y:[151]53275,2:[151]53276,66
  119. 1180 [151]53254,206:[151]53255,195:[151]53256,26:[151]53257,195
  120. 1190 [151]53258,158:[151]53259,131:[151]53248,120:[151]53249,109
  121. 1200 [151]53252,120:[151]53253,109:[151]53260,120:[151]53261,94
  122. 1210 [151]53264,16:SP[178]5:L[178]0
  123. 1220 [129]I[178]0[164]4:[151]2040[170]I,248[170]I:[130]:[151]2045,252:[151]2046,246
  124. 1230 [151]53271,69
  125. 1240 [151]53269,127:[151]53277,16:[151]53290,0:[151]53291,0:[151]53292,0
  126. 1250 [151]53287,0:[151]53289,0:[151]53293,10
  127. 1260 [142]
  128. 1270 [151]54276,64:[151]53281,6:[151]53269,0:[153]"LOAD"
  129. 1280 [139]D[167][153][163]5)"CONSIDER YOURSELF KING BIKER!!":[137]1300
  130. 1290 [153]"SYSYOU HAVE WRECKED YOUR LAST BIKE!"
  131. 1300 [153]"SYSYOU SUCCESSFULLY JUMPED";TC[171]C;"CARS"
  132. 1310 [153][163]11)"SYSFINAL SCORE IS";T
  133. 1320 [153][163]8)"OPENPRESS FIRE TO PLAY AGAIN"
  134. 1330 [139]([194](JS)[175]16)[178]0[167][141]1380:[137]130
  135. 1340 [137]1330
  136. 1350 [129]J[178]248[164]255:SA[178]J[172]64:[141]1360:[130]:[142]
  137. 1360 [129]I[178]0[164]39:[135]A:[151]SA[170]I,A:[130]:[129]I[178]40[164]63:[151]SA[170]I,0:[130]:[142]
  138. 1370 [141]1350:[141]1820:[141]1900:[141]2070
  139. 1380 X[178]42:SP[178]5:Y[178]67:DX[178]DY:L[178]0:K[178]MP:VX[178]53250:V1[178]54272:V2[178]54273:TW[178]2:F[178]255
  140. 1390 JS[178]56320:JP[178][187](1)[172]20[170]90:C[178]3:S1[178]65:S2[178]105:BI[178]5:T[178]0:TR[178]2:S[178]0:TC[178]3
  141. 1400 [141]1010:C[178]3:[141]1170
  142. 1410 [142]
  143. 1420 [131]0,12,0,0,6,0,0,3
  144. 1430 [131]0,0,1,128,0,1,128,0
  145. 1440 [131]0,192,0,0,192,0,0,192
  146. 1450 [131]0,1,128,0,1,128,0,3
  147. 1460 [131]0,0,6,0,0,12,0,0
  148. 1470 [131]0,0,0,0,0,0,0,15
  149. 1480 [131]0,0,15,0,0,60,0,0
  150. 1490 [131]252,0,3,207,0,23,195,64
  151. 1500 [131]87,213,80,105,246,144,130,120
  152. 1510 [131]32,130,200,32,40,2,128,0
  153. 1520 [131]0,48,0,0,96,0,0,192
  154. 1530 [131]0,1,128,0,1,128,0,3
  155. 1540 [131]0,0,3,0,0,3,0,0
  156. 1550 [131]1,128,0,1,128,0,0,192
  157. 1560 [131]0,0,96,0,0,48,0,0
  158. 1570 [131]0,0,0,0,0,0,0,0
  159. 1580 [131]0,0,0,0,0,0,3,0
  160. 1590 [131]0,15,0,0,63,0,0,255
  161. 1600 [131]0,3,255,0,15,255,0,63
  162. 1610 [131]255,0,255,255,3,255,255,0
  163. 1620 [131]0,0,0,0,0,0,0,0
  164. 1630 [131]0,0,0,0,192,0,0,240
  165. 1640 [131]0,0,252,0,0,255,0,0
  166. 1650 [131]255,192,0,255,240,0,255,252
  167. 1660 [131]0,255,255,0,255,255,192,0
  168. 1670 [131]0,0,0,0,0,0,15,0
  169. 1680 [131]0,15,0,0,3,192,0,3
  170. 1690 [131]240,0,15,60,0,28,61,64
  171. 1700 [131]85,125,80,105,246,144,130,216
  172. 1710 [131]32,130,56,32,40,2,128,0
  173. 1720 [131]3,192,0,3,192,0,3,0
  174. 1730 [131]0,3,245,0,3,5,64,3
  175. 1740 [131]22,128,3,216,32,3,248,32
  176. 1750 [131]21,114,128,90,112,0,96,176
  177. 1760 [131]0,32,128,0,10,0,0,0
  178. 1770 [131]0,60,0,0,60,0,0,12
  179. 1780 [131]0,5,252,0,21,12,0,41
  180. 1790 [131]76,0,130,124,0,130,252,0
  181. 1800 [131]40,213,64,0,218,80,0,224
  182. 1810 [131]144,0,32,128,0,10,0,0
  183. 1820 ML$[178]"NEW"[170][199](8)[170]"EXP<"[170][199](3)[170]"VERIFYXMID$"[170][199](16)[170][199](248)[170]"LSINTAB(":[151]835,0
  184. 1830 [151]836,208:[151]830,0:[151]831,216:[151]828,0:[151]829,56:[151]56334,0
  185. 1840 [151]1,51:ML$[178]ML$:[158]([194](51)[170]256[172][194](52)):[151]1,55:[151]56334,1
  186. 1850 [129]I[178]12528[164]12543:[135]J:[151]I,J:[130]:[151]53272,[194](53272)[175]240[176]12
  187. 1860 [129]I[178]0[164]7:[135]A:C$(I)[178][199](A):[130]:[142]
  188. 1870 [131] 15,16,32,127,103,127,48,48
  189. 1880 [131] 224,16,8,252,204,252,24,24
  190. 1890 [131]5,28,31,144,153,155,158,159
  191. 1900 J[178]15744:[129]I[178]0[164]127:[135]A:[151]J[170]I,A:[130]:[142]
  192. 1910 [131]81,64,0,102,69,0,102,70
  193. 1920 [131]69,26,70,89,22,69,169,105
  194. 1930 [131]145,164,22,161,164,1,65,144
  195. 1940 [131]64,0,148,80,0,73,100,0
  196. 1950 [131]25,100,0,36,24,0,16,4
  197. 1960 [131]0,20,64,0,41,80,0,36
  198. 1970 [131]100,0,36,25,0,164,25,0
  199. 1980 [131]80,6,128,0,1,64,0,1
  200. 1990 [131]0,0,0,16,0,0,101,69
  201. 2000 [131]5,102,70,89,106,65,164,25
  202. 2010 [131]145,164,6,161,144,1,65,144
  203. 2020 [131]80,0,64,100,0,5,24,0
  204. 2030 [131]25,24,0,41,24,0,20,68
  205. 2040 [131]0,0,80,0,5,100,0,25
  206. 2050 [131]100,0,36,25,0,164,5,0
  207. 2060 [131]80,6,128,0,1,64,0,1
  208. 2070 [129]I[178]0[164]57:[135]A:[151]820[170]I,A:[130]:[158]820:[142]
  209. 2080 [131] 120,169,65,141,20,3,169,3,141,21
  210. 2090 [131] 3,88,96,173,27,212,41,1,77,254
  211. 2100 [131] 7,141,254,7,165,203,201,60,208,15
  212. 2110 [131] 32,100,3,32,159,255,165,203,201,60
  213. 2120 [131] 208,247,32,103,3,76,49,234,32,159
  214. 2130 [131] 255,165,203,201,60,240,247,96
  215.