Table of Contents
Advertisement
368
NOISE
REM CAR
S=INT(12008/(V+1)):IF
37e
388
8,S:SO0UND
SOUND
398
3,2:S0UND
SOUND
4a8
4,15:S0UND
SOUND
8,15:S0UND
418
SOUND
428
SPRITE
PUT
438
SPRITE
PUT
448
SPRITE
PUT
450
D=INT(V/S)
PSET(184,18),12
468
476
USING"
PRINTH#i
488
B=STICK(6):B=B+1
498
GOTO
ON
B
see
V=V+2:GOTO
ei
51e
X=X+3:V=V+2:GOTO
528
GOTO
538
+3:V=V-S5:GOTO
548
-S:GOTO 586
55e
-3:V=V-5:GOT0O
5é6
-3:GOTO 586
578
xX=X-3:V=V+2:GOTO
Y1=Yi-CV1-V)/L:YZ=Y2-(V2-V)/L
586
598
SPRITE
ON
IF
Y1)>198
ca8e
'1e
IF
Y2>198
IF
<26
Yi<@ THEN
IF
438
Y2<0
THEN
"48
IF
X<8i
THEN
IF
X>145
458
IF
<68
THEN
V)>8
<78
V=8:GOTO
<88
EXPLOSION
REM
OFF:LINE(185,5)-(215,20),4,BF
SPRITE
6978
PSET(184,18) 12:PRINT#1
708
71e
SPRITE
PUT
728
8,6:SOUND
SOUND
730
3,13:SOUND 4,255:SOUND
SOUND
748
4,36:S0UND
SOUND
758
8,16:SOUND
SOUND
768
11,8:SO0UND
SOUND
778
T=1
FOR
TO
788
SOUND
12,54:SO0UND
798
FOR
TO
K=1l
see
SPRITE
PUT
81e
SPRITE
PUT
828
NEXT
K
X=i
838
FOR
TO
1,1:SOUND
4,8:SOUND
7,54
9,15:SO0UND
1,(X,Y),8,8
2,(X1,Y1),1,8
3,(X2,Y2),i
xS:LINE(185,5)-(215,26),4,BF
;D;
HHHH"
588,500,519,520,536,546,5560,546,570
588
586
586
580
5880
588
THEN Yi=S5
THEN
Y2=S5
Y1=186
Y2=180
486
GOSUB
480
THEN
GOSUB
368
368
ROUTINE
8,(X,Y)
,18,1
,S:SCUND
i
7,8
9,14:S0UND
12,5:SO0UND
38:NEXT
T
13,8
18
1,(X,Y),8,8:PUT
8,(X,289):PUT
X:RETURN
888:NEXT
S>255
S=255
THEN
2,S
5,5
18,15
Controls the
control
Displays the explosion image
USING"
HHHH"
2,6
5,15
18,16
13,8
6,(X,Y)
SPRITE
1,(X,289)
SPRITE
328
Sounds
exhaust note.
cars.
Displays
the
car
according
keys.
Specifies the
off-road
;D;
18,1
the
to
cursor
condition.
and
sound.
Advertisement
Table of Contents
