1  REM  BASBAL ........ PLAYS BASEBALL
10  DIM H[50]
20  DIM V[50]
30  LET I2=1
40  PRINT 
50  FOR X=1 TO 199
60  LET Z=RND(X)
70  NEXT X
80  PRINT "THIS PROGRAM PLAYS BASEBALL, COMPUTER STYLE"
90  PRINT "DETAILS?.....1-YES, 0-NO";
100  INPUT Z9
110  IF Z9=1 THEN 130
120  GOTO 190
130  PRINT "THE VISITING TEAM WILL BE THE GIANTS"
140  PRINT "A GROUNDER TO THE SHORTSTOP.........."
150  PRINT "THERE ARE THREE TYPES OF GAMES THAT CAN BE PLAYED:"
160  PRINT "     1) YOU CAN PLAY FOR BOTH TEAMS"
170  PRINT "     2) YOU CAN BE THE VISITORS AND PLAY THE COMPUTER"
180  PRINT "     3) YOU CAN LET THE COMPUTER PLAY ITSELF"
190  PRINT "ENTER THE OPTION THAT YOU WANT"
200  LET A=A1=A2=B=B8=B9=C=C6=D=E=F=F1=F2=G=G1=G2=I=J=K=L=L1=0
210  LET M=N=O=P=Q=R=S=T=T9=U=V=W=X1=Y=Z=0
220  INPUT W8
230  IF W8>3 THEN 260
240  GOTO B-21 OF 1530,1280,1840,1280
250  GOTO 280
260  PRINT "PLEASE USE THE PRE-DEFINED OPTIONS"
270  GOTO 190
280  GOTO W8 OF 300,340,360
290  GOTO 280
300  GOTO 310
310  PRINT "YOU WILL BE ENTERING INTEGERS FOR BOTH TEAMS"
320  PRINT "                GOOD LUCK"
330  GOTO 380
340  PRINT "YOU WILL BE PLAYING THE COMPUTER"
350  GOTO 380
360  PRINT "THE COMPUTER WILL PLAY ITSELF"
370  PRINT "DON'T SIT BACK YET, YOU WILL HAVE TO DO SOME WORK !"
380  PRINT 
390  PRINT "..........AT BAT, THE GIANTS.........."
400  LET P9=1
410  PRINT 
420  PRINT "ENTER AN INTEGER FROM 1 TO 9"
430  INPUT Y
440  FOR X=1 TO Y*Y
450  LET Z=RND(X)
460  NEXT X
470  IF Y<1 THEN 500
480  IF Y>9 THEN 500
490  GOTO 530
500  PRINT "THE VALUE THAT YOU ENTERED IS NOT WITHIN THE BOUNDARY"
510  PRINT "TRY AGAIN"
520  GOTO 430
530  PRINT "ENTER AN INTEGER FROM 1 TO 9"
540  INPUT B
550  IF B<1 THEN 620
560  IF B>9 THEN 620
570  IF Y-B <= 5 THEN 600
580  LET O1=1
590  GOTO W8 OF 650,650,830
600  LET O1=2
610  GOTO W8 OF 650,650,830
620  PRINT "THE VALUE THAT YOU ENTERED IS NOT WITHIN THE BOUNDARY"
630  PRINT "TRY AGAIN"
640  GOTO 530
650  PRINT "ENTER AN INTEGER FROM 1 TO 999"
660  INPUT C
670  IF C<1 THEN 700
680  IF C>9999 THEN 700
690  GOTO 730
700  PRINT "THE VALUE THAT YOU ENTERED IS NOT WITHIN THE BOUNDARY"
710  PRINT "TRY AGAIN"
720  GOTO 650
730  LET D=E=F=G=H=I=J=K=L=M=N=Q=R=S=T=U=V=W=0
740  LET O=1
750  GOTO B OF 1720,1880,3830,1970,2190,1780,1780,1780,1760
760  PRINT 
770  GOTO W8 OF 790,780,830
780  GOTO O OF 800,820
790  GOTO 800
800  PRINT "ENTER AN INTEGER FROM 1 TO 999"
810  GOTO P9 OF 850,920
820  GOTO P9 OF 830,900
830  LET Z=INT(101*RND(X))+1
840  GOTO 860
850  INPUT Z
860  IF Z<1 THEN 970
870  IF Z>999 THEN 970
880  LET P9=2
890  GOTO 1000
900  LET C=INT(11*RND(X))+1
910  GOTO 930
920  INPUT C
930  IF C<1 THEN 970
940  IF C>999 THEN 970
950  LET P9=1
960  GOTO 1000
970  PRINT "THE VALUE THAT YOU ENTERED IS NOT WITHIN THE BOUNDARY"
980  PRINT "TRY AGAIN"
990  GOTO 760
1000  IF Z=C THEN 3850
1010  IF Z>C THEN 1170
1020  GOTO O1 OF 1030,1100
1030  LET Y=Y+I2
1040  IF Y>25 THEN 1130
1050  GOTO 1070
1060  LET Y=1
1070  GOTO Y OF 2030,1590,1550,3900,2270,1570,3850,1170,1910,3850,1170
1080  GOTO Y-11 OF 1690,1780,3900,1550,1170,2220,3850,1780,1930,1910
1090  GOTO Y-21 OF 1590,3850,3850,2290
1100  IF Y>26 THEN 1130
1120  GOTO 1140
1130  LET Y=1
1140  GOTO Y OF 3850,3850,1690,1530,1280,1280,1690,1590,1570,1280
1150  GOTO Y-11 OF 1720,1170,3850,1530,1530,1780,3850,1170,1910,1530
1160  GOTO Y-21 OF 1690,1780,1840,1840,3850
1170  LET B=B+I2
1180  IF B>25 THEN 1200
1190  GOTO 1210
1200  LET B=1
1210  GOTO O1 OF 1220,1250
1220  GOTO B OF 2030,3850,2190,1020,4160,1020,1280,1970,2220,1910,1310
1230  GOTO B-11 OF 1910,1780,1840,1590,2080,1970,3850,1690,2080,2220
1240  GOTO B-21 OF 1530,1280,1840,1280
1250  GOTO B OF 3850,3850,2030,3850,1780,1570,1550,1690,1570,1780,2220
1270  GOTO B-21 OF 1570,2080,1780,1840
1280  IF L<2 THEN 1310
1290  PRINT "A GROUNDER TO SHORT..........OVER TO FIRST IN TIME"
1300  GOTO 2350
1310  LET C6=C6+1
1320  IF C6>10 THEN 1340
1330  GOTO 1350
1340  LET C6=1
1350  IF L=1 THEN 1380
1360  IF L=1 THEN 1380
1370  GOTO 1530
1380  IF W >= 1 THEN 1400
1390  GOTO 1780
1400  PRINT "A GROUNDER TO THE SHORTSTOP.........."
1410  PRINT "HE STEPS ON SECOND..........THROWS TO FIRST"
1420  PRINT ".......DOUBLE PLAY"
1430  LET L=2
1440  GOTO 2350
1450  IF L=1 THEN 1470
1460  GOTO 4160
1470  IF W >= 1 THEN 1490
1480  GOTO 1570
1490  PRINT "A LINE DRIVE TO THE FIRST BASEMAN............"
1500  PRINT "HE STEPS ON FIRST....AND DOUBLES UP THE RUNNER....DOUBLE PLAY"
1510  LET L=2
1520  GOTO 2350
1530  PRINT "A FLY BALL TO LEFT........TAKEN FOR THE OUT"
1540  GOTO 2350
1550  PRINT "A GROUNDER THROUGH THE HOLE....A BASEHIT"
1560  GOTO 2950
1570  PRINT "A FOUL POPUP BEHIND THE PLATE.....THE CATCHER HAS IT"
1580  GOTO 2350
1590  IF L=1 THEN 1610
1600  GOTO 1780
1610  IF T9=1 THEN 1630
1620  IF W>1 THEN 1640
1630  GOTO 1780
1640  PRINT "A GROUNDER BACK TO THE PITCHER"
1650  PRINT "THE THROW TO SECOND.....OVER TO FIRST"
1660  PRINT "......DOUBLE PLAY"
1670  LET L=2
1680  GOTO 2350
1690  IF W >= 1 THEN 1360
1700  PRINT "A GROUNDER TO SECOND.....OVER TO FIRST IN TIME"
1710  GOTO 2350
1720  IF L <= 2 THEN 1740
1740  IF W >= 1 THEN 4040
1750  GOTO 1310
1760  PRINT "A SLOW ROLLER TO THIRD.......THE THROW.....IN TIME "
1770  GOTO 2350
1780  PRINT "OUT ON CALL STRIKE THREE"
1790  GOTO O OF 1800,1820
1800  LET F1=F1+1
1810  GOTO 2350
1820  LET F2=F2+1
1830  GOTO 2350
1840  PRINT "A FLY BALL TO CENTER.......TAKEN FOR THE OUT"
1850  GOTO 2350
1860  IF W=3 THEN 4090
1870  GOTO 2350
1880  PRINT "A GROUNDER TO THE FIRST BASEMAN.........."
1890  PRINT "HE STEPS ON THE BAG FOR THE OUT"
1900  GOTO 2350
1910  PRINT "A LINEDRIVE INTO LEFT FOR A BASEHIT"
1920  GOTO 2950
1930  PRINT "A GROUNDER UP THE MIDDLE FOR A HIT"
1940  GOTO 2950
1950  PRINT "A SOFT FLY BALL OVER SECOND.....A BASEHIT"
1960  GOTO 2950
1970  PRINT " A WALK..........JUST AS GOOD AS A HIT"
1980  GOTO O OF 1990,2010
1990  LET G1=G1+1
2000  GOTO 3000
2010  LET G2=G2+1
2020  GOTO 3000
2030  PRINT "A LONG DRIVE TO DEEP LEFTCENTER.....IT'S GONE FOR A HOMER"
2040  IF W=3 THEN 2060
2050  GOTO 2930
2060  PRINT ".....A GRAND SLAMMER....."
2070  GOTO 2930
2080  IF W>2 THEN 2100
2090  GOTO 1930
2100  IF L=2 THEN 2120
2110  GOTO 1970
2120  PRINT "A LONG DRIVE TO DEEP LEFT......IT'S OFF THE WALL"
2130  PRINT "THE RUNNER GOES INTO THIRD STANDING UP...A THREE BASE HIT"
2140  LET T=T+1
2150  LET U=W
2160  LET W=1
2170  LET T9=1
2180  GOTO 3160
2190  PRINT "A GROUNDER TO SHORT.....THE THROW IS IN THE DIRT..."
2200  PRINT "THE RUNNER IS SAFE .......AN ERROR ON THE SHORTSTOP"
2210  GOTO 2310
2220  PRINT "A LONG DRIVE TO RIGHT............BYE BYE BABY"
2230  IF W=3 THEN 2250
2240  GOTO 2930
2250  PRINT "IT'S A GRAND SLAMMER"
2260  GOTO 2930
2270  PRINT "A LINE DRIVE INTO CENTERFIELD FOR A BASEHIT"
2280  GOTO 2950
2290  PRINT "A GROUNDER TO THE THIRD BASEMAN..............."
2300  PRINT "HE BOBBLES THE BALL.....AN ERROR"
2310  LET B8=1
2320  LET B9=B9+B8
2330  LET B8=0
2340  GOTO 3000
2350  LET L=L+1
2360  PRINT L;" AWAY"
2370  IF L=3 THEN 2390
2380  GOTO 760
2390  IF O=1 THEN 2440
2400  IF K>9 THEN 2420
2410  GOTO 2440
2420  IF N<Q THEN 3470
2430  IF N=Q THEN 2440
2440  LET L=0
2450  GOTO O OF 2460,2690
2460  LET E=T
2470  LET J=B9
2480  LET B9=0
2490  LET T9=O
2500  PRINT D;" RUNS ** ";E;" HITS ** ";J;" ERRORS"
2510  LET Q=Q+D
2520  LET R=R+E
2530  LET P=P+J
2540  IF A1>9 THEN 2570
2550  LET A1=A1+1
2560  LET V[A1]=D
2570  LET D=E=J=U=T=W=0
2580  LET K=K+1
2590  IF K=9 THEN 2610
2600  GOTO 2650
2610  IF N>0 THEN 2630
2620  GOTO 2650
2630  LET L1=2
2640  GOTO 3580
2650  PRINT 
2660  PRINT "..........AT BAT, THE METS.........."
2670  LET O=2
2680  GOTO 760
2690  LET I=T
2700  LET F=B9
2710  LET B9=T9=0
2720  LET T9=0
2730  PRINT G;" RUNS ** ";I;" HITS ** ";F;" ERRORS"
2740  LET N=N+G
2750  LET M=M+I
2760  LET S=S+F
2770  IF A2>9 THEN 2830
2780  LET A2=A2+1
2790  LET H[A2]=G
2800  IF K=9 THEN 2820
2810  GOTO 2830
2820  IF N<Q THEN 3580
2830  LET G=I=F=T=U=W=0
2840  PRINT K;" INNINGS COMPLETED"
2850  PRINT "             RUNS       HITS      ERRORS"
2860  PRINT "  GIANTS  *  ";Q;"  *  ";R;"  *  ";S
2870  PRINT "*******************************************"
2880  PRINT "    METS  *  ";N;"  *  ";M;"  *  ";P
2890  PRINT 
2900  PRINT "..........AT BAT, THE GIANTS.........."
2910  LET O=1
2920  GOTO 760
2930  LET T=T+1
2940  GOTO 3140
2950  LET T=T+1
2960  IF T9=1 THEN 2980
2970  GOTO 3000
2980  LET T9=0
2990  GOTO 3120
3000  LET A=1
3010  LET W=W+A
3020  LET A=0
3030  IF W <= 3 THEN 3050
3040  GOTO 3090
3050  IF W>1 THEN 3070
3060  GOTO 760
3070  PRINT 
3080  PRINT "THERE ARE ";W;" MEN ON BASE"
3090  IF W>3 THEN 3110
3100  GOTO 760
3110  LET W=3
3120  LET U=1
3130  GOTO 3160
3140  LET U=W+1
3150  LET W=0
3160  GOTO O OF 3170,3240
3170  LET D=D+U
3180  IF D>1 THEN 3200
3190  GOTO 760
3200  PRINT 
3210  PRINT D"RUNS ARE IN SO FAR THIS INNING"
3220  LET U=0
3230  GOTO 760
3240  LET G=G+U
3250  IF K=9 THEN 3330
3260  IF K>9 THEN 3350
3270  IF G>1 THEN 3290
3280  GOTO 3310
3290  PRINT 
3300  PRINT G"RUNS ARE IN SO FAR THIS INNING"
3310  LET U=0
3320  GOTO 760
3330  IF N+G>Q THEN 3410
3340  GOTO 760
3350  IF N+G>Q THEN 3370
3360  GOTO 760
3370  LET N=N+G
3380  LET S=S+B9
3390  LET M=M+Y
3400  GOTO 3470
3410  LET N=N+G
3420  LET S=S+B9
3430  LET H[9]=G
3440  LET L1=1
3450  LET M=M+T
3460  GOTO 3580
3470  PRINT "FINAL SCORE IN ";K;" INNINGS"
3480  PRINT "            RUNS   HITS   ERRORS"
3490  PRINT "  GIANTS  *  ";Q;"  *  ";R;"  *  ";S
3500  PRINT "*********************************"
3510  PRINT "    METS  *  ";N;"  *  ";M;"  *  ";P
3520  PRINT 
3530  PRINT "THE METS PITCHING STRUCK OUT ";F1;" GIANTS AND WALKED ";G1
3540  PRINT 
3550  PRINT "THE GIANTS PITCHING STRUCK OUT ";F2;" METS AND WALKED ";G2
3560  PRINT 
3570  GOTO 4230
3580  PRINT 
3590  PRINT "THE FINAL SCORE WILL BE SHOWN BELOW"
3600  PRINT 
3610  PRINT "   1      2      3      4      5      6      7      8";
3620  PRINT "      9"
3630  PRINT " *";V[1];"*";V[2];"*";V[3];"*";V[4];"*";V[5];"*";V[6];
3640  PRINT "*";V[7];"*";V[8];"*";V[9]
3650  PRINT 
3660  PRINT "  RUNS  HITS ERRORS"
3670  PRINT "  ";Q;R;S
3680  PRINT "********************************************************"
3690  PRINT "                              METS"
3700  PRINT "   1      2      3      4      5      6      7      8";
3710  PRINT "      9"
3720  PRINT " *";H[1];"*";H[2];"*";H[3];"*";H[4];"*";H[5];"*";H[6];
3730  PRINT "*";H[7];"*";H[8];"*";H[9]
3740  PRINT 
3750  PRINT "  RUNS  HITS ERRORS"
3760  PRINT "  ";N;M;P
3770  PRINT 
3780  PRINT "THE METS PITCHING STRUCK OUT ";F1;" GIANTS AND WALKED ";G1
3790  PRINT 
3800  PRINT "THE GIANTS PITCHING STRUCK OUT ";F2;" METS AND WALKED ";G2
3810  PRINT 
3820  GOTO 4230
3830  PRINT "A BUNT....THE RUNNER BEATS IT OUT"
3840  GOTO 2950
3850  LET X1=X1+1
3860  IF X1>23 THEN 3880
3870  GOTO 3890
3880  LET X1=1
3890  GOTO X1 OF 1590,1780,3900,1530,1310,1970,1720,1720,1780,3900,1310,3900,102
3910  GOTO 1780
3920  IF W=1 THEN 3940
3930  GOTO 1780
3940  PRINT "A SWING AND A MISS.....WITH THE RUNNER GOING"
3950  PRINT "THE THROW BY THE CATCHER.....IN TIME, HE GETS HIM"
3960  PRINT "A STRIKEOUT DOUBLE PLAY"
3970  GOTO O OF 3980,4010
3980  LET F1=F1+1
3990  LET L=2
4000  GOTO 2350
4010  LET F2=F2+1
4020  LET L=2
4030  GOTO 2350
4040  IF T9=1 THEN 1780
4050  IF W <= 1 THEN 1780
4060  IF L=1 THEN 1610
4070  PRINT "A GROUNDER TO THIRD.....OVER TO SECOND FOR THE FORCE OUT"
4080  GOTO 2350
4090  IF L=1 THEN 4110
4100  GOTO 2350
4110  PRINT "THE RUNNER ON THIRD IS TAGGING UP"
4120  PRINT "THE THROW FROM THE OUTFIELD......"
4130  PRINT "THE SLIDE...OUT!.....A BEAUTIFUL THROW"
4140  LET L=2
4150  GOTO 2350
4160  IF L=2 THEN 4180
4170  GOTO 1310
4180  PRINT "A FLY BALL DOWN THE RIGHTFIELD LINE.........IT DROPS IN"
4190  PRINT "THE RUNNER IS TRYING FOR SECOND........................."
4200  PRINT "THE THROW INTO SECOND.....GETS HIM.......OUT!"
4210  LET T=T+1
4220  GOTO 2350
4230  IF Q=O THEN 4270
4240  IF N>Q THEN 4380
4250  PRINT 
4260  IF N<Q THEN 4420
4270  PRINT "THE GIANTS HAVE BEEN THOROUGHLY BEATEN BY THE METS"
4280  PRINT 
4290  PRINT "IF YOU WANT TO TAKE ANOTHER CRACK AT IT TYPE 1-ELSE 0"
4300  INPUT Z1
4310  IF Z1=1 THEN 4330
4320  GOTO 4450
4330  LET O=1
4340  LET I2=I2+1
4350  PRINT 
4360  PRINT "THIS IS THE START OF GAME";I2
4370  GOTO 190
4380  PRINT 
4390  PRINT "AGAIN THE GIANTS LOST TO THE METS"
4400  PRINT 
4410  GOTO 4290
4420  PRINT 
4430  PRINT "THE GIANTS BEAT THE METS????"
4440  GOTO 4290
4450  END 
