Stay in the raceway or you’ll crash. Use Z and . to steer left and right.
PROG : 16509
D-FILE: 17267
VARS : 18060
E-LINE: 18061
STKBOT: 18061
STKEND: 18061
9999 means line number
PRINT means treat as KEYWORD P
3 REM **RACEWAY**SLR/1983****
6 LET H=0
10 LET Z=0
20 LET C=0
30 LET A=12
40 LET B=9
50 IF INKEY$="Z" THEN LET A=A-
1
60 IF INKEY$="." THEN LET A=A+
1
70 LET D=INT (3*RND+1)
80 IF D=1 THEN LET B=B-(B>0)
90 IF D=2 THEN LET B=B+(B<26)
100 PRINT AT C,B;"! !";AT C,
A;"X"
110 IF A<=B OR A>=B+5 THEN
GOTO 210
120 LET C=C+1
130 LET Z=Z+1
140 IF C=16 THEN GOTO 160
150 GOTO 50
160 LET Z=Z+(INT (10*RND+1))
170 PRINT AT C,B;"²³³³³±";AT 20
,0;"**PRESS ENTER TO CONTINUE**
"
180 PAUSE 4E4
190 CLS
200 GOTO 20
210 PRINT AT C+1,B;"± ²";
AT C+2,B;" CRASH ";AT C+3,B;"´
÷"
220 IF Z>H THEN LET H=Z
230 PRINT "SCORE:";Z
240 PRINT "HI-SCORE:";H;" A NE
W RECORD*" AND H=Z
250 PRINT "****PRESS ENTER TO C
ONTINUE**** "
260 PAUSE 4E4
270 CLS
280 GOTO 10
300 SAVE "RACEWAY"
310 RUN