PROG : 16509
D-FILE: 17337
VARS : 18130
E-LINE: 18131
STKBOT: 18131
STKEND: 18131
9999 means line number
PRINT means treat as KEYWORD P
10 REM **STAR DODGE*SLR/1984**
20 LET S=0
30 LET D=40
40 CLS
45 FAST
50 FOR A=1 TO 22
60 PRINT "µ
õ"
70 NEXT A
80 LET X=INT (30*RND+1)
90 FOR A=1 TO D
100 PRINT AT INT (19*RND),INT (
30*RND+1);"."
110 NEXT A
120 LET XC=X
121 SLOW
125 PRINT AT 21,X;"H"
126 PAUSE 100
130 FOR A=20 TO 0 STEP -1
140 PRINT AT A+1,XC;" ";AT A,X;
"H"
150 LET XC=X
160 LET X=X-(INKEY$="Z")+(
INKEY$=".")
170 PRINT AT A-1,X;
180 IF PEEK (PEEK 16398+256*
PEEK 16399)<>128 THEN GOTO 300
190 NEXT A
200 PRINT AT 1,3;"YEE MADE IT<>
<>"
210 LET D=D+(20 AND D<100)
215 PAUSE 100
220 LET S=S+100
230 IF S=1000 OR S=10000 OR S=5
000 THEN LET S=S+2000
240 GOTO 40
300 PRINT AT 1,3;"CRASH<><><><>
<><>"
310 PRINT AT 5,3;"SCORE:";S
320 PRINT AT 21,3;"PRESS ANY KE
Y TO BEGIN<<>>"
330 PAUSE 4E4
340 RUN
400 SAVE "SD"
410 RUN