10   REM ...BASEBAL...from MERITSS : UCC6050  12-19-77
20   PRINT "&K&J&J"
30   PRINT TAB(15);"(B) ^ ^ ^ ^ ^ ^ (B)"
40   PRINT TAB(15);"(A)   MERITSS   (A)"
50   PRINT TAB(15);"(S)   BASEBAL   (L)"
60   PRINT TAB(15);"(E) . . . . . . (L)"
70   PRINT 
100  DIM O1(9),M1(9),O3(9),M3(9),O4(9),M4(9)
110  DIM C(10),D(10),B1(10)
120  DIM F1(10),G(10),H(10),K(20),P(20)
130  DIM N1(20),S1(20)
140  LET J9=RND(-1)
150  DATA .383,4,.054   : REM ... "CAREW 1B"
160  DATA .337,3,.052   : REM ..."BOSTOCK CF"
170  DATA .291,4,.093   : REM ..."WYNEGAR C"
180  DATA .311,11,.193  : REM ..."HISLE LF"
190  DATA .246,4,.098   : REM ..."FORD RF"
200  DATA .299,5,.192   : REM ..."KUSICK DH"
210  DATA .208,0,.010   : REM ..."RANDALL 2B"
220  DATA .215,2,.054   : REM ..."SMALLEY SS"
230  DATA .289,0,.010   : REM ..."CUBBAGE 3B"
240  DATA .219,0,0      : REM ..."GOLTZ P"
250  DATA .261,2,.047   : REM ..."GARR LF"
260  DATA .314,0,.010   : REM ..."BANNISTER SS"
270  DATA .294,4,.080   : REM ..."ORTA 2B"
280  DATA .303,14,.259  : REM ..."ZISK RF"
290  DATA .286,8,.250   : REM ..."GAMBLE DH"
300  DATA .273,7,.137   : REM ..."SPENCER 1B"
310  DATA .311,6,.118   : REM ..."LEMON CF"
320  DATA .329,5,.109   : REM ..."SODERHOLM 3B"
330  DATA .270,2,.067   : REM ..."ESSIAN C"
340  DATA .217,0,0      : REM ..."BARRIOS P"
350  DATA .280,2        : REM ..."MR. PINCH PH"
360  DATA .280,22       : REM ..."MR. SUB PH"
370  PRINT "********** MINNESOTA TWINS BASEBALL **********"
380  PRINT 
390  PRINT " TODAY'S GAME: The MINNESOTA TWINS"
391  PRINT TAB(24);"Play"
392  PRINT TAB(15);"The CHICAGO WHITE SOX"
400  PRINT 
410  PRINT "THIS IS LARRY CALTON WITH RAY SCOTT, WE'RE READY TO CALL"
420  PRINT "TODAY'S GAME FOR YOU.  HERE ARE THE LINEUPS FOR TODAY:": PRINT
430  INPUT " Enter any number to continue --=>"Y1 
440  PRINT "MINNESOTA TWINS"
450  PRINT "***************"
460  PRINT "PLAYER POS.","AVG","HR"
470  FOR A=1 TO 10
480     READ C(A),D(A),N1(A)
490     B1=A: GOSUB 4000
500     PRINT A,C(A),D(A)
510  NEXT A
515  INPUT " Enter any number to continue --=>"Y1 
520  PRINT: LET J9=RND(Y1) 
530  PRINT "CHICAGO WHITE SOX"
540  PRINT "*****************"
550  PRINT "PLAYER POS.","AVG","HR"
560  FOR E=1 TO 10
570     READ G(E),H(E),S1(E)
580     F1=A: GOSUB 4100
590     PRINT E,G(E),H(E)
600  NEXT E
605  INPUT " Enter any number to continue --=>"Y1 
610  PRINT: LET J9=RND(Y1) 
620  FOR I=1 TO 9
630     LET V9=1
640     GOSUB 660
650     GOTO 940
660     PRINT "               1  2  3  4  5  6  7  8  9 ","    R  H  E"
670     PRINT "CHICAGO",
680     LET Q=0
690     FOR O=1 TO 9
700        IF O<I THEN 760
720        IF O=I THEN 750
730        PRINT " * ";
740        GOTO 770
750        IF V9=1 THEN 730

760        IF P(O)<10 THEN PRINT " ";
765        PRINT P(O);
770        LET Q=Q+P(O)
780     NEXT O
790     PRINT "   ";

795     IF Q<10 THEN PRINT " ";
796     PRINT Q;
800     IF R<10 THEN PRINT " ";
801     PRINT R;
805     IF S<10 THEN PRINT " ";
806     PRINT S
810     PRINT "TWINS",
820     LET L=0
830     FOR J=1 TO 9

835        IF J<I THEN IF K(J)<10 THEN PRINT " ";
840        IF J<I THEN PRINT K(J);: GOTO 890 

850        PRINT " * ";
890        LET L=L+K(J)
900     NEXT J
910     PRINT "   ";
915     IF L<10 THEN PRINT " ";
916     PRINT L;
920     IF M<10 THEN PRINT " ";
921     PRINT M;
925     IF N<10 THEN PRINT " ";
926     PRINT N
930     RETURN 
940     PRINT "**************"
950     LET Q9=0
960     PRINT "INNING ";I
970     PRINT "CHICAGO AT BAT"
980     PRINT "**************"
990     PRINT 
1000    PRINT "OUT";Y
1010    PRINT "1 2 3"
1020    PRINT W9;X9;Y9
1030    IF Q9=1 THEN 2520
1040    IF T=9 THEN 1060
1050    GOTO 1070
1060    LET T=0
1070    LET S9=0
1080    LET T9=0
1090    LET T=T+1
1100    LET O1(T)=O1(T)+1
1110    PRINT "BATTER UP:"

1115    F1=T: GOSUB 4100
1120    PRINT G(T)
1130    GOTO 1160
1140    PRINT "NAME POS.,AVG,HR"
1145    F1=T: GOSUB 4100
1150    INPUT G(T),H(T)
1160    PRINT 
1170    LET V=RND(0)
1180    IF Q9=1 THEN 2650
1190    LET W=RND(0)
1200    IF V<=C(10) THEN 1690
1210    IF W<=G(T) THEN 1390
1220    LET X=RND(0)
1230    IF X<.65 THEN 1270
1240    PRINT "HE HITS INTO AN OUT"
1250    LET Y=Y+1
1260    GOTO 2230
1270    PRINT "STRIKE"
1280    LET S9=S9+1
1290    IF S9=3 THEN 1310
1300    GOTO 1170
1310    PRINT "HEEEE STRUCK HIM OUT"
1320    IF Q9=1 THEN 1350
1330    LET W6=W6+1
1340    GOTO 1360
1350    LET L6=L6+1
1360    LET S9=0
1370    LET Y=Y+1
1380    GOTO 2060
1390    PRINT "BALL"
1400    LET T9=T9+1
1410    IF T9=4 THEN 1430
1420    GOTO 1170
1430    PRINT "HE WALKED HIM"
1440    IF Q9=1 THEN 1480
1450    LET W7=W7+1
1460    LET O1(T)=O1(T)-1
1470    GOTO 1500
1480    LET L7=L7+1
1490    LET M1(Z)=M1(Z)-1
1500    IF W9=1 THEN 1530
1510    LET W9=1
1520    GOTO 990
1530    LET R9=1
1540    IF X9=1 THEN 1580
1550    LET X9=1
1560    LET R9=0
1570    GOTO 990
1580    IF Y9=1 THEN 1620
1590    LET Y9=1
1600    LET R9=0
1610    GOTO 990
1620    IF Q9=1 THEN 1660
1630    LET P(I)=P(I)+1
1640    LET O4(T)=O4(T)+1
1650    GOTO 1680
1660    LET K(I)=K(I)+1
1670    LET M4(Z)=M4(Z)+1
1680    GOTO 990
1690    IF W<=G(T) THEN 1710
1700    GOTO 1390
1710    PRINT "BASE HIT"
1720    IF Q9=1 THEN 1760
1730    LET R=R+1
1740    LET O3(T)=O3(T)+1
1750    GOTO 1780
1760    LET M=M+1
1770    LET M3(Z)=M3(Z)+1
1780    LET U9=RND(0)
1790    IF Q9=1 THEN 1820
1800    IF U9<=S1(T) THEN 2100 ELSE 1830
1820    IF U9<=N1(Z) THEN 2130
1830    IF Y9=1 THEN 1850 ELSE 1920
1850    LET Y9=0
1860    IF Q9=1 THEN 1900
1870    LET P(I)=P(I)+1
1880    LET O4(T)=O4(T)+1
1890    GOTO 1920
1900    LET K(I)=K(I)+1
1910    LET M4(Z)=M4(Z)+1
1920    IF X9<>1 THEN 2010
1940    LET X9=0
1950    IF Q9=1 THEN 1990
1960    LET P(I)=P(I)+1
1970    LET O4(T)=O4(T)+1
1980    GOTO 2010
1990    LET K(I)=K(I)+1
2000    LET M4(Z)=M4(Z)+1
2010    IF W9=1 THEN 2040
2020    LET W9=1
2030    GOTO 2050
2040    LET Y9=1
2050    GOTO 990
2060    IF Y<>3 THEN 990
2080    LET W9=0: LET X9=0: LET Y9=0
2090    GOTO 2200
2100    LET P(I)=P(I)+(W9+X9+Y9+1)
2110    LET O4(T)=O4(T)+(W9+X9+Y9+1)
2120    GOTO 2150
2130    LET K(I)=K(I)+(W9+X9+Y9+1)
2140    LET M4(Z)=M4(Z)+(W9+X9+Y9+1)
2150    LET W9=0: LET X9=0: LET Y9=0
2160    PRINT "**HOMERUN**"
2170    GOTO 990
2180    LET X9=0
2190    LET Y9=0
2200    LET Y=0
2210    IF Q9<>1 THEN 2420
2230    IF Y=3 THEN 2080
2240    IF Y9<>1 THEN 2330
2260    IF Q9=1 THEN 2300
2270    LET P(I)=P(I)+1
2280    LET O4(T)=O4(T)+1
2290    GOTO 2320
2300    LET K(I)=K(I)+1
2310    LET M4(Z)=M4(Z)+1
2320    LET Y9=0
2330    IF X9<>1 THEN 2370
2350    LET Y9=1
2360    LET X9=0
2370    IF W9<>1 THEN 990
2390    LET X9=1
2400    LET W9=0
2410    GOTO 990
2420    LET V9=0
2430    GOSUB 660
2440    IF L<=Q THEN 2470
2460    IF I=9 THEN 2860
2470    PRINT "************"
2480    PRINT "INNING ";I
2490    PRINT "TWINS AT BAT"
2500    PRINT "************"
2510    PRINT 
2520    LET S9=0
2530    LET T9=0
2540    IF Z<>9 THEN 2570
2560    LET Z=0
2570    LET Z=Z+1
2580    LET M1(Z)=M1(Z)+1
2590    PRINT "BATTER UP:"

2595    B1=Z: GOSUB 4000
2600    PRINT C(Z)
2610    GOTO 2640
2620    PRINT "NAME POS.,AVG,HR  (ENTER 3 INPUTS)"
2630    REM INPUT B$(Z),C(Z),D(Z)
2640    PRINT 
2650    LET Q9=1
2660    LET V1=RND(0)
2670    LET W1=RND(0)
2680    IF V1<=G(10) THEN 2710
2690    IF W1<=C(Z) THEN 1390 ELSE 1220
2710    IF W1<=C(Z) THEN 1710 ELSE 1390
2730    IF I>9 THEN 2760
2740 NEXT I
2750 GOTO 2810
2760 LET Q=Q+P(I)
2770 LET L=L+K(I)
2780 IF L<>Q THEN INPUT "GAMEOVER?--->"Y1
2785 IF L<>Q THEN 2850
2790 LET I=I+1
2800 GOTO 940
2810 IF (L+K(I))<>Q THEN 2850
2820 LET L=L+K(I)
2830 LET I=10
2840 GOTO 940
2850 GOTO 2870: INPUT "GAMEOVER--->"Y1
2860 LET I=8

2870 PRINT TAB(15);"<*> GAME OVER <*>&J"

2871 INPUT " Enter any number to continue --=>"Y1 
2875 PRINT 
2880 PRINT " MINNESOTA                     CHICAGO"
2890 PRINT "  "," AB  H BI","  "," AB  H BI"
2900 FOR Z9=1 TO 9

2905    B1=Z9: GOSUB 4000

2906    IF M1(Z9)<10 THEN PRINT " ";
2910    PRINT M1(Z9);
2911    IF M3(Z9)<10 THEN PRINT " ";
2915    PRINT M3(Z9);
2916    IF M4(Z9)<10 THEN PRINT " ";
2920    PRINT M4(Z9),
2925    LET M5=M5+M1(Z9)
2930    LET M7=M7+M3(Z9)
2940    LET M8=M8+M4(Z9)
2945    F1=Z9: GOSUB 4100
2946    IF O1(Z9)<10 THEN PRINT " ";
2950    PRINT O1(Z9);
2951    IF O3(Z9)<10 THEN PRINT " ";
2955    PRINT O3(Z9);
2956    IF O4(Z9)<10 THEN PRINT " ";
2960    PRINT O4(Z9)
2965    LET O5=O5+O1(Z9)
2970    LET O7=O7+O3(Z9)
2980    LET O8=O8+O4(Z9)
2990 NEXT Z9
3000 PRINT "-------------------------------------------------------"
3010 PRINT "  ",: IF M5<10 THEN PRINT " ";
3011 PRINT M5;  : IF M7<10 THEN PRINT " ";
3012 PRINT M7;  : IF M8<10 THEN PRINT " ";
3013 PRINT M8,"  ",: IF O5<10 THEN PRINT " ";
3015 PRINT O5;  : IF O7<10 THEN PRINT " ";
3016 PRINT O7;  : IF O8<10 THEN PRINT " ";
3017 PRINT O8
3020 PRINT "  "," SO BB  R"

3025 B1=10: GOSUB 4000

3030 IF W6<10 THEN PRINT " ";
3031 PRINT W6;
3032 IF W7<10 THEN PRINT " ";
3033 PRINT W7;
3034 IF Q<10 THEN PRINT " ";
3035 PRINT Q
3036 F1=10: GOSUB 4100
3040 IF L6<10 THEN PRINT " ";
3041 PRINT L6;
3042 IF L7<10 THEN PRINT " ";
3043 PRINT L7;
3044 IF (L+K(9))<10 THEN PRINT " ";
3045 PRINT (L+K(9))
3050 LET I=I+1

3055 INPUT " Enter any number to continue --=>"Y1 
3060 GOSUB 660

3070 GOTO 5000

4000 REM ... Print B1 player

4005 IF B1= 1 THEN PRINT "CAREW 1B",
4010 IF B1= 2 THEN PRINT "BOSTOCK CF",
4020 IF B1= 3 THEN PRINT "WYNEGAR C",
4030 IF B1= 4 THEN PRINT "HISLE LF",
4040 IF B1= 5 THEN PRINT "FORD RF",
4050 IF B1= 6 THEN PRINT "KUSICK DH",
4060 IF B1= 7 THEN PRINT "RANDALL 2B",
4070 IF B1= 8 THEN PRINT "SMALLEY SS",
4080 IF B1= 9 THEN PRINT "CUBBAGE 3B",
4090 IF B1=10 THEN PRINT "GOLTZ P",

4091 IF B1=11 THEN PRINT "MR. PINCH PH",
4092 IF B1=12 THEN PRINT "MR. SUB PH",
4095 RETURN
4100 REM ... Print F1 player

4105 IF F1= 1 THEN PRINT "GARR LF",
4110 IF F1= 2 THEN PRINT "BANNISTER SS",
4120 IF F1= 3 THEN PRINT "ORTA 2B",
4130 IF F1= 4 THEN PRINT "ZISK RF",
4140 IF F1= 5 THEN PRINT "GAMBLE DH",
4150 IF F1= 6 THEN PRINT "SPENCER 1B",
4160 IF F1= 7 THEN PRINT "LEMON CF",
4170 IF F1= 8 THEN PRINT "SODERHOLM 3B",
4180 IF F1= 9 THEN PRINT "ESSIAN C",
4190 IF F1=10 THEN PRINT "BARRIOS P",
4195 RETURN
5000 END