10 MODE 1
20 L=15
30 M=1
40 X=15
50 W=30
60 P=20
70 S=0
80 KEY$=","
90 REPEAT
100 S=S+1
110 COLOUR 3
120 PRINT TAB(0);S;
130 COLOUR 1
140 PRINT TAB(L+M);"!";TAB(L+X+M);"!"
145 SOUND 1,-15,90-W,1
150 KEY$=INKEY$(W)
160 IF KEY$="," THEN P=P-1
170 IF KEY$="." THEN P=P+1
180 COLOUR 2
190 PRINT TAB(P);"V"
200 IF P<=L+M OR P>=L+X+M THEN PRINT "***CRASH***":SOUND 2,-15,10,20:END
210 L=L+M
220 IF L<4 THEN M=1
230 IF L>18 THEN M=-1
240 IF RND(20) <>1 THEN GOTO 270
250 IF RND(2) =1 THEN M=1 ELSE M=-1
260 IF W>1 THEN W=W-1
270 UNTIL FALSE
280 END