1 NT=3
   2 .
   3 .
   4 .
   5 .
   6 .
   7 .
   8 .
   9 clear 
  10 input "RACE TIME"T
  20 clear 
  30 NT=0
  40 BC=8;FC=7
  50 Y=-44
  60 X=-20
  70 A=0
  80 C=0
  90 D=0
 100 E=-22
 110 Z=0
 111 for S=1to T
 115 Y=-44
 116 for B=1to 17
 120 D=D+JX(1)mul 10
 130 CX=-40
 140 CY=35
 150 print "CRASHES",#2,C
 160 CX=20
 170 CY=35
 180 print "MILES",#2,Z,".",V
 190 box D,-22,8,20,3;box D,-15,12,2,3;box D,-27,12,2,3;box D-7,-15,2,6,3
 191 box D+7,-15,2,6,3;box D-8,-27,4,6,3;box D+8,-27,4,6,3
 200 box D,-22,8,20,3;box D,-15,12,2,3;box D,-27,12,2,3;box D-7,-15,2,6,3
 201 box D+7,-15,2,6,3;box D-8,-27,4,6,3;box D+8,-27,4,6,3
 210 if X+40>D-7if X+40<D+7if Y<-17if Y>-27gosub 500
 220 if X>D-7if X<D+7if Y<-17if Y>-27gosub 500
 230 if X<D-7if X>D+7if Y>-17if Y<-27gosub 600
 240 if X+40<D-7if X+40>D+7gosub 600
 260 Y=Y+5
 270 X=X+A
 280 box X,Y,2,2,3
 290 box X+40,Y,2,2,3
 320 if X>-20if X<0 A=A+rnd (10)-5
 330 if X>0 A=-2
 340 if X=-20 A=1
 350 if X<-20 A=2
 360 if X=0 A=-1
 370 if S<=T next B;if S>Tgoto 400
 375 clear 
 380 if S<=T next S;if S>Tgoto 400
 390 goto 120
 400 CX=-10;CY=0;print " right RACE OVERleft ";STOP
 500 for W=1to 5
 510 box D,-22,20,20,3;box D,-22,20,20,3
 520 next W
 530 C=C+1
 540 return 
 600 if Y=Y+5 Z=Z+V
 610 W=1;U=100
 620 T=Wdiv U
 630 V=RMmul 100div U
 640 return 
>run