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