10 REM XCOUN.ECB 100 REM =============== LAST MOD. 8/5/77 R.E.H. 110 REM =============== RE-DONE FOR 12 X 64 SCREENS 120 PRINT "&K&J": REM .....RANDOMIZE 130 LET M$=" ": DIM X$(50) 140 PRINT 150 DATA " WELCOME TO ROSE LAKE GOLF COURSE !" 160 DATA " YOU WILL BE ENTERING A CROSS COUNTRY RACE" 170 DATA " THIS RACE WILL TEST YOUR ENDURANCE, LOGIC, AND" 180 DATA " LUCK. YOU WILL BE INSTRUCTED AS YOU RUN WHEN" 190 DATA " ASKED PLEASE TYPE IN NO.THAT MATCHES ANSWER" 200 DATA " DURING THE RACE YOU WILL BE ASKED IF WISH TO" 210 DATA " CONTIUE. IF YOU TYPE 1 THE RACE GOES ON" 220 DATA " IF YOU TYPE 0 THE RACE TERMINATES" 230 DATA " THE RACE WILL BE 3 MILES IN LENGTH" 240 DATA " BE CAREFUL AND THINK BEFORE EACH DECISION !!!&J" 250 LET X9=10 260 GOSUB 3140 270 PRINT "DO YOU WISH TO START ?"; 280 INPUT (1,0)A$ 300 IF A$="Y" THEN 310 310 PRINT " THE GUN HAS SOUNDED! " 320 PRINT " HOW FAR DO YOU WISH TO SPRINT? " 330 PRINT " (1=50 TO 100 YDS.)" 340 PRINT " (2=100 TO 200 YDS.)" 350 PRINT " (3=200 TO 300 YDS.) ===> "; 360 INPUT (1,0)Y 370 PRINT 380 IF Y=1 THEN 410 390 IF Y=2 THEN 430 400 IF Y=3 THEN 450 410 LET C2=10 420 GOTO 460 430 LET C2=25 440 GOTO 460 450 LET C2=15 460 DATA " O.K. YOU HAVE A GOOD START!!!!" 470 DATA " YOU ARE MEETING A VERY STEEP HILL! " 480 DATA " BE CAREFUL AND THINK AS YOU GO DOWN! " 490 DATA " THERE IS A FORK IN THE PATH" 500 DATA " ONE FORK IS 10 YDS. LONGER BUT THE SHORTER IS" 510 DATA " ALL MUD. IF YOU TRY THE SHORT WAY YOU MAY GAIN" 520 DATA " TIME OR YOU MAY FALL. THE COMPUTER WILL DECIDE" 530 DATA " WHICH WAY DO YOU CHOOSE TO GO ?" 540 DATA " (0=SHORT FORK )" 550 LET X9=9 560 GOSUB 3140 570 PRINT " (1=LONG FORK )"; 580 INPUT (1,0)S 590 PRINT 600 IF S=0 THEN 660 610 IF S=1 THEN 620 620 LET D1=20 630 PRINT " YOU STAYED ON THE LONG FORK AND KEPT PACE " 640 PRINT " YOU PLAYED IT SAFE MR. CAUTION! " 650 GOTO 760 660 PRINT " O.K. BIG GAMBLER GOOD LUCK!!!! " 670 LET E1=RND(0) 680 IF E1<.5 THEN 700 690 IF E1>=.5 THEN 730 700 LET D1=30 710 PRINT " YOU MADE IT MR. SUREFOOT!! BUT YOU LOOK A MESS!!" 720 GOTO 760 730 LET D1=10 740 PRINT " OH OH! YOU SLIPPED AND FELL! LOST GOOD TIME." 750 PRINT " BOY IS YOUR NAME MUD!!!!!!" 760 PRINT " NOW YOU ARE HITTING ACORNS IN THE PATH" 770 PRINT " DO YOU WISH TO SLOW? " 780 PRINT M$; 790 INPUT (1,0)G1$ 800 PRINT 810 IF G1$="Y" THEN 830 820 IF G1$="N" THEN 860 830 LET Y=20 840 PRINT " GOOD MOVE ! DID NOT FALL!" 850 GOTO 880 860 LET Y=10 870 PRINT " IDIOT!!,YOU FELL ON YOUR FACE." 880 PRINT " YOU ARE NOW OFF THE HILL." 890 PRINT " THERE IS A MAN 7 YDS. AHEAD " 900 PRINT " DO YOU WISH TO PASS? " 910 PRINT M$; 920 INPUT (1,0)P$ 930 PRINT 940 IF P$="Y" THEN 960 950 IF P$="N" THEN 1000 960 LET Q=30 970 PRINT " YOU SUCCEEDED.... AND PASSED HIM!" 980 GOTO 1020 990 PRINT 1000 LET Q=20 1010 PRINT " O.K. YOU MAY WAIT IF YOU WISH." 1020 PRINT " ****** YOU HAVE FINISHED ONE MILE ******" 1030 PRINT " DO YOU WISH TO CONTINUE " 1040 PRINT M$; 1050 INPUT (1,0)B$ 1060 PRINT 1070 IF B$="Y" THEN 1090 1080 IF B$="N" THEN 3140 1090 PRINT " YOU'RE STILL IN FRONT OF THE PACK LOOKING GOOD!" 1100 PRINT " NARROW CORNER. DO YOU WISH TO BEAT THE MAN " 1110 PRINT " RUNNING NEXT TO YOU AROUND IT? " 1120 PRINT M$; 1130 INPUT (1,0)H1$ 1140 IF H1$="Y" THEN 1190 1150 IF H1$="N" THEN 1160 1160 LET F=30 1170 PRINT "O.K. GENTELMAN,... LET THE VISITOR GO FIRST!!" 1180 GOTO 1270 1190 LET Z=RND(0) 1200 IF Z>=.5 THEN 1250 1210 IF Z<.5 THEN 1220 1220 LET F=50 1230 PRINT " YOU BEAT HIM!!!! MOVEUP ONE PLACE!!!!" 1240 GOTO 1270 1250 LET F=20 1260 PRINT " SORRY CHARLIE!!! HE BEAT U. YOU LOSE 1 PLACE" 1270 PRINT " OH OH,WHOSE THIS? CAN IT BE FOR REAL? " 1280 PRINT " YES ITS THOSE WONDERFUL CHEERLEADERS!!!" 1290 PRINT " DO U WISH 2 STOP 4 DIRECTIONS & A QUICK CHAT?" 1300 PRINT M$; 1310 INPUT (1,0)O$ 1320 IF O$="N" THEN 1440 1330 IF O$="Y" THEN 1340 1340 LET C=RND(0) 1350 IF C<=.5 THEN 1370 1360 IF C>.5 THEN 1410 1370 LET M=10 1380 PRINT " STOPPED AND CHATTED 10 MIN.!!!!!! OH BROTHER!!" 1390 PRINT " WELL YOU LOSE 2 PLACES FOR THAT!!!!" 1400 GOTO 1460 1410 LET M=30 1420 PRINT " YOU CHATTED BUT DID NOT LOSE A PLACE SWINGER!!!!" 1430 GOTO 1460 1440 LET M=40 1450 PRINT " GOOD BOY KEPT YOUR HEAD AND STAYED ON COURSE!!!" 1460 PRINT " ******************FLAG AHEAD****************" 1470 PRINT " IF YOU ELECT TO TRY TO CUT IT THE COMPUTER" 1480 PRINT " WILL DECIDE IF YOU GAIN TIME OR GET SENT BACK" 1490 PRINT " IF U GO AROUND THE FLAG YOU KEEP THE SAME TIME" 1500 PRINT " DO YOU WISH TO CUT? " 1510 PRINT M$; 1520 INPUT (1,0)N$ 1530 PRINT 1540 IF N$="Y" THEN 1590 1550 IF N$="N" THEN 1560 1560 LET E=20 1570 PRINT " O.K. HONEST JOHN NO GAIN OR LOSS" 1580 GOTO 1700 1590 PRINT " O.K. BIG CHEATER HERE YOU GO!!!!!!" 1600 LET G=RND(0) 1610 IF G<=.5 THEN 1630 1620 IF G>.5 THEN 1670 1630 LET E=0 1640 PRINT " SHAME! YOU WERE CAUGHT AND HAD TO GO BACK!" 1650 PRINT " YOU LOSE 3 PLACES FOR THAT!!!!!" 1660 GOTO 1700 1670 LET E=40 1680 PRINT " LUCKY DOG ! MADE IT NO PENALTY!!!!" 1690 PRINT " BOY IF YOU COULD HEAR THE GUY BEHIND YOU NOW!!!" 1700 PRINT " YOU ARE PASSING A WATER FOUNTAIN" 1710 PRINT " DO YOU WISH TO STOP? " 1720 PRINT M$; 1730 INPUT (1,0)V$ 1740 PRINT 1750 IF V$="Y" THEN 1770 1760 IF V$="N" THEN 1810 1770 LET K=5 1780 PRINT " NOW WHY ON EARTH DID YOU DO THAT" 1790 PRINT " SORRY WATER WILL ONLY SLOW YOU DOWN!!!" 1800 GOTO 1840 1810 LET K=20 1820 PRINT " VERY GOOD !!! YOU PASSED ON BY AND LOST NO TIME" 1830 PRINT " YOU GAIN 1 PLACE FOR THAT!!!" 1840 PRINT " **********YOU HAVE COMPLETED 2 MILES **********" 1850 PRINT " DO YOU WISH TO CONTINUE? " 1860 PRINT M$; 1870 INPUT (1,0)J$ 1880 PRINT 1890 IF J$="N" THEN 3140 1900 DATA " O.K. YOU NOW ARE ON THE THIRD MILE" 1910 DATA " TRY TO PICK UP THE PACE AS YOU ARE NOW" 1920 DATA " GETTING CLOSE TO THE FINISH" 1930 DATA " THERE IS A MAN 7 YDS. AHEAD" 1940 DATA " IF YOU WISH YOU MAY TRY TO PASS" 1950 DATA " IF YOU TRY THE COMPUTER WILL DECICE IF YOU" 1960 DATA " SUCCEED. YOU MAY KEEP PACE IF YOU WISH" 1970 DATA " DO YOU WISH TO PASS ?" 1980 LET X9=8 1990 GOSUB 3140 2000 PRINT M$; 2010 INPUT (1,0)K1$ 2020 PRINT 2030 IF K1$="Y" THEN 2070 2040 LET W=15 2050 PRINT " YOU MAINTAIN YOUR SPEED" 2060 GOTO 2160 2070 LET W7=RND(0) 2080 IF W7<=.5 THEN 2130 2090 IF W7>.5 THEN 2100 2100 LET W2=25 2110 PRINT " GOOD RUN !!! U GAINED SPEED & MOVED UP 1 PLACE" 2120 GOTO 2160 2130 LET W2=10 2140 PRINT " SORRY BUT THE MAN AHEAD INCREASED SPEED ALSO" 2150 PRINT " TRY FOR HIM LATER" 2160 DATA " ANOTHER FLAG AHEAD YOU MAY CUT AGAIN " 2170 DATA " REMEMBER COMPUTER DECIDES ON YOUR SUCCESS !!" 2180 DATA " IF YOU STAY ON COURSE YOUR TIME WILL BE " 2190 DATA " BETTER THAN IF YOU ARE CAUGHT CUTTING" 2200 DATA " BUT IF YOU SUCCESSEVILY CUT YOU WILL GAIN TIME" 2210 DATA " BE CAREFUL!!! YOU ARE CLOSE TO THE FINISH!!!!" 2220 LET X9=6 2230 GOSUB 3140 2240 PRINT M$; 2250 INPUT (1,0)H$ 2260 PRINT 2270 IF H$="Y" THEN 2290 2280 IF H$="N" THEN 2420 2290 PRINT " O.K. HOT DOG !!! ITS YOUR LIFE!!!!!!!" 2300 LET I=RND(0) 2310 IF I<=.5 THEN 2330 2320 IF I>.5 THEN 2380 2330 LET R=0 2340 PRINT " HOLD EVERY THING!!!" 2350 PRINT "..... SORRY CHARLIE THE JUDGE SAW YOU" 2360 PRINT " YOU MUST GO BACK AND MAKE THAT FLAG!!!" 2370 GOTO 2450 2380 LET R=15 2390 PRINT " OH BROTHER ! THAT JUDGE IS BLIND!!!!" 2400 PRINT " YOU MADE IT SLIPPERY!" 2410 GOTO 2450 2420 LET R=10 2430 PRINT " YOU ARE A VERY HONEST PERSON" 2440 PRINT " NO LOSS OF TIME" 2450 PRINT " NOW IS A GOOD TIME TO MOVE UP." 2460 PRINT " THERE IS AMAN AHEAD " 2470 PRINT " DO YOU WISH TO PASS? " 2480 PRINT M$; 2490 INPUT (1,0)X$ 2500 PRINT 2510 IF X$="Y" THEN 2530 2520 IF X$="N" THEN 2630 2530 LET A1=RND(0) 2540 IF A1<=.5 THEN 2600 2550 IF A1>.5 THEN 2560 2560 LET B1=30 2570 PRINT " ALL RIGHT NOW YOU ARE MOVING!!!!!" 2580 PRINT " YOU GAINED 1 PLACE!" 2590 GOTO 2650 2600 LET B1=20 2610 PRINT " YOU DID NOT PASS HIM BUT YOU BETTERED YOUR TIME" 2620 GOTO 2650 2630 LET B1=10 2640 PRINT " O.K. YOU KEEP SAME PLACE, BUT START HURRYING!!!" 2650 DATA " THE FINISH LINE IS IN SIGHT !!!" 2660 DATA " THIS IS YOUR BIG CHANCE TO MOVE UP !" 2670 DATA " YOU WILL BE GIVEN 6 CHANCES TO GUESS" 2680 DATA " A NUMBER BETWEEN 1 AND 7 CORRECTLY" 2690 DATA " PLEASE TYPE IN A WHOLE NUMBER AFTER" 2700 DATA " A QUESTION MARK IS GIVEN TO YOU" 2710 LET X9=6 2720 GOSUB 3140 2730 FOR X1=1 TO 6 2740 LET Z1=RND(0) 2750 LET P1=INT(10*Z1) 2760 IF P1>7 THEN 2740 2770 IF P1=0 THEN 2740 2780 INPUT (1,0)T1 2790 IF T1=P1 THEN 2810 2800 IF T1<>P1 THEN 2840 2810 LET S1=S1+1 2820 PRINT " YOU HIT THE CORRECTT NUMBER!!!" 2830 GOTO 2860 2840 LET U1=U1+1 2850 PRINT " SORRY,NUMBERS DO NOT MATCH!" 2860 NEXT X1 2870 PRINT " YOU QUESSED CORRECTLY ";S1;" TIMES" 2880 LET Z3=7*S1 2890 PRINT " YOU HAVE FINISHED THE RACE!!!" 2900 PRINT " THE COMPUTER WILL FIGURE YOUR STANDING" 2910 LET M2=C2+D1+Y+Q+F+M+E+K+W+R+B1+Z3 2920 IF M2>250 THEN 3000 2930 IF M2<250 THEN 2940 2940 IF M2>240 THEN 3020 2950 IF M2<240 THEN 2960 2960 IF M2>235 THEN 3040 2970 IF M2<235 THEN 2980 2980 IF M2>220 THEN 3060 2990 IF M2<220 THEN 3080 3000 PRINT " WHAT A RACE! YOU FINISHED IN FIRST PLACE!!" 3010 GOTO 3110 3020 PRINT " GOOD RUN! YOU FINISHED IN SECOND PLACE" 3030 GOTO 3110 3040 PRINT " RAN FINE YOU FINISHED IN FIFTH PLACE" 3050 GOTO 3110 3060 PRINT " MAYBE YOU WERE TIRED YOUR STANDING IS 20 PLACE" 3070 GOTO 3110 3080 PRINT " WEAR RUNNING SHOES NEXT TIME!!!!" 3090 PRINT " YOU FINISHED LAST!!!" 3100 PRINT " BETTER LUCK NEXT TIME!!" 3110 PRINT " REMEMBER YOUR SPONSER IS YOUR UNIVAC COMPUTER" 3130 STOP 3140 FOR X1=1 TO X9 3150 READ X$ 3160 PRINT X$ 3170 NEXT X1 3180 RETURN 3190 END