home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 2 / 002.d81 / light racers (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1984-01-01  |  3.1 KB  |  111 lines
  1. 100 POKE53281,0:PRINT""
  2. 110 PRINT"[147]":POKE783,PEEK(893)AND254
  3. 120 POKE781,1:A$="LIGHT RACERS":GOSUB200
  4. 130 POKE781,3:POKE782,0:SYS65520:A$="BY":GOSUB200
  5. 140 POKE781,5:SYS65520:A$="BOB BUSCH":GOSUB200:POKE781,0
  6. 150 PRINT:PRINT:PRINT:PRINT"      PLAYER 1          PLAYER 2"
  7. 162 PRINT:PRINT"        USE               USE"
  8. 170 PRINT:PRINT"     JOYSTICK #1       JOYSTICK #2
  9. 175 [153]:[153]:[153]:[153]:[153]"   <REVISED FOR C-64 BY ALAN GARDNER>"
  10. 182 [151]781,23:[151]782,13:[158]65520:[153]"PLEASE WAIT";:[151]198,0
  11. 185 [134]A%(40,20):[129]Z0[178]0[164]40:[129]Z1[178]0[164]20:A%(Z0,Z1)[178]0:[130]Z1,Z0
  12. 190 [151]781,23:[151]782,9:[158]65520:[153]"PRESS ANY KEY TO BEGIN";:[151]198,0
  13. 195 [146]198,1:[137]210
  14. 200 [151]782,20[171][195](A$)[173]2:[158]65520:[153]A$:[142]
  15. 210 D[178]5:P[178]170
  16. 220 :
  17. 230 :
  18. 240 [134] ZZ%(761),Z1%(761),Z2%(761),Z3%(761)
  19. 250 X[178]5:X1[178]35:Y[178]5:Y1[178]18:ME[178]8:NE[178]4:[151]198,0
  20. 260 [153]"LOAD";:[129]PR[178]0[164]39:[153]"SPC(";:[130]:[129]PR[178]1[164]19:[153]"SPC("[166]38)"SPC(";:[130]
  21. 262 [129]PR[178]0[164]39:[153]"SPC(";:[130]
  22. 264 :
  23. 265 [143]     MAIN PROGRAM
  24. 266 :
  25. 270 :
  26. 272 F1[178][194](56320)[175]16:[139]F1[179][177]16[167]290
  27. 275 KP[178]15[171]([194](56320)[175]15):[139]KP[178]0[176]KP[178]5[176]KP[178]6[176]KP[178]9[176]KP[178]10[167]290
  28. 280 NE[178]KP
  29. 290 F2[178][194](56321)[175]16
  30. 295 K2[178]15[171]([194](56321)[175]15):[139]K2[178]0[176]K2[178]5[176]K2[178]6[176]K2[178]9[176]K2[178]10[167]310
  31. 300 ME[178]K2
  32. 310 [139]ME[178]1[167]Y[178]Y[171]1:[139]F2[179][177]16[167]Y[178]Y[171]1
  33. 320 [139]NE[178]1[167]Y1[178]Y1[171]1:[139]F1[179][177]16[167]Y1[178]Y1[171]1
  34. 330 [139]ME[178]2[167]Y[178]Y[170]1:[139]F2[179][177]16[167]Y[178]Y[170]1
  35. 340 [139]NE[178]2[167]Y1[178]Y1[170]1:[139]F1[179][177]16[167]Y1[178]Y1[170]1
  36. 350 [139]ME[178]4[167]X[178]X[171]1:[139]F2[179][177]16[167]X[178]X[171]1
  37. 360 [139]NE[178]4[167]X1[178]X1[171]1:[139]F1[179][177]16[167]X1[178]X1[171]1
  38. 370 [139]ME[178]8[167]X[178]X[170]1:[139]F2[179][177]16[167]X[178]X[170]1
  39. 380 [139]NE[178]8[167]X1[178]X1[170]1:[139]F1[179][177]16[167]X1[178]X1[170]1
  40. 390 [139]Y[179][178].[167]Y[178].:C[178]1:[137]570
  41. 400 [139]Y1[179][178].[167]Y1[178].:C[178]2:[137]570
  42. 410 [139]Y[177][178]20[167]Y[178]20:C[178]1:[137]570
  43. 420 [139]Y1[177][178]20[167]Y1[178]20:C[178]2:[137]570
  44. 430 [139]X[179][178].[167]X[178].:C[178]1:[137]570
  45. 440 [139]X1[179][178].[167]X1[178].:C[178]2:[137]570
  46. 450 [139]X[177][178]39[167]X[178]39:C[178]1:[137]570
  47. 460 [139]X1[177][178]39[167]X1[178]39:C[178]2:[137]570
  48. 470 :
  49. 480 [139](A%(X,Y)[178]1) [176]  (A%(X1,Y1)[178]1)[167]540
  50. 490 T[178]T[170]1:ZZ%(T)[178]X:Z1%(T)[178]Y:Z2%(T)[178]X1:Z3%(T)[178]Y1
  51. 500 :
  52. 510 [151]1024[170]X[170]Y[172]40,160:[151]55296[170]X[170]40[172]Y,2:A%(X,Y)[178]1
  53. 515 [151]1024[170]X1[170]Y1[172]40,160:[151]55296[170]X1[170]Y1[172]40,6:A%(X1,Y1)[178]1
  54. 520 [161]P$:[139]P$[178]"INPUT"[167][141]760
  55. 530 [137]270
  56. 540 [143]   CRASH ROUTINE
  57. 550 [139]A%(X,Y)[178]1[167]C[178]1
  58. 560 [139]A%(X1,Y1)[178]1[167]C[178]2
  59. 570 [151]781,22:[151]782,1:[158]65520:[153]"C R A S H!!!!":[143] SOUND ROUTINE
  60. 580 [139]A%(X,Y)[178]1 [175] A%(X1,Y1)[178]1[167]A[178]A[170]1:B[178]B[170]1
  61. 585 [139]A%(X,Y)[178]1 [175] A%(X1,Y1)[178]1[167][153][163]10)"BOTH CARS CRASHED!!":C[178]3:[137]640
  62. 590 [153][163]10)"CAR ";C;"CRASHED!!"
  63. 595 [129]DL[178]1[164]500:[130]
  64. 600 [139]C[178]1[167]A[178]A[170]1
  65. 610 [139]C[178]2[167]B[178]B[170]1
  66. 620 :
  67. 630 :
  68. 640 [139]A[178]5[167]CW[178]2
  69. 650 [139]B[178]5[167]CW[178]1
  70. 660 [139]A[178]5 [175] B[178]5 [167]A[178]4:B[178]4
  71. 670 [139]A[178]5 [176] B[178]5 [167][153]"LOADTHE WINNER IS";:[129]D1[178]1[164]10:[129]D2[178]1[164]100:[130]D2
  72. 671 [139]A[178]5 [176] B[178]5 [167] [153]".";:[130]D1:[153]"CAR NUMBER "CW:[153]:[153]
  73. 672 [139]A[179][177]5 [175] B[179][177]5 [167]680
  74. 673 [153]"PLAY AGAIN?":[151]198,0:[146]198,1:[161]K$:[139]K$[179][177]"Y"[175]K$[179][177]"N"[167][153]"ON";:[137]672
  75. 674 [139]K$[178]"N"[167]63000
  76. 676 [138]
  77. 680 [129]R[178]1[164]T
  78. 690 A%(ZZ%(R),Z1%(R))[178]0:A%(Z2%(R),Z3%(R))[178]0
  79. 700 [139]C[178]1[167][151]1024[170]ZZ%(R)[170]40[172]Z1%(R),160:[151]55296[170]ZZ%(R)[170]40[172]Z1%(R),0
  80. 710 [139]C[178]2[167][151]1024[170]Z2%(R)[170]40[172]Z3%(R),160:[151]55296[170]Z2%(R)[170]40[172]Z3%(R),0
  81. 720 [139]C[178]3[167][151]1024[170]ZZ%(R)[170]40[172]Z1%(R),160:[151]55296[170]ZZ%(R)[170]40[172]Z1%(R),0
  82. 725 [139]C[178]3[167][151]1024[170]Z2%(R)[170]40[172]Z3%(R),160:[151]55296[170]Z2%(R)[170]40[172]Z3%(R),0
  83. 730 [130]R
  84. 740 T[178]0:R[178]0:[137]250
  85. 750 :
  86. 755 :
  87. 760 [151]198,0:[151]781,23:[151]782,17:[158]65520:[153]"PAUSED"A%(X,Y);A%(X1,Y1)
  88. 770 [161]P$:[139]P$[179][177]"INPUT"[167]770
  89. 780 [151]198,0:[151]781,23:[151]782,17:[158]65520:[153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(":[142]
  90. 790 :
  91. 800 :
  92. 10000 [143] NO MOVING BACK ON YOURSELF
  93. 10001 [151]781,22:[151]782,5:[158]65520:[153]F1:[151]782,20:[158]65520:[153]F2
  94. 10002 [139]KP[178]4 [175] NE[178]8 [167] KP[178]NE:[137]10009
  95. 10003 [139]KP[178]8 [175] NE[178]4 [167] KP[178]NE:[137]10009
  96. 10004 [139]KP[178]1 [175] NE[178]2 [167] KP[178]NE:[137]10009
  97. 10005 [139]KP[178]2 [175] NE[178]1 [167] KP[178]NE:[137]10009
  98. 10006 :
  99. 10009 [142]
  100. 10010 [143] NO MOVING BACK ON YOURSELF
  101. 10012 [139]K2[178]4 [175] ME[178]8 [167] K2[178]ME:[137]10020
  102. 10013 [139]K2[178]8 [175] ME[178]4 [167] K2[178]ME:[137]10020
  103. 10014 [139]K2[178]1 [175] ME[178]2 [167] K2[178]ME:[137]10020
  104. 10015 [139]K2[178]2 [175] ME[178]1 [167] K2[178]ME:[137]10020
  105. 10020 [142]
  106. 20000 :
  107. 30000 :
  108. 63000 [143] LINK BACK TO LOADSTAR
  109. 63002 [153]"LOADLOAD"[199](34)"PAYLOAD"[199](34)",8":[153]"RUN"
  110. 63004 [151]631,13:[151]632,13:[151]198,2:[128]
  111.