10 BORDER 0:DIM P(2,2):SYMBOL AFTER 200:SYMBOL 200,0,60,124,227,192,227,124,60:SYMBOL 201,0,56,56,56,124,124,214,214:SYMBOL 202,16,124,254,0,124,124,56,16:SYMBOL 203,32,16,124,248,240,248,124,56 20 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:MODE 0:PEN 1:?"  16BIT DEATH RACE  ":?"SELECT YOUR COMPANY":?" ":FOR I=1 TO 4:?I;":";SPC(I);CHR$(199+I):NEXT 30 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:MODE 1:PEN 3:FOR I=1 TO 40:LOCATE I,20:?CHR$(143):NEXT I:PEN 1:LOCATE 1,25:?" M$-INTEL-IBM-8086-640kB-MS/DOS-WINDOWS" 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)=16+ROUND(RND*8) 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=MAX(1,Y-8-J):J=0:SOUND 7,200+5*J,3,15 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 MODE 0:LOCATE 6,10:?"GAME OVER":LOCATE 6,12:?"SCORE ";S:FOR I=1 TO 21:READ NO,DU:SOUND 1,NO,DU,6:NEXT:RESTORE:GOTO 20 ELSE LOCATE 10,Y:?CHR$(C):GOTO 40