$0;0ILNSBOPTFNAMENPIWILOSFILEAPTRBKFFFINDCURFPTETITLEOAAVAWMSOBSASRBGBSSBSHIDABWMWMLCRTLCRAETTFNCWHFFFFINNINKEKGWFSORT@  !"#$%&'()*+,-./0123456789:;<=>?@ABCDE BALLPARK FIGURES BY ED BROWN(c)1988, ANTIC PUBLISHING A`<LINEUP CHECKA66--@*"8,*66-@FR  :(#" already in lineup N-@AR K$P SAVEUp(Save to what filename", AI@@V(@c(@p(@ZH-@B:,@t6(@7<%@s,: E@H$_ APPENDdw-@@"6(You want to append (Y or N)?A@a@@K:n)@w6.>:,i- 4N-@@#( - A0n0YAs<-@@"8(Enter the # of the new player<x1 6-6- @e%6-1A}6-%@68,--@@"($SUBSTITUTE{-@@":( You want to substitute (Y or N)?E@e@@K:r)@{6.>:,< 4N-@@"!(3-@@9( <$0YA@ A6-@B-@@">(#Enter the # of the substitute B @eAE 68,-6.=:,#B:,"@#67@,.7 A@ 6.7<%@s,* A4 A 7$ERROR TRAPH6-F:A,' @,"A8>( DEVICE NOT ONH A'"Ab( DISK FULL' A,"Ap"(FILE NOT FOUND, A."Ae$(INVALID FILENAME. A(***ERROR: CODE /-@A % Au/ A PRINT>(Input team name4(Input today's date8>3"3>:@,"CONDENSED PRINT!33 Stats for , !3M*3Current Record: Won , Lost -3M@@P:''(@PLAYER dd(@SAB AVG WMO SLUG% OB% SF SH H 2B 3B HR RBI GW BB R SB SBA SO GIDPVA@!6-@/-@B6.7<%@s,L AV A5U)(@#A:7<%@,, EA:7<%@,, @U(@ **(@7%@<%@, S 6- Au6-# A)6-3 A96-C AI6-S Ay 6- Au6-# Au/6-%%%9 Au?6-I AuO6-Y Au_6-i Auo6-y Aus 6- Au6-# Au)6-3 Au96-C AuI6-S AuY6-c Aui6-s Au 1(@6-%@t# .@1$ ?NUM/ @%(@  / A+ A!(@ + A(@"(@ $'%,. $(@ ---- . A%12 @((@ .00 2 A%61 A'(@ .0 1 A%;0 A&(@ . 0 A%@F 6.=:,F(@7@<@,.7@<@, E$J CALCO6-6@6-6@)!L6-P:A$+%%%,'%?P,6-P:A$+%@$%@$%@$,'%?P,T76-6@!76-P:A$'%?P,Y6-6-'6-3!N6-P:A$'%?P,i6-P:A$'%?P,6-P:A$'%?P,^C6-6@!C6-P:A$+%%%%%,'%?P,c$hW/L RECORDmo.(&}Did this team win this game (Y or N)?9@Y@@K:f)@o6.>:,r# 4Y6-%@# Aw# 4N6-%@# A| Ae$FILENAME CHECK 6.7@<@,4D:)7@<@,4D1:)7@<@,4D2:)7@<@,4D3:)7@<@,4D4:A,67@<@,.D:,67@,.$LOAD FILEn(Load from what file * AG@@T@a@n@6-@ A01@67,.'6-%@t1 A%@ Au$FIND PLAYER/6-6-@/"A`:-@$7<%@,406-@: AU6-%@t ( Au$NEW PLAYERh6-%@#-@@"d( }Player #8,* is new. What is this player's nameh\67<%@,.A67%@<%@,. \67%@<%@,.I-@@r@B67%&@<%%@,.0F I$TRANSFER DN6-A:7@<@ ,,76-A:7@!<@#,,Q6-A:7@$<@&,,k6-A:7@'<@),,6-A:7@0<@2,,6-A:7@3<@5,,76-A:7@6<@8,,Q6-A:7@9<@A,,k6-A:7@B<@D,,6-A:7@E<@G,,6-A:7@H<@P,,76-A:7@Q<@S,,Q6-A:7@T<@V,,k6-A:7@W<@Y,,6-A:7@`<@b,,n6-A:7@c<@e,,76-A:7@f<@h,,Q6-A:7@i<@q,,k6-A:7@r<@t,,n$PRINT MENU6-6-'6-36-?6-K6-W6-(}κ Һ, #A:7@<@,,, 7@<@, k(Single(©Double*(éTriple9( ĩHome RunM(ũBase on Ballsk(ƩHit batter,Interference](( ǩReached on Error, for FCI(ȩOut ( for Strikeout)](ɩSacrifice Out(ʩHit into Double Playh(˩RBI's%(̩Attempted Steal2(ͩScoredD( ΩMen on baseV( ϩNext Batterh( ЩNext Inning!^(ѩQuit!(ҩSubstitution5(өAppend LineupK(ԩRedo this frame[( ٠ź^$& CHOICE+-(>0 F:Ad,"AUA`5J6-F:Ad,@=@@K:J)@:G"@-!( /6-&@;"G6-@ ?G"@-!( /6-%@;"@!G6-@D5"@)"@%-+(>5 A`I'"@6-@d%' AN."@6-@r (.6-%@S--+!@d* @,)"@AX A`]! 6.>:,-@@"!$b HITg16-@6-@#4A16-%@l 4B6-%@q 4C6-%@v@4D*(6-@(6-%@:-@@@(*{( 4D6-%@(( AU6-%@"6-%@6-%@"$ RBI+6-@6-@+6-:-@@".(How many RBI's (1-42:(,GN ()? @8@@K:E)@N6.>:,//+@:, @I)@:,!@R,*0GA`A4G*(*(6-+6-%@76-@A A`04G*( -@@"&(0 A`B 6-A:,6-%&-@@"*(<-@@B(*B4D*!@*( 6.N2-@@8(*B A.(*0D6.N(-@@.(*$ SACt-@@"3(Sacrifice (H)it or (F)ly?>@^@@K:k)@t6.>:,0H*0FA# 4H6-%@# A06-%@-@@"($ STEAL6-%@u-@@"4(Successful steal (Y or N)??@_@@K:l)@u6.>:,# 4Y6-%@# A`0NAE-@@"($FLAG CHECK96--*@:,!@d*@:, @u96-@ ) *46-@() A  *4M6-@ *4N6-@ *4K6-@$-@@:,&@d$( $%TRANSFER UP*67@<@ ,.=:,767@!<@#,.=:,Q67@$<@&,.=:,k67@'<@),.=:,67@0<@2,.=:,/67@3<@5,.=:,767@6<@8,.=:,Q67@9<@A,.=:,k67@B<@D,.=:,67@E<@G,.=:,467@H<@P,.=:,767@Q<@S,.=:,Q67@T<@V,.=:,k67@W<@Y,.=:,67@`<@b,.=:,9k67@c<@e,.=:,767@f<@h,.=:,Q67@i<@q,.=:,k67@r<@t,.=:,>67<%@s,.$CENTER A GAMEH-@@MA(9Is this the first game entered for this team (Y or N)?L@l@@K:y)@6.>:,R0Y*0NA@W 4Y A A\-@@ax7(/Is this team's file already loaded in (Y or N)?B@b@@K:o)@x6.>:,f0Y*0NA`k 4N Apg (} ((A(,How many players in the starting lineupES-@c68,-6@g uJ<(4Enter the starting batting order by player numbersJ-@z(( Batter #: ( @e ()(0(: A((( 68,- 6-@(6-@/6.=:8,,B:,"@/67@,.* A@ 6.7<%@s,* A A 6-@ AU AuA %!"@-@!(*3!@d* @--@&@d3(*'"@!-@@'(*v 4T A!6-@+ A =-@@"R(O.K., do it over^6-j6-v6-'4A)4B)4C)4D' A3 4E6-%@'6-%@36-@3 4F6-%@'6-%@36-@3 4G6-%@'6-%@36-@X 46-%@'6-%@36-@8(@6.NR-@@X(*3 4H6-%@'6-%@36-@T 4I A#6-%@/6-@4(<6.NN-@@T(*f 4J6-%@'6-%@56-%@A6-@F(N6.N`-@@f(* 4K AU 4L A@% 4M6-%@%6-@ 4R A@ 4S AC 4N6-%@%6-@16-@5C6-%@A4O)4P)4Q! A/6-%@5!A6-@!+4O)4P,*!6-@# 4P6-%@# A 4OA  4QAE A %U Ae0U6-?:C:,[(4) Enter a Game(%@E@@K:R)@[6.>:,B%%01*02*03*04AG 6-A:,L1'A@AA@1 A~*@A'B7tA*$6-6-$$-@B:,&@s@tXX67%@<%@s,.90000000000000000000   $D1:BALLPARK.BAS