C-FOCAL,  5/8K-71  F    

01.01 C-FOCAL BASEBALL BY PHILIP HUNT
01.04 E;O X
01.05 T "WELCOME TO THE FOCAL BASEBALL STADIUM"!
01.06 T "TYPE THE NAME OF YOUR TEAM, 8 CHARACTERS"!!
01.07 O C;F X=1,8;A N(X)
01.08 O I;T !"THANK-YOU"!!,%2;S H1=0;S H2=0;S H3=0;S LI=-1;S Z=0
01.10 S Q=0;S SR=0;S B1=0;S B2=0;S B3=0;S O=0;S NR=0;S B=0
01.11 S SC=0;S SY=0;S I=1;S ST=0;S Q9=0;S W=0;S SZ=0;S E1=0;S E2=0;S E3=0
01.15 T "PITCHES:"!!
01.20 T " NO.    TYPE OF PITCH"!
01.24 T "  1     KNUCKLE BALL"!"  2     SCREW BALL"!"  3     FAST BALL"!
01.28 T"  4     CURVE BALL"!"  5     LOB OVER PLATE"!"  6     SIDE ARM"!
01.32 T "  7     CHANGE OF PACE"!"  8     SINKER BALL"!
01.36 T "  9     SLIDER"!" 10     BRUSH-BACK"!
01.55 T "YOUR UP FIRST"!
01.58 T !!"INNING NO. "I,!;G 1.61
01.60 S NR=0;G 14.47
01.61 S Z=W;I (Q9)8.14;A "TYPE PITCH YOU EXPECT-"AS;I (AS)2.08,1.61
01.62 I (10-AS)1.61;D 15.5;S P=P+1
01.64 I (P-AS)1.65,2.2
01.65 D 15.2;I (ST)100,1.84
01.66 D 15.9;I (PO)100,2.1,1.68
01.67 T " AND HE'S SAFE"!;G 1.66
01.68 D 15.3;I (WP)000,1.69,2.2
01.69 T "WILD PITCH";I (B1+B2+B3)100,2.91;T ", RUNNERS ADVANCE"!
01.70 I (B3)100,1.71;S W=W+1;S B3=0
01.71 I (B2)100,1.72;S B2=0;S B3=1
01.72 I (B1)100,2.86;S B1=0;S B2=1;G 2.86
01.84 I (B1+B2)100,1.66;T "RUNNER STEALING";D 15.6;I (SO-3)2.17
01.85 I (B1)100,1.86;I (B2)100,1.87;I (B3)100,1.88;S B3=0;S W=W+1;G 1.67
01.86 I (B2)100,1.89;I (B3)100,1.88;S W=W+1;S B3=0;G 1.67
01.87 S B2=1;S B1=0;G 1.67
01.88 S B3=1;S B2=0;G 1.67
01.89 S W=W+1;S B3=0;G 1.67

02.08 D 11.2;G 1.61
02.09 T "FIRST";G 2.11
02.10 I ((B1+B2+B3))100,1.68;D 15.95;T "PICK-OFF TRY AT ";I (B1)100,2.12,2.09
02.11 I (PY)100,2.19,1.67
02.12 I (B2)100,2.14;T "SECOND"
02.13 I (PY)100,2.18,1.67
02.14 T "THIRD"
02.15 I (PY)100,2.17,1.67
02.16 T " AND HE'S OUT!"!;S O=O+1
02.17 I (B3)100,2.18;D 2.16;S B3=0;G 3.08
02.18 I (B2)100,2.19;D 2.16;S B2=0;G 3.08
02.19 D 2.16;S B1=0;G 3.08
02.20 G 14.8
02.21 D 15.81;I (BH)100,3.2;I (P-AS)2.22,2.24
02.22 D 15.6;I (SO-1)2.24,2.24,2.75
02.23 D 15.1;G 14.8
02.24 D 15.8,15.96;I (H-14)2.26,2.25,2.24
02.25 T "LINE DRIVE TO FIRST"!;S AB=AB-2;G 6.05
02.26 I (H-13)2.27;T "LINE DRIVE TO THE PITCHER"!;S AB=AB-2;G 6.05
02.27 I (H-12)2.28;T "LINE DRIVE TO THIRD"!;S AB=AB-2;G 6.05
02.28 I (H-11)2.29;T "BUNT TO FIRST"!;G 4.88
02.29 I (H-10)2.3;T "BUNT TO THE PITCHER"!;G 4.88
02.30 I (H-9)2.31;T "BUNT TO THIRD"!;G 4.88
02.31 I (H-8)2.32;T "BLOOPER TO THE INFIELD"!;S AB=AB-3;G 6.05
02.32 I (H-7)2.33;T "FLY TO RIGHT FIELD"!;G 9.1
02.33 I (H-6)2.34;T "FLY TO LEFT FIELD"!;G 9.1
02.34 I (H-5)2.35;T "FLY TO CENTER FIELD"!;G 9.1
02.35 I (H-4)2.36;T "FOUL BALL"!;I (SR-2)2.8,1.6
02.36 I (H-3)2.37;T "FOUL TIP"!;I (SR-2)2.8,1.6
02.37 I (H-2)2.39;T "FOUL BALL"!"CAUGHT!!"!;S B=0;S SR=0
02.38 S O=O+1;I (3-O)8.1,8.1,1.6
02.39 I (H-1)2.4;T "BROKEN BAT HIT"!;G 6.05
02.40 T "HIT TO SHORTSTOP"!;S AB=AB-2;G 6.05
02.75 D 15.1;I (BS-5)2.8,2.8,2.86
02.80 T "STRIKE"!;S SR=SR+1;I (3-SR)2.81,2.81,1.6
02.81 T "AND IT'S A STRIKE-OUT"!;S B=0;S SR=0;S O=O+1;I (3-O)8.1,8.1,1.6
02.86 T "BALL"!;S B=B+1;I (4-B)5.1,5.1,1.6
02.90 S B1=1;I (BH)100,1.6;T !"WALK"!;S B=0;S SR=0;G 1.6
02.91 T !;G 2.86

03.08 I (3-O)8.1,8.1,1.6
03.10 T !!"3 OUTS";I (8-I)3.3,3.4,3.4
03.20 T "BATTER HIT BY PITCH"!;S SR=0;S B=0;G 5.1
03.30 I (SY-SC)12.3
03.40 T ", TAKE THE FIELD!"!!!

04.10 S SR=0;S B=0;D 15.4;I (EY-1)10.1,10.1;I (AB-4)4.88,4.88
04.11 I (AB-6)4.5,4.5,4.6
04.40 I (B3)100,4.41;S W=W+1;S B3=0
04.41 I (B2)100,4.43;S B3=1;S B2=0
04.43 I (B1)100,4.44;S B2=1;S B1=0
04.44 I (Q-O)1.6;S B1=1;G 1.6
04.50 T "HE'S GOING FOR 2 BASES"
04.51 D 15.97;I (SZ)100,4.52,4.53
04.52 T " AND HE'S OUT!"!;S O=O+1;G 4.55
04.53 T " AND HE'S SAFE"!;S H3=H3+1;G 4.55
04.55 I (B3)100,4.56;S W=W+1;S B3=0
04.56 I (B2)100,4.57;S W=W+1;S B2=0
04.57 I (B1)100,4.58;S B1=0;S B3=1
04.58 I (3-O)8.1,8.1;I (Q-O)1.6;S B2=1;G 1.6
04.60 T "HE'S GOING FOR 3 BASES"
04.61 D 15.97;I (SZ)100,4.63,4.62
04.62 T " AND HE'S SAFE"!;S H3=H3+1;G 4.66
04.63 T " AND HE'S OUT!"!;S O=O+1
04.66 I (B3)100,4.67;S W=W+1;S B3=0
04.67 I (B2)100,4.68;S W=W+1;S B2=0
04.68 I (B1)100,4.69;S W=W+1;S B1=0
04.69 I (3-O)8.1,8.1;I (Q-O)1.6;S B3=1;G 1.6
04.80 T "IT'S A HOME RUN !!"!;S SR=0;S B=0;S H3=H3+1
04.81 I (B1)100,4.82;S NR=1
04.82 I (B2)100,4.83;S NR=NR+1
04.83 I (B3)100,4.84;S NR=NR+1
04.84 S NR=NR+1;S B1=0;S B2=0;S B3=0;S W=W+NR;I (4-NR)4.85,4.85,1.6
04.85 T "IT'S A GRAND SLAM!!!!"!;G 1.6
04.88 T "HE'S GOING FOR 1 BASE";S B=0;S SR=0
04.90 D 15.1;I (BS-3)4.95,4.95
04.91 T " AND HE'S OUT!"!;S O=O+1;I (3-O)8.1,8.1,4.4
04.95 T " AND HE'S SAFE"!;S H3=H3+1;G 4.4

05.10 I ((B1+B2+B3)-3)5.16
05.11 S W=W+1;G 2.9
05.16 I ((B1+B2)-2)5.2
05.17 S B3=1;G 2.9
05.20 I ((B2+B3)-2)5.23,2.9
05.23 I ((B1+B3)-2)5.26
05.24 S B2=1;G 2.9
05.26 I (B1)100,2.9,5.24

06.05 I (O-2)6.07,4.1,4.1
06.07 D 15.61;I (DP)100,6.1,4.1
06.10 I (B1)100,4.1;D 4.88
06.11 T !"DOUBLE-PLAY!!"!;S O=O+2;S B1=0;I (3-O)8.1,8.1
06.12 I (B3)100,6.13;S W=W+1;S B3=0
06.13 I (B2)100,1.6;S B3=1;S B2=0;G 1.6

07.10 S O=0;S Q9=0;G 8.12
07.15 S O=0;S Q9=-1;G 8.12
07.17 S H1=H1+H3;S E2=E2+E3;G 7.19
07.18 S H2=H2+H3;S E1=E1+E3;G 7.19
07.19 S H3=0;S E3=0

08.10 I (Q9)7.1,7.15
08.12 I (Q9)8.13;S SC=SC+W;S SC(I)=W;S Z=0;S W=0;D 1.1,7.17;G 8.25
08.13 S SY=SY+W;S SY(I)=W;S Z=W;S W=0;D 1.1,7.18,3.1;G 1.61
08.14 I (8-I)8.15,8.16,8.16
08.15 I (SY-SC)12.08
08.16 A "TYPE PITCH YOU WILL THROW-"P;I (P)11.2,8.16;I (10-P)8.16
08.17 D 15.51;G 1.64
08.25 D 13,1.1;G 1.58

09.10 D 15.82;I (400-DH)9.16,4.1,4.1
09.16 T !"IT'S PASSING THE WARNING TRACK"!;S AB=AB+4
09.17 I (460-DH)9.18;S SR=0;S B=0;G 4.11
09.18 T "AND ";G 4.8

10.10 S AB=AB+3;T "THEY'VE MADE AN ERROR!"!;S E3=E3+1
10.11 S SR=0;S B=0;I (AB-4)4.88,4.88,4.11

11.20 D 1.2,1.24,1.28,1.32,1.36
11.21 G 8.14

12.08 S SC(I)=0;S I=I+1
12.10 I (SY-SC)12.15,12.2,12.25
12.15 T !!!"I WON "SC," TO "SY,!!!!!!!!;G 12.3
12.20 T "EXTRA INNING";R
12.25 T !!!"YOU WON"SY," TO "SC,!!!!!!!!;G 12.3
12.30 T !"FINAL"!;S I=I-1;D 13.4,13.45,13.46,13.47,13.6,13.61,13.63;G 12.31
12.31 D 13.64,13.66,13.68;G 12.4
12.40 T "   "SC,H1,E1,!!!!!!!!;Q

13.40 T !"SCOREBOARD AFTER "I," INNING(S)"!
13.45 F X=1,9;T " "
13.46 F X=1,I;T X," "
13.47 T "     R  H  E"!
13.60 F X=1,(4*I)+23;T "-"
13.61 T !;O C;F X=1,8;T N(X)
13.63 T " ";O I;F X=1,I;T SY(X)," "
13.64 T "   "SY,H2,E2,!
13.66 T !"FLUBBERS "
13.68 F X=1,I;T SC(X)," "
13.69 T "   "SC,H1,E1;S I=I+1;I (9-I)12.1;R

14.47 I (B1+B2+B3)100,14.48;T "RUNNERS ON ";G 14.51
14.48 T "NO RUNNERS ON BASE";G 14.54
14.51 I (B1)100,14.52;T "1 "
14.52 I (B2)100,14.53;T "2 "
14.53 I (B3)100,14.54;T "3"
14.54 T !!;I (Z-W)14.55,14.6
14.55 T %2,!"SCORE IS:"!;O C;F X=1,8;T N(X)
14.56 O I;T "-";I (Q9)14.57;T SY+W,!;G 14.58
14.57 T SY,!
14.58 T "FLUBBERS-";I (Q9)14.59;T SC,!;G 14.6
14.59 T SC+W,!
14.60 S Q=O;T %1,"COUNT: "B,"  -"SR,", OUTS-"O,!,%2
14.61 I ((B+SR)-5)1.61;T !"FULL COUNT"!;G 1.61
14.80 T "AND THE PITCH IS A ";I (P-10)14.81;T "BRUSH-BACK"!;G 2.21
14.81 I (P-9)14.82;T "SLIDER"!;G 2.21
14.82 I (P-8)14.83;T "SINKER"!;G 2.21
14.83 I (P-7)14.84;T "CHANGE-OF-PACE"!;G 2.21
14.84 I (P-6)14.85;T "SIDE-ARM PITCH"!;G 2.21
14.85 I (P-5)14.86;T "LOB OVER THE PLATE!!"!;G 2.21
14.86 I (P-4)14.87;T "CURVE BALL"!;G 2.21
14.87 I (P-3)14.88;T "FAST BALL"!;G 2.21
14.88 I (P-2)14.89;T "SCREW BALL"!;G 2.21
14.89 T "KNUCKLE BALL"!;G 2.21

15.10 S BS=FITR(FRAN()*10)
15.20 S ST=FITR(FRAN()*5)
15.30 S WP=FITR(FRAN()*30)
15.40 S EY=FITR(FRAN()*15)
15.50 S P=FITR(FRAN()*10)
15.51 S AS=FITR(FRAN()*10)
15.60 S SO=FITR(FRAN()*5)
15.61 S DP=FITR(FRAN()*10)
15.70 S PE=FITR(FRAN()*10)
15.80 S H=FITR(FRAN()*15)
15.81 S BH=FITR(FRAN()*20)
15.82 S DH=FITR(FRAN()*500)
15.90 S PO=FITR(FRAN()*10)
15.95 S PY=FITR(FRAN()*4)
15.96 S AB=FITR(FRAN()*8);S AB=AB+1
15.97 S SZ=FITR(FRAN()*3)
_