AQC: Collision -- A game of skill by David Bohlke ========= ------------------------------- eC200:A,R,C,M,NC:@17,"* C O L L I S S I O N *":C" THIS IS A DRIVING REACTION GAME WHICH TESTS YOUR SKILLS IN"D"AVOIDING ONCOMING AUTOS. DUE TO THE CURVATURE OF THE ROAD, YOU"cD#"MUST ALSO STEER YOUR CAR TO AVOID CRASHING INTO THE GUARDRAILS."D("TO STEER RIGHT PRESS THE -N- KEY, AND TO STEER LEFT PRESS THE"D-"-B- KEY. YOUR TOTAL SCORE FOR FIVE ATTEMPTS IS A COMBINATION "1E2"OF THE TIME YOU SURVIVE COLLISSION; AND THE NUMBER OF AUTOS"QE7"YOU SUCCESSFULLY PASS.":E9"DAVID BOHLKE, COGGON, IA FEB 11,1979":E<"=ENTER= THE NUMBER OF PLAYERS (1-5) ";PLEAPL((PL)):PL5 : EFI1PLFK"=ENTER= NAME OF PLAYER # ";I;:PL$(I)7FP (PL$(I))9"USE LESS THAN 10 LETTERS !":75?FU:VFd"=ENTER= SPEED :"Fi"SLOW(S) NORMAL(N) FAST(F) ";:A$FnA$"S"CS20:120FpA$"N"CS10:120FrA$"F"CS1:120Ft:100Fx:"=ENTER= TRAFFIC :"G}"LIGHT(L) MEDIUM(M) HEAVY(H) ";:A$+GA$"L"CN13:140AGA$"M"CN9:140WGA$"H"CN5:140bG:120G:"=ENTER= ROAD CURVATURE :"G"LONG CURVES(L) GENTLE CURVES(G) MANY CURVES(M) ";GA$GA$"L"CR50:160GA$"G"CR30:160 HA$"M"CR10:160H:140-H:A$(153)(166)CHRC$(155)(167)fHR$(4,153)(20,128)(4,166)uH GA1 5H Z1 PLHZ1@960,PL$(Z);" PRESS =ENTER= FOR YOUR TURN ";:X$:HR960(20):A20:AM(3)1HR130:R20:R31:CT0:CP0 I,500:600I6S(Z,GA)CTCP5/I@Z1PL350BIJ@896,PL$(Z1)kIO"PRESS =ENTER= FOR YOUR TURN ";A$:sI^ Z|Ih700I| GAI@960,"PRESS =ENTER= FOR ANOTHER GAME ";:A$:I@R,R$:(CN)1@R(18)61,RC$;:CPCP1I@0,CTCP5;J@A,A$;:(A2,3)(A23,3)CJR2R21:R2R1R1(10)CR:R20:R3R3iJRRR3:R995R995:R960R960J(14368)16AAAM :(14368)64AAAMJA5A5:A60A60JNC1CS::CTCT1JW500JXM1A22JbN26(5) KgMM1M1N4:(4)2625KhM0M127625'Kl(M,N):Kq:M1M1(4):@KgK:@18,"* C O L L I S S I O N *"{K@200,"ROUND :"K@248,"TOTALS"KI1PL:@I128192,PL$(I);:T(I)0:KI1GA:@I7204,I;:KI1GA1:J1PLL@I7J128202,(191); L:3LI1PL1:@I128128,(64,140);:GLI1PL:J1GA\LT(I)T(I)S(I,J)xL@I128J7203,S(I,J);L:LI1PL:@I128248,T(I);:L