`L i=L\Ʃx ? Nٷ)i  ʭ?6ȱ lMUST BOOT FROM SLOT 6NO FILE RTSTND.APPLE RTSTND.APPLE   L$J) (jJJ>L*F`F$Lө ʌʍ HHHƽŽH`HHHHHHƽ  7 `) ,1P `*0 QNi i2iHhHHH # ж8ƋȱHHHƽCQRTW =  a0+&00 1حhi/0 !"!;<=>)⊙VV#$ƽ6 7/\z FLLIEHJh* SYSTEM.PASCAL not found# SYSTEM.PASCAL is not version 1.2#k{lkBChLhx hmDŽ -І -51-k k Ɗgƈд** 1` ON EEECO INDEX.FILE";SCR_FILE=vgt1R1BK # RTSTND.APPLEvg#? SYSTEM.PASCALvg?@SYSTEM.MISCINFO@]SYSTEM.LIBRARY$]SYSTEM.STARTUPgSCR_FILE=vgt GAME.DATA"P< PITCHER.GAMES;STATS";ɖ'*&%&,E'зЮ꽌ɪФ`+*xH&x'8*7Ixix&&  ') + &п x) ++`FG8`0($ p,&" "?I(  8 `  ` x @ Nx .x- | d `V0^*^*>` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪŽH`HHHHHHƽ  7 @~aƁ)ɠ# ~ȑ~~i~e~ȱe~ȱ~ȱ~~i~iиRތSߌ썅\퍅][ Ϣތ\ߌ] 垠RPRRSQRR RȭR썅Z퍅[qʊ ΌqŐ`8H<8HW`k L*ʌhHHHHhhhhLϛ)Lϛ8内凅Lț) fj~) fj8~؛ٛHHHH99HH~ HHHiHLHHLHHL??~eʥƂFHHLX hh&ŎL{0eeƎL{8包Ŏ 8吪8吪ƌL{hh&eȹȹp)1)fjjj)?~Ōe~9 pHHLpHHL @h ~&&hhȱI%~I%ȥLhhh heȄ Ȅ~l ?8e h9 0 ʚL ?ņ hI9ʚL ?ņ0 hʚL~Ƃ񥅕 _heheHHL{XXhh ٕ&heheHHHHeHHLnhhhhhhȱ80 iff =֛=כHHLh~hhhhh ֛%~~כ%80~~i~łLLXYXXYYHXHL>XYYHXHXXYeXXYLhrhshthuXs&trȑtL{rrtLrtL{L~~LL UhehheiHHL{ UhehheiHHL{hh Ui h&L hii攥IiIiƔ8吥呰 ` of"f fofn8no8&&`ffofn&&`hhhh ٕIiIiHHLhhhh ٕHHLh~hhhE0Ń)ŀ!0E0h0HHLIiIiHHLh~hhhe~eHHLhIihIiHHLh~hhh8~HHLonff nenoeofofnff`hh0 hhLhh"IiIiIiIi _HHLHHLnoLߏIiIX`0\XE0XLXŖC?8XX&XeYei无8XYLXiXYL h~hhh~&Zȥ[Ze~Z[e[8\Z][LÏL{ h~hZ~ȥ[~L{h~h~Zȱ~[ҌӌL{lLh~XYLX~ 8倐~hrhsrHrHL{LÏX~e~e~tu~L`hththhL{h~hhe~~heH~HLhhh~hhe~~he~Lhrhshthu ULh~hhh%H%~HLh~hhhH~HLhhIHIHLXXhhQX0Xŗiхniemoni nooHnHLnX q Uhelniemo hnhnLnX Ueh~ei~H~HLnX Ueh~eih~h~LnX UeheiHHLnh~hȱ~H~HLh~hhh~ȥLXȘ ~X)XYXHXHXehnSeio nHnHL{ URehnSeioni nooHnHL{ URehnSeio hnhnL{èPHPHL UPehnQeio nHnHL{ UPehnQeioni nooHnHL{ UPehnQeio hnhnL{X q Uhelniemo nHnHLnX q Uhelidʌˌ  HʌH V Ϣ 垠PRȥQRRȱR8Ɓ8R RLXiXYXiXY HHXYX lhh)X0 eXXYL{eT~eU~8~X~YLHHLXHXHLn飨RHRHL URe¬s^^B',pQ[yƔͬ۬c¦LDXiXYX h&i` hi`RlSml~ȱlm~l`Ҍӌ`Zӌ[Ҍӌ`ʌ~@<8ҌӌZ\t]b[       p}– d“5~ՓGǨ͕;Beא)˗ޗ)fKq,$֒( ȑ` 9g\+{sސwo;Ӡg䔍YYYYYYYYYYYYYYYY vXL LLZLk   UFifhLg Uhhh~hXYhL~р~iLL Lhhh~h~~~р ȱ~р~р %v HHL{HHL{h~E0~E~~~Ղ0L L h)~hh)h~L vhhh~hE0Ł~ŀ/1'0+!h~hh~hHHLhHHL%vHHLhhh h膀e ňhhh HHHHL L8hhL0 `Fff L2~IIi`~ +HHL{~ +HHL{hh' ͫH̫HϫHΫHL{HHHHL? ABzDF@GPtI$KL nN(kPQChSԥ Lة 8 x 8`~ 禢 禥 HHHHL L~ 禥 HHHHL~ L^L~&~& ILhhhh 6IiIi0&lhL 0I L~ 禢 禥Lߏ HHHHL~E8 i  iL󏅋 8僅傅偨倐 8&&&&Ffff X x 8 L~E88ePhhLi򅋩Fffeeeffff؏傅偅倅 ` X x 8`Ņ"$ņŇň ʼn8`~`~ 禢 禥 L~ L~E~ ѧ L 0 L~ 禢 禥 L~I~~ L~E ѧ jh*vlhhjH*vjHHHlffff择ŋhhL`0&&&&0ƋƋhhL`&挥F8`8兰I襅FfffFfff` eeee 8 x 8` 8僅~hhh~ȑ~L{rehrseistehtueiuisu ʱrtL9hLYrtL{hhhi0QhthuhettheuuhrhsherrhessXЋiʱrtusLhLrtL{hhhhhhhhL{8ӌ\Ҍ]ӌLߦ\Z][JHjHL{hhhhh*68.L 'ņŇ0 L8ƇL8厪HHL{hhhhTL䔥T8~U~8~Xȥ~YT VLRSLȱȱL8Ɓ8 ри~ȱ~L UL{XiXYLh 8ƛƄL` 8   ` J\K]`hh ϢL{hh ,L{X nlhhhhhihhhhL{hthuhettheuui ʑtuLhLtL{hhhhhehehhhhhhehiehIihIiiŒ,,-'8\.\]/] =\8]`LÏ8\] Y8ƛ 졠58Ƈ8\񆅖ȥ]񆅗8񆅖Ɨ8 ƗLPQ 졠L8Ƈ8񆅔ȥ񆅕8Ƈ iiL󣥖 ȱL*8~ȥ~e~ȱ~e~8ƇƎ`\Z][ 8\Z][`LÏ~ e~ HHH* W*H./\8倅\]偅] =]H\HHH-H,H * 7LĢ ʌL`   `\J]K ~ e~ȑLXX ϢXY 垠 0 LX QHPH PȱPP֌Q׌L RhP֌hQ׌Lw RR8~S~\ȱ~]X i RHLR~ȱRV~ ,~VWRTȱRURXȱRYRRR،SٌL8񚅆񚅇`iuLht i~i8~~X~YiTiUR،Sٌ8\ȥ]\]VWlX ƎRSLȱȱŎRRLX LX PQhhV~W\]XiXY~8傅~~8傅~8~~~78Ƈ8񆅚ȥ񆅛HHl0 ,L}8Ƈ8񆅈񆅉@:8񆅈(8 8Z[ 8Z[LÏP i t8内e~l8吨L$ 0 8`hh ߝ~ h0 "Lb LblvLL/ 6LО 68LО ߝ~ hI=+ "LО ߝ~襈I= ƈ LОȄHHL{hh ~LU焵V!cX_Z[^]k _#ǭ`xXb'dxehSgiQYjoNln9?oIqr|otEv7w߄y @{Η|½~v) `) e`ʌhhL{ˌHʌHL{ʌLL{hh HHL{hh L{hhhhhehehh HHHH)X  _ +L %L (L .L hhhhLhh ) 4L  7L LiHhHHH L L L  LjʌL{hhHH)`,10 )?ILS` felм`|H > >'È < ʻh`@ 0`+` HH ʻ < GhhL> `,10` ` ` ` OȄ`H 2 0` )` ( `) $ HЄ J` MȽ`H  H h`@`   ` ` `38 0P`8 0 >` HH)> ʾ`0* r)` EHh`LL(G=- `H h x`lQ`) ˩ Ȣ`JJJJ ϱ` $p0*O# = ĺ =`H Lf H h ɢ`))L͸ ,10U0I ۻ,109,c$0 A[ $P0Ji)jj%UIЂ )?lI@a Hb c0  ԸhH Ըh$L hhh 靱`hhh(`hhhhhhϐ8 (H  +P )*Ȫ`FG8`0($ p,&"VU>)Q>jj``P@J I*I `8Hh` 7HHH*L^F0 9 [Lg")j> 8`Ί ax>?8T8Wuv ýI꽌ɪ꽌ɭ蠪ϮVE]V]H)]V])]T])]Ψ 8$hU>`ȅ͊Sϭ83IiΊ  $(,048<@DHLPTX\`dhlptx|Հ؈䤨谴    `Hh`Q꽌ɪɖν*Ͻ%ϙEΈ 꽌ɪ`8` Hh݌`LJ 8彐.mĿ"Š>?( XˍL ˩($8` h Hǹxhx ڶN`8Ύ0|ϩHhHh    VYΝYꪽ   Ͱ()I يJJJ(jǩF؅G(   k( F G  Wj΍0  $͊4 xΌΎH `Ǚx kh k@(LYH͍h (ͥpi)ͥˤ˹HH(x h(`~Ȍ``,hhh )hJ¥jJJhhihhhJihhhh b\8ſƅhx 착&'H(f'ꮭ'eƍ8ƅб ĘHH` z L譥Lg8 ȯ#ĎLƂƃL~ pL_ pƂгƃL(8 Ƙ L`` ` `ʌ`HHlHHlHHHHHHHHHH`jL{L.jhJJJJ) ʌ))hhhhh0LhhhhhhL{h0hhhehehh ) 4L譊 " 7L譾  L L譩~ ! ijy$)A[hIH80(hI`i(8(hI`J) )i i`HH8(iPH >'(hH hhehL>'O`J>Lʾ80 %,M8$LaLƾhhhhhhhhץHH` ߼ȑآL ߼  0 5J5* ߼؈ȩؠ#в   48)Q>jj``P@J I*I `8Hh` 7HHH*L^F0 9 [Lg")j> ҹHH``LLLLL#LHL&L)LLELLLJL{LJL LL6LLLL=hiZhihh ҭHH`l(8LaQ ]^@[ MNP]^@D-ġ>00ń0ˡ ɡa ȡá1á#   Q l>š 쾿  / Zá " *áá000áQP 0á0 é0۶ ضá}۪*SYSTEM.STARTUPתٟá'      צCONSOLESYSTERMצGRAPHICPRINTERצREMINREMOUT[Bfhjl ʀ  ʀ ̀ƀ ƀ ƀ   ʀˡ L تٞ&"á ٤ ȡؤצۢÍ ȄۢÍ؞&"á  ʀʀ ʀ ʀ ʀ  ʀʀ̀ʀʀʀʀʀʀʀʀʀ̀̀ʀʀȡʀʀ̀   תʀ'*SYSTEM.MISCINFOת; ̀ʀ*ʀ+ʀ,ʀ%2 &̀ʀʀʀʀ%̀̀̀ʀʀȡʀʀ̀ʀʀʀʀʀƁ/@š4SYSTEM.CHARSET+ \٢ š٢ ٢٢ 4$  /   d::87CONSOLE1:7SYSTERM2:7GRAPHIC3:7PR P:NEWC/C.CODE:6REMOUT8PSb.:=b4/#b:a@:%aF:`L!I`R[/`X)`2 4j P:NEWC/C.CODEDEDEKYKK.2 4k/P/NEWC/C.CODE.CODE  /IF/E .gEH87CONSOLE1:7SYSTERM2:7GRAPHIC3:7PRINTER6:5REMIN7:6REMOUT8E/KY Kh Pt.PE87CONSOLE187CONSOLE1:7SYSTERM2:7GRAPHIC3:7PRINTER6:5REMIN7:6REMOUT8P IYIL: P/.P> ::87CONSOLE1:7SYSTERM2:7GRAPHIC3:7PR P:NEWC/C.CODE:6REMOUT8PSb.:=b4/#b:a@:%aF:`L!I`R[/`X)`2 4j P:NEWC/C.CODEDEDEKYKK.2 4k/P/NEWC/C.CODE.CODE  /IF/E .gEH87CONSOLE1:7SYSTERM2:7GRAPHIC3:7PRINTER6:5REMIN7:6REMOUT8E/KY Kh Pt.PE87CONSOLE187CONSOLE1:7SYSTERM2:7GRAPHIC3:7PRINTER6:5REMIN7:6REMOUT8P IYIL: P/.P> :X f!  # 0%ⓡ4%צˡ䓡 &ˡ& öÍ##&á &'%&㓶℡'á.0:'%'á * & ܟˡ, T@8  4  0:lL4 B HBX z n H N'2 š:X f!  # 0%ⓡ4%צˡ䓡 &ˡ& öÍ##&á &'4šáRתPńȄ ,ń.áš蕿@šQȡ2 š00+-Í-ë009ȄX 000á'#á 009Ȅ00 qS\ ȡ*ńȄ `    p  CONSOLE:ת צSYSTERM:  ø !צ  תצP@22ˡ'Version 1.2 of SYSTEM.PASCAL cannot runצ)with a non-1.2 version of the interpreter@22ުPצצ22ȡ5233 ȡ 23a3zȄ 23aA22š*áݲ%áݲצ:22ȡáݲ 2á!2ȡ5252š[22š22r D ́$ʁ$ ʁ$ ʁ$ ʁ$ʁ$!"ʁ$ʁ$ʁ$ʁ$FZ   ނ ń! áނ š   šš$ !۞ۂۂەߓh  ! "ˡ ɡ!  ! "ˡ ߡ š  ńá4 á,á"  ܢۚ>ب"́$ʁ$ ʁ$ ʁ$ ʁ$ʁ$!"ʁ$ʁ$ʁ$ʁ$FZ   ނ ń! áނ š   šš$    ġނš  šš!۞ۂۂەߓS  ! "ˡ.! "ˡ ߡ á( ȁsƁq ƀƁq O*SYSTEM.LIBRARY  ́sʁsȡ'ƀʁsʁsʁśs2 Ɓ](`   á/)צ*SYSTEM.ATTACH áá(*SYSTEM.STARTUP š >H version 1.2ړ22 Ɓp Ɓp2Ɓ2Ɓṕsʁsȡ%Ɓ2ʁsƀʁsʁśsƁq ƀƁq O*SYSTEM.LIBRARY  ́sʁsȡ'ƀʁsʁsʁśs2 Ɓ](`   á/)צ*SYSTEM.ATTACH ת "ˡ ܡ́tˡ2"ˡڡAƀ ˡ4  is not version 1.2ړ22 Ɓp Ɓp2Ɓ2Ɓṕsʁsȡ%Ɓ2ʁsƀʁsʁsˡ ߢ`ޤ7 VڪƁ Ɓ "áP̂/ʁ ʁ"ˡ3Ƃ. Ƃ.Ƃ. Ƃ. Ɓ Ɓ X  ߪPƁ]Ɓ4 PƁ4ƁaƁeƁmƁn ́oƁaʁo  áCá>آآ*Ík vޢ ȡUڤ ˡBȄ-ܢ0ۤ ݢ`ڤá \zڨ  ȡ0ޤ!!P!x!P %'"6ۢڤ ɡš2ȡۤˡ áڢڢˍ? Pˡآڤצ š š۾.ˡצ([šܕ!!(š۾:ˡ١.TEXTת .CODEת!!ȡܾaܾzȄ ܾaAš!!Ȅ11(The 64K version of SYSTEM.PASCAL cannot )run with the 128K version of SYSTEM.APPLE d>.Fj TERM: 22ȡ2š5252á4w4]11á4\1šV42233039Ȅ 3042221421Ä2*á444ń55P.TEXTׯ]צ.CODEJ.BACKׯ7צ.INFO$.GRAFׯצ.FOTO /T ڤáޢܡ ޢޢޢÍÄޢÄȄĄMȄt߷i  O ?ۤ Äݓۤ  dÄÍߢ ˄ɡۤ  dáߢ  dá ߢ #ޣ˄ ߢ  ߢ ۤ ߢޣ ޣߢ ޣޢ ޢۤ ޢ áޢá צޢޢޢ/13:! $ ~\",䚹 9U[2˄ޢߢšáޢ ޣ ߢ  dޣޢޣ ޣߢ  dÍÍޢˡ ݓۤ ۤ Äݓۤ  dÄÍߢ ˄ɡۤ  dáߢ  dá ߢ #ޣ˄ ߢ  ߢ ۤ ߢޣ ޣߢ ޣޢ ޢۤ ޢ áޢá צޢޢޢ١ ˡ) ! 䚹 9U[2˄ޢߢšáޢ ޣ ߢ  dޣޢޣ ޣߢ  dÍÍޢˡ ݓۤ  lܟ˄ݤ צ   ١  n ١ á9 ٓ/! !!! á ݤݚ ˄ܟń ١á  ޤ uš  gá Ä+ޤ  ɡáޤ á ġMáš6 ܂ۻݪ d (   š Í ÄU ǐɄ:ń  šá٢.ٕ۶š ڸ۸۶ š۸ ڸ:   ȡQ  ȡ   ȡ? ȡ  ġ ۢ؂Xڢڢڢڣ ڣ ١ڢ ڣ ڣ١ ڢڣڣ ڣ áڣڣġ ڢڣڣ hڢ ڢ١ڢ!ڣڣ ڢ!ڣڣ ڢÄڣ &ڢ ڣ ڢ! ڢ!ڣڣ ڢڢ ڣڢÄڢ ߢ  d˯7 H  ۣȡڤ  ۣ צۣۢ0H ܣġ ۤ ٤ ڨ ܢܣ*@ۢۢۢۢٚÍۢáۢɡ ۟ۢ`ݤW ˡ!  ,ߓ$ ޓ "ߓۄ,ݤ ߓÍߡ2ݤ š˄ڶ a3 d ޓ(ݤ ߢܯ"á  ܡ:" áܡ ܓת$ ڟšx#ńF 09Ȅ ᾂ0 ߓńȄޓޓ!ܲݤߓÍߡFۤ ōɍ ō ȍ  dč ܓܡߢ ܓߦתߢޢ!ޢ!9 L ٤ Íܡ~  , Ąܓ  LONGINTIPASCALIOSCREENS SCREENS  HHHHHL,} ei|ʽ 8襁i}ƅ|L,hƀhhh8hohlhXhhhFffff80)ƅܥ#FfII懥HHL,Lwhhh8倅偪ʈƅ})H揥>ʈƅ ~擥  抦|ɥ8包~ƅLII懩&&u`hh&~ʈƅFyʈƅ}ʈƍƎƋƊЌإL2d|e~28ʈƅyʈƅƉ` LŁ|}ƅLE||怦}ʚH恺~8ʈƅ  ILL, LLL,E0LL1 L ILL,ELL1 LEe8刅刪ʈʈ|} ŀ}|ƀL~HHL,~HH~HHHHHHL,~ʈƅFHHHH恥HL,0~}ʈƅ0I愊iʈؚH恥LŁ|} ƅL ~8刅剅<8ȱ` 5l 5 l 5lhzh{hƁhhhƁ}eʆƀƀ|ʊe~8偅z{lzhhhhhh8冐 0 h HHHL,LwIL,h hrsʈ .ł( ŁZ   :    ( tV8z <|hvhwhhxylxNj+Nvwlv")@ LY-09Ȅ0ݡߑ ع      z  &  * عteVG8  )   uh[NA4'á +-ÍNTEGER[36]) /END; ' " "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWRITEDEC(VAR F: FIB; D: DECMAX; RLENG: INTEGER); "  IMPLEMENTATION X E EDURE DECOPS; "EXTERNAL; " "PROCEDURE FWRITEDEC(*VAR F: FIB; D: DECMAX; RLEN12]); 15:(W5:INTEGER[16]); 16:(W6:INTEGER[20]); 17:(W7:INTEGER[24]); 18:(W8:INTEGER[28]); 19:(W9:INTEGER[32]); 110:(W10:INTEGER[36]) /END; ' " "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWRITEDEC(VAR F: FIB; D: DECMAX; RLENG: INTEGER); "  IMPLEMENTATION L N E @d $ "TYPE DECMAX = INTEGER[36]; STUNT = RECORD CASE INTEGER OF 12:(W2:INTEGER[4]); 13:(W3:INTEGER[8]); 14:(W4:INTEGER[12]); 15:(W5:INTEGER[16]); 16:(W6:INTEGER[20]); 17:(W7:INTEGER[24]); 18:(W8:INTEGER[28]); 19:(W9:INTEGER[32]); 110:(W10:IBBhhƀhh-ȑhhƀ 0ȑƀ0hJJJJ 0ȑ) 0ȑƀĆLL,tq1+%ZTNlb3 `\[TOG@;:3(  T[Fc>8 ND Z1> $ "TYPE DECMAX = INTEGER[36]; STUNT = RECORD CASE INTEGER OF 12:(W2:INTEGER[4]); 13:(W3:INTEGER[8]); 14:(W4:INTEGER[12]); 15:(W5:INTEGER[16]); 16:(W6:INTEGER[20]); 17:(W7:INTEGER[24]); 18:(W8:INTEGER[28]); 19:(W9:INTEGER[32]); 110:(W10:I   CONST Months='JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC'; (CP1 = 40; { Length of a Screen Line } (CP2 = 19; { Number of Lines in a screen -1 } (CP3 = 39; { Max Screen X-Coordinate (CP1-1)} (CP4 = 4  z Z   :    ( tV8z <| [NA4'á +-Í-09Ȅ0ݡߑ ع      z Z   :    ( tV8z <|  uh[NA4'á +-Í-09Ȅ0ݡߑ ع     ݕ 0 . ݑ0 ݕݕ ؂ ɡ  |,  &  * عteVG8  ) ͉݂ġ ݂$ $ $ȡ%  0 ފ$čV   .ˡ:  Eɡ  -ݑ š 0 0 ߿`ġ(   ݂. ݕ ؂݂3  >ۓɡ ؼ݀$ ؼݞ$ۡܡ ؼ" Bɍ -   $ $ ݞ$' ݑ$ $݂ō $   "á +-Í-09Ȅؼ 0.á@09Ȅؼ0ݞ$09ȄjeEÍɍEáޢݣޢÄá ޣ Ą.! ޣ Ąݣ ˡRݣ &ݢ ݢݢ!ݣ "ˡRݣ ˄ݢ!ۂ"ˡ+ݢݢݢˡݢݢ ۚݢ    ݂܂F      ޏݏ@܏ޏ@ݏ܏ޏݏ܏܏ ݏ ܏  ݢPROCEDURE FWRITEREAL(VAR F: FIB; X: REAL; W, D: INTEGER); "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWRITEDEC(VAR F: FIB; D: DECMAX; RLENG: INTEGER); "FUNCTION SUPER_MOD(A,B : INTEGER) : INTEGER; "FUNCTION SUPER_DIV(A,B : INTEGER) : INTEGER; "  IMPLEMENTATION L N E @dNTEGER[36]) /END; ' " "PROCEDURE FSEEK(VAR F: FIB; RECNUM: INTEGER); PROCEDURE FREADREAL(VAR F: FIB; VAR X: REAL); "PROCEDURE FWRITEREAL(VAR F: FIB; X: REAL; W, D: INTEGER); "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWR0; { Max Number of Screen Data Fields } (CP5 = 38; { Maximum Allowable Field Width (CP1-2) } (CP6 = 23; { Max Screen Y-Coordinate }   TYPE Field_Rec = PACKED RECORD  Fld_Col :0..CP3; (Fld_Line :0..CP6; (Fld_Lgth :1..CP4; (Fld_Type :CHAR %END; %  Screen_Rec = PACKED RECORD (Scrn_Line :ARRAY [0..CP2] OF STRING[CP1]; (Scrn_Field :PACKED ARRAY [1..CP4] OF Field_Rec; (Clr_Scrn :BOOLEAN; (n_Lines :0(HH:MM-(M(צDDMMMYY/(*DT"+ y l/ /Z$/(ڹ^(^ȡ"^؛$$ڮ$ ؝.ˡ ڢ ڢڢȡ0ˡ8 z ($ צ!SYNTAX ERROR IN FIELD - USE ONLY (عg(צ+-/0..9/(nFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECƀƀ+  ** ,  #4:Scr_File"ˡR ˡM)Screen Data File Error - ABORTING (Code= ).P. @0تP]T*ڳ$0,ب* *ɡ*צ0***$JAN-=-á=-=-RRPRQRP|QQAˡ$_&>'7(0(I 0 "$&5&'(NÍPO N=PONM/(t-(-?w-@_-K-}3DY, S$&(*u תP&'(á]DEPRESS ANY KEY TO RESUMEJš0uȡ 2   )  l$tM D_Field(f:INTEGER;Date:Date_Rec); PROCEDURE T_Field(f:INTEGER;T:INTEGER);   {$P} IMPLEMENTATION P L E CEDURE Read_Screen; PROCEDURE GoTo_Field_XY(f:INTEGER);  PROCEDURE Field_S(f:INTEGER;VAR Stuff:STRING);  FUNCTION Field_I(f:INTEGER):INTEGER;  FUNCTION Field_Y(f:INTEGER):CHAR;  PROCEDURE Field_D(f:INTEGER;VAR Date:Date_Rec);  FUNCTION Field_T(f:INTEGER):INTEGER; PROCEDURE S_Field(f:INTEGER;Stuff:STRING); PROCEDURE I_Field(f:INTEGER;It:INTEGER); PROCEDURE Y_Field(f:INTEGER;Ch:CHAR); PROCEDUREEDURE Date_String(Rec:Date_Rec); PROCEDURE Access_Screen(n:INTEGER); PROCEDURE Display_Screen(n:INTEGER); PROCEDURE Read_Screen; PROCEDURE GoTo_Field_XY(f:INTEGER);  PROCEDURE Field_S(f:INTEGER;VAR Stuff:STRING);  FUNCTION Field_I(f:INTEGER):INTEGER; ROCEDURE PAUSE;  PROCEDURE Delay(n:INTEGER);  FUNCTION GETCHAR(OKSET:SETOFCHAR):CHAR;  PROCEDURE GETSTRING(VAR S:STRING;Max_Len:INTEGER);  FUNCTION YES:BOOLEAN;  PROCEDURE PROMPT(x,y:INTEGER;S:STRING); FUNCTION ASCII_To_Integer(C:CHAR):INTEGER;  PROCF_Fwd :BOOLEAN; (X_Mit :BOOLEAN; (Help_Flag :BOOLEAN; (DSTRING :STRING[7]; (Scrn_Nbr :INTEGER; % Field_N :INTEGER; (Printer :TEXT; (CEOL :CHAR; (Data :String;  {$P} P(Mon :0..12; (Day :0..31; (Yr :0..99 %END; % %Set_Of_Char = SET OF CHAR; % %  VAR Screen_File :FILE OF Screen_Rec; (Error :BOOLEAN; (Date :Date_Rec; (F_Back :BOOLEAN; (..CP2; (Scrn_y :0..CP6; (n_Fields :0..CP4; (Help :BOOLEAN; (Help_Scrn :INTEGER %END; % %Date_Rec = PACKED RECORD --)PINTEGER ^$$*^ ^$$ ת^^^$JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECُ á $ݡ$4^ ^$$ڮ$^á^0^QP:ק^ˡ$j^ˡ$Y^ ^$.^ ^$$ڮ$64DY, U צ!DO YOU WANT TO CHANGE THIS?(Y/N)_ צENTER ERA INNINGS PER GAME:_  צ% PER GAME....IS THAT CORRECT?(Y/N)_ $䫄DީȡIޥɡ(צROSTER DELETIONS NOT PERMITTEDYީšء򩄤á  צCURRENTLY ERA IS CALCULATED ONצA  צ INNING GAME BASIS.  š;ޥ++ȡޥ ޹   (;צ Index.File㥂תPšr ޥšáצROSTER IS FILLEBBB B B B B BBBBBBBB*5^ X  N1 ! ( .BASEBALLGETROSTEGETGAME GETPLAYEENTERDATADDDATA RECALLDASHOWGAMESHOWPLGASHOWPITCREPORTS TEAMSINGTEAMSEASTSPC PLAYERSU ޢ<<ܛ 0 0: 0 0 ]Z pV RN 0 B Dt@x4ɡ4 ȡ" צ    ȡۂۛ!V ܢ(ܢڛؿ<ب ޢ(ޢ ȡۂ*ۛ$ dޢ(.,,1š 1,-,2-2ȡ 0/.----,1ɡ1,-12-2ȡ0/.- --$h`  ᢁ(  ᢁ ɡ4 ȡ" צ  墁(墁  ᛾_á Ǡצȡ5 ݛ݂    <䏂q"تP00(110/1ߛ  תߛ $JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC    ޡ ߛ c:R ܂0܂ Í܂_Íۏ_ ߢ( ߢܛ_ˡN J ᢁ( ᢁ ߛ_á  cc P  Q Pۛܛڑ ڛ š ەg` ࢁ( ࢁ܂ áš܂-á ܂+á܂_áܛ^ۛ&tb (&'(>&á ٢'٢š( ؝š m ޢ(ޢߢצP ȡEܛ_á($&(*48#Md^ޢ(ߢOˡ/^תP^ߢ^ˡߢɡ8ߢ ȡ&^ ^P צ_Q Pޢߢ ȡ \VIޥɡ(צROSTER DELETIONS NOT PERMITTEDYީšء򩄤á  צCURRENTLY ERA IS CALCULATED ONצA  צ INNING GAME BASIS.++ ++ 2,,,Yáyݫ+Yá5+Yá3+Yá+Yá5+Yá Pitcher.Gamesȡ" ᥁X2ɡݹצGAMES FILE IS FULL ( 2צ!DO YOU Yá+ 2Yá+++,2"D ٢٢ ٢ ٢ ٢ ٢٢٢٢٢٢ ٢ ٢ ٢٢ ++   2 2 2  ( ޫ     ! "Yá٢٢ ٢٢٢٢٢ ٢ ٢ ٢ ٢٢٢٢٢٢ ٢ ٢  ٢ Yá ڢڢ٢ ٢٢٢٢٢٢ ٢٢ ٢ ٢ ٢ڢڢ٢ڢڢ٢ڢڢ٢ڢ ڢ ٢ڢ ڢ ٢ڢ ڢ ٢ڢ ڢ ٢ڢ ڢ ٢ڢ ڢ ٢ ڢ ڣ ٢ ڢڢ٢ +`bڢ ڣ ٢ ڢڢڢڢ٢ڢڢ٢ڢڢ٢ڢڢ٢ڢڢ٢ڢ٢ڢڢ٢ڢڢ 0  ( / 000áצHUGE!PX000 P ..P.šTERRIBLEתP Yá +. 2Yá٢ ٢ ٢ ٢٢٢٢٢٢ 4š2&NO MORE ROOM FOR PITCHERS IN THIS GAME ᩁ//٢ڢ ڣ ٢ڢ ڣ ٢ڢ ڣ ٢ڢ ڣ ٢ڢ ڣ ٢ڢڣ٢ڢڣ٢ t٢٢٢٢٢٢٢ ٢ ٢ ڢڢ٢ڢڢ٢٢٢Yáڢڢ٢Yáڢڢ٢Yáڢڢ٢Yáڢڢ٢ Yáڢڢڢ٢ڢ٢ڢ٢ڢڣ3+Yá+++   + + + + + +!Vád  ( 2 2YáYá+Yá5+Yá3+Yá+++   + + + + + +!VádWANT TO ENTER PLAYER DATA?+צStatsצ Pitcher.Gamesޥȡš2#GAME-PLAYER FILE FULL FOR THIS GAME  (ͩ צCONTINUE(Y/N)? ޹ END OF ROSTER   ᥁X2ɡݹצGAMES FILE IS FULL ( 2צ!DO YOU ڢڢڢ٢ڢڢ٢ڢڢ٢ڢڢ٢ڢڢ٢ڢ٢ڢڢ٢ڢڢ٢ڢڢ٢ڢڢ٢ڢڢ٢٢٢٢٢ ٢ ٢ ٢ ٢٢٢٢٢٢ ٢ ٢ ٢٢ ڢ٢٢٢٢٢٢ ٢٢ ٢ ٢ ٢٢ ٢٢ڢڢ٢ڢ ڢ ٢ڢ ڢ ٢ڢ ڢ ٢ڢ ڢ ٢ڢ ڢ ٢ڢ ڢ ٢ ڢ ڣ ٢ ڢڢ٢ ڢ ڣ ٢ ٢ ڢڢڢڢ٢ڢڢ٢ڢڢ٢ڢڢ٢ڢڢ٢ڢ٢ڢڢ٢ڢڢ٢ڢڢ٢ڢڢá8ġ% 2YéÄثYá4Yá2YáYá4Yá2YáYác($*  2       Yá 2٢Yáá8ġ% 2YéÄثYá4Yá2YáYá4Yá2Yá+!V   2 2 2       Yá 2٢Yá+Yá5+Yá3+Yá+++   + + + + + ++ ++ 2,,ˡ:צCANNNOT CHANGE CONFERENCE ,,Yáɡݫ+Yá5+Yá3+YáE FULL FOR THIS GAME ͩ á)ޥͩ á߹ء&CONTINUE (Y/N)? ީޥšצ END OF ROSTER BHt (ͩ צCON㩅ġ(ͩ ͩ ͩ CVc. (߭& +צStatsצ Pitcher.Gamesީš2#GAME-PLAYER FILWANT TO ENTER PLAYER DATA?+צStatsצ Pitcher.Gamesޥȡš2#GAME-PLAYER FILE FULL FOR THIS GAME  (ͩ צCONڢ ڢ ٢ڢ ڢ ٢ڢ ڢ ٢ڢ ڢ ٢ڢ ڢ ٢ڢ ڢ ٢ ڢ ڣ ٢ ڢڢ٢ ڢ ڣ ٢ +צStats++ب خ+ة+ 2Yá +ة++++|ߥͩ á   2 2 2ͩ ٢ ٢ צCONTINUE? (Y/N) _  -j  š:ޥȡޥ ޹   ީɩޥō&PLAYER SELECTED NOT VALIDءR|੅ 򥄢š   ݥá צCONTINUE? (Y/N) _ ݩݥš ͩ ͩ Yáͩ áLAST PLAYER IN GAMEͥá%NO GAMES ENTERED š ݥáNO PLAYERS ENTERED š ȡ.ͩ ˡͩ Yá#NO DATA FOR THAT PLAYER     ۩ōۓ/צNO PITCHER DATA FOR THIS PLAYER   222222222  2 2 2 2 2222222 2á צHUGE!PW222  P  . P š צTERRIBLEP    Yá$ YáAd (.N۩ōۓ/צNO PITCHER DATA FOR THIS PLAYER   222222222  2 2 2 2 22ڢ ڣ ٢ڢ ڣ ٢ڢڣ٢ڢڣ٢ +צStats++ب خ+.ة+. 2Yá+ة++++ᩁ á٢٢Yáڢڢ٢Yáڢڢ٢Yáڢڢ٢Yáڢڢ٢ Yáڢڢڢ٢ڢ٢ڢ٢ڢڣ٢ڢ ڣ ٢ڢ ڣ ٢ڢ ڣ ٢٢ ٢ ٢ ٢٢٢٢٢٢ 4ڢڢ٢ɡ$ڢڢڢ٢ڢڢ٢٢ڢ ڣ ٢ڢ ڣ ٢ڢ ڣ ٢ڢ ڣ ٢ڢ ڣ ٢ڢڣ٢ڢڣ٢ t٢٢٢٢٢٢٢ ٢ ٢ ڢڢ٢٢ڢڢ٢٢Yáڢڢ٢Yáڢڢ٢Yáڢڢ٢Yáڢڢ٢ Yáڢڢڢ٢ڢ٢ڢ٢ڢڣ٢٢٢٢ ٢٢ ٢ ٢ ٢٢ ٢٢٢٢٢٢ ٢ ٢ ٢ ٢٢٢٢٢٢ ٢ ٢ ٢٢  !  "Yáͩ #Yá ߩš+M @F  2ͩ ٢ ٢٢٢٢٢ ٢٢ ٢ ٢ ٢٢ ٢٢٢٢٢٢ ٢ ٢ ٢ ٢٢٢٢٢٢ ٢   Pitcher.Games  SˡNO DATADˡצNO DATA%  Yá[>!á9 ^  Yáͩ áLAST PLAYER IN GAMEߥͩ ڣ ˡڢ ڢ ڢ áצ N/A 0ڢ ڢ ڢ ڢ ڢ  á  N/A תڢ  ڣ  0ڣ  0 0 0ڢ 0%$#áצ N/A !%$%$# 6á  N/A ת46  0צTEAM TOTAL 06 05 04 0 0% 0$ 0# 0 0ͧ0 0 0 0 0 06ۂ65544%傸%$悸$##"Pޥ++++ީޥšPȡ0-۶8 0 8بá N/A ת á צ N/A ۲   0 0 0 0 0 00 70 , 2Yá"0צ CONFERENCE0$0צNON-CONFERENCE070צWINNING PITCHER: 00 70 0 0-0 070צLOSING PITCHER : 00 70  2070צSAVE : 00 70 0^dGAME-0700 70 , 2Yá"0צ CONFERENCE0$0צNON-CONFERENCE070צWINNING PITCHER: 00 70 0 0-0 00צ TEAM TOTAL00 00' 0& 00( >š 0 0צ"BASEBALL/SOFTBALL TEAM CUMULATIVES900צ SINGLE GAME-0700آ 0آ  000آ0'آ'&آ &ߩšPȡ0-06áצ N/A 06 'á N/A ת&' 0/ 00.< Dߥͩ أ ˡآá N/A תآ آ á N/A תآ أ  70أ  0 70آ Pȡ0-06-,áצ N/A )4+-,6-, 0 TEAM TOTAL03 02 01 0) 0( 0. 0- 0, 0*  0آ 0آ 0آ 0آ 003آ32آ21آ1)آ)(آ(.آ.-آ-,آ,*آ*/آ/+آ+ߩš أ ˡآآá N/A ת<آآآآآآ أ  70أ  0 70آ 0آ 0آ 0آ 0آ 0آA !%$%$# 6á  N/A ת46  0צ TEAM TOTAL06 05 04 0 0% 0$ 0# 0 02 ߥͩ0ڢ 0 0ڢ  0ڢ  0ڢ  0 0665ڢ54ڢ4%ڢ %$ڢ $#ڢ #ߩšPȡ0-0%$#áצ N/0צPER GAME AVE 0605040%0$0#0 ب  á N/A ת3       70 0 70 0 0 0  0  0  0  0  0  0 0033220צHOME :&0 0-0 00צAWAY :&0 0-0 0ݥ22ȡ 23330 0-0 00צCONFERENCE :&0 0-0 00צNON-CONFERENCE:&0 0-0 0̈́    0צ PER GAME AVE=0     0 0(000צ SEASON RECORD.000צOVERALL :&0 G------- ----- --------------------- ---- ---- --- --- -- ----0`0צG-----------------------------------------------------------------------00 TEAM TOTALS=0 0 00 0BASEBALL/SOFTBALL000צ SCORING SUMMARY 0000צTHRU:< 200G DATE TIME OPPONENT HOME CONF WON INN US THEM00צts0 0צ"BASEBALL/SOFTBALL TEAM CUMULATIVES90ءl:9:9áצNO CONFERENCE GAMES0 CONFERENCE+0>:90OVER-ALL+0:980SEASON RECORD: 0: 0-09 0צTHRU -ء 2 20+:& ~ 0 áצNO GAMES+צStats0 0צ"BASEBALL/SOFTBALL TEAM CUMULATIVES90ءl:9:9áצNO CONFERENCE GAMES0 CONFERENCE+0>:90OVER-ALL+0:9EAM TOTAL 00 00' 0& 000צPER GAME AVE 000'0& 0 áצNO GAMES+צSta++ީޥšPȡ0-0'-,á N/A ת)&+-,'-, 'áצ N/A &' 6á N/A ת06 0צT áצ N/A ۲  70 0 70 00  0  000ނ0' '& &ޥ++ 0302010)0(0.0-0,0*0/0L `ب á N/A ת  N/A ת)4+-,6-, 0צTEAM TOTAL 03 02 01 0) 0( 0. 0- 0, 0* 0/ 000צPER GAME AVE 11) )( (. .- -, ,* *//+ +ޥ++++ީޥšPȡ0-06-,á 00 00300 0 0 0ۥڥݹf بڏá צHUGE C㩅  . š AWFULLת   .  0 0 0 0 0 0 0 0 00 0 0 00RBI0OBA00צ---0צ---0צ---0צ---0צ---0צ---0צ---0צ---0צ---0צ---0צ-----0000צ---0צ---0צ---0צ -------- 0I X000צ2B0 3B0 HR0 SB0 CS0SAC0 HP0 BB0 KPȡ0-00צAB0 R0 H0 BA 0 PO0 A0 E0 FIELDING 00צ---0צ---0צ---0צ----- 6 +  +0ء0//á 02000011ȡ(00 0011ȡ(000//á 02000011ȡ(00 0011ȡ(00+ <r` Jn++  +0ء0//á 02000011ȡ(00 0011ȡ(00                   צNO GAMES FOR SELECTED PLAYER+8+StatsOVER-ALL     ب  á0.000תP + + ٶ/+ +,,ɡ3-,.-.ȡ#// /Q/P--3 lب۫   ޫ嫅櫅  Xب0 0 CONFERENCEצ0--0צ--0--0צ---0צ--0--0צ-----0צ---0צ---0צ---0צ-----0צ---0צ---0צ--0--0צ--0ޥȡ@+++ءڣˡڢڣ.ˡڢ.޹+R ٹ *T2 N 0צSO0HB0צWP0BK00--0צ--0--0צ---0צ--0--0צ-----0צ---0צ---0צ---0צ-----0צ---0צ---0צ--0--0צ--000W0L0SV0צBF0GS0צCG0IP0H0R0צER0ERA0BB0צSO0HB0צWP0BK00 0 0 0 0 0@+צStats0 0צBASEBALL/SOFTBALL000PITCHER CUMULATIVES10ء"0 CONFERENCE-00OVER-ALL,00צRUNNERS SCORING POSITIONK00צTB0SLG%0צAB 0H 0צBA 00צ---0צ-----0צ--- 0צ--- 0צ-----0654321/.-,+*)('&%$#0X  š:ޥȡޥ ޹   ީɩޥō&PLAYER SELECTED NOT VALIDءR| ٨ 0/۩/"á)/M ÄÄ ܢP/N ( PLEASE READ AND EXECUTE THE FOLLOWING (INSTRUCTIONS CAREFULLY AND EXPLICITLY!!! (THE DISK YOU HAVEB DIR  +0PTi Un,* 0\-. 奂 Index.File㥂á   ˡ צNO GAMES ˡצNO DATAPROGRAM IS TERMINATEDצ'!!!BACK UP YOUR DATA DISC WITH COPYA!!!RUN-TIME ERROR # TRY TO EXIT THE SYSTEM NORMALLYx 3+W>/0\-. 奂 Index.File > Game.Data@ Index.File㥂@ F " áצ N/A % áӦ N/A ת ‚Âáצ N/A ‚‚ ȡ  , Game.Dataš ئ*.*תڹeצ0.00 ^צ0.0 A0. %.lP5!# áצ N/A  áɦ N/A תb  šáN YáNáš ݩڔ e t +++@ צצټ-ټټ ͥ 2 * 2<  0 0 2<: 0 0  ȡ>á  צ.   K *<0 0 00 0<0:0 00 0|員צ&PRINTER IN SLOT 1 AND TURNED ON?(Y/N):0צPRINTER:"77ˡmצPRINTER IS NOT RESPONDINGCHECK SETUP AND TRY AGAINצREPORTS OPTION IS TERMINATED  ੅>RLF=71( EB>:3/+$wyt Pp`ءR| ٨ 0*<0 0 00 0<0:0 00 0|員צ&PRINTER IN SLOT 1 AND TURNED ON?(Y/N):0צPRINTER:"77ˡmצPRINTER IS NOT RESPONDINGCHECK SETUP JUST BOOTED IS COPY #1%OF THE NEW VERSION 1R1B PROGRAM DISK.צ צ( 1. MARK YOUR OLD MASTER WITH AN "M". צ( 2. MARK YOUR CURRENT RUNNING DISK "R". צ( 3. MARK THE TWO 1R1B COPIES "X1" & "X2"צ%(UNTIL YOU HAVE 2, GO NO FURTHER!!!) (PLACE COPY "X2" AND "R" ASIDE FOR NOW... (BE SURE THAT "M" AND "R" BOTH HAVE TAPED(NOTCHES TO T THIS SECTION ( ( 4. RETURN TO MAIN MENU ( ( ENTER CHOICE: _ (RETURN)CHANGE DATA ( ( 1. PLAYER DATA ( ( 2. TEAM DATA ( ( 3. INFORMATION ABOU A( RECALL/. PRINT REPORTS ( 6. TERMINATE PROGRAM/SAVE FILES ( ( ENTER CHOICE: _ (RETURN)( MAIN MENU ( ( 1. ENTER TEAM ROSTER ( 2. ENTER GAME DATA ( 3. ENTER PLAYER DATA ( 4. RECALL/CHANGE DATA ( 5T IS YOUR NEW WORKING COPY,צ&CONTAINING YOUR CURRENT WORKING FILES 2  P0 D BE USED IN PLACE OF THE ORIGINALצ#MASTER PROGRAM DISK SHIPPED TO YOU.(CONTINUE IF YOU WISH TO BUILD A NEW DISK"WITH YOUR CURRENT YEAR DATA INTACT (YOU MAY STOP AT THIS POINT)צ%IF YOU WISH TO CONTINUE PRESS RETURN: RRX2 צTHA צ%REMOVE "X1" AND MARK IT "1R1A MASTER"&THIS IS A NEW DISTRIBUTION MASTER AND 'SHOULD BE USED IN PLACE OF THE ORIGINALצ#MASTER PROGRAM DISK SHIPPED TO YOU.(CONTINUE IF Y4:Stats צ #4:Index.File#4:Pitcher.Games #4:Stats  #4:Index.Fileץ3002ë/M SYSTEM.STARTUPת/M /M /M ת/M /M MMX10/M צ #4:Game.Data, #4:Game.Dataצ #4:Game.Data,צ#4:Pitcher.Games צ#R<تP צ INSERT DISK "צ" IN THE BOOT DRIVEWHEN READY PRESS RETURN:R,٪PتP #4:Game.DataPREVENT THEM FROM BEING WRITTEN ON!!!! (----------------------------------------V۪PR<۪PA( A SYSTEM ERROR HAS OCCURRED ( (ALTHOUGH GREAT EFFORT HAS BEEN TAKEN TO (THOROUGHLY TEST THIS PROGRAM A PROBLEM (HAS ESCAPED OUR BEST EFFORTS. DUE TO (THE STRUCTURE OF THE SYSTEM IT IS NOT (POSSIBLE TO ASCERTAIN THE SOURCE OF THE _ ACCEPT?(Y/N) _ (RETURN) ABBBHPB: __ PO: __ OBA: ( 2B: __ BB : __ A : __ SLG: ( 3B: __ RBE: __ E : __ FLD: ( HR: __ RBI: __ ABRISP: __ ( TB: __ TOB: __ H RISP: __ ( ( CHANGE?(Y/N) (DATE: TIME: CONF? (OPPONENT: (PITCH? _ IP: __ AVERAGES: ( AB: __ SAC: __ SB: __ BAT: ( R : __ SO : __ CS: __ -RS: ( H : __ !  A A AB$B!B     B$ B A A,á<צ$88š8(8X+,,"( RECALL/CHANGE PLAYER GAME STATISTICS ( (NAME: (SAVE : ___________ (WIN PITCHER: ___________ (LOS PITCHER: ___________ (LEFT ON BASE: __ DOUBLE PLAYS : __ (CHANGE?(Y/N) _ ACCEPT?(Y/N) _ (RETURN) (DATE: TIME: (OPPONENT: ___________ (CONF? (Y/N): _ SCORE-US: __ OPP: __ (HOME? (Y/N): _ INNINGS PLAYED: __ (WON? (Y/N): _ (WINNING RBI: ___________ ! AAAB%B"B   B$ BABBB B B B B$       AA,,"%( RECALL/CHANGE TEAM GAME INFORMATION ( (DDMMMYY) (TIME FORMAT 12:45 (HH:MM)/(H:MM) (CHECK:TIME/DATE/CONF.NO CHANGE IN RECALL(IF YOU DON'T WANT TO ENTER DATA - ( ACCEPT?(Y/N) _ (RETURN) __________ (SAVE : ___________ (WIN PITCHER : ___________ (LOSE PITCHER: ___________ (LEFT ON BASE: __ DOUBLE PLAYS : __ ( (DATE FORMAT 28FEB84 (DATE: _______ TIME: _____ (OPPONENT: ___________ (CONF? (Y/N) : _ SCORE-US: __ OPP: __ (HOME? (Y/N) : _ INNINGS PLAYED: __ (WON? (Y/N) : _ (WINNING RBI : _ '( ENTER TEAM GAME INFORMATION ( O ITS OCCURRENCE, AND CONTACT: ( CHASE ALLEN ( 15718 HAYES TRAIL ( APPLE VALLEY, MN 55124 ( (612)431-7278 (PLEASE NOTE: EXIT THE SYSTEM ASAP! (ERROR AND FIX IT IN THE COURSE OF THE (PROGRAM OPERATION. I AM SORRY IF THIS (HAS CAUSED YOU ANY INCONVENIENCE, AND (WILL TRY TO ASSIST YOU. ( PLEASE RECORD THIS NUMBER (AND THE THINGS YOU WERE DOING JUST PRIOR(TB B B B BBBB B B B BBBB B B B B$      AA,,"# ( ENTER PLAYER GAME STATISTICS ( (NAME: (DATE: TIME: CONF? (OPPONENT: (PITCH? _ IP: __ AVERAGES: ( AB: __ SAC: __ SB: __ BAT: ( R : __ SO : __ CS: __ -RS: ( H : __ HPB: __ PO: __ BA%B AA$A AABBBB B B B BBBB AA _ ( WON?: _ LOSE?: _ (H : __ RU: __ HB: __ (2B: __ ER: __ WP: __ ERA: (3B: __ SO: __ BK: __ (HR: __ BB: __ (CHANGE?(Y/N) _ ACCEPT?(Y/N) _ (RETURN) %(----------------------------------------(PITCHING: ( INNINGS: __ AND _ THIRDS BATTERS: __ ( START?: _ COMPL?: _ SAVE?:ELECTED) ( (RETURN TO PREVIOUS MENU?(Y/N) _ (RETURN)( RETURN TO PREVIOUS MENU? _ (RETURN)AY DISPLAY DATA FOR ( THE GAMES PLAYED IN A SEASON. ( C. DISPLAY DATA FOR ALL PLAYERS ( WHO PLAYED IN THE SELECTED GAME( ((A LIST OF PLAYERS OR GAMES IS DISPLAYED(FROM WHICH THE ENTRY IS SA FOR A SELECTED ( PLAYER'S SELECTED SINGLE GAME. ( (2. TEAM DATA - THERE ARE 3 OPTIONS: ( A. DISPLAY DATA FOR A SELECTED ( GAME. ( B. CONSECUTIVELB B BBBBA B B$       AA,," ( RECALL/CHANGE PROGRAM INFORMATION ( (1. PLAYER DATA ( DISPLAYS DAT BA%B AA$A AABBBB B  ACCEPT?(Y/N) _ (RETURN)( START?: _ COMPL?: _ SAVE?: _ ( WON?: _ LOSE?: _ (H : __ RU: __ HB: __ (2B: __ ER: __ WP: __ ERA: (3B: __ SO: __ BK: __ (HR: __ BB: __ ( BBB B B B BBBB B B B B$       AA,,"" (----------------------------------------(PITCHING: ( INNINGS: __ AND _ THIRDS BATTERS: __ LAY ABBBB B B B BOBA: ( 2B: __ BB : __ A : __ SLG: ( 3B: __ RBE: __ E : __ FLD: ( HR: __ RBI: __ ABRISP: __ ( TB: __ TOB: __ H RISP: __ ( ACCEPT?(Y/N) _ (RETURN) (NOTE: IF PLAYER DID NOT PB$       AA,," ( RECALL/CHANGE TEAM DATA ( ( 1. SINGLE GAME - ASKS FOR GAME ( ( 2. SCAN GAMES - SCAN FULL SEASON ( ( 3. SELECT GAME THEN SCAN PLAYERS ( ( 4. RETURN TO MAIN MENU ( ( K (A - ASSISTS ERA - ER AVG 'CHER DEFS (BB - BASES ON BALLS ---------------- (RBE - REACHED BASE RU - RUNS ( ON ERROR ER - EARNED RUN (SB - STOLEN BASES HP - HIT BATTER (CS - CAUGHT STEAL WP - WILD PITCH (PO - PUT OUTS B - BALBA - ON BASE AVG (HR - HOME RUNS SP - SLUG PCT (TB - TOTAL BASES E - ERRORS (SAC - SACRIFICE (SO - STRIKE-OUTS (HPB - HIT BY PITCHED ( BALL PIT,"!( PLAYER GAME STATISTICS DEFINITIONS (AB - AT BATS BAT - BATTING AVG (R - RUNS -RS - AT BATS WITH(H - HITS RUNNERS IN (2B - DOUBLES SCORE POSN (3B - TRIPLES O          %B8š8(8X+, 22. (11. 23. (12. 24. ( ( ENTER PLAYER NUMBER __ 16. ( 5. 17. ( 6. 18. ( 7. 19. ( 8. 20. ( 9. 21. (10. X+,,"!( SELECT PLAYER ( ( 1. 13. ( 2. 14. ( 3. 15. ( 4.           %A8š8(8______ (10. ___________ 22. ___________ (11. ___________ 23. ___________ (12. ___________ 24. ___________ ( ( ACCEPT?(Y/N) _ __________ ( 4. ___________ 16. ___________ ( 5. ___________ 17. ___________ ( 6. ___________ 18. ___________ ( 7. ___________ 19. ___________ ( 8. ___________ 20. ___________ ( 9. ___________ 21. _____( ENTER/CHANGE ROSTER ( ( 1. ___________ 13. ___________ ( 2. ___________ 14. ___________ ( 3. ___________ 15. _#A ENTER CHOICE: _ ( REPORTS ( (1. TEAM SINGLE GAME STATISTICS (2. TEAM CONFERENCE CUMULATIVES (3. TEAM SEASON CUMULATIVES (4. TEAM SCORING SUMMARY (5. PLAYER CONFERENCE CUMULATIVES (6. PLAYER SEASON CUMULATIVES (7. PITCHER CONFERENCE CUMULATIVES (8. PITCHER SEASON CUMULATIVES (9. EXIT TO MAIN MENU ( ( !( SELECT GAME ( OT RUN YOUR MASTER DISK *(* (USE COPY PREPARED WITH COPYA) *(****************************************ITTEN BY CHASE ALLEN *(* *(* (C) COPYRIGHT 1984 *(* BY SPORTS DATA SYSTEMS *(* *(* PRINTER ASSUMED IN SLOT #1 *(* CAUTION: DO N *(* SPORTS DATA SERVICES *(* PRESENTS *(* *(* BASEBALL/SOFTBALL STATISTICS 1R1A *(* *(* WR""  "     "(8X+,,"!(****************************************(* ( (AB/RSP (H/RSP BA/RSP : (H/RSP BA/RSP : (RBE (HP (BB OB AVG : ( (K (RBI (A (E FLD AVG: ( (SB (CS STEALNG: ( $      "   "<צ$88š8(8X+,,"#c(PO (2B (3B (HR (TB SLG AVG: ( TOTAL AVG/GAME ( ----- -------- (AB (R (H BAT AVG: ( AYER CUMULATIVE STATISTICS ( ( THRU: ( (NAME: (GAMES PLAYED: INNINGS PLAYED: (  A(INDIVIDUAL PL ENTER CHOICE: _ (RETURN)( (NOTE: BE SURE PRINTER IS ON! ( ( ( ( ( ( ( ( ( ( ( L(  A( RECALL/           AB$AX+,,"'! ( N( ( ( (PAGE?(Y/N) _ GAME NUMBER: __ RETURN _ __________ ( 4. ___________ 16. ___________ ( 5. ___________ 17. ___________ ( 6. ___________ 18. ___________ ( 7. ___________ 19. ___________ ( 8. ___________ 20. ___________ ( 9. ___________ 21. _____ A(INDIVIDUAL PL ENTER CHOICE: _ (RETURN)( (NOTE: BE SURE PRINTER IS ON! (5. PLAYER CONFERENCE CUMULATIVES (6. PLAYER SEASON CUMULATIVES (7. PITCHER CONFERENCE CUMULATIVES (8. PITCHER SEASON CUMULATIVES (9. EXIT TO MAIN MENU ( ( ( REPORTS ( (1. TEAM SINGLE GAME STATISTICS (2. TEAM CONFERENCE CUMULATIVES (3. TEAM SEASON CUMULATIVES (4. TEAM SCORING SUMMARY K (A - ASSISTS ERA - ER AVG 'CHER DEFS (BB - BASES ON BALLS ---------------- (RBE - REACHED BASE RU - RUNS ( ON ERROR ER - EARNED RUN (SB - STOLEN BASES HP - HIT BATTER (CS - CAUGHT STEAL WP - WILD PITCH (PO - PUT OUTS B - BALBA - ON BASE AVG (HR - HOME RUNS SP - SLUG PCT (TB - TOTAL BASES E - ERRORS (SAC - SACRIFICE (SO - STRIKE-OUTS (HPB - HIT BY PITCHED ( BALL PIT,"!( PLAYER GAME STATISTICS DEFINITIONS (AB - AT BATS BAT - BATTING AVG (R - RUNS -RS - AT BATS WITH(H - HITS RUNNERS IN (2B - DOUBLES SCORE POSN (3B - TRIPLES O          %B8š8(8X+, 22. (11. 23. (12. 24. ( ( ENTER PLAYER NUMBER __ 16. ( 5. 17. ( 6. 18. ( 7. 19. ( 8. 20. ( 9. 21. (10. X+,,"!( SELECT PLAYER ( ( 1. 13. ( 2. 14. ( 3. 15. ( 4.           %A8š8(8______ (10. ___________ 22. ___________ (11. ___________ 23. ___________ (12. ___________ 24. ___________ ( ( ACCEPT?(Y/N) _ AYER CUMULATIVE STATISTICS ( ( THRU: ( (NAME: (GAMES PLAYED: INNINGS PLAYED: ( ( TOTAL AVG/GAME ( ----- -------- (AB (R (H BAT AVG: (            AB$AX+,,"'! ( N( ( ( (PAGE?(Y/N) _ GAME NUMBER: __ RETURN _ ( ( ( ( ( L( ( ( ( ( ( ( !( SELECT GAME ( OT RUN YOUR MASTER DISK *(* (USE COPY PREPARED WITH COPYA) *(****************************************ITTEN BY CHASE ALLEN *(* *(* (C) COPYRIGHT 1984 *(* BY SPORTS DATA SYSTEMS *(* *(* PRINTER ASSUMED IN SLOT #1 *(* CAUTION: DO N *(* SPORTS DATA SERVICES *(* PRESENTS *(* *(* BASEBALL/SOFTBALL STATISTICS 1R1A *(* *(* WR""  "     "(8X+,,"!(****************************************(* ( (AB/RSP (H/RSP BA/RSP : (H/RSP BA/RSP : (RBE (HP (BB OB AVG : ( (K (RBI (A (E FLD AVG: ( (SB (CS STEALNG: ( $      "   "<צ$88š8(8X+,,"#c(PO (2B (3B (HR (TB SLG AVG:  A( RECALL/