10 REM ... BBALL.ECB (Baseball) Source EAGAN 11-19-77 15 PRINT "&K&J": REM ...Last update 03-04-81 R.E.H. 20 PRINT TAB(10);"*************************" 30 PRINT TAB(10);"*** ***" 40 PRINT TAB(10);"*** B B A L L ***" 50 PRINT TAB(10);"*** (Baseball) ***" 60 PRINT TAB(10);"*************************" 70 PRINT : LET H$=" HEXADEC'S": REM ...Opponent name 100 PRINT "WHAT IS YOUR NAME ---=>"; 110 INPUT N$ 120 LET N$=N$+"'S" 130 PRINT "&K&J&J" 140 PRINT "THIS IS A BASEBALL GAME BETWEEN THE ";N$;" AND THE";H$ 150 PRINT "WE ARE PLAYING FOR THE COMPUTOR LEAGUE PENNANT.&J" 155 PRINT TAB(12);"*** SO PLAY YOUR BEST ***": PRINT 160 PRINT "<*> We play BBALL by picking a number from 0 to 4" 170 PRINT " If our numbers match, the batter gets the WALK," 180 PRINT " SINGLE, DOUBLE, TRIPLE, or HOME RUN.": PRINT 190 DIM B(5),I(2,9),Q(5),S(2),T(5) 200 DIM B$(10),T$(25),M$(25) 210 FOR X=1 TO 9: LET I(1,X)=0: LET I(2,X)=0: NEXT X 220 FOR X=1 TO 5: LET T(X)=0: NEXT X 230 LET S(1)=0 240 LET S(2)=0 250 PRINT "HOW MANY INNINGS SHOULD WE PLAY? ---=>"; 260 INPUT (1,0)I2: PRINT 270 IF I2>0 AND I2<10 THEN 300 280 PRINT "YOU MUST PICK A NUMBER BETWEEN 1 AND 9" 290 GOTO 250 300 LET F=INT(2*RND(0)) 310 IF F=1 THEN 360 320 PRINT "I'M THE VISITING TEAM" 330 LET T$="**"+H$+" **" 340 LET M$="** "+N$+" ARE UP **" 350 GOTO 380 360 PRINT "YOU ARE THE VISITING TEAM" 370 LET T$="**"+H$+" **" 375 LET T$="** "+N$+" ARE UP **" 380 LET Q(1)=1: REM ====="WALK" 390 LET Q(2)=2: REM ====="SINGLE" 400 LET Q(3)=3: REM ====="DOUBLE" 410 LET Q(4)=4: REM ===="TRIPLE" 420 LET Q(5)=5: REM ====="HOME RUN !" 430 LET B(1)=1 440 LET B(2)=1 450 LET B(3)=2 460 LET B(4)=3 470 LET B(5)=4 480 LET R=INT(5*RND(0))+1 490 ON R GOTO 500,520,540,560,580 500 PRINT "IT'S A BEAUTIFUL DAY FOR BASEBALL" 510 GOTO 590 520 PRINT "IT SURE LOOKS LIKE RAIN" 530 GOTO 590 540 PRINT "WE HAVE A CAPACITY CROWD TODAY - 40,000 FANS" 550 GOTO 590 560 PRINT "WHAT A POOR TURNOUT - ONLY 1,500 FAITHFUL FANS" 570 GOTO 590 580 PRINT "KEEP YOUR MIND ON THE GAME NOT THE MINI SKIRT IN THE FIRST ROW" 590 PRINT "THE GAME IS ABOUT TO BEGIN" 600 PRINT 610 FOR I3=1 TO I2 620 FOR H=1 TO 2 630 IF H=1 THEN PRINT T$ ELSE PRINT M$ 635 LET E=9*RND(0): REM ...Chance of a walk 640 PRINT 650 LET O=0 660 LET X9=100*RND(0) 670 IF X9<3+E THEN LET P(1)=0 680 IF X9<3+E THEN 750 690 IF X9<55 THEN LET P(1)=1 700 IF X9<55 THEN 750 710 IF X9<80 THEN LET P(1)=2 720 IF X9<80 THEN 750 730 IF X9<92 THEN LET P(1)=3 735 IF X9<92 THEN 750 740 IF X9<98 THEN LET P(1)=4 745 IF X9<98 THEN LET P(1)=4 750 PRINT "YOUR NUMBER (0 to 4) ---=>"; 760 INPUT (1,0)P(2) 770 IF P(2)<=4 AND P(2)>=0 THEN 800 780 PRINT "Your NUMBER must be between 0 and 4. TRY AGAIN" 790 GOTO 750 800 PRINT "MY NUMBER is ";P(1) 810 IF P(1)=P(2) THEN 890 820 LET O=O+1 830 IF O>1 THEN 860 840 PRINT O;" OUTS" 850 GOTO 870 860 PRINT O;" OUTS" 870 IF O=3 THEN 980 880 GOTO 660 890 IF Q(P(1)+1)=1 THEN PRINT " WALK " 891 IF Q(P(1)+1)=2 THEN PRINT " SINGLE " 892 IF Q(P(1)+1)=3 THEN PRINT " DOUBLE " 893 IF Q(P(1)+1)=4 THEN PRINT " TRIPLE " 894 IF Q(P(1)+1)=5 THEN PRINT " HOME RUN " 900 LET T(1)=1 910 FOR I=1 TO B(P(1)+1) 920 FOR J=4 TO 1 STEP -1 930 LET T(J+1)=T(J+1)+T(J) 940 LET T(J)=0 950 NEXT J 960 NEXT I 970 GOTO 660 980 LET I(H,I3)=T(5) 990 LET S(H)=S(H)+T(5) 1000 LET L=0 1010 FOR I=1 TO 4 1020 LET L=L+T(I) 1030 LET T(I)=0 1040 NEXT I 1050 LET T(5)=0 1060 IF H=2 THEN 1090 1070 PRINT "&JTOP"; 1080 GOTO 1100 1090 PRINT "&JBOTTOM"; 1100 PRINT " OF INNING ";I3 1110 PRINT "SCORE: Visitors ";S(1);" Home ";S(2) 1115 IF L=0 THEN PRINT "Nobody left on base.": GOTO 1130 1120 PRINT L;" ";: IF F=1 AND H=1 THEN PRINT N$; 1121 IF F=1 AND H=2 THEN PRINT H$; 1122 IF F=0 AND H=1 THEN PRINT H$; 1123 IF F=0 AND H=2 THEN PRINT N$; 1125 PRINT " left on base." 1130 FOR A=1 TO 4: PRINT : NEXT A 1140 NEXT H 1150 NEXT I3 1160 PRINT 1170 PRINT 1180 IF S(1)<>S(2) THEN 1210 1190 PRINT "TIE GAME" 1200 GOTO 1280 1210 IF F=1 THEN 1240 1220 IF S(1)>S(2) THEN 1270 1230 GOTO 1250 1240 IF S(1) FINAL: The ";N$;" ";S(2);", The HEXADECS ";S(1) 1260 GOTO 1280 1270 PRINT "THE HEXADECS WIN" 1275 PRINT "<*> FINAL: The HEXADECS ";S(1);", The ";N$;" ";S(2) 1280 PRINT : PRINT "PLAY AGAIN? ---=>"; 1290 INPUT (1,0)Y$: LET Y$=Y$+"Y": PRINT 1300 IF Y$(1,1)="Y" THEN 210 1305 IF Y$="Y" THEN 210 1310 IF Y$(1,1)="y" THEN 210 1320 PRINT TAB(15);"<*> The ballpark is closed <*>" 1330 END