CLS
NEW
' ------- 04 Drive Game
10 CLS:CLP:X=16:Y=23:R=8:H=17:T=0:S=0
20 SCROLL 2
30 S=S+1
40 C=SCR(X,Y)
50 LOCATE X,Y:PRINT "A";
60 T=T+1:D=(T&7)>3
70 LOCATE R, 0:PRINT CHR$(2+D)
80 LOCATE R+H, 0:PRINT CHR$(2+D)
90 LOCATE R+H/2+1, 0:PRINT CHR$(124*((T&3)>1))
100 K=INKEY():X=X-(K=28 AND X>0)+(K=29 AND X<28)
110 IF (T%64)=0 THEN H=H-1:IF H<3 THEN H=3
120 IF (T%16)<>0 THEN GOTO 160
130 R=R+RND(3)-1
140 IF R<3 THEN R=3
150 IF (R+H)>26 THEN R=26-H
160 IF (C=0) OR (C=124) THEN GOTO 20
170 LOCATE X,Y:PRINT CHR$(244)
180 LOCATE 4,13:PRINT "Game Over. Score = ";S