10 REM BASES.ECB
   15 REM ...BASBA...(Base-ball)...from ??? via EAGAN
   20 REM ...Revised  3-14-81  R.E.H.
   30 PRINT "&K&J&J"
   50 PRINT TAB(18);",.;;^'^;;.,"
   60 PRINT TAB(16);";/'         '\;"
   70 PRINT TAB(15);"((: BASE-BALL :))"
   80 PRINT TAB(16);"'\;         ;/'"
   90 PRINT TAB(18);"'';;.,.;;''"
   95 PRINT
  100 DIM D(2),A$(147),N$(20),Z$(10)
  105 LET I=0: LET D(1)=0: LET D(2)=0
  110 INPUT "Please ENTER the name of TEAM # 1 ---=>",Y$
  115 IF LEN(Y$)=0 THEN  LET Y$="Team no. 1"
  120 INPUT "Please ENTER the name of TEAM # 2 ---=>",Z$
  125 IF LEN(Z$)=0 THEN  LET Z$="Team no. 2"
  130 LET Y$=Y$+"          ": LET Z$=Z$+"          "
  140 LET P=INT(2*RND(0))+1: LET N$=Y$+Z$
  145 LET D6=P
  150 IF P<1 OR P>2 THEN 140
  160 PRINT N$(P*10-9,P*10);"'s TEAM is up"
  161 PRINT "<*> Enter any letter to play ---=>";
  162 INPUT (1,0)I$
  163 PRINT "&K"
  165 IF D6=P THEN  LET I=I+1
  166 IF I>9 AND D(1)<>D(2) THEN  STOP
  167 PRINT "    SCORE"
  168 PRINT "    INNING";I
  169 PRINT N$(1,10);D(1),N$(11,20);D(2)
  170 LET O=0
  180 LET T=0
  190 LET B=0: LET O=0: LET S=0: LET K=0
  200 LET A$="         [ ]         "
  205 LET A$=A$+"       /     \       "
  210 LET A$=A$+"    /           \    "
  215 LET A$=A$+"[ ]               [ ]"
  220 LET A$=A$+"    \           /    "
  225 LET A$=A$+"       \     /       "
  230 LET A$=A$+"         [ ]         "
  240 IF T=0 THEN 420
  250 LET B$="$"
  260 IF B$="N" THEN 1680
  270 IF T>0 THEN 770
  280 LET X=INT(7*RND(0))+1
  290 IF X<1 OR X>7 THEN 280
  300 GOTO 870
  310 IF X=1 THEN  PRINT "**BASE HIT!**"
  320 IF X=2 THEN  PRINT "**DOUBLE!**"
  330 IF X=3 THEN  PRINT "**TRIPLE!**"
  340 IF X=4 THEN  PRINT "**OUT AT FIRST**"
  350 IF X=4 THEN  LET O=O+1
  360 IF X=5 THEN  PRINT "**OUT CENTER FIELD**"
  370 IF X=5 THEN  LET O=O+1
  380 IF X=6 THEN  PRINT "**OUT LEFT FIELD**"
  390 IF X=6 THEN  LET O=O+1
  400 IF X=7 THEN  PRINT "**OUT AT SECOND**"
  410 IF X=7 THEN  LET O=O+1
  420 PRINT
  430 FOR Z=1 TO 7
  440   PRINT A$(Z*21-20,Z*21)
  450 NEXT Z
  460 IF O=3 THEN 505
  490 PRINT "<*> Enter any letter to play the next man ---=>";
  495 INPUT (1,0)I$
  500 PRINT "&K"
  505 LET D7=RND(0)
  506 REM
  507 IF D7+.3>RND(0) THEN 505
  510 PRINT "BALL # ";B;" STRIKE # ";S;"   OUTS ";O;" SCORE ";K
  520 IF O=3 THEN  PRINT  ELSE 540
  521 LET D(P)=D(P)+K
  530 PRINT "THIRD OUT.. ";N$(P*10-9,P*10);
  531 PRINT "'s TEAM retires with TOTAL of";
  535 PRINT D(P)
  540 IF O=3 AND P=1 THEN  LET U=1
  550 IF O=3 AND P=2 THEN  LET U=2
  560 IF U=1 THEN  LET P=2
  570 IF U=2 THEN  LET P=1
  580 IF O=3 THEN 160
  590 LET T=T+1
  600 IF B<4 AND S<3 AND T>0 THEN 250
  610 IF B=4 THEN  PRINT "WALK"
  620 IF B=4 THEN  GOSUB 870
  630 IF S=3 THEN  PRINT "***OUT****"
  640 IF S=3 THEN  LET O=O+1
  650 IF S=3 OR B=4 THEN GOTO 655
  651 GOTO 430
  655 LET B=0: LET S=0
  660 GOTO 430
  670 IF T>0 THEN 250
  680 PRINT
  690 PRINT
  770 LET Y=(4*RND(0))+1
  780 IF Y<1 OR Y>4 THEN 770
  790 LET Z=INT(2*RND(0)+2.5)
  800 IF Z<1 OR Z>5 THEN 790
  810 IF Y<=2 THEN  LET B=B+1
  820 IF Y>2 AND Y<2.7 THEN  LET S=S+1
  830 IF Y>=2.7 AND Z=3 THEN GOTO 835
  831 GOTO 840
  835 LET B=0: LET S=0
  840 IF Y>=2.7 AND Z=3 THEN 280
  850 IF Y>=2.7 AND Z<>3 THEN 770
  860 GOTO 510
  870 IF A$(83,83)="*" THEN  LET B1=1 ELSE  LET B1=0: REM ...1st
  871 IF A$(11,11)="*" THEN  LET B2=1 ELSE  LET B2=0: REM ...2nd
  872 IF A$(65,65)="*" THEN  LET B3=1 ELSE  LET B3=0: REM ...3rd
  878 IF B1=1 AND B2=1 AND B3=1 THEN 950
  880 IF B1=1 AND B2=1 AND B3=0 THEN 1040
  890 IF B1=1 AND B2=0 AND B3=1 THEN 1140
  900 IF B1=0 AND B2=1 AND B3=1 THEN 1240
  910 IF B1=1 AND B2=0 AND B3=0 THEN 1340
  920 IF B1=0 AND B2=1 AND B3=0 THEN 1430
  930 IF B1=0 AND B2=0 AND B3=1 THEN 1520
  940 IF B1=0 AND B2=0 AND B3=0 THEN 1620
  950 IF X=1 THEN  LET K=K+1
  960 IF B=4 THEN  LET K=K+1
  970 IF B=4 THEN  RETURN
  980 IF X=2 THEN  LET K=K+2
  990 IF X=2 THEN  LET A$(65,65)="*"
 1000 IF X=2 THEN  LET A$(83,83)=" "
 1010 IF X=3 THEN  LET K=K+3
 1020 IF X<>3 THEN GOTO 1030
 1025 LET A$(83,83)=" ": LET A$(11,11)=" "
 1030 GOTO 310
 1040 IF X=1 THEN  LET A$(65,65)="*"
 1050 IF B=4 THEN  LET A$(65,65)="*"
 1060 IF B=4 THEN  RETURN
 1070 IF X=2 THEN  LET K=K+1
 1080 IF X=2 THEN  LET A$(83,83)=" "
 1090 IF X=2 THEN  LET A$(65,65)="*"
 1100 IF X=3 THEN  LET K=K+2
 1110 IF X<>3 THEN GOTO 1120
 1115 LET A$(83,83)=" ": LET A$(11,11)=" "
 1120 IF X=3 THEN  LET A$(65,65)="*"
 1130 GOTO 310
 1140 IF X=1 THEN  LET K=K+1
 1150 IF B=4 THEN  LET A$(11,11)="*"
 1160 IF B=4 THEN  RETURN
 1170 IF X=1 THEN  LET A$(11,11)="*"
 1180 IF X=1 THEN  LET A$(65,65)=" "
 1190 IF X=2 THEN  LET K=K+1
 1200 IF X=2 THEN  LET A$(83,83)=" "
 1210 IF X=2 THEN  LET A$(11,11)="*"
 1220 IF X=3 THEN  LET A$(83,83)=" "
 1230 GOTO 310
 1240 IF X=1 THEN  LET K=K+1
 1250 IF B=4 THEN  LET A$(83,83)="*"
 1260 IF B=4 THEN  RETURN
 1270 IF X=1 THEN  LET A$(83,83)="*"
 1280 IF X=1 THEN  LET A$(11,11)=" "
 1290 IF X=2 THEN  LET K=K+2
 1300 IF X=2 THEN  LET A$(65,65)=" "
 1310 IF X=3 THEN  LET K=K+2
 1320 IF X=3 THEN  LET A$(11,11)=" "
 1330 GOTO 310
 1340 IF X=1 THEN  LET A$(11,11)="*"
 1350 IF B=4 THEN  LET A$(11,11)="*"
 1360 IF B=4 THEN  RETURN
 1370 IF X=2 THEN  LET A$(83,83)=" "
 1380 IF X=2 THEN GOTO 1390
 1385 LET A$(11,11)="*": LET A$(65,65)="*"
 1390 IF X=3 THEN  LET K=K+1
 1400 IF X=3 THEN  LET A$(83,83)=" "
 1410 IF X=3 THEN  LET A$(65,65)="*"
 1420 GOTO 310
 1430 IF X=1 THEN GOTO 1440
 1435 LET A$(65,65)="*": LET A$(83,83)="*"
 1440 IF B=4 THEN  LET A$(83,83)="*
 1450 IF B=4 THEN  RETURN
 1460 IF X=1 THEN  LET A$(11,11)=" "
 1470 IF X=2 THEN  LET K=K+1
 1480 IF X=3 THEN  LET K=K+1
 1490 IF X=3 THEN  LET A$(11,11)=" "
 1500 IF X=3 THEN  LET A$(65,65)="*"
 1510 GOTO 310
 1520 IF X=1 THEN  LET K=K+1
 1530 IF B=4 THEN  LET A$(83,83)="*"
 1540 IF B=4 THEN  RETURN
 1550 IF X=1 THEN  LET A$(83,83)="*"
 1560 IF X=1 THEN  LET A$(65,65)=" "
 1570 IF X=2 THEN  LET K=K+1
 1580 IF X=2 THEN  LET A$(11,11)="*"
 1590 IF X=2 THEN  LET A$(65,65)=" "
 1600 IF X=3 THEN  LET K=K+1
 1610 GOTO 310
 1620 IF X=1 THEN  LET A$(83,83)="*"
 1630 IF B=4 THEN  LET A$(83,83)="*"
 1640 IF B=4 THEN  RETURN
 1650 IF X=2 THEN  LET A$(11,11)="*"
 1660 IF X=3 THEN  LET A$(65,65)="*"
 1670 GOTO 310
 1680 END