a (););"GRANPRIX"a );"CREATIVE COMPUTING"b );"MORRISTOWN, NEW JERSEY"b(::5b P(),F(),G(),H(R);bIb X Tb P(X)\b Xjb I zb$ G(I),F(I)b8 G(I)G(I)bB F(I)(F(I)()bL IbV X R: H(X): Xb[b` A(X)(XL|)cj T(T)(T ) Lcm C(T)((TR))((TR)R)R(R(TR))cn B(T)((TR))((TR)R)R(R(TR))co P(T)(H(B(T))Q(T)R(T))cp Q(T)H(C(T))H(B(T))cq R(T)TR(TR)ctc~ Dc #d "WELCOME TO THE PUC GRAN PRIX"*d 0dZd "DO YOU WANT A COURSE DESCRIPTION";cd A$}d (A$,)"Y" vd "MAKE SURE YOUR PRINTER IS READY."d "ENTER 'RETURN' TO BEGIN PRINTING. ";XX$d: "--- PRINTING ---": e( );"2";B);"1"Je2 );"CC0XPXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX0CC"pe<  );"85-100 CC (800)";E);"C"eF );"C";F);"C"eP );"3 0";);"PUC GRAN PRIX RACE";F);"C"eZ );"X";E);"C"e_ );"X";C);"CC"fd );"X";&);"SS";;);"(2800) C 50-"Vfn  );"X";);"SSSSSSS SSS SSSOXXXXXXXXXXXXXXXX";jfs "XPXXOC 70"fx  );"X SS SSSSSSS 7";f} @);"8"f  );"X (1900)0 6 90-110"f  );"X X"f );"X X"; g );"DISTANCES IN YARDS, EG. ";9g "(800) = 800 YDS."gg );"X X";);"SPEEDS IN MPH, ";g "EG. 85 TO 100 MPH."g " P X"g " X X"g " X X"g " X X"g " 4 0(1500) X"h " H X"h " H X",h "20-H 0 5"=h " 35 H H"Mh " HH"Th [h h "1 TO 2 IS A STRAIGHTAWAY 800 YARDS LONG"h" "2 TO 3 IS A CURVE 200 YARDS LONG"h, " THE BREAKAWAY SPEED RANGE IS 85 TO 100 MPH"i6 "3 TO 4 IS A STRAIGHTAWAY 500 YARDS LONG"Wi@ " IT ENDS AT POSITION 1500 YARDS FROM STARTING";eiE " GRID"iJ "4 TO 5 IS A HAIRPIN CURVE 100 YARDS LONG"iT " THE BREAKAWAY SPEED RANGE IS 20 TO 35 MPH"j^ "5 TO 6 IS ANOTHER STRAIGHTAWAY 300 YARDS LONG"=jh " IT ENDS AT POSITION 1900 YARDS FROM THE GRID"rjr "6 TO 7 IS A SET OF 'S' CURVES 500 YARDS LONG"j| " THE SPEED RANGE IS 90-110 MPH"j "7 TO 8 IS THE FINAL STRAIGHTAWAY OF 400 YARDS"k " IT ENTERS THE LAST CURVE AT 2800 YARDS"6k "8 TO 9 IS THE FINAL CURVE OF 400 YARDS"mk " THE BREAKAWAY SPEED RANGE IS 50 TO 70 MPH"zk ( )k: "THE TOTAL LENGTH OF ONE LAP IS 3200 YARDS"kk "DURING THE STRAIGHTAWAYS YOU WILL BE ABLE TO CONTROL THE"7l& "ACCELERATION AND BRAKING OF THE CAR. THE CURVES WILL BE";Fl+ " TAKEN"pl0 "AT WHATEVER SPEED YOU ENTER THEM."l2 "BELOW THE BREAKAWAY SPEED, THE CURVES MAY BE TAKEN WITH ";l4 "NO DIFFICULTY."m: "ABOVE THE FASTEST SPEED INDICATED, YOU WILL CRASH!!"HmD "WITHIN THE SPEED RANGE, THERE IS THE POSSIBILITY THAT YOU";WmI " MIGHT"mN "LOSE TIME OR SPEED BY SWINGING WIDE OR BY SPINNING OUT."mX "THE FASTER YOU TAKE THE CURVES, THE GREATER THE RISKS--"mb "AND THE LESS THE TIME!!!!"mqnrGns "YOUR TASK IS TO TRANSVERSE THE TRACK IN A MINIMUM OF TIME"cnt "WITHOUT CRASHING!!!"inunv: "YOUR CAR MAY BE ONE OF THE FOLLOWING:"nw "1. PORSCHE"nx "2. FERRARI"ny "3. MASERATI"nz "4. LOTUS FORD" o{: "WHICH CAR WOULD YOU LIKE";o| Z:1o} Z ,,,po~ "WE DON'T HAVE THAT CAR IN STOCK, PLEASE CHOOSE AGAIN.";zo |oMo Bo oM oBo oM oBo oMoB!p "YOUR CAR HAS A MAXIMUM ACCELERATION OF";M;"MPH/SEC."Pp "AND A MAXIMUM BRAKING OF ";B;"MPH/SEC."p: "YOU WILL RACE AGAINST ONE OF THE FOLLOWING:"p "1. U.S. POSTAL DELIVERY TRUCK"p "2. 1970 BEAT PONTIAC GTO"p "3. 1966 WELL USED FORD MUSTANG" q "4. LOTUS FORD""q "5. 1974 FERRARA"Zq "6. THE PHYSICS SUPERCHARGED LIGHTBEAM SPECIAL":q "CHOOSE ONE OPPONENT BY ENTERING NUMBER";q R1q R1 R1 q R1 q "WHICH CAR DID YOU SAY";q q RR1q  r R(kn+r R(ZR)d()d2r 8r Yr BEGIN THE RACE!!_r ir Jr "ELAPSED-TIME SPEED POSITION OPPONENT'S"r " SECONDS MPH YARDS POSITION ACCELERATION"s "----------- ----- -------- ---------- ------------"s 1s X:S:T:T9:X9 7s Gs J  Ms: sX "COMPLETED LAP";",ELAPSED TIME";T(T);"SEC."s^ "YOUR OPPONENT FINISHED IN";PR;"SECONDS"s_ K1T(T)PRs` K1 c ta "CONGRATULATIONS, YOU WON BY";K1;"SECONDS"tb !:tc "SORRY, YOU LOST BY";K1;"SECONDS"Dtd !Zt P(T)  t " ###.# ### #### #### "; T(T);A(S);(X);P(T);t  t " ";T(T)," ";A(S)," ";(X)," FINISH"," ";t A1u AA1u A1 ,u A1B  Tu "MAXIMUM BRAKING IS ";B;"MPH/SEC"^u  lu T1SA}u T1D  u X1XST1AT1T1u X1P(J) H u "YOU STOPPED";(P(J)X1);"YARDS FROM POINT";Ju Su XX1v* TTT1v4  #vH YP(J)X4vJ A R BvL TTYSLvN p cvR S1(SSAY)vv\ TT(SS1)Avf SS1vp JJvz @v X1XSDADDv X1P(J) H v TTDv SSADv XX1v  w A1 M t3w "MAXIMUM ACCELERATION IS";M;"MPH/SEC"=w$  Twt X1XSDADDjw~ X1P(J) H tw  w@ *** SUB CURVE ***wJwT I(J)w^ T1(P(J)P(J))Swh S1G(I)(F(I)G(I))()wr SS1 xw "CURVE";J;J;", SPEED";A(S);"MPH"$x| JJ1x XP(J)>x TTT1Hx  ex SS1(F(I)S1)  }x T2T1()Lx "SPEED IN CURVE";A(S);"MPH, TOOK CURVE WIDE, LOST";x T(T2);"SEC."x T1T1T2x |x SF(I) l y S2SS()fff"y T1T1SS2Wy& "SPUN OUT AT";A(S);"MPH, LOST SPEED AND TIME"by0 SS2ly: |yl "LOST CONTROL AT";A(S);"MPH. YOUR CAR CRASHED!!"yq "YOUR OPPONENT FINISHED IN";RR;"SECONDS!"y y!z! "DO YOU WISH TO TRY AGAIN";z! A$'z! (A$,)"Y" v-z(#\z2# 0,800,1000,1500,1600,1900,2400,2800,3200iz<# 85,100uzF# 20,35zP# 90,110zZ# 50,70zd#zn# 0,1,3,9,21,39,62,87,120,156,196,244,293,351,410{x# 479,550,625,700,758,800,847,894,942,990,1030,1080:{# 1135,1200,1260,1330,1382,1425,1470,1490,1505,1519r{# 1539,1548,1563,1578,1512,1610,1632,1658,1683,1718{# 1758,1800,1850,1890,1943,1997,2050,2104,2057,2210{# 2294,2317,2370,2420,2480,2535,2600,2670,2725,2768,2799,2830.|# 2861,2892,2920,2951,2982,3013,3044,3075,3106,3137,3168,3199:|# 100000,2420,2480,2535,2600,2670,2725,2768,2799,2830.|# 2861,2892,2920,2951,2982,3013,3044,3075,3106,3137,3168,3199