From b3d29474bf267877afaa5e47b384ec25d76a4bc2 Mon Sep 17 00:00:00 2001 From: Renaud Fivet Date: Fri, 21 Jun 2024 11:40:48 +0800 Subject: [PATCH] Add CAN-AM. --- dec/CAN-AM.BAS | 421 +++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 421 insertions(+) create mode 100644 dec/CAN-AM.BAS diff --git a/dec/CAN-AM.BAS b/dec/CAN-AM.BAS new file mode 100644 index 0000000..a9184b8 --- /dev/null +++ b/dec/CAN-AM.BAS @@ -0,0 +1,421 @@ +100 ' CAN-AM*** (BASIC PROGRAM BEGINS AT LINE 610) WAS PROGRAMMED BY MARK +110 ' MANASSE, TO REPLACE THE AILING VERSION HE WROTE AS A SIXTH GRADER +120 ' AT HANOVER ELEMENTARY SCHOOL. +130 ' LAST CHANGE 12/27/72 BY DIANE MATHER, KIEWIT +140 ' +150 ' DESCRIPTION--THE PROGRAM ALLOWS YOU TO RACE AROUND A HIGHLY +160 ' PERILOUS COURSE, RISKING BOTH LIFE AND MACHINE, IN AN +170 ' EFFORT TO RACE FRIENDS OR THE COMPUTER'S VERY OWN SLOW- +180 ' POKE SAM, WILDMAN WILLY, AND HOTSHOT HARRY +190 ' +200 ' INSTRUCTIONS-- +210 ' YOU ARE ABOUT TO RACE. RACE ON ONE OF THE FASTEST COURSES +220 ' IN THE WORLD. A ROAD COURSE. A LONG ONE. 5.3 MILES. SPEEDS +230 ' UP TO 200 MPH. YOU CAN RACE FRIENDS(?) OR THE COMPUTER. +240 ' TO RACE THE COMPUTER, TYPE THE SEQUENCE: +250 ' +260 ' /OLD CAN-AM***/RUN +270 ' +280 ' TO RACE FRIENDS, TYPE: +290 ' +300 ' /OLD CAN-AM***/LINK ,N +310 ' +320 ' REPLACE WITH ANY WORD OF LENGTH 1 THROUGH 8 INCLUSIVE +330 ' THAT YOU CHOOSE. REPLACE N WITH THE NUMBER OF PLAYERS COUNTING +340 ' YOURSELF. HAVE YOUR FRIENDS TYPE: +350 ' +360 ' JOIN +370 ' +380 ' SHOULD BE THE KEYWORD YOU USED IN THE 'LINK' COMMAND +390 ' +400 ' WHEN THE COMPUTER TYPES A QUESTION OF THE FORM +410 ' STRAIGHT A? OR CURVE 1: +420 ' RESPOND BY TYPING THE SPEED (IN MPH) YOU DESIRE TO TRAVEL AT, +430 ' AND HIT THE RETURN KEY. GOOD LUCK. YOU MAY NEED IT. +440 ' +450 ' IF YOU ARE USING A TERMINAL WITH BOTH UPPER AND LOWERCASE, TYPE +460 ' WORD ANSWERS (SUCH AS YES OR NO) IN CAPITAL LETTERS. +470 ' +480 ' TO STOP THIS LISTING, PRESS THE 'S' OR 'ATTN' KEY. +490 ' +500 ' FOR MORE INFORMATION ON MULTIPLE-TERMINAL PROGRAMMING, (AS +510 ' WHEN SEVERAL PEOPLE RACE EACH OTHER), SEE TM009 WHICH IS +520 ' AVAILABLE FROM THE KIEWIT DOCUMENT CENTER (SECRETARIAL AREA), +530 ' KIEWIT COMPUTATION CENTER, HANOVER, N. H. 03755, PHONE +540 ' (630) 646-2643. +550 ' +560 ' EXPLANATION OF CHANGES-- +570 ' 12/27/72--TO REWORD INSTRUCTIONS. +580 ' +590 '* * * * * * * * * * * * * * * * * * * * * * +600 +610 REM PLEASE REFER ALL BUGS OR COMMENTS TO DIANE +620 REM MATHER, PROGRAM LIBRARIAN, 105 KIEWIT +630 +640 LET O(0)=2 'STANDARD MOTIF HEADER +650 LET O(1) = ASC(SOH) +660 LET O(2) = ASC(N) +670 CHANGE O TO O1$ +680 LET O(2) = ASC(Q) +690 CHANGE O TO O$ +700 PRINT O1$;O$;CHR$(13);"XX ARE YOU FAMILIAR WITH THE WAY THIS GAME WORKS"; +710 DATA NON,OUI,PARLEZ-VOUS ANGLAIS?,NEIN,JA,SPRECHEN SIE ENGLISCH? +720 DATA NOPE,YUP,COMPUTERS ARE SOPHISTICATED MACHINES. USE APPROPRIATE LANGUAGE. +730 LET K9=5 'TWICE NUMBER OF KNOWN LANGUAGES +740 FOR X=1 TO K9-1 STEP 2 +750 READ F$(X),F$(X+1),R$((X-1)/2+1) +760 NEXT X +770 REM WE HAVE JUST LEARNED FOREIGN LANGUAGES +780 DATA WILDMAN WILLY,HOTSHOT HARRY,SLOWPOKE SAM 'NAMES OF DRIVERS WHO COMPETE AGAINST ONLY ONE PERSON. (AUTO-PILOTS) +790 MAT READ Q$(3) 'NAME ARRAY +800 DATA -2.9,-2.9,-5 'AMT. SPEED TO BE SUBTRACTED FROM AUTO-PILOT' SPEEDS +810 MAT READ Q(3) +820 MAT READ M$(3) 'READ NAMES OF TYPES OF ROADWAY +830 READ X$ 'DEATH MESSAGE +840 INPUT A$ 'RESPONSE TO DO YOU KNOW WHAT YOU'RE DOING? +850 IF A$>"09" THEN 890 'IF BETWEEN 01 AND 09, THEN MULTI-TERMINAL +860 IF A$<"01" THEN 890 +870 LET O9=VAL(A$) +880 GOTO 960 +890 LET O$="" 'SET THINGS UP FOR SINGLE TERMINAL +900 GOSUB 2190 +910 IF A$="NO" THEN 1070 +920 PRINT "RATE YOURSELF AS A DRIVER. (1-BEST,3-WORST)"; +930 INPUT O +940 LET Q(3)=Q(3)*O +950 GOTO 1050 +960 LET O(2) = ASC(A) 'CREATE O$ ARRAY FOR MULTI-TERMINAL +970 CHANGE O TO O$(10) 'STANDARD MOTIF +980 FOR I = 0 TO O9 +990 LET O(2) = ASC(0)+I +1000 CHANGE O TO O$(I) +1010 NEXT I +1020 PRINT O$(10);"YOU MAY 'DRAFT' (SLIPSTREAM) OFF OF ANY CAR AHEAD" +1030 PRINT "OF YOU. (BUT NOT MORE THAN 1 SECOND AHEAD). TO DO THIS" +1040 PRINT "TYPE HIS CAR NUMBER+1000 AS YOUR SPEED." +1050 RANDOMIZE +1060 IF A$="YES" THEN 1110 +1070 PRINT O$(0) +1080 PRINT "FOR INSTRUCTIONS, PLEASE TYPE LIST AFTER THE COMPUTER SAYS READY." +1090 PRINT +1100 IF A$="NO" THEN 2290 +1110 LET F2=INT(RND*10)+6 +1120 FOR A=0 TO O9 'ASSIGN NUMBERS AND ADHESION FACTORS +1130 PRINT O$(A);"YOUR DRIVING NUMBER IS";F2*(A+1)+A 'ADHESION FACTOR IS HOW WEL YOUR CAR GRIPS THE ROAD +1140 LET A(A)=RND*.05+.05 +1150 PRINT O$(A);"ADHESION FACTOR";A(A)*100-5;". (THE LOWER THE BETTER)" +1160 NEXT A +1170 PRINT O$(10);"YOUR MAX. SPEED IS 200 MPH. TO SEE STANDINGS INPUT" +1180 PRINT "0 AS YOUR SPEED" +1190 PRINT O$(0);"WOULD YOU LIKE TO SEE THE COURSE";CHR$(63+SGN(O9));O$; 'PRINT ? IF ULT-TERM, OTHERWISE DON'T +1200 MAT INPUT A$ +1210 PRINT O$(10); +1220 LET A$=A$(NUM) +1230 GOSUB 2190 +1240 IF A$="NO" THEN 1450 +1250 IF A$<>"YES" THEN 1190 +1260 PRINTTAB(4);"----------------" 'PRINT COURSE +1270 PRINTTAB(3);"/1";TAB(11);"B";TAB(19);"2\" +1280 PRINTTAB(2);"/A";TAB(20);"C\" +1290 PRINTTAB(1);"/";TAB(22);"\" +1300 PRINT "/";TAB(21);"3I" +1310 PRINT "^-START*FINISH";TAB(22);"I" +1320 PRINT "^";TAB(22);"I" +1330 PRINT "^";TAB(21);"DI" +1340 PRINT "^";TAB(22);"I" +1350 PRINT "^";TAB(22);"I" +1360 PRINT "^H";TAB(22);"I" +1370 PRINT "^";TAB(22);"I" +1380 PRINT "^";TAB(21);"4I" +1390 PRINT "^";TAB(16);"------/" +1400 PRINT"^8";TAB(15);"(5 E" +1410 PRINT "^";TAB(16);"\" +1420 PRINT "\";TAB(17);"-----------)";CHR$(13);TAB(20);"/PITS\" +1430 PRINT " \7";TAB(14);"G";TAB(21);"F^";TAB(27);"6I" +1440 PRINT" \-------------------------/" +1450 LET N=RND*3+1 +1460 PRINT" + NOTE: THIS IS A";INT(N);"LAP RACE." +1470 PRINT" +GENTLEMEN, START YOUR ENGINES! THE GREEN GOES DOWN AND" +1480 PRINT"OFF YOU GO!" +1490 DATA STRAIGHT,HAIRPIN,CURVE +1500 DATA MAY I SHOW YOU TO A PLOT? WE HAVE A NICE CHOICE OF HEADSTONES. +1510 LET Q=-1 +1520 LET H=INT(N) +1530 FOR V=1 TO N 'WORKING PORTION +1540 LET Y=FNA(M$(1),200,1,3/10,65) 'STRAIGHT A, 200 MAX., 3/10 MILE LONG +1550 LET Y=FNA(M$(3),125,1,1/10,49) 'CURVE 1, 125 MAX., 1/10 MILE LONG +1560 LET Y=FNA(M$(1),200,2,13/20,66) 'STRAIGHT B, 200 MAX., 13/20 MILE LONG +1570 LET Y=FNA(M$(3),125,1,1/10,50) 'CURVE 2, 125 MAX., 1/10 MILE LONG +1580 LET Y=FNA(M$(1),200,1,1/5,67) 'STRAIGHT C, 200 MAX., 1/5 MILE LONG +1590 LET Y=FNA(M$(3),150,1,3/20,51) 'CURVE 3, 150 MAX., 3/20 MILE LONG +1600 LET Y=FNA(M$(1),200,2,3/5,68) 'STRAIGHT D, 200 MAX., 3/5 MILE LONG +1610 LET Y=FNA(M$(3),125,1,1/10,52) 'CURVE 4, 125 MAX., 1/10 MILE LONG +1620 LET Y=FNA(M$(1),200,1,1/4,69) 'STRAIGHT E, 200 MAX., 1/4 MILE LONG +1630 LET Y=FNA(M$(2),100,.75,3/20,53) 'HAIRPIN 5, 100 MAX., 3/20 MILE LONG +1640 LET Y=FNA(M$(1),200,1.5,9/20,70) 'STRAIGHT F, 200 MAX., 9/20 MILE LONG +1650 LET Y=FNA(M$(2),100,.75,3/20,54) 'HAIRPIN 6, 100 MAX., 3/20 MILE LONG +1660 LET Y=FNA(M$(1),200,2,1,71) 'STRAIGHT G, 200 MAX., 1 MILE LONG +1670 LET Y=FNA(M$(3),125,1,1/10,55) 'CURVE 7, 125 MAX., 1/10 MILE LONG +1680 LET Y=FNA(M$(3),150,1,3/20,56) 'CURVE 8, 150 MAX., 3/20 MILE LONG +1690 LET Y=FNA(M$(1),200,2,7/10,72) 'STRAIGHT H, 200 MAX., 7/10 MILE LONG +1700 IF V=H THEN 1740 +1710 LET Y=FNA("START-FINISH (CURVE 9)",150,1,3/20,127) +1720 REM NAME OF TRACK ,MAX,#,LEN ,ASC +1730 REM START-FINISH, 150 MAX., 3/20 MILE LONG +1740 NEXT V +1750 IF G1=1 THEN 2040 'ALL DEAD? +1760 PRINT O$(10);"DO YOU MEAN THAT EVERYONE ISN'T DEAD? WELL, HERE ARE " 'NO, SO PRINT OUT RESULTS OF RACE +1770 PRINT"THE RESULTS STRAIGHT FROM THE CHECKERED FLAG: +" +1780 LET W=1E+37 +1790 IF O9=0 THEN 1820 +1800 LET G5=O9 +1810 GOTO 1830 +1820 LET G5=3 +1830 FOR Z=0 TO G5 +1840 IF O9>0 THEN 1880 +1850 IF Z=0 THEN 1880 +1860 PRINT Q$(Z); +1870 GOTO 1890 +1880 PRINT"GUY #";F2*(Z+1)+Z; +1890 IF D(Z)=0 THEN 1950 +1900 PRINT" IS LOOKIN' AT THEN PEARLY GATES." +1910 IF O9=0 THEN 1990 +1920 PRINT O$(Z);"TELL ST. LUCIFER NOT TO EXPECT ME, O.K.?" +1930 PRINT O$(10); +1940 GOTO 1990 +1950 PRINT" TOOK";T(Z);"SECONDS. WHICH AVERAGES OUT TO";3600*5.3*H/T(Z);"MPH" 'T ARRAY IS TIME ARRAY +1960 IF T(Z)>W THEN 1990 +1970 LET W=T(Z) 'NEW LEADING TIME AND DRIVER +1980 LET N=F2*(Z+1)+Z +1990 NEXT Z +2000 IF O9>0 THEN 2020 +2010 IF N>F2 THEN 2040 +2020 PRINT O$((N-F2)/(F2+1));"NICE RACE, MR";N +2030 PRINT O$(10);"AND THAT MEANS THAT GUY #";N;"WINS!!!" +2040 PRINT O$(0);"ANOTHER RACE";CHR$(63*SGN(O9));O$; +2050 MAT INPUT A$ +2060 LET A$=A$(NUM) +2070 GOSUB 2190 +2080 IF A$="NO" THEN 2290 +2090 IF A$<>"YES" THEN 2040 +2100 FOR Z=0 TO 10 'RESET FOR NEXT GAME +2110 LET T(Z)=D(Z)=0 +2120 NEXT Z +2130 PRINT O$(10);"NEW SET-UP. NO RAIN, NO DEBRIS"; +2140 IF G1=0 THEN 2160 'IF EVERYBODY'S DEAD, BE NASTY. +2150 PRINT ", AND (PLEASE!) BETTER DRIVERS." +2160 PRINT +2170 LET G1=F5=0 'UNKILL EVERYBODY AND UNOIL THE TRACK +2180 GOTO 1110 +2190 FOR X=1 TO K9 'FOREIGN LANGUAGE HANDLER +2200 IF A$=F$(X) THEN 2230 +2210 NEXT X +2220 GOTO 2280 +2230 PRINT O$(0);R$((X-1)/2+1) +2240 IF X=INT(X/2)*2 THEN 2270 +2250 LET A$="NO" +2260 GOTO 2280 +2270 LET A$="YES" +2280 RETURN +2290 STOP +2300 'CONTROL FUNCTION +2310 DEF FNA(A$,R,B,C,D) 'KIND TRACK, MAX. SPEED, ADHESION FUDGE FACTOR, LENGTH +2320 'ASC(LETTER FOLLOWING KIND OF TRACK) +2330 IF G1=1 THEN 4250 'ALL DEAD? +2340 GOSUB 2800 'GET SOME HAZARD (IE RAIN, OIL) +2350 GOSUB 3220 'GET EVERYONE'S SPEED +2360 FOR G=0 TO O9 'CHECK FOR SAFE SPEEDS +2370 IF D(G)=1 THEN 2780 +2380 IF (B+A(G)+E)*S(G)/B<=R*(1+RND*.1) THEN 2500 +2390 PRINT O$(G);X$ 'PRINT DEAD MESSAGE +2400 LET F5=F5+1 'INCREMENT OIL COUNTER +2410 LET E(F5)=D 'AND THE 635 SAID "LET THERE BE OIL." AND THERE IT WAS. +2420 FOR Z=0 TO O9 'AND THE TRACK ABOUNDED WITH OIL. AND THE 635 SAID "BOY, WHAT +2430 IF Z=G THEN 2450 'A MAN TRAP!" +2440 PRINT O$(Z);"GUY #";F2*(G+1)+G;"JUST WIPED REAL GOOD ('N DEAD!)" 'IN THE MEANTIME, IT HAS BEEN BUSY NOTIFYING PEOPLE +2450 NEXT Z 'OF THEIR COMRADE'S DEMISE. +2460 LET D(G)=1 'OFFICIALLY PRONOUNCE DEAD. D IS FOR DEATH +2470 LET Q=Q+1 'INCREMENT DEAD COUNTER +2480 IF Q=O9 THEN 4230 'EVERYBODY DEAD? +2490 GOTO 2780 +2500 LET Y4=T(G) 'RATS. HE DIDN'T WIPE +2510 IF (B+A(G)+E)*S(G)/B<=R THEN 2530 +2520 PRINT O$(G);"NEARLY HAD TO SAY GOOD BYE." 'ALMOST WIPED +2530 LET T(G)=T(G)+C/(S(G)/3600)+L(G) 'UPDATE HIS TIME +2540 IF O9>0 THEN 2660 'SEE IF, HEAVEN FORBID, HE PASSED SOMEBODY +2550 FOR X4=1 TO 3 +2560 IF D(X4)=1 THEN 2650 +2570 LET Z4=T(X4)-(C/(S(X4)/3600)) +2580 LET Z1=Y4-Z4 +2590 LET Z2=T(G)-T(X4) +2600 IF SGN(Z2)<>-SGN(Z1) THEN 2650 +2610 IF SGN(Z2)=1 THEN 2640 +2620 PRINT "YOU PASSED ";Q$(X4) +2630 GOTO 2650 +2640 PRINT Q$(X4);" JUST PASSED YOU" +2650 NEXT X4 +2660 FOR X4=G+1 TO O9 +2670 IF D(X4)=1 THEN 2770 +2680 IF S(X4)=0 THEN 2770 +2690 IF SGN(Y4-T(X4))=SGN(T(G)-(T(X4)+C/(S(X4)/3600))) THEN 2770 +2700 IF SGN(T(G)-(T(X4)+C/(S(X4)/3600)))<>-1 THEN 2740 +2710 PRINT O$(X4);"GUY";F2*(G+1)+G;"JUST PASSED YOU." +2720 PRINT O$(G);"YOU JUST PASSED GUY";F2*(X4+1)+X4 +2730 GOTO 2770 +2740 IF SGN(T(G)-(T(X4)+C/(S(X4)/3600)))=0 THEN 2770 +2750 PRINT O$(G);"GUY";F2*(X4+1)+X4;"JUST PASSED YOU." +2760 PRINT O$(X4);"YOU JUST PASSED GUY";F2*(G+1)+G +2770 NEXT X4 +2780 NEXT G 'PROCEED TO THE FATE OF THE NEXT VICTIM +2790 GOTO 4250 'NO MORE VICTIMS. (THIS TIME!!) +2900 REM HAZARDS +2810 PRINT O$(10); +2820 LET E=0 'MAKE SURE WE DON'T USE LAST SECTION'S OIL ON THIS SECTION +2830 MAT L=ZER 'KILL PIT STOPS FROM LAST TIME +2840 LET L(0)=0 +2850 IF F5<2 THEN 2900 'IF COURSE WELL GREASED, DISSOLVE GREASE +2860 PRINT "THE RED FLAG HAS BEEN PUT OUT. CARS REMAIN" +2870 PRINT "MOTIONLESS UNTIL DEBRIS IS CLEARED" +2880 MAT E=ZER +2890 LET F5=0 +2900 FOR X=1 TO F5 'SEE IF THOSE PLAYING DESERVE OIL +2910 IF E(X)=D THEN 2940 +2920 NEXT X +2930 GOTO 2970 +2940 PRINT"YIKES! OIL ON THE TRACK!" 'IF SO, NOTIFY SURVIVORS AND OTHERS +2950 LET E=.2 +2960 GOTO 3130 +2970 IF F3=1 THEN 3130 'HAVE WE HAD RAIN? +2980 IF RND>.025+G8 THEN 3130 'SEE IF IT SHOULD BE STOPPED OR STARTED +2990 IF A(0)<.1 THEN 3080 'IS IT RAINING +3000 IF RND>.5 THEN 3130 'STOP IT? +3010 PRINT "GLORY BE, THE RAIN HAS STOPPED! BUT REMEMBER IT IS STILL WET" +3020 LET F3=1 'RAIN, RAIN, GO AWAY, WON'T COME BACK ANOTHER DAY +3030 FOR A=0 TO O9 +3040 LET A(A)=A(A)-.075 'DELETE MOST OF THE EFFECTS +3050 LET G8=.025 'MAKE IT LESS LIKELY TO RAIN IN LATER RACES +3060 NEXT A +3070 GOTO 3130 +3080 PRINT "RAIN! SLOW DOWN!!" 'HALLELUJAH, MY RAIN DANCE WORKED +3090 FOR A=0 TO O9 'MAKE TRACK SLIPPERY +3100 LET A(A)=A(A)+.1 +3110 LET G8=.1 +3120 NEXT A +3130 IF C<>9/20 THEN 3210 'PIT STOPS? +3140 IF RND <.125 THEN 3210 +3150 FOR X=0 TO O9 +3160 IF RND*SGN(O9)<.75 THEN 3200 +3170 IF D(X)=1 THEN 3200 +3180 LET L(X)=RND*3+5 +3190 PRINT O$(X);"YOU ARE IN THE PITS FOR";L(X);"SECONDS." +3200 NEXT X +3210 RETURN 'WE WUZ HERE (AND LEFT!) +3220 REM INPUT +3230 MAT S=ZER 'RESET SPEED ARRAY +3240 IF O9>0 THEN 3270 'PRINT OUT SOMETHING LIKE 'STRAIGHT A' +3250 PRINT A$;" ";CHR$(D); +3260 GOTO 3280 +3270 PRINT O$(10);A$;" ";CHR$(D);": ";O$; +3280 LET S(O)=0 'GET EVERYBODY'S SPEEDS +3290 FOR A=0 TO O9 +3300 IF D(A)=0 THEN 3330 +3310 PRINT O$(A) 'IF HE'S DEAD, DON'T GIVE HIM A CHANCE TO INPUT +3320 PRINT O$; +3330 NEXT A +3340 MAT INPUT J 'INPUT SOMEBODY'S SPEED +3350 IF NUM=1 THEN 3390 'SOMEBODY TYPED SOMETHING. SET UP SPEED AND TTY# +3360 LET N=J(1) +3370 LET S=J(2) +3380 GOTO 3410 +3390 LET S=J(1) +3400 LET N=O +3410 IF D(N)=0 THEN 3450 'IS THE GUY DEAD? +3420 PRINT O$(N);"BUT I THOUGHT YOU WERE DEAD." 'RE-INFORM HIM THAT HE IS AN UN-PERSON +3430 PRINT O$; +3440 GOTO 3340 +3450 IF S(N)=0 THEN 3480 'HAS THIS GUY ALREADY TOLD US HIS SPEED? +3460 PRINT O$(N);"WAIT A SEC. I STILL NEED";O9-U-Q;"MORE SPEEDS." 'TELL HIM TO BUZZ OFF +3470 GOTO 3430 +3480 LET A=N +3490 IF S<=200 THEN 3620 'DID HE TRY TO EXCEED HIS MAX. SPEED? +3500 IF O9=0 THEN 3600 +3510 IF S<1000 THEN 3600 +3520 LET R4=(S-1000-F2)/(F2+1) 'IT'S OK. HE ONLY WANTS TO DRAFT +3530 IF R4=INT(R4) THEN 3560 'NOW SEE IF HE PIKED A LEGAL CAR +3540 PRINT O$(N);"ILLEGAL CAR" 'HE DIDN'T +3550 GOTO 3640 +3560 IF R4>O9 THEN 3540 +3570 IF D(R4)>0 THEN 3540 +3580 IF ABS(T(N)-T(R4)-.5)=>.5 THEN 3540 +3590 GOTO 3700 'HE DID!!! +3600 PRINT O$(N);"MAYBE A LITTLE HARD ON THE PEDDLE? BE REALISTIC." 'OPTIMIST +3610 GOTO 3640 +3620 IF S>0 THEN 3660 +3630 GOSUB 3990 'HE WANTS TO SEE HOW HE'S DOING. POOR GUY +3640 PRINT "HOW FAST";CHR$(63*SGN(O9));O$; +3650 GOTO 3340 +3660 IF S=>20 THEN 3690 'WHERE DOES HE THINK HE IS? THE LONG ISLAND EXPRESSWAY? +3670 PRINT O$(N);"I DOUBT YOU WANT TO GO THAT SLOWLY" +3680 GOTO 3640 +3690 LET S(N)=S 'SINCE HE MADE IT THIS FAR, ASSUME THAT IT'S LEGAL +3700 LET U=U+1 +3710 IF R4=0 THEN 3740 +3720 LET H(N)=R4 'IF HE'S DRAFTING, TELL ME TO WHOM +3730 LET R4=0 +3740 IF U0 THEN 3890 'SET SPEEDS FOR AUTO-PILOTS +3770 FOR F0=1 TO 3 +3780 IF D(F0)=1 THEN 3870 +3790 LET S+R*B/(B+.1+E+G8)+(RND*3+Q(F0)) +3800 IF (B+.1+G8+E)*S/B<=R THEN 3850 +3810 LET D(F0)=1 +3820 PRINT O$(10);Q$(F0);" JUST WIPED" 'AND INFORM US IF THEY WIPE +3830 LET F5=F5+1 +3840 LET E(F5)=D +3850 LET T(F0)=T(F0)+C/(S/3600) +3860 LET S(F0)=S +3870 NEXT F0 +3880 GOTO 3980 +3890 FOR X2=0 TO O9 'NOW HANDLE DRAFTERS +3900 IF D(X2)=1 THEN 3970 +3910 IF S(X2)<>0 THEN 3970 +3920 IF S(H(X2))<>0 THEN 3950 +3930 LET H(X2)=H(H(X2)) +3940 GOTO 3920 +3950 LET S(X2)=S(H(X2)) 'SET HIS SPEED TO HIS DRAFTEES, AND +3960 LET T(X2)=(T(X2)+T(H(X2)))/2 'HALVE THE DISTANCE BETWENN THEM +3970 NEXT X2 +3980 RETURN 'NOW GO COUNT SURVIVORS AND INCREMENT TIMES +3990 REM PLACING +4000 PRINT O$(A) 'TELL ME HOW I'M DOING +4010 IF O9=0 THEN 4040 +4020 LET G5=O9 +4030 GOTO 4050 +4040 LET G5=3 +4050 FOR G=0 TO G5 +4060 IF G=A THEN 4200 +4070 IF O9>0 THEN 4100 +4080 PRINT Q$(G);" IS"; 'I AM RACING AGAINST AUTO-PILOTS +4090 GOTO 4110 +4100 PRINT "GUY#";F2*(G+1)+G;"IS"; 'I AM RACING AGAINST FRIENDS(?) +4110 IF D(G)<>1 THEN 4140 +4120 PRINT " OUT OF THE RACE." 'IF COMPETITOR HAS MET HIS MAKER, SAY SO +4130 GOTO 4200 +4140 ON SGN(T(A)-T(G))+2 GOTO 4150,4170,4190 'BUSINESS PART +4150 PRINT T(G)-T(A);"SECONDS BEHIND YOU" 'GOOD NEWS +4160 GOTO 4200 +4170 PRINT " RIGHT BESIDE YOU." SO SO +4180 GOTO 4200 +4190 PRINT T(A)-T(G);"SECONDS AHEAD OF YOU." 'BAD NEWS +4200 NEXT G +4210 PRINT" +YOU'VE TAKEN";T(A);"SECONDS." 'MORE BAD NEWS +4220 RETURN 'AND AN ANTICLIMACTIC ENDING. (STOLEN FROM SPIEL*** AND SPACEWAR) +4230 PRINT O$(10);"GUY#";F2*(G+1)+G;", THE LAST OF THE GREAT RACERS, JUST WIPED." +4240 LET G1=1 'ALL HUMANS ARE DEAD, SO GRIND THIS MANGLE TO A HALT, AND SET A FLAG TO THAT EFFECT +4250 FNEND 'AND RETURN FROM WHENCE WE CAME +4260 END