home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9101a.d64 / nightracer (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  787b  |  21 lines
  1. 10 PRINT"[147]":POKE53280,0:POKE53281,0:V=53248:POKEV+21,1:POKE2040,13:POKE646,1:X=150
  2. 20 FORN=0TO62:READQ:POKE832+N,Q:NEXT:Y=30:POKEV+31,0:TI$="000000":INPUT"SPEED";S
  3. 30 A=PEEK(56320):R=INT(30*RND(0)):PRINTTAB(R)"*"
  4. 40 FORT=1TOS:NEXT:IF(A AND 1)=0THENY=Y-10
  5. 50 IF(A AND 2)=0THENY=Y+10
  6. 60 IF(A AND 4)=0THENX=X-10
  7. 70 IF(A AND 8)=0THENX=X+10
  8. 80 IFX>250THENX=250
  9. 90 IFX<40THENX=40
  10. 100 IFY<40THENY=40
  11. 110 IFY>230THENY=230
  12. 120 IF PEEK(V+31)>0THEN140
  13. 130 POKEV,X:POKEV+1,Y:GOTO30
  14. 140 A$=TI$:A=VAL(A$): FORT=1TO30:S=INT(16*RND(0)):POKE53281,S:NEXT:POKEV+31,0
  15. 150 B=A*53:POKE53281,0:PRINT"[147]PUNKTE:";B:POKEV,150:POKEV+1,150:IFB>HTHENH=B
  16. 160 PRINT"HIGH-SCORE:";H:PRINT"WEITER(J/N)?":GETA$:IFA$=""THEN160
  17. 170 RESTORE:IFA$="J"THEN10:END
  18. 180 DATA0,96,0,0,96,0,0,144,0,1,104,0,1,104,0,1,104,0,17,104,128,50,244,192
  19. 190 DATA53,154,192,59,253,192,53,154,224,110,247,96,91,109,160,187,109,208
  20. 200 DATA 95,111,160,110,151,96,213,10,176,154,5,144,228,2,112,192,0,48,0,0,0
  21.