home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D02.D64 / game (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.3 KB  |  32 lines
  1. 10 REM -- SAMPLE GAME TO LOAD BY THE 'SYS10037' PROGRAMME. -- E. FOSTER
  2. 20 REM -- NOTE: TO RESET HIGHEST SCORE, CHANGE LEVEL OF DIFFICULTY
  3. 30 POKE53280,1:POKE53281,1:POKE646,6:PRINT"[147]"TAB(12)" TIM'S RACER [146]"
  4. 40 PRINT"  **** USE JOYSTICK IN PORT 2 ****
  5. 50 [133]"  LEVEL OF DIFFICULTY (1-18)  9CMDCMDCMD";W:W[178]20[171]W:[139]W[179]1[167]W[178]1
  6. 55 [139]W[179][177][194](2)[167][151]251,0:[151]252,0
  7. 60 [151]2,W:[133]"  CAR POSITION (1-23)  12CMDCMDCMDCMD";CY:[151]3,CY:[139]CY[177]23[167]CY[178]23
  8. 70 [153]"LOAD":SC[178]1024[170]40[172]CY:KB[178]56320:LF[178]123:RT[178]119:[143] -- JOYSTICK
  9. 80 IN[178]0:TW[178]0:SR[178]0:CX[178]0:TL[178]0
  10. 90 B[178]1:E[178]38:TW[178]W[170]4:TL[178]20[171]TW[173]2:CX[178]20:S[178]SC:N[178]CY
  11. 100 [129]I[178]1[164]N:[151]S,32:[153][163]TL)"(*"[166]W)"*)":S[178]SC[170]CX:[143] -- THE BLUE TRACK
  12. 110 [151]S[170]54272,2:[143] -- COLOUR MEM (RED CAR)
  13. 120 [139]TL[179]B[176]TL[170]TW[177]E[167] IN[178](TL[170]TW[177]E)[171](TL[179]B):[143] -- PUT THE SPACE IN
  14. 130 [161]Z$:[139][194](S)[179][177]32[167]170
  15. 140 [151]S,160:K[178][194](KB):CX[178]CX[170](K[178]LF)[171](K[178]RT)
  16. 150 TL[178]TL[170]IN:[130]:SR[178]SR[170]1
  17. 160 N[178][187](1)[172]10:IN[178][181]([187](1)[172]3)[171]1:[137]100
  18. 170 [153]"*** YOU CRASHED!! ***":[153]"-- BENDS ="SR
  19. 180 SE[178]SR[172](40[171]TW)[172]CY:[153]"-- SCORE ="SE:X[178]SE:[141]280
  20. 190 [139]PE[179]SE[167][151]252,HB:[151]251,LB
  21. 200 [141]280:[153]"HIGHEST SCORE ="PE
  22. 210 [153]"AGAIN? (Y/N) ";
  23. 220 [141]270:[145][171](A$[178]"Y")[171]2[172](A$[178]"N")[137]240,225:[137]220
  24. 225 [153]"CMDCMDCMDCMDCMD  ...OK"
  25. 230 [153]"--ELAINEONONONON":[129]M[178]0[164]9:[135]A:[151]631[170]M,A:[130]:[151]198,M:[128]
  26. 240 [153]"CMDCMDCMDCMD  SAME LEVEL? (Y/N)"
  27. 250 [141]270:[145][171](A$[178]"Y")[171]2[172](A$[178]"N")[137]70,260:[137]250
  28. 260 [138]
  29. 270 [161]A$:[145][171](A$[178]"")[137]270:[142]
  30. 280 HB[178][181](X[173]256):LB[178]X[171]256[172]HB:PE[178][194](251)[170]256[172][194](252):[142]
  31. 290 [131]145,67,72,69,69,82,69,79,33,141
  32.