' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӖu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( B Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`ԠƠΠΠǠƠӠƠҠƠŠƠΠƠ͠ƠϠΠƠӠƠנƠҠΠ̍ˠŠƠ͠ŠƠ    ̍ҠΠ̍ԠƠΠΠǠƠӠƠҠƠŠƠΠƠ͠ƠϠΠƠӠƠנƠ̍ˠŠƠ͠ŠƠ    ԠƠΠΠǠƠӠƠҠƠŠƠΠƠ͠ƠϠΠƠӠƠנƠϠ٠̍ˠŠƠ͠ŠƠ    ԠƠΠΠǠƠӠƠҠƠŠƠΠƠ͠ƠϠΠƠӠƠנƠŠΠ̍ˠŠƠ͠ŠƠ    ԠƠΠΠǠƠӠƠҠƠŠƠΠƠ͠ƠϠΠƠӠƠנƠ٠Π̍ˠŠƠ͠ŠƠ    ϠΠ̍٠Π̍ŠΠ̍Ϡ٠̍ԠƠΠΠǠƠӠƠҠƠŠƠΠƠ͠ƠϠΠƠӠƠנƠϠΠ̍ˠŠƠ͠ŠƠ  ԠƠΠΠǠƠӠƠҠƠŠƠΠƠ͠ƠϠΠƠӠƠנƠҠΠ̍ˠŠƠ͠ŠƠ  ԠƠΠΠǠƠӠƠҠƠŠƠΠƠ͠ƠϠΠƠӠƠנƠ̍ˠŠƠ͠ŠƠ  ԠƠΠΠǠƠӠƠҠƠŠƠΠƠ͠ƠϠΠƠӠƠנƠϠ٠̍ˠŠƠ͠ŠƠ  ԠƠΠΠǠƠӠƠҠƠŠƠΠƠ͠ƠϠΠƠӠƠנƠŠΠ̍ˠŠƠ͠ŠƠ    ̍ŠΠ̍Ϡ٠̍̍ҠΠ̍ԠƠΠΠǠƠӠƠҠƠŠƠΠƠ͠ƠϠΠƠӠƠנƠ٠Π̍ˠŠƠ͠ŠƠ    z#?   ҠΠ  ҠΠ ϠΠ٠ΠŠΠϠ٠ Ҡ ŠΠ!à"ϠΠ٠ΠŠΠ Ϡ٠ϠҠԠĠ?ŠӠ͠ΠΠӠΠĠAVE PROGRAM"9 ::(7):"WHICH WOULD YOU LIKE(1-4)? ";A A$M D$(4)U A$a A(A$)r A1A4240y A A1ĺD$"RUN CUSTOMIZER" A2ĺD$"RUN STAT AID" A3ĺD$"RUN LEAGUE TOTALS" ' ANU>" d16368,0 n16384,07 x(16384)128120= p (4):" BASKETBALL STATISTICAL AID " (8):(18):"MENU" (11):(10):"<1> CUSTOMIZER :(10):"<2> STAT AID" :(10):"<3> LEAGUE TOTALS" :(10):"<4> LE2A:A3,42:AB (37,4::36,7::"BASKETBALL STATISTICAL AID":h 2:36,10:"BY MICHAEL W. HORNER" <::36,10:" MIDWEST SOFTWARE" F:36,17:"BOX 214" P:36,14:"FARMINGTON, MI" Z:36,18:"48024" _::(10):" = ALL OK, = DELETE, = CHANGE";X1:9000X$"A"X$"C"X$"D"500037,(37)2::E$:37,(37)2:X$"A"5180X$"D"5110$"TY(8);PL" ";!X20:90001X$""4090YX$(X$" ",20)eI1NStX$X$"**"{IG$(PL)X$PLPL1PL1840754016(1)::"FILE IS FULL"9175PLPL19125 :"CHECK ROSTER  D$(A)"- "X$ 3007< "FORMAT ERROR - TRY AGAIN!"F 9175P 3007\ I1NS D$(I)(D$(I)" ",25) I9125:"ENTER ROSTER ROUTINE":"PRESS WHEN DONE":PL1" ";PL93335 I135 (X$,I,1)"A"(X$,I,1)"Z"3335< IH IINSX I(A)3290n S$(A)S$(I)3335u I S$(A)X$ :"TYPE CORRECT DESCRIPTION" "FOR STAT "A". (25 LETTERS MAX):" X25:9000 X$""3325 X$"**********"UMBER OF STAT TO CHANGE ";( X2:90004 A(X$)H A12ANS3145n :"CHANGE STAT "A". CORRECT? ";x 9150 Q$"N"3007 " YES" :"TYPE CORRECT ABBREVIATION" "FOR STAT "A". (3 LETTERS PLEASE): "; X3:9000 (X$)3(X$) A12ANS3145> :"DELETE STAT "A". CORRECT? ";H 9150Y! Q$"N"3007h& ANS3135v+ IANS10 S$(I)S$(I1)5 D$(I)D$(I1): I? NSNS1D 3005I :"NUMBER GIVEN IS OUT OF RANGE"N 9175S 3007 :"TYPE N I$ :" ALL STATS ARE OK"> " CHANGE A STAT"X " DELETE A STAT"p :"YOUR CHOICE? "; Q$:Q$"A"Q$"C"Q$"D"3055 Q$"A"3350 Q$ Q$"C"3200 :"TYPE NUMBER OF STAT TO DELETE: "; X2:9000 A153005P$P$(10)!20754(1):P$E$E$E$\(1):P$"FORMAT ERROR - TRY AGAIN!"f9175(1):P$E$E$:(1):(P$,(P$)3)2105 NSNS1 NS114000 9125 :"CHECK STATS ROUTINE": I12NS I5)S$(I)" "D$(I)205RI134W(X$,I,1)"A"(X$,I,1)"Z"2205;\IIaI1NS1\fX$S$(I)2205ckIqpS$(NS)X$u:"DESCRIPTION FOR STAT ";NSz"(25 LETTERS MAXIMUM):"X25:9000X$""2190X$"**********"D$(NS)"- "X$NSQ$"N"4000( :"ADD STATS ROUTINE":4 I1NS> !" ";N "I9ĺ(8);f %I" "S$(I)" "D$(I)m *I /:"PRESS WHEN DONE" 4NSNS1 9:"NAME FOR STAT ";NS >"(3 LETTERS PLEASE): "; CX3:9000 HX$""3000M(X$)32LOWING LIST OF STATS": "IS BUILT INTO THE PROGRAM -":F I111U I9ĺ(8)k " "S$(I)" "D$(I)r I :"YOU MAY ADD UP TO FOUR" "ADDITIONAL STATISTICS." :"DO YOU WISH TO ADD ANY" "STATISTICS TO THE LIST?"; 9150  STAT", ~" PROGRAMS TO A NEW DISK."T :" 2. INSERT DISK IN DRIVE 1."} :" 3. BEGIN CUSTOMIZING AGAIN." ::"THIS PROGRAM IS ENDED! " (4)"CLOSE"F$ 9500 (4)"CLOSE"F$ 9125 :"STAT ROUTINE" :"THE FOL(222)01135+ `:"IS DISK IN DRIVE 1 ?"L e:"IS DRIVE 1 DOOR CLOSED?"u j:"CORRECT PROBLEMS AND TRY AGAIN!" k1165 o:"YOUR MAIN FILE ALREADY EXISTS!" t:"IF YOU ARE CUSTOMIZING FOR A NEW YEAR -" y:" 1. COPY ORIGINAL BASKETBALL::C$:S$:Y$* ):"IS THIS CORRECT?";4 .9150E 3Q$"N"1005_ 8F$"TEAM INFORMATION"j :222,0u ;1095{ < =(4)"OPEN"F$:(4)"READ"F$ BX$ G(222)6(222)51180 L:"ATTENTION:  "C$ Q:"WE HAVE A DISK PROBLEM!" Vd(4)"NOMONC,I,O"!9100+9125D:"SIGN IN ROUTINE"e:"ENTER NAME OF COACH -":tX20:9000~C$X$:"ENTER NAME OF SCHOOL -": X30:9000S$X$:"ENTER SEASON (82, 82-83, ETC.)":X5:9000Y$X$ $          $" "5##1005f##::" *** BASKETBALL STATISTICAL AID *** "l##r####Q$:Q$"Y"Q$"N"9150####LI11000:LI###%#'(222)#'(218)(219)256#$'A$:THROWS ATTEMPTED ","- OFFENSIVE REBOUNDS "o"# "- DEFENSIVE REBOUNDS ","- TURNOVERS " "# "- ASSISTS ","- STEALS ""# "- BLOCKED SHOTS ""#CR$(13)"#CD117:P$P$(10):CD+##E),D$(15)!!#LI111:S$(LI):LIR!#QTR,FGM,FGA,FTM,FTA,ORB,DRB,TRN,AST,STL,BLK\!#NS11u!#LI111:D$(LI):LI!# "- QUARTERS PLAYED ","- FIELD GOALS MADE "!# "- FIELD GOALS ATTEMPTED ","- FREE THROWS MADE "/"# "- FREE (34)9014 :# CAN'T INSERT0 ;#(X$)X9014W <#X$X$Q$:Q$" ";:36,(36)1:9014 =#(X$)1Ĺ36,(36)1:X$"":" ";:36,(36)2:9014 >#X$(X$,(X$)1):36,(36)(X$)1 ?#X$" ";:36,(36)2:9014 @#" ": A# !#G$(20),Y$(20),S$(15 READY TO TRY AGAIN!";.qQ$:Q$(13)7025Iv FILES ALREADY CLOSEDS{6000g(# INPUT ROUTINEq4#X$""5#" ";:36,(36)16#Q$:Q$""90147#(Q$)1390248#(Q$)8X$""9021 9#(Q$)32Q$" ,"Q$";"Q$":"Q$"="Q$IS PROGRAM IS ENDED!"95002X(4)"CLOSE"F$QY(4)"CLOSE SEASON TOTALS"pZ(4)"CLOSE SEASON RECORD"\:"ATTENTION:  "C$]::"I CAN'T SAVE YOUR DATA!"b:"CHECK DISK & DRIVE 1 DOOR!"g::"PRESS WHEN YOU"l:"AREE SEASON TOTALS")"DONE"G.:"FORMATTING SEASON RECORD FILE - ";M/l0(4)"CLOSE SEASON RECORD"3(4)"OPEN SEASON RECORD"8(4)"WRITE SEASON RECORD"=GP0BGPG ONERRGOTOL(4)"CLOSE SEASON RECORD"Q"DONE":"THD$(I) I (4)"CLOSE"F$,"DONE"W:"FORMATTING SEASON TOTALS FILE - ";]|(4)"CLOSE SEASON TOTALS"(4)"OPEN SEASON TOTALS"(4)"WRITE SEASON TOTALS" PL ONERRGOTOI1PL2Y$(I)I$(4)"CLOS1NSY$(I)Y$(I)"****""J)I5"DONE"[:"STORING TEAM INFORMATION - ";f7000{:(4)"CLOSE"F$(4)"OPEN"F$(4)"WRITE"F$C$:S$:Y$:PL:NS ONERRGOTOI1PL2G$(I)II1NSS$(I):OMPLETE."."YOU WILL NOT USE THIS PROGRAM"N"AGAIN UNTIL NEXT SEASON!"t:"PLEASE WAIT UNTIL THE END OF""PROGRAM SIGNAL BEFORE TOUCHING""ANY SWITCHES OR DOORS!":"FORMATTING INFORMATION - ";I1PL2Y$(I)"F"JPLPL14PL06000!75000E<G$(PL1)"OPPONENT "sAG$(PL2)(S$" ",20)FI1NSKG$(PL1)G$(PL1)"**"PG$(PL2)G$(PL2)"**"UIp9125u:"END PROGRAM ROUTINE" z:"CUSTOMIZING IS NOW C0*"TYPE NUMBER OF PLAYER TO DELETE ";8X2:9000DA(X$)WA1APL5000 37,(37)2::E$:37,(37)2::"DELETE PLAYER "A". CORRECT? ";9150Q$"N"ĺ:5000"YES"APL5170#IAPL1(G$(I)G$(I1)-I2PE NUMBER OF PLAYER TO BE CHANGED ";2X2:9000>A(X$)QA1APL500037,(37)2::E$:37,(37)2::"RIGHT NAME FOR "A"? ";X20:9000X$""5075X$(X$" ",20)G$(A)X$(G$(A),(G$(A))20)500ISPLAY"91751020:::" REVIEW A GAME "::FI1GP\" ";:I9ĺ(8);f9200sI" "G$zI:"TYPE NUMBER OF YOUR CHOICE "; X2:9000(X$)1(X$)GP414037,(37)2::E$ 37,(37)2::"NUMBER OU GB3:8150 GPGP1' R$(GP)R$> F$"SEASON RECORD"H* 8400W4 GB6:8350a> 1020~::" REVIEW A GAME ":91659160Q$"M"1020Q$"C"4010R$(1)""4035GB13:8300GP04035:"NO GAMES TO D(YP$(J))%v YP$(J)(" "(T),4), J: Y$(I)"F"F J1NS] Y$(I)Y$(I)YP$(J)d Jp "DONE" F$"SEASON TOTALS" 8400 GB4:8250 F$("DATA"D$O$" ",30) (F$,1)" "3320 F$F$ )(" "(T),4) J2NS7 T(YP$(J))(GP$(J))R YP$(J)(" "(T),4)Y Jg Y$(I)"F"s J1NS Y$(I)Y$(I)YP$(J) J& I0 IPL2: 8700D 8800N T(YP$(1))1X YP$(1)(" "(T),4)b J2NS l T(GP$(J)), J2NS6 T0@ I1PL(J 8700:T TT(GP$(J))A^ Ieh G$(PL2)G$(PL2)(" "(T),2)lr Jx| "DONE" GB2:8200 :"COMPUTING SEASON TOTALS - "; I1PL1 8700 8800 GP$(1)" 0"3070 T(YP$(1))1 YP$(1) J1X$"0"2750 JA :"ARE THESE STATS CORRECT? ";K 9150\ Q$"N"2630i G$(I)N$u J1NS G$(I)G$(I)GP$(J) J I ::" ENTER GAME STATS ": :"COMPUTING GAME TOTALS - ";" G$(PL2)(G$(PL2),20)" 1" 0( R$(R$,2,29)2 2230+< I1PL1KF ::" ENTER GAME STATS ":kP :(R$,23,8)12)(R$,3,20)uZ 8700d :"ENTER STATS FOR "N$:n J1NSx " ";:J9ĺ(8); J". "S$(J)" "; X2:9000 X$""2740 GP$(J)(" "X$,20 :"OVERTIME "I16);$ 9000< R$R$(" "X$,3)T 37,(37)2::(25)^ 9000v R$R$(" "X$,3)} I (R$,3)(R$,(R$)5,3)2560 R$R$"W" 2570 R$R$"L" :"ALL SCORES CORRECT? "; 9150: Q$"Y"262$(R$,(R$)1) Q$) (Q$)52450] 37,(37)2::"SORRY - 4 OVERTIMES MAXIMUM! "g 9175 37,(37)2::" " 37,(37)3: 2400 I1(Q$) I42460 :" FINAL SCORE "16); 247 X3:(4) I14#  :(16)-  9000E  R$R$(" "X$,3)] $ 37,(37)2::(25)g . 9000 8 R$R$(" "X$,3) B I L R$"0"R$ V (R$,52,3)(R$,49,3)2530 ` :"HOW MANY OVERTIME PERIODS? "; j 9160 t (Q$)02410~ R$QQ$"L"ĺ"LEAGUE GAME"7 Q$"N"ĺ"NON-LEAGUE GAME"K :"CORRECT? ";U 9150f Q$"N"2000 ::" ENTER GAME STATS ": :" SCORE "15)" WE THEY " :"1ST QUARTER" :"2ND QUARTER" :"3RD QUARTER" :"4TH QUARTER"\X8:9000$ fX$""X$"--------". pD$X$H zX$(X$" ",8)U {R$R$X$t }:"IS THIS A OR" " GAME (L OR N)? "; 9160 Q$"L"Q$"N"2177 Q$ R$Q$R$ :::(R$,8)" "(R$,2,20) 8); GP302060) :"GAME FILE IS FULL! "3 9175= 1020Y (G$(1),22,1)"*"2080i GB12:8000 R$""::"OPPONENT: "; *X20:9000 4X$""X$"----------" >O$X$ HR$(X$" ",20) R:"DATE (MO/DA/YR): "; :" QUIT PROGRAM"2 $:" YOUR CHOICE? ";< )9160M .Q$"Q"9500f 3(Q$)0Q$"5"1065 8(Q$)2000,4000,5000,6000,7000 B1020 ::" ENTER GAME STATS ": 9165 9160 Q$"M"1020 Q$"C"2030 GB14:8300 = 91009125)GB1:SW1:80002SW0A9125:GB0g:::" *** PROGRAM MENU *** ":::"<1> ENTER GAME STATS" :"<2> REVIEW A GAME":"<3> REVIEW SEASON RECORD":"<4> CHECK ROSTER":"<5> CHECK STATISTICS"                     ES: "L4&"LEAGUE RECORD - WINS: "LW", LOSSES: "LL_&:" PRESS TO CONTINUE";k&9155:w&FLFL8&FLGP5105&5020&::" SEASON RECORD ":&9230&FL01020&1:10000&N0&" ":" ":" "!'14)S$": S)"-";1%(R$(I),(R$(I))3,3)" "(R$(I),1):K%(R$(I),1)"W"WW1e%(R$(I),1)"L"LL1%(R$(I),2,1)"L"5060%(R$(I),1)"W"LWLW1%(R$(I),1)"L"LLLL1%IGP5075%I%5080&"SEASON RECORD - WINS: "W", LOSSEVIEW SEASON RECORD ":+$R$(1)""5015:$GB7:8300J$GP05015h$:"NO GAMES TO DISPLAY"r$9175|$1020$FL1:W0:L0:LW0:LL0$9220$IFLFL7$D$(R$(I),23,8)$O$(R$(I),3,15)%D$" "O$" "(R$(I),(R$(I))6,3J8NS#)" "YP$(J);#.J.#3NS15ĺ" "t#8T5)YP$(1)" "YP$(3)" "A$(2)" "YP$(5)" "A$(3)" "YP$(7)" "A$(4);#=J5NS3#B" "A$(J);#GJ#LNS15ĺ" "#Q" "#VI#[NN3(PL2)#`N664970#e9250#j0#o1020$::" RJ),1) "J"N$(G$(I),20)/"IPL4870?"N$(N$,10)I"4895U"J120n" (N$,J,1)" "4885x"4890"J"N$(N$" ",J1,10)"(N$,1)" "N$(G$(I),10)"T)N$" "YP$(2)" "A$(1)" "YP$(4)" "PT$" "YP$(6)" "TR$;#$(3),1)&!J((TR$)(YP$(1))10.5)?!A$(4)(" "(J),3)c!A$(4)(A$(4),2)"."(A$(4),1)q!J5NS3!(YP$(1))04835!A$(J)" 0.0"!4850!K((YP$(J3))(YP$(1))10.5)!A$(J)(" "(K),3)"A$(J)(A$(J),2)"."(A$($,4)' pTR$" "((YP$(6))(YP$(7)))= uTR$(" "TR$,4)\ vJ14:X(J)(YP$(J1)):Jf w9270} (YP$(1))04785 A$(3)" 0.0" A$(4)" 0.0" 4815 J((PT$)(YP$(1))10.5) A$(3)(" "(J),3)!A$(3)(A$(3),2)"."(A$A FT% FTA AVE DRB";#CI7NS1H" AVE";8MIHRNS15ĺ" "|ST)"----------------------------------------";TI15(NS7):"-";:IUNS15ĺ" "WNN5\I1PL2a8800fPT$" "((YP$(2))2(YP$(4))) kPT$(" "PT0N0:1:10000$PL1846256 " ":" ":N2E" ":NN1i15)S$" SEASON TOTALS THRU "D$r" " T(15NS)2.5%T)"LAST NAME FGM FG% FTM PTS ORB TRB";*I8NS/" "S$(I);4I9NS15ĺ" ">T5)"GAMES FG)" "TR$;J8NS(" "GP$(J);/J?NS15ĺ" "T6)GP$(1)" "GP$(3)" "A$(2)" "GP$(5)" "GP$(7)" "INN3(PL2)N66454092500::" SEASON TOTALS THRU "D$" ":9230FL0102YJ14:X(J)(GP$(J1)):J'Z92707]IPL4460GbN$(N$,10)Qg4485]lJ120vq(N$,J,1)" "4475v4480{JN$(N$" ",J1,10)(N$,1)" "N$(G$(I),10) T)N$" "GP$(2)" "A$(1)" "GP$(4)" "PT$" "GP$(6 FTA DRB"? T)"-----------------------------------";Q&I15(NS6)[+"-";b0Ir5NS15ĺ" "|:NN5?I1PL2D8700IPT$" "((GP$(2))2(GP$(4)))NPT$(PT$,2)STR$" "((GP$(6))(GP$(7)))XTR$(TR$,2)04600N0:1:10000)PL184335;" ":" ":N2J" ":NN1d10)S$" VS "O$" "D$m" "T(15NS)2.5T)"LAST NAME FGM FG% FTM PTS ORB TRB";I8NS " "S$(I);INS15ĺ" "T6)"QTR FGA FT% "YP$(J)" "JC:"<+>=AHEAD , <->=BACK , =ESCAPE";O9160:`Q$"E"4305xQ$"+"Q$";"4290Q$"-"4255II1I1IPL24180II1IPL2I14180::" "D$" "O$" ":9230FL"W"ĺ"WIN ";0h(R$,1)"L"ĺ"LOSS ";Bm(R$,1)" OT"Lr8700Vw8800m|:"STATS FOR: "N$:" STAT GAME SEASON"" ---- ---- ------"J1NSJ2(J2)ĺ" ";J2(J2)ĺ" ";S$(J)" "GP$(J)"T OF RANGE"9175'"37,(37)3:1'4100=,I(X$)G19200Q6F$G$n;::" REVIEW A GAME ":}@GB5:8100ED$(R$,23,8)JO$(R$,3,20)OI1T:D$" "O$Y"SCORE:"(R$,(R$)6,3)"-"(R$,(R$)3,3)" ";c(R$,1)6LI1PL2!6G$(LI),Y$(LI))6LI<6(4)"CLOSE"F$L6ER1ī9900R6q6:"SAVING STATS FOR: "F$|681656(4)"CLOSE"F$:(4)"OPEN"F$:(4)"WRITE"F$6R$:PL681756ER1:8500681506LI1PL26G$(LI):Y$(LI):LI5LI1NS%5S$(LI):D$(LI)-5LI@5(4)"CLOSE"F$P5ER1ī9900V5g5F$"DATA"F$5:"LOADING STATS FOR: "(F$,(F$)4)581205(4)"CLOSE"F$:(4)"OPEN"F$:(4)"READ"F$5R$,PL581305LD1:ER1:850058102LI1NS:S$(LI),D$(LI):LI.4h(4)"CLOSE"F$>4iER1ī9900D4m^4rF$"TEAM INFORMATION"s4s:"SAVING: "F$4t(4)"CLOSE"F$:80654u(4)"OPEN"F$:(4)"WRITE"F$4wC$:S$:Y$:PL:NS4|80754ER1:8500480505LI1PL2:G$(LI)3fI3kN122(PL1)NS%3p9250,3u063z1020P3@F$"TEAM INFORMATION"f3A:"LOADING: "F$q3B80203C(4)"CLOSE"F$3E(4)"OPEN"F$:(4)"READ"F$3JC$,S$,Y$,PL,NS3O80303TLD1:ER1:85003Y80003^LI1PL2:G$(LI):LI4c" "S$(7)" "D$(7)"S2C" "S$(8)" "D$(8)" 3RD ... ... 3RD ... ..."m2H" "S$(9)" "D$(9)2M" "S$(10)" "D$(10)" 4TH ... ... 4TH ... ..."2R" "S$(11)" "D$(11)2WNS1172752\I12NS2a" "S$(I)" "D$(I)"D$(2)" BY QUARTER BY OVERTIME"f1*" "S$(3)" "D$(3)" ----------- -----------"1/" "S$(4)" "D$(4)" 1ST ... ... 1ST ... ..."14" "S$(5)" "D$(5)"19" "S$(6)" "D$(6)" 2ND ... ... 2ND ... ..."2>5ĺ"------------------- ";:9261:718000926070 IE0" ":" "0" STAT - DESCRIPTION"18)"OPPONENT.....................DATE......."0" ---- -----------"0 " "S$(1)" "D$(1)" GAME SCORE GAME SCORE")1%" "S$(2)" (15NS)2)"NAME ";1/I1NS@/" "S$(I);G/IW/NS15ĺ" "g/NS157110y/(15NS)2);/I1204NS/"-";/I/NS15ĺ" "/I1PL1/8700/NS15ĺN$;:7170/(15NS)2)N$;/" "&0NS1? ";.{9150:!.Q$"N"7290D.::::" STAT WORK SHEET ":N.9240\.1:10000j." ":" ".(80(S$))2)S$." ".14)"STATISTICAL WORK SHEET FOR THE "Y$" BASKETBALL SEASON"." ".NS15ĺ"NAME ";:7090%/D06250-X(-[F$"TEAM INFORMATION"2-`8400B-eGB11:8050L-j1020t-X::" *** CHECK STATISTICS *** ":-]::" STAT - DESCRIPTION":-bI1NS-g" ";:I9ĺ(8);-lI" "S$(I)" "D$(I)-qI.v::"DO YOU NEED A STAT WORK SHEET ",20)#,I1NS>,G$(PL1)G$(PL1)"**"E,I[,Y$(PL3)Y$(PL2)q,Y$(PL2)Y$(PL1),Y$(PL1)"F",I1NS,Y$(PL1)Y$(PL1)"****",I, PLPL1,F$"SEASON TOTALS",8400,GB10:8250,6004-VS+:"ADD PLAYER - ";$+PL1" ";3+X20:9000C+X$""6004Y+37,(37)2::E$+37,(37)2::"<"X$"> CORRECT? ";+9150:+Q$"N"6004++GB9:8200+SD1+G$(PL3)G$(PL2)+G$(PL2)G$(PL1),G$(PL1)(X$" 000 *sSD06*t:"THIS IS YOUR CURRENT ROSTER -":B*uI1PLX*z" ";:I9ĺ(8);n*I" "(G$(I),20)u*I*:"=ADD , =MENU";*9160:*Q$"M"6230*Q$"A"6030*PL186070*:"ROSTER IS FULL"*9175*6004----------------------------------------------";I)s"-----------------"z)x22)"SEASON RECORD - WINS: "W" LOSSES: "L)z22)"LEAGUE RECORD - WINS: "LW" LOSSES: "LL)}NN112GP)9250)0)1020)p::" CHECK ROSTER ":*qGB8:8)O$" "D$" ";(-J1725(2Q$(J)"-"Q$(J1)" ";<(7JQ(<WL$"W"ĺ" WIN"g(AWL$"L"ĺ" LOSS"z(F(OT$)05220(K28)"OVERTIME ";(MNN1(PJ982(OT$)2(UQ$(J)"-"Q$(J1)" ";(ZJ(_" "(d" "(iI0)n6)"-----------EASON RECORD THRU "(R$(GP),22,8)/' " ":" "d'6)"OPPONENT"14)"DATE"6)"1ST QTR 2ND QTR ";'"3RD QTR 4TH QTR RESULT"'6)"---------------------------------------------------------";'"-----------------"'#I1GP'%8900((64031,2054E&0IE&"ERR#"(222)"IN LINE#"(218)(219)256cE&"GOING TO MAIN MENU"kE&A$uE&1020{E'E'EX(J)1000.5)0DB$LI1000A$(J2)"100 ":9288LDD$A$(J2)(" "(LI),3)vDF$A$(J2)(A$(J2),2)"."(A$(J2),1)}DH$JDJ$D%:"THIS PROGRAM HAS ENDED!"D!%D&9950 E&ER0:GB1015,2960,3340,3290,4165,3390,5011,6003,6090,6175,6250,2080,$9155:'C$:"BEGINNING PRINT CYCLE"-C $$9288 D@$LI(X(J1)":5B$:"DATE OPPONENT SCORE W/L"eB$"---- -------- ----- ---"kB $B$:"DO YOU WANT A PAPER COPY? ";B$FL0B$9150B$Q$"N"9248B$"YES"B$FL1B$::"PREPARE PRINTER"B$:"PRESS ";C TO CONTINUE"A#)A#L211000:L2/A#DA#X$(R$(I),23,8)NA#G$""YA#J18qA#(X$,J,1)" "9205A#G$G$(X$,J,1)A#JA#G$G$(R$(I),3,20)A#G$(G$,30)A#(G$,1)" "9210A#G$G$A#B$::8)" *** SEASON RECORD *** "-@#CD117:P$P$(10):CD;@#CR$(13)E@#1005w@#::" *** BASKETBALL STATISTICAL AID *** ":}@#@#Q$:Q$"Y"Q$"N"9150@#@#Q$:Q$CR$9155@#@#Q$:Q$""9160@#@#:"PRESS FOR MENU"A#"PRESS 36)1:9014C?=#(X$)1Ĺ36,(36)1:X$"":" ";:36,(36)2:9014j?>#X$(X$,(X$)1):36,(36)(X$)1??#X$" ";:36,(36)2:9014?@#" ":?#G$(20),Y$(20),S$(15),D$(15),R$(30),GP$(15),YP$(15),Q$(16),A$(12),X(4)@#E$" ">(# *** INPUT ROUTINE%>4#X$"";>5#" ";:36,(36)1O>6#Q$:Q$""9014b>7#(Q$)139024{>8#(Q$)8X$""9021>9#(Q$)32Q$" ,"Q$";"Q$":"Q$"="Q$(34)9014>:# CAN'T INSERT>;#(X$)X9014 ?<#X$X$Q$:Q$" ";:36,(="LI1NS*="GP$(LI)(G$(I),192LI,2)2= "LI8="E=`"LI1NSd=e"YP$(LI)(Y$(I),24LI,4)l=j"LIr=o"="OT$(R$(I),1)="O$(R$(I),3,20)="D$(R$(I),23,8)="WL$(R$(I),1)="LI182(OT$)="Q$(LI)(R$(I),283LI,3)="LI>$ TO TRY AGAIN!";.!LD8525=;C!" SAVE ";G;H!8530V;M!" LOAD ";^;R!F$z;W!(222)6(222)58575;\!:"IS DRIVE 1 DOOR CLOSED?";a! POWER ALWAYS ON;f!:"IS CORRECT DISK IN DRIVE 1 ?";k!::"CHECK POSSIBLE PROBLEMS AND"SAVING: "F$: 8365G: (4)"CLOSE"F$:(4)"OPEN"F$:(4)"WRITE"F$O: GPY: 8375h: ER1:8500r: 8350: LI1GP: R$(LI): LI: (4)"CLOSE"F$: ER1ī9900: : : ***** PRINT CHR$ (4)"DELETE"F$: : :4!0;5RECORD"9m :"LOADING: "F$(9n 8315W9o (4)"CLOSE"F$:(4)"OPEN"F$:(4)"READ"F$_9q GPi9v 8325}9{ LD1:ER1:85009 83009 GP083459 LI1GP9 R$(LI)9 LI9 (4)"CLOSE"F$9 ER1ī99009 9 F$"SEASON RECORD" : :" ER1ī990082 )8: F$"SEASON TOTALS">8; :"SAVING: "F$I8< 8265y8= (4)"CLOSE"F$:(4)"OPEN"F$:(4)"WRITE"F$8? PL8D 82758I ER1:85008N 82508S LI1PL28X Y$(LI)8] LI8b (4)"CLOSE"F$8c ER1ī99008d 9l F$"SEASON 7LI7(4)"CLOSE"F$)7ER1ī9900/7 F7 F$"SEASON TOTALS"\7 :"LOADING: "F$g7 82157 (4)"CLOSE"F$:(4)"OPEN"F$:(4)"READ"F$7 PL7 82257 ER1:LD1:85007 82007! LI1PL27& Y$(LI)7+ LI70 (4)"CLOSE"F$ 81 R$ (R$,2,1)"L"8340) LGLG17 R$(LG)R$? LIR (4)"CLOSE"F$b ER1ī9900h {4!(4)"CLOSE"F$9!:"I CAN'T";>!LD8525C!" SAVE ";H!8530M!" LOAD ";R!F$W!(222)6(222)58575\!:"IS DRIVE 1 DOOR CER0:LI1PL2(G$(LI),QQ$0LIC(4)"CLOSE"F$I`l F$"SEASON RECORD"vm :"LOADING: "F$n 8315o (4)"CLOSE"F$:(4)"OPEN"F$:(4)"READ"F$q GPv 8325{ LD1:ER1:8500 8300 GP08345 LI1GP0 Y8000'^LI1PL2:GL$(LI):LIGcLI1NS:S$(LI),D$(LI):LIZh(4)"CLOSE"F$jiER1ī9900pm:"LOADING STATS FOR: "(F$,(F$)4)8120(4)"CLOSE"F$:(4)"OPEN"F$:(4)"READ"F$R$,PL8130LD1:ER1:8500 --"6z22)"LEAGUE RECORD - WINS: "LW" LOSSES: "LLF}NN102LGP9250W0a9500{@F$"TEAM INFORMATION"A:"LOADING: "F$B8020C(4)"CLOSE"F$E(4)"OPEN"F$:(4)"READ"F$JC$,S$,Y$,PL,NSO8030TLD1:ER1:850W1!AWL$"L"ĺ" LOSS":LLLL14F(OT$)05220KK28)"OVERTIME ";UMNN1kPJ982(OT$)2UQ$(J)"-"Q$(J1)" ";ZJ_" "d" "iIn6)"--------------------------------------------------";s"----------------------R 2ND QTR ";."3RD QTR 4TH QTR RESULT"l6)"--------------------------------------------------";"------------------------"#I1LG%8900(6)O$" "D$" ";-J1722Q$(J)"-"Q$(J1)" ";7J<WL$"W"ĺ" WIN":LWL " VI[NN3(NP2))`N6649703e9250:j0^::" LEAGUE SEASON RECORD ":h9230~FL0ĺ"NO":95001:10000N0" ":" ":" "14)S$": LEAGUE SEASON RECORD" " ":" "6)"OPPONENT"14)"DATE"6)"1ST QT"N$(GL$(I),10)LT)N$" "YP$(2)" "A$(1)" "YP$(4)" "PT$" "YP$(6)" "TR$;X$J8NSh)" "YP$(J);o.J3NS15ĺ" "8T5)YP$(1)" "YP$(3)" "A$(2)" "YP$(5)" "A$(3)" "YP$(7)" "A$(4);=J5NS3B" "A$(J);GJLNS15ĺ" "Q"(J3))(YP$(1))10.5)0A$(J)(" "(K),3)TA$(J)(A$(J),2)"."(A$(J),1)[JoN$(GL$(I),20)INP4870N$(N$,10)4894J120 (N$,J,1)" "48854890JN$(N$" ",J1,10)(N$,1)" ((PT$)(YP$(1))10.5)1 A$(3)(" "(J),3)U A$(3)(A$(3),2)"."(A$(3),1)u J((TR$)(YP$(1))10.5) A$(4)(" "(J),3) A$(4)(A$(4),2)"."(A$(4),1) J5NS3 (YP$(1))04835 A$(J)" 0.0" 4850K((YP$NN5 \I1NP2 a8800? fPT$((YP$(2))2(YP$(4)))V kPT$(" "PT$,4)u pTR$((YP$(6))(YP$(7))) uTR$(" "TR$,4) vJ14:X(J)(YP$(J1)):J w9270 (YP$(1))04785 A$(3)" 0.0" A$(4)" 0.0" 4815 JS ORB TRB"; *I8NS) /" "S$(I);0 4I@ 9NS15ĺ" "l >T5)"GAMES FGA FT% FTA AVE DRB";x CI7NS H" AVE"; MI RNS15ĺ" " ST)"----------------------------------------"; TI15(NS7):"-";:I UNS15ĺ" " W::" LEAGUE SEASON TOTALS ":) 9230? FL0ĺ"NO":5105Q N0:1:10000b NP184625t " ":" ":N2 " ":NN1 15)S$" LEAGUE SEASON TOTALS" T0 " " NS154645 T(15NS)2.5 %T)"LAST NAME FGM FG% FTM PTKK1 .1060 38700/ 5(GP$(1))01080C 6Y(K,1)Y(K,1)1O 8L2NSk =Y(K,L)Y(K,L)(GP$(L))r BLy GJ LI Q"FORMATTING LEAGUE TOTALS" VI1NP2 WY$(I)"F" `J1NS eY$(I)Y$(I)(" "(Y(I,J)),4) jJ oI + 91009125)GB1:SW1:80008SW0:NPPLGGB2:8300SI1LG]8900t(D$,1)" "1039 D$(D$,(D$)1) 1031F$("DATA"D$O$,30)GB3:8100J1PL2K1$(G$(J),20)(GL$(K),20)1075 )          AIN MENU"&A$&1005!'''1000A$(J2)"100 ":92886D$A$(J2)(" "(LI),3)`F$A$(J2)(A$(J2),2)"."(A$(J2),1)gH$JmJ$%:"THIS PROGRAM HAS ENDED!"!%&9950&ER0:GB1015,1025,9920&&"ERR#"(222)"IN LINE#"(218)(219)256 &"GOING TO M"BEGINNING PRINT CYCLE" $-"$LI166N6$$" ">&$LID($l,$(15NS)2)"------------------- ";y-$LI1NS.$" ---";0$LI2$" "4$6$J242:$X(J)09280<$A$(J2)" 0.0">$9288@$LI(X(J1)X(J)1000.5)B$LIE OPPONENT SCORE W/L"V$"---- -------- ----- ---"\ $$:"DO YOU WANT A PAPER COPY? ";$FL0$9150$Q$"N"9248$"YES"$FL1$::"PREPARE PRINTER"$:"PRESS ";$9155:$:"##L211000:L2 #5#X$(R$(I),23,8)?#G$""J#J18b#(X$,J,1)" "9205v#G$G$(X$,J,1)}#J#G$G$(R$(I),3,20)#G$(G$,30)#(G$,1)" "9210#G$G$#$::8)" *** SEASON RECORD *** ":&$:"DAT "$#CD117:P$P$(10):CD2#CR$(13)<#1005h#::" *** LEAGUE SEASON TOTALS *** ":n##Q$:Q$"Y"Q$"N"9150##Q$:Q$CR$9155##Q$:Q$""9160##:"PRESS FOR MENU"#"PRESS TO CONTINUE,3,20)"D$(R$(I),23,8)."WL$(R$(I),1)C"LI182(OT$)a"Q$(LI)(R$(I),283LI,3)i"LIo"u(##G$(20),Y$(20),S$(15),D$(15),R$(30),GP$(15),YP$(15),Q$(16),A$(12),X(4)#GL$(20),Y(20,15)#E$" IZE FIRST"(!"BEFORE USING STAT-AID!"5!SW9500?!8555Q!9155::9125W!j!N$(G$(I),20)w"LI1NS"GP$(LI)(G$(J),192LI,2) "LI"`"LI1NSe"YP$(LI)(Y$(I),24LI,4)j"LIo""OT$(R$(I),1)"O$(R$(I)LOSED?"a! POWER ALWAYS ONDf!:"IS CORRECT DISK IN DRIVE 1 ?"kk!::"CHECK POSSIBLE PROBLEMS AND"p!"PRESS TO TRY AGAIN!";z!8605!::"YOUR FILE DOESN'T SEEM TO EXIST!"!:"HAVE YOU CUSTOMIZED YET?" !:"IF NOT - CUSTOM  ŠӠŠӠ΍ӠԍӠ̍ӠˍĠӠ͍ŠԠӠŠŠԠӠ͍ԠΠΠǪҍӠĠ͍ĠӠŠĠӠĠ͍ŠӠŠŠӠĠΠ͠ӠҠŠĠΠΠӠ֍ˠŠ͠ŠΠӠנƠƠƠƠƠƠƠƠƠƠƠƠ  Ҡ̍ŠΠ̍à׍ϠΠ̍٠Π ԠƠΠΠǠƠӠƠҠƠŠƠΠƠ͠ƠϠΠƠӠƠנƠҠ̍ˠŠƠ͠ŠƠ    ԠƠΠΠǠƠӠƠҠƠŠƠΠƠ͠ƠϠΠƠӠƠנƠŠΠ̍ˠŠƠ͠ŠƠ  ԠƠΠΠǠƠӠƠҠƠŠƠΠƠ͠ƠϠΠƠӠƠנƠà׍ˠŠƠ͠ŠƠ!! ! ! ! ԠƠΠΠǠƠӠƠҠƠŠƠΠƠ͠ƠϠΠƠӠƠנƠϠΠ̍ˠŠƠ͠ŠƠ"" " " "