home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / BLOCK-RACER (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.5 KB  |  37 lines
  1. 0 REM  FROM JG PD DISK # 54
  2. 10 PRINT"[147]";:POKE53280,9:POKE53281,9:GOSUB140
  3. 20 V=53248:S=54272
  4. 22 FORT=832TO958:POKET,-255*(ABS(T-881.5)<41):NEXT:POKE2040,13:POKE2041,14
  5. 30 X=52:Y=136:POKEV+27,2:POKEV+21,3:POKEV+29,2:POKEV+39,4:POKEV+40,5:POKEV+2,40
  6. 40 POKE53281,0:POKEV+3,128:POKEV+21,3:Q=PEEK(V+31):PRINT"[147][151][204][157]A[157]P[157]S[157] [157]0"
  7. 42 T$="[149]                      "
  8. 50 U$=LEFT$(T$,20):PRINTTAB(12)U$:FORT=1TO10:PRINTTAB(10)T$
  9. 60 NEXT:PRINTTAB(12)U$:POKES+24,15:POKES+6,240:POKES+4,49:TI$="000000"
  10. 70 POKEV+1,Y:POKEV+16,X/256:POKEV,X-PEEK(V+16)*256:Q=PEEK(V+30)=PEEK(V+31)
  11. 80 PRINT""TAB(15)"[194][204][207][195][203][160][210][193][195][197][210]"
  12. 84 PRINT""TAB(13)"[212]IME/[211]ECS -"INT(TI/6)/10
  13. 88 J=PEEK(56320):F=9*(ABS(A)+ABS(D))
  14. 90 D=D+((JAND1)=0)-((JAND2)=0):A=A+((JAND4)=0)-((JAND8)=0):X=X+A:Y=Y+D:POKES,F
  15. 100 IFPEEK(V+31)AND1ORX<24ORY<47ORY>229ORX>320THENPOKEV+39,1:A=0:D=0:POKEV+39,4
  16. 110 IFC*PEEK(V+30)THENC=0:L=L+1:POKE1224,176+L:IFL=3THEN200
  17. 120 C=C+(X>278)*(ABS(Y-160)<10):GOTO70
  18. 140 PRINT"[147][150]            [194]LOCK [195]AR [210]ACE              [159]"
  19. 142 PRINT"[212]HREE TIMES AROUND THE TRACK WILL PROVE
  20. 144 [153]"WHAT YOU'RE MADE OF- THREE TIMES AROUND
  21. 146 PRINT"A VICIOUSLY OIL-SLICK ROADWAY!
  22. 147 [153]"   RIGHT$'LL BET YOU'RE NO (null)OM LENRUISE!
  23. 148 PRINT"[217]OUR CAR, AN UN-SPORTY PURPLE SQUARE,
  24. 150 [153]"IS CONTROLLED BY A JOYSTICK IN PORT 2.
  25. 152 PRINT"[207]NCE THE CAR STARTS MOVING IT TAKES AN
  26. 154 [153]"EQUAL AMOUNT O    
  27. 17750 RSE JOYSTICK TO STOP";
  28. 156 [153]"IT. (null)HE CAR STOPS IF RUN OFF THE TRACK.
  29. 160 PRINT"[212]HERE IS A LAP TIMER (UPPER LEFT). [212]AKES";
  30. 162 PRINT"THREE LAPS TO FINISH.
  31. 164 [153]"ATN CLOCK TIMER IS NEAR CENTER OF SCREEN.
  32. 168 PRINT"    [208]RESS FIRE BUTTON TO RACE AGAIN.
  33. 176 [153]"SYS      (null)RESS <(null)(null)ATNLENVAL> TO RACE NOW.
  34. 178 GETG$:IFG$<>" "THEN178
  35. 180 GOTO20
  36. 200 PRINT"    [208]RESS FIRE BUTTON TO PLAY AGAIN":WAIT56320,16,16:RUN20
  37.