Advertisement
838
REM
CAR
NOISE
Sounds exhaust note.
S=INT(128088/(V+1)):IF
5>255
THEN
S=255
SOUND
8,S:SOUND
1,1:SOUND
2,5
SOUND
3,2:SOUND
4,8:SOUND
5,5
SOUND
6,15:50040
7,56
SOUND
8,15:SOUND
9,15:SOUND
10,15
PUT
SPRITE
1,(X,Y>,8,8
Displays
the cars.
PUT
SPRITE
2,¢(X1,Y1),1,@
PUT
SPRITE
3,(X2,Y2)
16
D=INT(V/S)*S:LINE(185,5)-(215,20),4,BF
PSET(184,1@),12
PRINT#1 ,USING" ####"
5D;
B=STICK(8)
:B=B+1
ON
В GOTO
588,500,510,520,530,540,550,560,570
V=V+2:GOTO
586
Controls the car according to the cursor
X=X+3:V=V+2:GOTO
586
control keys.
X=X+3:GOTO
588
X=X+3:V=U-5:G0TO
580
V=V-5:GOTO
586
X=X-3:V=V-5:GOTQ
580
X=X-3:GOTO
586
X=X-3:V=V+2:GOTO
589
Yi=Y1-(V1-V>/L:Y2=Y2-(V2-U>/L
SPRITE
ON
IF
Ү12190
THEN
Y1=5
Specifies
the off-road condition.
IF
Y2>198
THEN
Y2=5
IF
Ү1<8
THEN
Ү1=18@
IF
Ү2<0
THEN
Y2=180
IF
X<81
THEN
GOSUB
686
IF X>145
THEN
GOSUB
680
IF 920
THEN
368
U=8:GOTO
368
REM
EXPLOSION
ROUTINE
Displays
the explosion image and sound
SPRITE
OFF:LINE(185,5)-(215,20>,4,BF
PSET(184,108>,12:PRINTH1
USING" ####";D;
PUT
SPRITE
0,(X,Y>,10,1
SOUND
6,6: 500ЧО
1,5:SQUND
2,8
SOUND
3,13:SOUND
4,255:SOUND
5,15
SOUND
¿,30:SOUND
7,8
SOUND
8,16:SOUND
9,16:SOUND
10,16
SOUND
11,0:SOUND
12,5:SOUND
13,8
FOR
T=1
TO
3Ø:NEXT
Т
SOUND
12,56:SOUND
13,8
FOR
K=1
TO
10
PUT
SPRITE
1,¢(X,Y),8,8:PUT
SPRITE
6,(X,Y),16,1
PUT
SPRITE
6,(X,209):PUT
SPRITE
1,(X,209)
NEXT
K
FOR X=1
TO
800:NEXT
X:RETURN
328
Advertisement
