10 SYMBOL AFTER 200:SYMBOL 200,0,60,124,227,192,227,124,60:SYMBOL 201,0,56,56,56,124,124,214,214:DIM P(2,2):DATA 239,60,0,10,239,60,0,10,239,30,0,5,239,30,0,5,201,45,0,5,213,30,0,5,213,30,0,5,239,30,0,5,239,30,0,5,253,30,0,5,239,90 20 BORDER 0:MODE 0:PEN 1:?"  16BIT DEATH RACE  ":?"SELECT YOUR COMPANY":?" 1: ";CHR$(200);" OR 2: ";CHR$(201):INPUT C: C=199+C:P(1,1)=40:P(1,2)=20:P(2,1)=68:P(2,2)=16:Y=10:S=0 30 MODE 1:PEN 3:FOR I=1 TO 40:LOCATE I,20:?CHR$(143):NEXT I:PEN 1:LOCATE 1,25:?"M$-INTEL-IBM-PC-8086-640kB-MSDOS-WINDOW" 40 PEN 3:FOR I=1 TO 2:IF P(I,1)<26 THEN LOCATE P(I,1)+15,P(I,2):? " " 50 IF P(I,1)>0 AND P(I,1) < 41 THEN LOCATE P(I,1),P(I,2):? CHR$(143) ELSE IF (P(I,1)<-13) THEN P(I,1) = 41:P(I,2)=15+ROUND(RND*9) 60 P(I,1) = P(I,1) - 1:NEXT I:LOCATE 10,Y+1:B$ = COPYCHR$(#0):PEN 2:IF INKEY(47)<>-1 THEN J=J+1 ELSE IF J>0 AND B$=CHR$(143) THEN LOCATE 10,Y:? " ":Y=Y-8-J:J=0:SOUND 7,200+5*J,3,15:IF Y < 1 THEN Y = 1 70 IF Y < 24 AND B$<>CHR$(143) THEN LOCATE 10,Y:? " ":Y=Y+1:SOUND 7,Y*8+60,3,5 ELSE S=S+1:IF I<65536 THEN LOCATE 35,1: ? S ELSE LOCATE 10,12:? CHR$(C);" WON THE RACE":END 80 IF Y = 24 THEN GOTO 90 ELSE LOCATE 10,Y:? CHR$(C):GOTO 40 90 MODE 0:LOCATE 5,10:?"GAME OVER":LOCATE 5,12:? "SCORE ";S:FOR I = 1 TO 21: READ NO,DU:SOUND 1,NO,DU,6:NEXT:RESTORE:GOTO 20