Advertisement
(4) Car racing
Drive your car with your greatest skill. Use the
cursor control keys to drive your car.
19
REM
CAR
DRIVE
Places the screen in Graphic mode.
28
SCREEN
2,1,@:CLS:L=5:SPRITE
ОМ
30
ON
SPRITE
GOSUB
680
46 LINE(Ø,0)-(80,190),12,BF
Draws
the road.
50 LINE(160,0)-(255,190),12,BF
60 REM CAR PATTERN
Draws
the cars.
70 Al$=CHR$(&B00011000)
80 A2$=CHR$(&B10011001)
90 A3%$=CHR%(&B11111111)
180 A4$=CHR$(&B10111101)
110 A5$=CHR$(&B00111100)
120 AGS=CHR$(&BIAI
I 1181)
138 A7$=CHRS(&BIL111111)
140 A8$=CHR$(&B10111101)
150 A$=A1$+A2$+A3$+A4$+A5$+A4$+A7$+A8$
168
SPRITE$¿(0)=A$
170
REM
EXPLOSION
PATTERN
Specifies
the exploded car figure.
180
В1%-СНБ%(%В00000000»
190
В2%=СНЕФ
«800011000»
288
B3$=CHR$(&B001111060)
218
B4$-CHR$(&B01111110)
226
B5$=CHR$(&B11111111)
230
Bó$=CHR$(&B01111110)
248
B7$=CHR$(&B00111100)
250
B8$-CHR$(&B00011000)
260
В%-В1%%Б62%%8В3%%В46%%В5%%В6%%8В76%В8%
278
SPRITE$(1)=B$
280
КЕМ
298
OPEN
"GRP:"
AS #1
300
PSET(217,18),12
318
PRINT#1, "Km/h"
32@
COLOR
15,4
330
Xz951:Yz100:U-50
Specifies
the initial car position and
840 X1=98:Y1=150:V1=55
speed.
350
X2=130:Y2=50 1/2257
Advertisement
