10 REM DRAG5.ECB
   15 REM ...DRAG 500...FROM MECC : H2T1030  1-13-78
   20 REM ..... TODD PEYTON
   25 FOR X=1 TO 10
   30   PRINT
   40 NEXT X
   50 PRINT TAB(15);"#$#  D R A G   5 0 0  #$#"
   60 PRINT
   70 PRINT
   80 PRINT "HOW FAR DO YOU WHAT TO RACE";
   90 INPUT D1
  100 PRINT
  110 PRINT "DO YOU WANT TO RACE ME";
  120 INPUT I$
  130 IF I$="N" THEN 200
  140 PRINT "O.K. then, I'll have car #1"
  150 LET P(1)=600
  160 LET D(1)=3.9
  170 LET E(1)=5.9
  180 REM ...NEXT T
  190 GOTO 290
  200 PRINT "DESIGN OF CAR ONE"
  210 PRINT "HORSE POWER ---=>";
  220 INPUT P(1)
  230 PRINT "REAR RATIO  ---=>";
  240 INPUT E(1)
  250 PRINT "TIRE WIDTH  ---=>";
  260 INPUT W(1)
  270 PRINT "TIRE DIA   ---=>";
  280 INPUT D(1)
  290 PRINT "DESIGN OF CAR #2"
  300 PRINT "HORSEPOWER ---=>";
  310 INPUT P(2)
  320 PRINT "REAR RATIO ---=>";
  330 INPUT E(2)
  340 PRINT "TIRE WIDTH ---=>";
  350 INPUT W(2)
  360 PRINT "TIRE DIA   ---=>";
  370 INPUT D(2)
  380 PRINT
  390 PRINT "GO"
  400 LET K1=500
  410 LET K2=1.6
  420 LET K3=2
  430 LET K4=.0006
  440 LET K5=.00006
  450 LET K6=.2
  460 LET K7=4
  470 LET K8=.00015
  480 LET Q(1)=0: LET Q(2)=0
  490 LET S1=0: LET S2=0
  500 LET X(1)=0: LET X(2)=0
  510 REM ...M=MASS
  520 FOR J=1 TO 2
  530   LET M(J)=(K1+K2*P(J)+K3*W(J)*D(J)+K7*D(J)^2)/32.2
  540   REM ...DRAG
  550   LET C(J)=K4*M(J)^(2/3)+K8*W(J)*D(J)
  560   REM ...MAX ACCEL
  570   LET B(J)=15+28*W(J)*D(J)/(W(J)+6)*(D(J)+1)
  580   REM ...RPM VS PWR
  590   LET Y(J)=3.7-.0033*P(J)
  600 NEXT J
  610 PRINT
  620 PRINT
  630 PRINT
  640 PRINT "TIME    SPEED     DISTANCE     SPEED       DISTANCE"
  650 PRINT
  660 PRINT
  670 FOR T=0 TO 100 STEP 1
  671   PRINT "";
  680   FOR T1=1 TO 100 STEP 1
  690     FOR J=1 TO 2
  700       REM ...RPM
  710       LET R=60*S(J)*E(J)/(3.1415926536*D(J))
  730       LET L0=(P(J)/42.5)*(50+.0078*(R/Y(J))-4.E-10*(R/Y(J))^3)
  740       REM ...TOER ROAD
  750       LET L1=P(J)*(K5*R+K6)
  760       REM ...REAR AXEL
  770       LET L2=E(J)*(L0-L1)
  780       REM ...FRICTION
  790       LET F=2*L2/D(J)
  800       REM ...TEST BURN RUBBER
  810       IF F>M(J)*B(J) THEN 880
  820       REM ...ACCEL
  830       IF Q(J)<>0 THEN 860
  840       PRINT "CAR # ";J;" stops BURNING RUBBER!"
  850       LET Q(J)=1
  860       LET A=(F-C(J)*S(J)*S(J))/M(J)
  870       GOTO 900
  880       LET A=B(J)-C(J)*S(J)*S(J)/M(J)
  890       REM ...SPEED
  900       LET S(J)=S(J)+A*.01
  910       REM ...DISTANCE
  920       LET X(J)=X(J)+S(J)*.01
  930     NEXT J
  940     REM ...TEST FINISH
  950     IF X(1)<D1 AND X(2)<D1 THEN 1160
  960     IF X(1)>X(2) THEN 1080
  970     LET T3=(X(2)-D1)/S(2)
  980     LET T=T+T1/100-T3
  990     PRINT T;S(1)*3600/5280,X(1),S(2)*3600/5280,X(2)
 1000     PRINT "","","","WINNER"
 1010     GOTO 110
 1020     PRINT "","","","WINNER"
 1030     PRINT
 1040     PRINT "DO YOU WANT TO TRY AGAIN",
 1050     INPUT I$
 1060     IF I$="Y" THEN 105
 1070     STOP
 1080     LET T3=(X(1)-D1)/S(1)
 1090     LET T=T+T1/100-T3
 1100     LET X(1)=D1
 1110     LET X(2)=X(2)-S(2)*T3
 1120     PRINT T;S(1)*3600/5280,X(1),S(2)*3600/5280,X(2)
 1130     PRINT "          WINNER"
 1140     PRINT
 1150     GOTO 1040
 1160   NEXT T1
 1170   PRINT T+1;S(1)*3600/5280,X(1),S(2)*3600/5280,X(2)
 1180 NEXT T
 1200 END