Directory of image this file is from
This file as a plain text file
5 RANDOMIZE 6 REMARKABLY TRANSLATED TO OS8 BASIC BY KAY R. FISHER...DEC 10 PRINT "THIS IS DARTMOUTH COLLEGE BASKETBALL. YOU WILL BE DARTMOUTH" 14 DIM O$(26) 20 PRINT " CAPTAIN AND PLAYMAKER, CALL SHOTS AS FOLLOWS:1. LONG" 30 PRINT " (30 FT) JUMP SHOT; 2. SHORT (15 FT) JUMP SHOT; 3. LAY" 40 PRINT " UP; 4. SET SHOT." 60 PRINT "BOTH TEAMS WILL USE THE SAME DEFENSE. CALL DEFENSE AS" 70 PRINT "FOLLOWS: 6 PRESS; 6.5 MAN-TO-MAN; 7 ZONE; 7.5 NONE." 72 PRINT " TO CHANGE DEFENSE, JUST TYPE 0 AS YOUR NEXT SHOT." 74 PRINT "YOUR STARTING DEFENSE WILL BE", 76 INPUT D 77 IF D<6 THEN 2010 79 PRINT 80 PRINT "CHOOSE YOUR OPPONENT", 82 INPUT O$ 370 PRINT "CENTER JUMP" 390 IF RND(0)> 3/5 THEN 420 400 PRINT O$;" CONTROLS THE TAP." 410 GO TO 3000 420 PRINT "DARTMOUTH CONTROLS THE TAP." 425 PRINT 430 PRINT "YOUR SHOT"; 435 LET P=0 440 INPUT Z 445 IF Z<>INT(Z) THEN 455 446 IF ABS (Z-2)>2THEN 455 447 GOTO 460 455 PRINT " INCORRECT ANSWER. RETYPE IT."; 456 GOTO440 460 GOTO 470 470 IF RND(0)<.5 THEN 1000 480 IF T<100 THEN 1000 490 PRINT 491 IF S(1)<>S(0) THEN 510 493 PRINT " ***** END OF SECOND HALF *****" 496 PRINT " DARTMOUTH",S(1);O$;" ";S(0) 497 PRINT 498 PRINT"BEGIN TWO MINUTE OVERTIME PERIOD" 499 LET T=93 500 GO TO 370 510 PRINT " ***** END OF GAME *****" 515 PRINT "FINAL SCORE: DARTMOUTH";S(1);O$;" ";S(0) 520 STOP 600 PRINT 610 PRINT " ***TWO MINUTES LEFT IN THE GAME ***" 620 PRINT 630 RETURN 1000 IF Z=1 THEN 1040 1020 IF Z=2 THEN 1040 1036 GO TO 1300 1040 LET T=T+1 1041 IF T=50 THEN 8000 1042 IF T=92 THEN 1046 1043 GO TO 1050 1046 GOSUB 600 1050 PRINT "JUMP SHOT" 1060 IF RND(0)<.341*D/8 THEN 1090 1070 PRINT "SHOT IS GOOD." 1075 GOSUB 7000 1085 GO TO 3000 1090 IF RND(0)>.682*D/8 THEN 1200 1100 PRINT "SHOT IS OFF TARGET." 1105 IF D/6*RND(0)>.45 THEN 1130 1110 PRINT "DARTMOUTH CONTROLS THE REBOUND." 1120 GO TO 1145 1130 PRINT "REBOUND TO ";O$;"." 1137 GO TO 3000 1145 IF RND(0)>.40 THEN1158 1150 GO TO 1300 1158 IF D=6 THEN 5100 1160 PRINT "BALL PASSED BACK TO YOU."; 1170 GO TO 430 1180 IF RND(0)>.9 THEN 1190 1185 PRINT "PLAYER FOULED, TWO SHOTS." 1187 GOSUB 4000 1188 GO TO 3000 1190 PRINT "BALL STOLEN. ";O$;"'S BALL." 1195 GO TO 3000 1200 IF RND(0)>.782*D/8 THEN 1250 1210 PRINT "SHOT IS BLOCKED, BALL CONTROLLED BY"; 1230 IF RND(0)>.5 THEN 1242 1235 PRINT "DARTMOUTH." 1240 GO TO 430 1242 PRINT " ";O$;"." 1245 GO TO 3000 1250 IF RND(0)>.843*D/8 THEN 1270 1255 PRINT "SHOOTER IS FOULED. TWO SHOTS." 1260 GOSUB 4000 1270 PRINT "CHARGING FOUL, DARTMOUTH LOSES THE BALL." 1280 GO TO 3000 1300 LET T=T+1 1301 IF T=50 THEN 8000 1302 IF T=92 THEN 1304 1303 GO TO 1305 1304 GOSUB 600 1305 IF Z=0 THEN 2010 1310 IF Z>3 THEN 1700 1320 PRINT "LAY UP." 1330 IF 7/D*RND(0)>.4 THEN 1360 1340 PRINT "SHOT IS GOOD, TWO POINTS." 1345 GOSUB 7000 1355 GO TO 3000 1360 IF 7/D*RND(0)>.7 THEN 1500 1370 PRINT "SHOT IS OFF THE RIM." 1380 IF RND(0)>2/3 THEN 1415 1390 PRINT O$;" CONTROLS THE REBOUND." 1400 GO TO 3000 1415 PRINT "DARTMOUTH CONTROLS THE REBOUND." 1420 IF RND(0)>.4 THEN 1440 1430 GO TO 1300 1440 PRINT "BALL PASSED BACK TO YOU."; 1450 GO TO 430 1500 IF 7/D*RND(0)>.875 THEN 1600 1510 PRINT"SHOOTER FOULED. TWO SHOTS." 1520 GOSUB 4000 1530 GO TO 3000 1600 IF 7/D*RND(0)>.925 THEN 1630 1610 PRINT "SHOT BLOCKED, ",O$;"'S BALL." 1620 GO TO 3000 1630 PRINT "CHARGING FOUL, DARTMOUTH LOSES THE BALL." 1640 GO TO 3000 1700 PRINT "SET SHOT" 1710 GO TO 1330 2010 PRINT "YOUR NEW DEFENSIVE ALLIGNMENT IS"; 2020 INPUT D 2030 IF D<6 THEN 2010 2040 GO TO 425 3000 LET P=1 3005 LET T=T+1 3008 IF T=54 THEN 8000 3010 IF T=92 THEN 3015 3012 GO TO 3018 3015 GOSUB 600 3018 PRINT 3020 Z1=10/4*RND(0)+1 3030 IF Z1>2 THEN 3500 3040 PRINT "JUMP SHOT" 3050 IF 8/D*RND(0)>.35 THEN 3100 3060 PRINT "SHOT IS GOOD." 3080 GOSUB 6000 3090 GO TO 425 3100 IF 8/D*RND(0)>.75 THEN 3200 3105 PRINT "SHOT IS OFF THE RIM." 3110 IF D/6*RND(0)>.5 THEN 3150 3120 PRINT "DARTMOUTH CONTROLS THE REBOUND." 3130 GO TO 425 3150 PRINT O$;" CONTROLS THE REBOUND." 3160 IF D=6 THEN 5000 3165 IF RND(0)>.5 THEN3175 3168 PRINT "PASS BACK TO ";O$;" GUARD" 3170 GO TO 3000 3175 GO TO 3500 3200 IF 8/D*RND(0)>.9 THEN 3310 3210 PRINT "PLAYER FOULED, TWO SHOTS." 3220 GOSUB 4000 3230 GO TO 425 3310 PRINT "OFFENSIVE FOUL, DARTMOUTH'S BALL." 3320 GO TO 425 3500 IF Z1>3 THEN 3800 3510 PRINT "LAY UP" 3520 IF 7/D*RND(0)>.413 THEN 3600 3530 PRINT "SHOT IS GOOD." 3540 GOSUB 6000 3550 GO TO 425 3600 PRINT "SHOT IS MISSED" 3610 GO TO 3110 3800 PRINT "SET SHOT" 3810 GO TO 3520 4000 REM *FOUL SHOOTING* 4010 IF RND(0)>.49 THEN 4050 4020 PRINT "SHOOTER MAKES BOTH SHOTS." 4030 LET S(1-P)=S(1-P)+2 4040 GOSUB 6010 4041 RETURN 4050 IF RND(0)>.75 THEN 4100 4060 PRINT "SHOOTER MAKES ONE SHOT AND MISSES ONE." 4070 LET S(1-P)=S(1-P)+1 4080 GOTO 4040 4100 PRINT "BOTH SHOTS MISSED." 4110 GOTO 4040 5000 IF RND(0)>.75 THEN 5010 5005 GOTO 3165 5010 PRINT "BALL STOLEN. EASY LAY-UP FOR DARTMOUTH." 5015 GOSUB 7000 5030 GOTO 3000 5100 IF RND(0)>.6 THEN 5120 5110 GOTO 1160 5120 PRINT "PASS STOLEN BY ";O$;" EASY LAY-UP." 5130 GOSUB 6000 5140 GOTO 425 6000 S(0)=S(0)+2 6010 PRINT "SCORE: ";S(1);"TO ";S(0) 6020 RETURN 7000 S(1)=S(1)+2 7010 GOSUB 6010 7020 RETURN 8000 PRINT " ***** END OF FIRST HALF *****" 8010 PRINT "SCORE: DARTMOUTH ";S(1);O$;" ";S(0) 8015 PRINT 8016 PRINT 8020 GOTO 370 9999 END