home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / TRUCK-RUN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.0 KB  |  35 lines
  1. 0 REM   PATRICK MARCOUX   1984
  2. 1 B=16:POKE53281,5:D=19:PRINT"[147]":C=0
  3. 2 FORI=55296TO56295:POKEI,15:NEXT
  4. 3 PRINT"[144]TRUCK RUN":PRINT"[163][163][163][163][163][163][163][163][163]":PRINT"JOY PORT 2":PRINT"GET READY"
  5. 4 PRINT""
  6. 10 A=INT(RND(1)*3)
  7. 20 IFA=0THENB=B-1
  8. 30 IFA=1THENB=B+1
  9. 40 PRINTSPC(B)"[144][209][209]"
  10. 50 FORI=56256TO56295:POKEI,15:NEXT
  11. 60 IFB<2THENB=B+1
  12. 70 IFB>30THENB=B-1
  13. 80 POKE1424+D,160
  14. 90 POKE1464+D,160
  15. 100 POKE1544+D,160
  16. 110 IFC<>DTHENPOKE1424+C,32
  17. 115 POKE1384+C,32
  18. 120 IFC<>DTHENPOKE1464+C,32
  19. 130 IFC<>DTHENPOKE1544+C,32
  20. 135 POKE1504+C,32
  21. 140 REM  FORI=1TO5:NEXT
  22. 150 C=D:SC=SC+5
  23. 160 E=PEEK(56320)
  24. 170 IFE=123ORE=107THEND=D-1
  25. 180 IFE=119ORE=103THEND=D+1
  26. 190 IFPEEK(1584+D)<>32THENPOKE1584+D,102:GOSUB10000
  27. 200 IFC<>DTHENIFPEEK(1544+D)<>32THENPOKE1544+D,102:GOSUB10000
  28. 210 IFC<>DTHENIFPEEK(1504+D)<>32THENPOKE1504+D,102:GOSUB10000
  29. 220 IFC<>DTHENIFPEEK(1464+D)<>32THENPOKE1464+D,102:GOSUB10000
  30. 230 IFC<>DTHENIFPEEK(1424+D)<>32THENPOKE1424+D,102:GOSUB10000
  31. 250 GOTO10
  32. 10000 PRINT"YOU HAVE CRASHED":PRINT"YOUR SCORE IS "SC:PRINT"F1 TO PLAY AGAIN"
  33. 10010 POKE53281,7:POKE53281,8:GET A$:IFA$="[133]"THENRUN
  34. 10020 GOTO10010
  35.