' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 7777777 7777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#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 < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`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- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`9t:18120:VV10:Q27:KN2:18120:18200=H34,2:32,2:33,36CHIH "PRESS TO CONTINUE:";C"G16368,0:A$:A$" "18210I,GhDHQ26:VV8:K2N:18100:KlH:6:" TEAM OPPO- DIFFER-":20);"NENT ENCE"::KN2:10:18110&vHVV10:Q13:KN1:18120:13:"GAMES ALLOWED";:VV10:Q20:K1(K):VV{F"QUARTERS":"GAMES":"STOPS":"GOALS ALLOWED"::"STOPS/GAME":"GOALS/GAME":"STOPS/QTR":"GOALS/QTR":KN2ıFVV:LD5:RD0:J14:Q:FVST%(K,J):2000:(NB$,LD):J:FRD1:J14:Q:FVS(K,J):2000:NB$:J:K1KN1KN2ı"G21:17250; ALD6:RD0:J14:FVST%(K,J):2000:(NB$,LD);:Jm ALD6:RD1:J14:FVS(K,J):2000:NB$;:J::w bC::} lC FF FORMATTED FOR SCREEN. PF:(36(T$))2);T$:34,5:32,3:33,35:18500F:6:" #";:LD3:FVK:2000:(NB$,LD);5);N$LS/ STOPS/ GOALS/":47);"GAME GAME QTR QTR": AK2N:FVK:LD2:RD0:2000:(NB$,LD);2);(N$(K),17);(17(N$(K)))((N$(K))17));:16820 2AK::"TEAM";17);:KN1:16820:"OPPONENT";13);:K1:16820:"DIFFERENCE";11);:KN2:16820:@K+ @J14:S(N2,J)S(N1,J)S(1,J):J< @:P118000[ @ FORMATTED FOR PRINTER. z @:::(70(T$))2);T$: @22);"SOCCER STATISTICS (GOALIE)" @ CHART 1 (STOPS) @:: @" # NAME QTRS GAMES STOPS GOALS STOPS/ GOA%(1,2):ST%(N1,1)ST%(1,1):ST%(N2,1)0:ST%(N2,2)0M *? CALCULATION MATRIXw 4?K1N1:ST%(K,1)0ST%(K,2)016520 H?S(K,1)ST%(K,3)ST%(K,2):S(K,2)ST%(K,4)ST%(K,2):S(K,3)ST%(K,3)ST%(K,1):S(K,4)ST%(K,4)ST%(K,1):16550 @J14:S(K,J)0:J  >P1Ģ12:13:W$( >J3N1:K2Na >(ST%(N1,J)ST%(K,J))32767ST%(N1,J)32767:16110 >ST%(N1,J)ST%(N1,J)ST%(K,J) >K >(ST%(N1,J)ST%(1,J))32767ST%(N2,J)32767:16130 >ST%(N2,J)ST%(N1,J)ST%(1,J) ?J4 ?ST%(N1,2)STJ%:103,1:104,8:13010:N14:3500: "HOW MANY QUARTERS HAS THE GOALIE PLAYED?/QTRS", "HOW MANY GAMES HAS THE GOALIE PLAYED?/GAMES"B; "HOW MANY STOPS DID THE GOALIE MAKE ?/STPS", "HOW MANY GOALS WERE ALLOWED?/GLS" > TEAM TOTALS VJPS%(X,N11)PS%(X,2):PS%(X,3)PS%(X,N11)PS%(X,N11)PS%(X,3)p`JPS%(X,4)PS%(X,N11)PS%(X,N11)PS%(X,4)vjJLD):J1G21:"PRESS TO CONTINUE.";R"G16368,0:A$:A$" "18210Y,GKpH34,2:32,2:33,36~H:PSW0:8J HIGH SERIES AND GAME FIRST TIME THROUGH BJPS%(X,N11)0PS%(X,N12)0ıLJPS%(X,N12)PS%(X,2)PS%(X,3)PS%(X,4)AGH GAME":"HIGH SERIES":KN2ı\FVV:LD5:RD0:J14:Q:FVST%(K,J):2000:(NB$,LD):JsFS(K,3)0S(K,4)0FPSW1ĺ:18130FQ:FVS(K,1):2000:(NB$,LD)FJ24:Q:FVS(K,J):2000:(NB$,LD):JFJ12:Q:FVPS%(K,N1J):2000:(NB$, >PF:(36(T$))2);T$:34,5:32,4:33,34:Q27:VV8:K1NwF:6:" #";:LD3:FVK:2000:(NB$,LD);5);N$(K):VVF"GAMES":"SCORE GAME 1":"SCORE GAME 2":"SCORE GAME 3":PSW1ĺ:18115F"SERIES" F"TOTAL PINS":"AVERAGE":"HANDICAP":"HI);" AFVS(K,2):2000:(NB$,LD);U AFVS(K,3):2000:(NB$,LD);:S(K,3)0S(K,4)0y AFVS(K,4):2000:(NB$,LD);1); AFVPS%(K,N11):2000:(NB$,LD);2); AFVPS%(K,N12):2000:(NB$,LD) hBK bC:: lCPSW0:FF FORMATTED FOR SCREEN.HIGH HIGH":50);"PINS GAME SERIES": AK1N:FVK:LD2:RD0:2000:(NB$,LD);2);(N$(K),17);(17(N$(K)))((N$(K))17)); ALD5:RD0:J14:FVST%(K,J):2000:(NB$,LD);:J:PSW1ĺ9);:16835 A2);:FVS(K,1):2000:(NB$,LD);2 @:P118000/ @ FORMATTED FOR PRINTER. N @:::(70(T$))2);T$:q @26);"BOWLING STATISTICS":: @ PRINTOUT TITLES @" # NAME GMS GM1 GM2 GM3";:PSW0ĺ" SERIES ";:16650 @" ";3 A"TOTAL AVE HCP K,4)(((200S(K,3)).8).5):S(K,4)0S(K,4)0@ u?PSW116550o ?ST%(K,2)PS%(K,N11)PS%(K,N11)ST%(K,2) ?ST%(K,3)PS%(K,N11)PS%(K,N11)ST%(K,3) ?ST%(K,4)PS%(K,N11)PS%(K,N11)ST%(K,4) @S(K,1)PS%(K,N12)PS%(K,N12)S(K,1) @K1N7 H?S(K,1)ST%(K,2)ST%(K,3)ST%(K,4):PSW016230\ R?S(K,2)S(K,1):TGST%(K,1):16240 f?S(K,2)S(K,1)PS%(K,2)PS%(K,3)PS%(K,4):TGST%(K,1)PS%(K,1):U1S(K,2)PS%(K,2)PS%(K,3)PS%(K,4):TGPS%(K,1)/ p?S(K,3)(S(K,2)(TG(TG0)(TG0)).5):S(w %:103,1:104,8:13010:N14:3500m: "HOW MANY GAMES PLAYED?/GMS", "WHAT WAS THE SCORE IN GAME 1?/GM1"B; "WHAT WAS THE SCORE IN GAME 2?/GM2", "WHAT WAS THE SCORE IN GAME 3?/GM3"> >P1Ģ12:13:W$*? CALCULATION MATRIX 4?K   pIZ11:ZIW7128J20<JFVW:LD3:RD0:2000:NB$;DK25qdKFVST%(N1,W):LD6:RD0:2000:(NB$,LD)KFTFTST%(N1,W)KZ1,LZZ1LWLFT32767FT32767LST%(Q,N11)FTXM17090@TAL"; B259BFVST%(Q,13):LD6:RD0:2000:(NB$,LD)DC14000J*DQ\DQ_D34,2::pPF:8:"TEAM"|FZ11:ZGW16|G2GFVW:LD3:RD0:2000:NB$;DH7HFVST%(N1,W):LD6:RD0:2000:(NB$,LD)HFTFTST%(N1,W) IW W BZ12BZBU712&B20EBFVU:LD3:RD0:2000:NB$;MB25xBFVST%(Q,U):LD6:RD0:2000:(NB$,LD)B(ST%(Q,13)ST%(Q,U))32767ST%(Q,13)32767:17085BST%(Q,13)ST%(Q,13)ST%(Q,U)BZ1BZZ1BUBZ1B18:"TO:16800FA7:"# NAME"0PA9:Q;:6:N$(Q)9AZ12@AZKBW16R6B2qOBFVW:LD3:RD0:2000:NB$;xhB7BFVST%(Q,W):LD6:RD0:2000:(NB$,LD)B(ST%(Q,13)ST%(Q,W))32767ST%(Q,13)32767:17075BST%(Q,13)ST%(Q,13)ST%(Q,W)B FORMATTED FOR SCREEN- ?(36(T$))2);T$Z @5:4:"FOOTBALL STATISTICS - DEFENSIVE"d L@34,6 @ SCREEN ROUTINE AZ8 #AQ1N1 %AST%(Q,13)0 (AQN1ī18000 2A7?ST%(K,N11)ST%(K,N11)ST%(K,J) H?FVST%(K,J):LD5:RD0:2000:(NB$,LD); R?J \?FVST%(K,N11):LD6:RD0:2000:(NB$,LD) f?K p?: z? ? > >P1ė:255:163002 >(70(T$))2);T$:] >20)"FOOTBALL DEFENSIVE STATISTICS":y >" # NAME ":13); >J1N1 >LD5:RD0:FVJ:2000:(NB$,LD);:J >" TOTAL": ?K1N1 ?KN116165 ?FVK:LD2:RD0:2000:NB$" "N$(K" >P1Ģ12:13:W$T > TEAM TOTALS ] >FT0{ >X1N11:ST%(N1,X)0:X >J1N1 >K1N >(ST%(N1,J)ST%(K,J))32767ST%(N1,J)32767:16050 >ST%(N1,J)ST%(N1,J)ST%(K,J) >K >J VE VALUE #6?/N6"7 8; "WHAT IS DEFENSIVE VALUE #7?/N7"_ B; "WHAT IS DEFENSIVE VALUE #8?/N8" L; "WHAT IS DEFENSIVE VALUE #9?/N9" V; "WHAT IS DEFENSIVE VALUE #10?/N10" `; "WHAT IS DEFENSIVE VALUE #11?/N11" j; "WHAT IS DEFENSIVE VALUE #12?/N12 &:103,1:104,8:13010:N112:3500M: "WHAT IS DEFENSIVE VALUE #1?/N1"t; "WHAT IS DEFENSIVE VALUE #2?/N2"; "WHAT IS DEFENSIVE VALUE #3?/N3"; "WHAT IS DEFENSIVE VALUE #4?/N4"$; "WHAT IS DEFENSIVE VALUE #5?/N5" .; "WHAT IS DEFENSI     000:(NB$,LD)!F9!F :LD7:2000:(NB$,LD):14000+ LE34,2::V PFKN1ė:7:12)"TEAM RUSHING":18070 ZFN$(K)""N$(K)" "Ģ6:" # ":7:18060 dF6:" # NAME" nF7:2 xFFVK:RD0:LD2:2000:(NB$,LD); F9:N$(K):18070!F2:FVK:RD0:LD2:230:17690EP3P2P1EEP4ST%(K,5)ST%(K,12):P56P42ST%(K,13)M)E10.E19:FVP1:RD0:LD5:2000:(NB$,LD):19:FVP2:2000:(NB$,LD):19:FVP3:RD1:2000:NB$ 8E19:FVP4:RD0:2000:(NB$,LD):19:FVST%(K,13):RD0:2000:(NB$,LD):17:FVP51:2000:NB$:19:FVST%(K,12):RD0:2000:(NB$,LD):14000bD:7:6)"TEAM TOTALS AND PASSING"D::12)"PLAYS":12)"YARDS":12)"Y/P":12)"TD":12)"XPT":12)"PT":11DP1ST%(K,1)ST%(K,6)ST%(K,10):P2ST%(K,2)ST%(K,9)ST%(K,11) EP10PD):19:FVST%(K,7):2000:(NB$,LD):19:FVP1:RD1:2000:NB$gD19:FVST%(K,8):RD0:2000:(NB$,LD)D19:FVST%(K,9):2000:(NB$,LD):19:FVP2:RD1:2000:NB$:19:FVST%(K,10):RD0:2000:(NB$,LD);D19:FVST%(K,11):2000:(NB$,LD):19:FVP3:RD2)"YARD":12)"Y/A":12)"REC":12)"YARD":12)"Y/R":12)"TD"c4D9:ST%(K,6)0P10:P20:17490>DP1(ST%(K,7)ST%(K,6))100:P2ST%(K,9)ST%(K,6)RDST%(K,10)0P30:17510\DP3ST%(K,11)ST%(K,10)=fD10:19:FVST%(K,6):RD0:LD5:2000:(NB$,L9:FVP1:RD1:2000:NB$:19:FVST%(K,3):RD0:2000:(NB$,LD)C19:FVP2:RD1:2000:NB$:19:FVST%(K,4):RD0:2000:(NB$,LD):19:FVST%(K,5):2000:(NB$,LD):14000D:7:12)"TEAM PASSING"? D::12)"ATT":12)"COM":12)"COM %":12)"INT":1:12)"CARRY":12)"YARD":12)"Y/C":12)">4":12)"%>4":12)"FMBL":12)"TD"qCST%(K,1)0P10:P20:17330CP1ST%(K,2)ST%(K,1):P2(ST%(K,3)ST%(K,1))100C10=C19:FVST%(K,1):RD0:LD5:2000:(NB$,LD):19:FVST%(K,2):2000:(NB$,LD):1(K,5)ST%(K,12)':CP56P42ST%(K,13)DC17:FVP1:RD0:LD7:2000:(NB$,LD):19:FVP2:LD5:2000:(NB$,LD):19:FVP3:RD1:2000:NB$bC19:FVP4:RD0:2000:(NB$,LD):19:FVST%(K,13):2000:(NB$,LD):19:FVP5:2000:(NB$,LD)C14000::KPCGT$:GT$" "17120(B8:958:9:10BB"TOTALS AND SCORING"B:12:"PLAYS":12:"YARDS":12:"Y/P":12:"TD":12:"XPT":12:"PT":11CP1ST%(K,1)ST%(K,6)ST%(K,10):P2ST%(K,2)ST%(K,9)ST%(K,11)CP10P30:17200&CP3P2P10CP4ST%ST%(K,9):2000:(NB$,LD):28:FVP2:RD1:2000:NB$B28:FVST%(K,10):RD0:2000:(NB$,LD):28:FVST%(K,11):2000:(NB$,LD):28:FVP3:RD1:2000:NB$:28:FVST%(K,12):RD0:2000:(NB$,LD)B22:"PRESS SPACE BAR TO RECEIVE PAGE 2:";B16368,0:M":21:"COM %":21:"INT":21:"YARD":21:"Y/A":21:"REC":21:"YARD"ahB21:"Y/R":21:"TD"rB11:28:FVST%(K,6):RD0:LD5:2000:(NB$,LD):28:FVST%(K,7):2000:(NB$,LD):28:FVP1:RD1:2000:NB$4B28:FVST%(K,8):RD0:2000:(NB$,LD):28:FVD1:2000:NB$:9:FVST%(K,4):RD0:2000:(NB$,LD):9:FVST%(K,5):2000:(NB$,LD)['B11|,BST%(K,6)0P10:P20:169706BP1(ST%(K,7)ST%(K,6))100:P2ST%(K,9)ST%(K,6)JBST%(K,10)0P30:16990TBP3ST%(K,11)ST%(K,10)H^B21:"ATT":21:"CO"TD"%AST%(K,1)0P10:P20:16875YAP1ST%(K,2)ST%(K,1):P2(ST%(K,3)ST%(K,1))100aA11A9:FVST%(K,1):RD0:LD5:2000:(NB$,LD):9:FVST%(K,2):2000:(NB$,LD):9:FVP1:RD1:2000:NB$A9:FVST%(K,3):RD0:2000:(NB$,LD)SB9:FVP2:R:2000:(NB$,LD)nAK"A::bA:(36(T$))2);T$:4:4:"FOOTBALL OFFENSIVE STATISTICS"uA34,5:K1N1A18000AKN1ī17320A4)"RUSHING PASSING"A:2)"CARRY":2)"YARD":2)"Y/C":2)">4":2)"%>4":2)"FMBL":2)(K,11)AP10P30:16670)AP3P2P1AP4ST%(K,5)ST%(K,12):P56P42ST%(K,13):FVP1:RD0:LD5:2000:(NB$,LD);:FVP2:LD6:2000:(NB$,LD)" ";FAFVP3:RD1:LD4:2000:NB$;:FVP4:RD0:LD6:2000:(NB$,LD);:FVST%(K,13):2000:(NB$,LD);:FVP5 Y/P TD XPT PT"$@K1N15@KN116630p@FVK:RD0:LD2:2000:(NB$,LD)" "N$(K)17(N$(K)));{@16640@FVK:RD0:LD2:2000:(NB$,LD)18);@16640@"TEAM"17);AP1ST%(K,1)ST%(K,6)ST%(K,10) AP2ST%(K,2)ST%(K,9)ST%:2000:NB$;:FVST%(K,10):RD0:LD6:2000:(NB$,LD);t@FVST%(K,11):2000:(NB$,LD)" ";:FVP3:RD1:LD4:2000:NB$;:FVST%(K,12):RD0:LD6:2000:(NB$,LD)@K@ CHART 3@::30)"TOTALS AND SCORING"@" # NAME PLAYS YARDS $@ST%(K,10)0P30:164305)@P3ST%(K,11)ST%(K,10).@FVST%(K,6):RD0:LD5:2000:(NB$,LD);:FVST%(K,7):LD6:2000:(NB$,LD)" ";:FVP1:RD1:LD4:2000:NB$;5L@FVST%(K,8):RD0:LD6:2000:(NB$,LD);:FVST%(K,9):2000:(NB$,LD)" ";:FVP2:RD1:LD4 ATT COM % INT YARD Y/A REC YARD ";I?"Y/R TD"V?K1N1g?KN116390?FVK:RD0:LD2:2000:(NB$,LD)" ";?16400@"TEAM";@ST%(K,6)0P10:P20:16420@P1(ST%(K,7)ST%(K,6))100:P2ST%(K,9)ST%(K,6)2000:(NB$,LD)" ";3 z?FVP1:RD1:LD4:2000:NB$;] ?FVST%(K,3):LD7:2000:(NB$,LD)" ";} ?FVP2:RD1:LD4:2000:NB$; ?FVST%(K,4):RD0:LD6:2000:(NB$,LD); ?FVST%(K,5):2000:(NB$,LD) ?K ? CHART 2 ?::30)"PASSING"8?" # 18(N$(K))); *?16210H 4?FVK:RD0:LD2:2000:(NB$,LD)" ";:19);S >?16210d H?"TEAM"18); R?ST%(K,1)0P10:P20:16230 W?P1ST%(K,2)ST%(K,1) \?P2(ST%(K,3)ST%(K,1))100 f?FVST%(K,1):RD0:LD5:2000:(NB$,LD); p?FVST%(K,2):LD6: >18)"FOOTBALL OFFENSIVE STATISTICS"5 > CHART 1K >:30);"RUSHING" >" # NAME CARRY YARD Y/C >4 %>4 FMBL TD" ?K1N1 ?KN116200 ?N$(K)""N$(K)" "ī16180 ?FVK:RD0:LD2:2000:(NB$,LD)" "N$(K); TEAM TOTALS + >J1N1:ST%(N1,J)0:J> >J1N1:K1Nw >(ST%(N1,J)ST%(K,J))32767ST%(N1,J)32767:16050 >ST%(N1,J)ST%(N1,J)ST%(K,J) >K:J >:P116800 > PRINTER FORMAT >:::(64(T$))2)T$:'OW MANY COMPLETIONS PASSING?/COM","HOW MANY INTERCEPTIONS?/INT","HOW MANY YARDS PASSING?/YDS","HOW MANY RECEPTIONS?/REC" ;"HOW MANY RECEIVER YARDS?/R YD","HOW MANY PASSING TOUCHDOWNS/TD","HOW MANY TWO POINT CONVERSIONS?/XPT" >P1Ģ12:13:W$ > &:103,1:104,8:13010:N113:3500:"HOW MANY CARRIES?/CARRY","HOW MANY YARDS RUSHING/YDS","HOW MANY CARRIES FOR GREATER THAN FOUR YARDS?/4 YD","HOW MANY FUMBLES?/FMBL","HOW MANY RUSHING TOUCHDOWNS?/TD" x ;"HOW MANY ATTEMPTS PASSING?/ATT","H        " A9)A" PERCENTAGE ";GBFVF:RD3:LD2:2000:NB$RB14000X"B_,BKm6B34,2::1TAL ERRORS ";FAFVST%(K,6):RD0:LD6:2000:(NB$,LD):ZZ1:Z:9QA16850iA"ERRORS ";AFVST%(K,6):RD0:LD6:2000:(NB$,LD):ZZ1:Z:9A"CHANCES ";AFVST%(K,7):RD0:LD6:2000:(NB$,LD):ZZ1:Z:9A"FIELDING PUTOUTS ";HAFVST%(K,3):RD0:LD6:2000:(NB$,LD):ZZ1:Z:9YAN14ī16830qA"THROWING ERRORS";AFVST%(K,4):RD0:LD6:2000:(NB$,LD):ZZ1:Z:9A"FIELDING ERRORS";AFVST%(K,5):RD0:LD6:2000:(NB$,LD):ZZ1:Z:9A"TO#AFVK:RD0:LD2:2000:(NB$,LD).A16680D(AN15Z11:16700M2AZ12T@J_@FVZ:LD1:RD3:2000:5)NB$f$@Kp.@::v8@B@ FORMATTED FOR SCREENL@(36(T$))2);T$V@5:4:"BASEBALL STATISTICS---FIELDING"`@34,6j@ %(K,3)?ST%(K,7)016310%?Z00?16320N?Z(1(ST%(K,6)ST%(K,7)))`?KN116340z?:"TEAM"20);:16370?FVK:LD4:RD0:2000:(NB$,LD);?(N$(K)""N$(K)" ")ĺ20);:16370?2)N$(K)18(N$(K)));?J17?N14(J4JTATISTICS---FIELDING"::M H?" # NAME G A P ";] R?N1516240| \?" E C PCT": f?16250 p?" TE FE E C PCT": z?K1N1 ?ST%(K,6)ST%(K,4)ST%(K,5)?ST%(K,7)ST%(K,6)ST%(K,2)ST1,1)ST%(J,1):16110 >J" >2 >P1ī16450M ? PRINTS OUT TABLE: ^ ?N15ī16180 ?::::(65(T$))2);T$: ?13)"BASEBALL/SOFTBALL STATISTICS---FIELDING":: *?16200 4?::::(77(T$))2);T$: >?19)"BASEBALL/SOFTBALL S:13:W$" > ADD TEAM TOTALS: . >J1N19 >K1Nr >(ST%(N1,J)ST%(K,J))32767ST%(N1,J)32767:16040 >ST%(N1,J)ST%(N1,J)ST%(K,J) >K >J > > FINDS TEAM MAX GAMES: >ST%(N1,1)0 >J1N >ST%(N1,1)ST%(J,1)ST%(N,13:0 :40784,79:13010:B$"DELETIONS-STIX24": :3500V : "HOW MANY GAMES ?/G"t ; "HOW MANY ASSISTS ?/A" ; "HOW MANY PUTOUTS ?/P" ; "HOW MANY THROWING ERRORS?/TE","HOW MANY FIELDING ERRORS?/FE" ; "HOW MANY ERRORS ?/E" >P1Ģ12RORS"m :12:8:"WHICH DATA SET WOULD YOU":13)"LIKE TO USE?":15:10:Q$;:D(0)1:D(1)14.15:R10:D2:800 :8220:O0Ģ12:8:958:15016 :O1N15:3500 :N14:13000 ::12:13:W$;:30464,2:40784,21:C$"EXEC DELETIONS-STIX24":34,13:35n :103,1:104,8:13010l:34,2:35,22::Q$(1)"DATA SET 1":Q$(2)"DATA SET 2":Q2:3:Q$(1)12)Q$(2)::3:"GAMES"25)"GAMES":3:"ASSISTS"25)"ASSISTS":3:"PUTOUTS"25)"PUTOUTS":3:"THROWING ERRORS"25)"ERRORS" :3:"FIELDING ER   2:2000:(NB$,LD);)F7:N$(K):18110MFFVK:RD0:LD2:2000:(NB$,LD)\FZ12:Z112cFZiF)""N$(K)" "ĺ" # ":9:2:18100F" # NAME"F9:2FFVK:RD0:LD2:2000:(NB$,LD);F7:N$(K):18110FFVK:R TO CONTINUE:";= D16368,0:GT$:GT$" "17420CDJ DKX*D34,2::jPFKN118040dF:8:3:"TEAM "nF18110xFFN$(K)""N$(K)" "ĺ" # ":9:2:18100F" # NAME"F9:2FFVK:RD0:LDV63ST%(K,7)2ST%(K,6)ST%(K,5)ST%(K,3):17300CCV1ST%(K,3)CvvCV6(3ST%(K,7)2ST%(K,6)ST%(K,5)ST%(K,3))CCZZ1CZ:27:"AVE ";:ZZ1CFVV1:RD3:LD1:2000:NB$CZ:27:"SA ";CFVV6:RD3:LD1:2000:NB$D22:" PRESS (NB$,LD)$BZ:14:"K ";:ZZ1PBFVST%(K,10):RD0:LD6:2000:(NB$,LD)jBZ:14:"SAC ";:ZZ1BFVST%(K,11):RD0:LD6:2000:(NB$,LD)BCST%(K,1)BC017160BC1B V1=AVE V6=SA BC1ī171601BV1ST%(K,3):B ";:ZZ16sBFVST%(K,6):RD0:LD6:2000:(NB$,LD)LtBZ:"HR ";:ZZ1wuBFVST%(K,7):RD0:LD6:2000:(NB$,LD)vBZZ1xBZ:14:"SB ";:ZZ1yBFVST%(K,8):RD0:LD6:2000:(NB$,LD)BZ:14:"W ";:ZZ1 BFVST%(K,9):RD0:LD6:2000:;:ZZ12kBFVST%(K,2):RD0:LD6:2000:(NB$,LD)HlBZ:"H ";:ZZ1smBFVST%(K,3):RD0:LD6:2000:(NB$,LD)nBZ:"RBI ";:ZZ1oBFVST%(K,4):RD0:LD6:2000:(NB$,LD)pBZ:"2B ";:ZZ1qBFVST%(K,5):RD0:LD6:2000:(NB$,LD) rBZ:"3"BASEBALL/SOFTBALL---HITTING"'A34,6V6B SCREEN ROUTINE c@BK1N1TB PRINTS NUMBER AND NAME ^B18000hBZ:"AB ";:ZZ1iBFVST%(K,1):RD0:LD6:2000:(NB$,LD)jBZ:"R "MEPAKN116750#ZA:"TEAM";0dA21);:UnAFVK:RD0:LD4:2000:(NB$,LD);wxA(N$(K)""N$(K)" ")ī16790A21);AA" "N$(K)19(N$(K)));AA FORMATTED FOR SCREENA(36(T$))2);T$A5:5:ST%(K,6)ST%(K,5)ST%(K,3):16295T ?V6(3ST%(K,7)2ST%(K,6)ST%(K,5)ST%(K,3))C_ ?16710k ?J8N1 ?FVST%(K,J):RD0:LD6:2000:(NB$,LD); ?J ?FVV6:RD3:LD6:2000:NB$ ?K (A:: 2A ?FVV1:RD3:LD5:2767:16060- >ST%(N1,J)ST%(N1,J)ST%(K,J)4 >K; >JA >P >P116810q >::::(72(T$))2);T$: > PRINTS FIRST THIRD OF TABLE: >5)"BASEBALL/SOFTBALL STATISTICS---HITTING (PART ONE)" >: >" # NAME AB "HOW MANY STOLEN BASES?/SB"@ `; "HOW MANY TIMES WALKED?/W"f ~; "HOW MANY TIMES STRUCK OUT?/K" ; "HOW MANY SACRIFICES?/SAC" >P1Ģ12:13:W$ > ADD UP TEAM TOTALS >J1N1 >K1N >(ST%(N1,J)ST%(K,J))32767ST%(N1,J)32j &:103,1:104,8:13010:N111:3500D: "HOW MANY AT BATS?/AB"^; "HOW MANY RUNS?/R"x; "HOW MANY HITS?/H"; "HOW MANY RUNS BATTED IN?/RBI"$; "HOW MANY DOUBLES?/2B".; "HOW MANY TRIPLES?/3B"8; "HOW MANY HOME RUNS?/HR" L;            CST%(K,1)ST%(K,2)017310?CC4ST%(K,1)(ST%(K,1)ST%(K,2))JC17320SCC40zCFVC1:LD6:RD3:2000:12:27:NB$CFVC4:2000:18:27:NB$C14000CKC34,2CNXCC4ST%(K,1)(ST%(K,1)ST%(K,2))C17320CC40 CFV5)"."(NB$,6,1):7:NB$$CJ47RCFVST%(K,J):LD5:RD0:2000:7:(NB$,LD)Y&CJa+C11m0CJ813:CFVST%(K,J):LD5:RD0:2000:18:(NB$,LD)DCJNCST%(K,3)017260XCC10:C40bC17320lCC1ST%(1,14)ST%(K,7)(ST%(K,3)10)B3:"H";:15:"BK":3:"R";:16:"S":2:"ER";:27:"PCT"BB11pBFVST%(K,1):LD5:RD0:2000:7:(NB$,LD)BFVST%(K,2):2000:7:(NB$,LD)BFVST%(K,3):LD6:RD0:2000B(NB$,5)" "NB$" 0."(NB$,6,1):7:NB$:17160CNB$(NB$,B34,5BK1N1B-B6:" # NAME"4B8FBKN117090`B5:958:8:" TEAM"kB17100BFVK:LD4:RD0:2000:(NB$,LD);" ";N$(K)B11:3:"W";:16:"K";:27:"ERA"B3:"L";:15:"BB":3:"I";:15:"HP":3:"A";:15:"WR":);" ";(N$(K),1,20);(20(N$(K)))((N$(K))20));T8@FVC1:LD6:RD3:2000:NB$;iL@FVC4:2000:NB$tV@16490`@FVK:LD4:RD0:2000:(NB$,LD);22);j@Kt@::~@hBrB(36(T$))2);T$|B4:5:"BASEBALL/SOFTBALL - PITCHING"(K,7)(ST%(K,3)10)2?ST%(K,1)ST%(K,2)016350V?C4ST%(K,1)(ST%(K,1)ST%(K,2))a?16360j?C40|?KN116420?"TEAM";22);?FVC1:LD6:RD3:2000:NB$;@FVC4:2000:NB$@16490$@KN164804.@FVK:LD4:RD0:2000:(NB$,LD2000:(NB$,LD); >?J H?$ R?Ki \?:::11)"BASEBALL/SOFTBALL STATISTICS---PITCHING (PART TWO)"q f?: p?" # NAME ERA PCT"; z? ?K1N1 ?ST%(K,3)016300 ?C10:C40 ?16360?C1ST%(1,14)ST%:2000:(NB$,4);= ?FVST%(K,1):LD5:RD0:2000:(NB$,LD);_ ?FVST%(K,2):2000:(NB$,LD); ?FVST%(K,3):LD6:RD0:2000 !?(NB$,5)" "ĺ" 0."(NB$,6,1);:16170 %?NB$(NB$,5)"."(NB$,6,1):NB$; *?J413 4?FVST%(K,J):LD5:RD0::::(72(T$))2);T$:X >11)"BASEBALL/SOFTBALL STATISTICS---PITCHING (PART ONE)" >::" # W L I A H R"; >" ER K BB HP WP BK S": >K1N1 >KN116130 >"TEAM"; >16140 ?FVK:LD4:RD0Y BALKS?/BK"( t; "HOW MANY SAVES?/S"N ; "HOW MANY INNINGS PER GAME?/IG"c >P1Ģ12:13:W$o >J1N1z >K1N >(ST%(N1,J)ST%(K,J))32767ST%(N1,J)32767:16030 >ST%(N1,J)ST%(N1,J)ST%(K,J) >K >J > >P117000 >" .; "HOW MANY RUNS GIVEN UP?/R"M 8; "HOW MANY EARNED RUNS GIVEN UP?/ER"n B; "HOW MANY STRIKE OUTS?/K" L; "HOW MANY WALKS GIVEN UP?/BB" V; "HOW MANY TIMES WAS A HITTER HIT BY A PITCH?/HP" `; "HOW MANY WILD PITCHES?/WP" j; "HOW MAN +:103,1:104,8:13010:N114:BP1:35006:13500P: "HOW MANY WINS?/W"l; "HOW MANY LOSSES?/L"; "HOW MANY INNINGS PITCHED?/I"; "HOW MANY APPEARANCES? (HOW MANY BATTERS FACED)/A"$; "HOW MANY HITS GIVEN UP?/H"        ST%(K,4)ST%(K,5))(ST%(K,1)(ST%(K,1)0)):LD6:RD3:2000:26:NB$OCJ25CFVST%(K,J)(ST%(K,1)(ST%(K,1)0)):LD6:RD3:2000:26:NB$CJC14000CKC34,2CN017200C" ";N$(K)10C12:7:"OA";:22:"OE"J:C7:"OB";:22:"OB%"cDC7:"BA";:22:"BA%"|NC7:"RP";:22:"RP%"XC7:"SO";:22:"SO%"]C12bCJ15lCFVST%(K,J):LD6:RD0:2000:10:(NB$,LD)vCJC12DCFV(ST%(K,2)ST%(K,3) ?K ?:: ? hB2 rB(36(T$))2);T$\ |B4:5:"BASEBALL/SOFTBALL OFFENSIVE "f B34,5s BK1N1y B B6:" # NAME" B8 BKN117160 B5:958:8:" TEAM TOTALS" B17170 CFVK:LD4:RD0:2000:(NB$,LD);CF21N1 z?KN116280% ?"TEAM";0 ?16300U ?FVK:LD4:RD0:2000:(NB$,LD);k ?ST%(K,1)016350 ?FV(ST%(K,2)ST%(K,3)ST%(K,4)ST%(K,5))ST%(K,1):LD6:RD3:2000:NB$; ?J25 ?FVST%(K,J)ST%(K,1):LD6:RD3:2000:NB$; ?J ?(NB$,LD); ?F216160O ?" ";(N$(K),1,20);(20(N$(K)))((N$(K))20));Z ?16170e ?21);p *?J15 4?FVST%(K,J):LD6:RD0:2000:(NB$,LD); >?J H? R?K \?:" # OE OB% BA% RP%"; f?" SO%" p?K > >P1170003 >:::(55(T$))2);T$:i >10)"BASEBALL/SOFTBALL OFFENSIVE EFFICIENCY":: >" # NAME OA OB BA RP SO" >K1N1 >KN116120 >"TEAM";21); >16170 >FVK:LD4:RD0:2000:IMES WERE RUNS PRODUCED (PLAYER & TEAMMATES)?/RP"j $; "HOW MANY TIMES DID THE PLAYER STRIKE OUT?/SO" >P1Ģ12:13:W$ >J1N1 >K1N >ST%(N1,J)ST%(K,J)32767ST%(N1,J)32767:16030 >ST%(N1,J)ST%(N1,J)ST%(K,J) >K >J%:103,1:104,8:13010:N15:35000:13500q: "HOW MANY OFFENSIVE APPEARANCES DID THE PLAYER MAKE?/OA"; "HOW MANY TIMES DID THE PLAYER REACH BASE?/OB"; "HOW MANY TIMES WERE BASES ADVANCED (PLAYER & TEAMMATES)?/BA"4 ; "HOW MANY T   000:(NB$,LD);2GFVST%(K,11):2000:(NB$,LD);QGFVS(K,2):2000:(NB$,LD)cG" ALLOWED"kG19G"AVE. GOALS";:13GFVS(K,7):LD4:RD1:2000:NB$;GFVS(K,8):2000:NB$;GFVS(K,9):2000:NB$;GFVS(K,10):2000:NB$;G" ATOPS %";:116@GFVS(K,3):LD6:RD0:2000:(NB$,LD);VJGFVS(K,4):2000:(NB$,LD);vTGFVS(K,5):2000:(NB$,LD);^GFVS(K,6):2000:(NB$,LD)cGKN218430hG17rG"GOALS";:11|GFVST%(K,9):LD6:RD0:2000:(NB$,LD);GFVST%(K,10):2 1 2 3 TOTAL";GF" --- --- --- -----"OF13aF"STOPS";:11GFVST%(K,6):LD6:RD0:2000:(NB$,LD);GFVST%(K,7):2000:(NB$,LD);GFVST%(K,8):2000:(NB$,LD);"GFVS(K,1):2000:(NB$,LD),G15 6G"S:LD2:RD0:2000:(NB$,LD);" ";;FKN1ĺ"TEAM";:18138XFK1ĺ"OPPONENT";:18138yFKN2ĺ"DIFFERENCE";:18138FN$(K);F22FFVST%(K,1):LD5:RD0:2000:(NB$,LD);" ";FFVST%(K,2):LD5:RD0:2000:(NB$,LD)F10:"PERIOD bC::lC/FF FORMATTED FOR SCREEN. 5PFLZF(36(T$))2);T$tdF4:6:"HOCKEY STATISTICS (GOALIE)"~nF34,5xF18500F OUTPUT SCREEN ROUTINE. FF6:" # NAME PERIODS GAMES"F8FK2KN18132 FFVK6:RD0:2000:(NB$,LD);<CFVST%(K,10):2000:(NB$,LD);_CFVST%(K,11):2000:(NB$,LD);CFVS(K,2):2000:(NB$,LD);&C" ";0CFVS(K,7):LD4:RD1:2000:NB$;:CFVS(K,8):2000:NB$;DCFVS(K,9):2000:NB$;NCFVS(K,10):2000:NB$XCrBFVK:LD2:RD0:2000:(NB$,LD);1|BF217050fB" ";(N$(K),17);(17(N$(K)))((N$(K))17));qB17060|B18);B17150BKB:"TEAM";16);BKN1B17150B"OPPONENT";12);BK1B17150B17250BFVST%(K,9):LD(NB$,LD);3BFVS(K,6):LD6:RD0:2000:(NB$,LD);9"BM,B CHART2 GOALSa6B::" # NAME";@B13);" GOALS SCORED AGAINST AVERAGE GOALS SCORED"JB20);" 1 2 3 TOTAL 1 2 3 GAME"TB^BF217000hBK2N"B$,LD);3);7AFVST%(K,6):LD6:RD0:2000:(NB$,LD);YAFVST%(K,7):2000:(NB$,LD);{AFVST%(K,8):2000:(NB$,LD);AFVS(K,1):2000:(NB$,LD);4);AFVS(K,3):2000:(NB$,LD);BFVS(K,4):2000:(NB$,LD); BFVS(K,5):LD6:RD0:2000:A16820(A2AK$?ST%(K,1)0ST%(K,2)016520w H?S(K,1)ST%(K,6)ST%(K,7)ST%(K,8) R?S(K,2)ST%(K,9)ST%(K,10)ST%(K,11) \?ST%(K,6)ST%(K,9)016250 f?S(K,3)0 p?16260 z?S(K,3)ST%(K,6)(ST%(K,6)ST%(K,9))(N1,J)ST%(K,J))32767ST%(N1,J)32767:16110R >ST%(N1,J)ST%(N1,J)ST%(K,J)Y >K >(ST%(N1,J)ST%(1,J))32767ST%(N2,J)32767:16130 >ST%(N2,J)ST%(N1,J)ST%(1,J) ?J ?ST%(N1,2)ST%(1,2) ?ST%(N1,1)ST%(1,1) ?ST%(N2,1)0:ST/S3"@ L; "HOW MANY GOALS WERE ALLOWED IN PERIOD 1?/G1"| V; "HOW MANY GOALS WERE ALLOWED IN PERIOD 2?/G2" `; "HOW MANY GOALS WERE ALLOWED IN PERIOD 3?/G3" > TEAM TOTALS >P1Ģ12:13:W$ >J3N1 >K2N/ >(ST%IE PLAY?/PRD2"K $; "HOW MANY PERIOD 3'S DID THE GOALIE PLAY?/PRD3" .; "HOW MANY STOPS DID THE GOALIE MAKE INPERIOD 1?/S1" 8; "HOW MANY STOPS DID THE GOALIE MAKE INPERIOD 2?/S2" B; "HOW MANY STOPS DID THE GOALIE MAKE INPERIOD 3?&:103,1:104,8:13010:N111:3500b: "HOW MANY PERIODS HAS THE GOALIE PLAYED?/PRD" ; "HOW MANY GAMES HAS THE GOALIE PLAYED?/GAMES"; "HOW MANY PERIOD 1'S DID THE GOALIE PLAY?/PRD1" ; "HOW MANY PERIOD 2'S DID THE GOAL              ;:FVK:LD3:RD0:2000:(NB$,LD);:9:N$(K):20510RPFVK:RD0:2000:(NB$,LD)_PZ9:Z:S(K,8):LD3:RD1:2000:NB$:ON$(K)""N$(K)" "Ģ7:" #";20500O7:" #";:FVK:RD0:LD3:2000:(NB$,LD);:9:N$(K):20510PFVK:RD0:LD3:9:Q:FVST%(K,5):RD0:2000:(NB$,LD):Q:FVS(K,4):RD1:2000:NB$:Q:FVST%(K,7):RD0:2000:(NB$,LD)\NQ:FVST%(K,8):2000:(NB$,LD):Q:FVS(K,7):2000:(NB$,LD):Q:FVS(K,8):RD1:2000:NB$:ON$(K)""N$(K)" "Ģ7:" #";205003O7:" #"K,3):2000:(NB$,LD)[*NQ:FVS(K,1):RD1:2000:NB$:Q:FVST%(K,4):RD0:2000:(NB$,LD)4NQ:FVS(K,2):RD1:2000:NB$:Q:FVS(K,3):2000:NB$HNQ:FVST%(K,6):RD0:2000:(NB$,LD):Q:FVS(K,5):2000:(NB$,LD):Q:FVS(K,6):RD1:2000:NB$:hRNGAME ";:FVS(K,8):RD1:2000:NB$xLK1:Q21:9:20050:KN2:Q29:9:20050:22:" PRESS TO CONTINUE:";IM16368,0:GT$:GT$" "19785]M34,2:: N9:Q:FVST%(K,1):RD0:2000:(NB$,LD):Q:FVST%(K,2):2000:(NB$,LD):Q:FVST%(L:9:KN1:"PEN ";:FVST%(K,5):RD0:2000:(NB$,LD):"PIM ";:FVS(K,4):RD1:2000:NB$L"PLUS + ";:FVST%(K,7):RD0:2000:(NB$,LD)#L"MINUS - ";:FVST%(K,8):2000:(NB$,LD):"NET ";:FVS(K,7):2000:(NB$,LD):"NET/2000:(NB$,LD):"POINTS ";:FVS(K,5):2000:(NB$,LD),L"POINTS/GAME";:FVS(K,6):RD1:2000:NB$:K1:Q20:20000:KN2:Q29:200006L21:"PRESS TO OBTAIN PAGE 2":"OF TEAM/OPPONENT STATISTICS.";@L16368,0:GT$:GT$" "19520gS ";:FVST%(K,3):2000:(NB$,LD)K"SHOTS/GAME ";:FVS(K,1):RD1:2000:NB$:"GOALS ";:FVST%(K,4):RD0:2000:(NB$,LD)L"GOALS/GAME ";:FVS(K,2):RD1:2000:NB$:"GOAL % ";:FVS(K,3):2000:NB$:"L"ASSISTS ";:FVST%(K,6):RD0:22:" PRESS TO CONTINUE:";KJ16368,0:GT$:GT$" "19170J:K::6:14:"TEAM OPPO- DIFFER-":7:22:"NENT ENCE":34,7::"PERIODS ";:FVST%(K,1):RD0:2000:(NB$,LD)&dK"GAMES ";:FVST%(K,2):2000:(NB$,LD):"SHOT(NB$,LD):19:"POINTS/GME";:FVS(K,6):RD1:2000:NB$:19:"PLUS + ";~JFVST%(K,7):RD0:2000:(NB$,LD):19:"MINUS - ";:FVST%(K,8):2000:(NB$,LD):19::"NET ";:FVS(K,7):2000:(NB$,LD)(J19:"NET/GAME ";:FVS(K,8):RD1:2000:NB$:1:2000:NB$:"GOALS % ";:FVS(K,3):2000:NB$lJZ:19:"PEN ";:FVST%(K,5):RD0:2000:(NB$,LD)%J19:"PIM ";:FVS(K,4):RD1:2000:NB$:19:"ASSISTS ";:FVST%(K,6):RD0:2000:(NB$,LD)I3J19:"POINTS ";:FVS(K,5):RD0:2000::FVST%(K,1):LD5:RD0:2000:(NB$,LD)VI"GAMES ";:FVST%(K,2):2000:(NB$,LD)I"SHOTS ";:FVST%(K,3):2000:(NB$,LD)I"SHOTS/GME";:FVS(K,1):RD1:2000:NB$0J"GOALS ";:FVST%(K,4):RD0:2000:(NB$,LD):"GOALS/GME";:FVS(K,2):RDVS(K,6):LD4:RD1:2000:NB$;1);:FVST%(K,7):LD6:RD0:2000:(NB$,LD);:FVST%(K,8):2000:(NB$,LD);^BFVS(K,7):LD5:2000:(NB$,LD);:FVS(K,8):RD1:2000:NB$:'PF:(36(T$))2);T$:4:10:"HOCKEY STATISTICS":34,5:K2N:20450:"PERIODS ";"TEAM";16);:KN1:16950:"OPPONENT";12);:K1:16950:"DIFFERENCE";10);:KN2:16950bA::6BFVST%(K,5):LD6:RD0:2000:(NB$,LD);:FVS(K,4):LD4:RD1:2000:NB$;2);;BFVST%(K,6):LD5:RD0:2000:(NB$,LD);:FVS(K,5):2000:(NB$,LD);h@BFJ13:FVS(K,J):2000:NB$;1);:J::xA::" # NAME";:15);" PEN PIM ASSTS PTS PTS/ PLUS MINUS NET NET/":46);"GAME";21);"GAME"A:K2N:FVK:LD2:RD0:2000:(NB$,2);" ";(N$(K),1,17);(17(N$(K)))((N$(K))17));:16950:KXA:;(N$(K),1,17);(17(N$(K)))((N$(K))17));:16640:K::"TEAM";16);:KN1 @16640:"OPPONENT";12);:K1:16640:"DIFFERENCE";10);:KN2:16640:16760 A FIRST SET OUTPUT ALD6:RD0:J14:FVST%(K,J):2000:(NB$,LD);1);:J&2ALD6:RD1:@K:J18:S(N2,J)S(N1,J)S(1,J):J::P118000 .@:::(72(T$))2);T$::28);"HOCKEY STATISTICS":::" # NAME";:15);"PRDS GAMES SHOTS GOALS SHOTS/ GOALS/ GOALS%"N `@50);"GAME GAME"::K2N:FVK:LD2:RD0:2000:(NB$,LD);" ")ST%(K,3)ST%(K,2):S(K,2)ST%(K,4)ST%(K,2):S(K,3)ST%(K,4)(ST%(K,3)(ST%(K,3)0))(ST%(K,3)0)100 z?S(K,4)ST%(K,5)1.5:S(K,5)ST%(K,4)ST%(K,6):S(K,6)S(K,5)ST%(K,2):S(K,7)ST%(K,7)ST%(K,8):S(K,8)S(K,7)ST%(K,2):16390 ?J18:S(K,J)0:J3 " >ST%(N1,J)ST%(N1,J)ST%(K,J)z >K:KK1::ST%(N2,J)ST%(N1,J)ST%(1,J):J:ST%(N1,2)ST%(1,2):ST%(N1,1)ST%(1,1) >ST%(N2,1)0:ST%(N2,2)0:ST%(N1,13)ST%(1,8):ST%(N2,3)ST%(N1,3)ST%(1,3) >?K1N1:ST%(K,1)0ST%(K,2)016360f R?S(K,1HOW MANY PENALTIES DID THIS PLAYER MAKE?/PEN","HOW MANY ASSISTS DID THIS PLAYER MAKE?/ASST","THE NUMBER OF PLUS POINTS?/+","THE NUMBER OF MINUS POINTS?/-" >P1Ģ12:13:W$ >J3N1:K2N:(ST%(N1,J)ST%(K,J))32767ST%(N1,J)32767:16030`%:103,1:104,8:13010:N18:3500: "HOW MANY PERIODS HAS THIS PLAYER PLAYED?/PRD","HOW MANY GAMES HAS THIS PLAYER PLAYED?/GAMES"; "HOW MANY SHOTS DID THIS PLAYER MAKE ON GOAL?/SOG","HOW MANY GOALS DID THIS PLAYER MAKE?/GLS" V;"              T%(K,J)ST%(K,J11):2000:(NB$,LD):J2B140009~EKCE34,2IEONA:" # NAME PP1 PP2 PP3";C17040CJ35CFVST%(K,J):17140CJC13:4:(S$,11,10);:16CJ35CFVST%(K,J11):17140CJC1"TEAM PTS":"PTS-PP1":"PTS-PP2":"PTS-PP3":"PINS":"NEAR FALLS":"TAKE DOWNS":"REVERSALS":"ESCAPES":"PEN/FF/DIS"B9:LD5:RD0:J111:13:FVST%(K,J):2000:(NB$,LD):JB9:J111:21:FVST%(K,J11):2000:(NB$,LD):J'B9:J111:30:FVSD FOR SCREEN. 'hB:(36(T$))2);T$IrB4:9:"WRESTLING STATISTICS"SwB34,5`|BK1N1B:6:KN1ĺ13);"TEAM ";:17040B"#";:FVK:LD3:RD0:2000:(NB$,LD);" ";N$(K);B21:"OPPO- DIFFER-":21);"NENT ENCE"uB9:"WINS":;(SS$,11,10);7);@J611M@FVST%(K,J11):LD7:RD0:2000:(NB$,LD);T@JZ@uA3);(SS$,21,10);7); AJ611AFVST%(K,J)ST%(K,J11):LD7:RD0:2000:(NB$,LD);AJ(A:2AKJ > >P117000F ? STATISTICS FORMATTED FOR PRINTER. a ?:(62(T$))2);T$: ?21);"WRESTLING STATISTICS" ? CHART 1 ?:" # NAME WIN TPTS PP1 PP"; *?"2 PP3 PT" 4?K1N1 >?KN116260 OPPONENT DIFFERENCE"$ >J111/ >K1Nh >(ST%(N1,J)ST%(K,J))32767ST%(N1,J)32767:16099 >ST%(N1,J)ST%(N1,J)ST%(K,J) >(ST%(N1,J11)ST%(K,J11))32767ST%(N1,J11)32767:16110 >ST%(N1,J11)ST%(N1,J11)ST%(K,J11) >KR FALLS?/ONF"8 ; "HOW MANY OPPONENT TAKE DOWNS?/OTD"a ; "HOW MANY OPPONENT REVERSALS?/OR" ; "HOW MANY OPPONENT ESCAPES?/OE" ; "HOW MANY OPPONENT PENALTIES,FORFEITS, OR DISQUALIFICATIONS?/OPFD" > >P1Ģ12:13:W$ >SS$"TEAM Y OPPONENT TEAM POINTS?/OTP"Q ~; "HOW MANY OPPONENT POINTS IN PERIOD 1?/OPP1" ; "HOW MANY OPPONENT POINTS IN PERIOD 2?/OPP2" ; "HOW MANY OPPONENT POINTS IN PERIOD 3?/OPP3" ;"HOW MANY OPPONENT PINS?/PINS" ; "HOW MANY OPPONENT NEA"! 8; "HOW MANY NEAR FALLS?/NF"A B; "HOW MANY TAKE DOWNS?/TD"c L; "HOW MANY REVERSALS?/REVS" V; "HOW MANY ESCAPES?/ESC" `; "HOW MANY PENALTIES,FORFEITS, OR DISQUALIFICATIONS?/PFD" j; "HOW MANY OPPONENT WINS?/OWINS" t; "HOW MANP &:103,1:104,8:13010:N122:3500C: "HOW MANY WINS?/WINS"g; "HOW MANY TEAM POINTS?/TPTS"; "HOW MANY POINTS IN PERIOD 1?/PP1"; "HOW MANY POINTS IN PERIOD 2?/PP2"$; "HOW MANY POINTS IN PERIOD 3?/PP3" .; "HOW MANY PINS?/PINS   C34,4:K:34,1CNNB$,LD)2C25:"D/Q ";:RD2:FVS(K,9):2000:NB$Y!C25:"N/Q ";:FVS(K,10):2000:NB$+C25:"O/Q ";:FVS(K,11):2000:NB$0C25:"+/Q ";:FVS(K,12):2000:NB$5C25:"-/Q ";:FVS(K,13):2000:NB$:C25:"T/Q ";:FVS(K,14):2000:NB$C14000%(K,10):2000:(NB$,LD)DC14:"P ";:FVS(K,6):2000:(NB$,LD)oC14:"P/G ";:RD1:FVS(K,7):2000:NB$ C14:"O ";:RD0:FVS(K,8):2000:(NB$,LD)C11:25:"Q ";:LD4:FVST%(K,15):2000:(NB$,LD)C25:"G ";:FVST%(K,16):2000:((NB$,LD)5B"FGA ";:FVST%(K,12):2000:(NB$,LD)^B"FG% ";:RD1:FVS(K,4):2000:NB$:B"FTM ";:RD0:FVST%(K,13):2000:(NB$,LD)B"FTA ";:FVST%(K,14):2000:(NB$,LD)B"FT% ";:RD1:FVS(K,5):2000:NB$B11:14:"A ";:RD0:FVSTBJ199BLD5:FVST%(K,J):2000:NB$(NB$,1,5):NB$;PBJ3(J3)17100zBFVS(K,J3):2000:NB$(NB$,1,5):NB$B14(J3)18(J6)22(J9):8BB14000B9:1:"OFFENSIVE"12)"TOTALS" B11:"FGM ";:RD0:LD4:FVST%(K,11):2000:17010"TB6:1:958:"PLAYER #";P^BLD2:RD1:FVK:2000:NB$(NB$,1,2):NB$;ohB18(N$(K)));N$(K):34,8rB9:"DEFENSE";:11:"D1 D2 D3 D"|B13:"NEUTRAL";:11:"N1 N2 N3 N"B17:"MINUS";:11:"M1 M2 M3 M"B10:8 (K)));AALD4:J1516:FVST%(K,J):2000:NB$(NB$,1,4):NB$;:RARD2:J914lAFVS(K,J):2000:NB$;sBJyBBK"B,B:2:(36(T$))2:T$6B4:8:"BASKETBALL STATISTICS"@BK1N1JBKN1Ģ6:1:958:"TEAM SUMMARY":34,6:B$(NB$,1,5):NB$;" ";#AJ::K-A::;A CHART 3|A" # NAME Q G D/Q N/Q O/Q +/Q";A" -/Q T/Q"AK1N1AKN1ĺ"TEAM";16);:16870ALD2:FVK:2000:NB$(NB$,1,2):NB$;A" ";N$(K);17(N$ ";:ZAJ1112:FVST%(K,J):2000:NB$(NB$,1,5):NB$;:bdALD3:FVS(K,4):2000:" ";NB$;" ";nAJ1314:LD5:FVST%(K,J):2000:NB$(NB$,1,5):NB$;:xAJ58:LD3(J5J7)5(J6J8):FVS(K,J):2000:(J6J8)16770:" ";NB$;" ";:16780ANVK:2000:NB$(NB$,1,2):NB$;" ";Y(ALD5:FVST%(K,10):2000:NB$(NB$,1,5):NB$;" ";2AJ1112:FVST%(K,J):2000:NB$(NB$,1,5):NB$;:(ST%(N1,J)ST%(K,J))32767ST%(N1,J)32767:16130Y >ST%(N1,J)ST%(N1,J)ST%(K,J)` ?Kg ?J ?(4ST%(N1,16))32767ST%(N1,15)32767:16160 ?ST%(N1,15)4ST%(N1,16) ? ZERO CALCULATION MATRIX H?II1N1:JJ114:S(II,JJ)0:JJ:THIS PLAYER ATTEMPT TO MAKE?/FTA,QUARTERS PLAYED?/Q,GAMES PLAYED?/GX >P1Ģ12:13:W$j > TEAM TOTALSv >J1N1 >J1516140 >K1N >J1616119 >ST%(N1,J)ST%(K,J)(ST%(K,J)ST%(N1,J))ST%(N1,J)(ST%(N1,J)ST%(K,J)) >161306 MINUS VALUE?/M3 ;HOW MANY ASSISTS DID THIS PLAYER HAVE?/A,HOW MANY FIELD GOALS DID THIS PLAYER MAKE?/FGM,HOW MANY FIELD GOALS DID THIS PLAYER ATTEMPT TO MAKE?/FGAC $; HOW MANY FREE THROWS DID THIS PLAYER MAKE?/FTM,HOW MANY FREE THROWS DID L VALUE?/N1,WHAT IS THIS PLAYER'S SECOND NEUTRAL VALUE?/N2,WHAT IS THIS PLAYER'S THIRD NEUTRAL VALUE?/N3 ;WHAT IS THIS PLAYER'S FIRST MINUS VALUE?/M1,WHAT IS THIS PLAYER'S SECOND MINUS VALUE?/M2,WHAT IS THIS PLAYER'S THIRD &:103,1:104,8:13010:N116:3500: WHAT IS THE PLAYER'S FIRST DEFENSIVE VALUE?/D1,WHAT IS THE PLAYER'S SECOND DEFENSIVE VALUE?/D2,WHAT IS THE PLAYER'S THIRD DEFENSIVE VALUE?/D3r ; WHAT IS THIS PLAYER'S FIRST NEUTRA         %(K,J1)ST%(1,12):2000:NB$XB143(J7):Z1:FVP(2K(J5))ST%(1,12):2000:NB$:BJ911:9J:Z1:FVST%(K,J)ST%(1,12):2000:NB$:BKB14000B34,2:NNA000:NB$:BKB1:22:"PRESS SPACE BAR TO CONTINUE: ";:(2K):2000:NB$^BLD4(K3)[hBJ911:9J:Z1:FVST%(K,J):2000:NB$(NB$,1,4(K3))frBNB$:s|BZ17090BZ1(K1)10(K2)21(K3)32BLD2(K3):12BJ572:123(J7):Z1:FVST%(K,J)ST%(1,12):2000:NB$B133(J7):Z1:FVSTNB$;,B13:Z1:FVST%(K,6):2000:NB$(NB$,1,4(K3)):NB$i6B14:Z1:LD2(K3):FVP(2K1):2000:NB$@BLD4(K3):15:Z1:FVST%(K,7):2000:NB$(NB$,1,4(K3)):NB$JB16:Z1:FVST%(K,8):2000:NB$(NB$,1,4(K3)):NB$TB17:Z1:LD2(K3):FVP,5)(ST%(K,6)(ST%(K,6)0))(ST%(K,6)0)100kBP(2K)ST%(K,7)(ST%(K,8)(ST%(K,8)0))(ST%(K,8)0)100BLD4(K3):RD1:12:ZZ1(K1)9(K2)22(K3)32:16930BZ1(K1)5(K2)16(K3)26"B12:Z1:FVST%(K,5):2000:NB$(NB$,1,4(K3)):A12:1:"FGM":"FGA":"FG%":"FTM":"FTA"HA"FT%":"REB":"F":"TO"A10:Z(ST%(1,12)2):ZĖ10:"TOT TOT TOT":16880A5:" TOT AVG TOT AVG TOT AVG"AK13:K3P(5)P(1)P(3):P(6)P(2)P(4):16910-AP(2K1)ST%(KST%(1,12)216780%nA"AVG/GAME ";:xAJ14:LD3:RD1bAFVST%(K,J)ST%(1,12):2000:NB$;:}AST%(1,12)1ĺ:16800ALD4:RD1:FVSST%(1,12):2000:NB$AKA14000A9:1:958AJ12:12(N$(J)));N$(J);" ";::"DIFFERENCE";+OINTS/QUARTER"1(A14:"1 2 3 4 TOTAL"H2AN$(3)"DIFFERENCE" R?N$(3)"DIFFERENCE"I \?K13t f?SST%(K,1)ST%(K,2)ST%(K,3)ST%(K,4) p?N$(K);19(N$(K)));:LD7:RD1 z?J14:FVST%(K,J):2000:NB$(NB$,1,7):NB$;: ?FVS:2000:NB$(NB$,1,7):NB$ ?ST%(1,12)2:(71(T$))2);T$:" ?J111B ?ST%(3,J)ST%(1,J)ST%(2,J)I ?Jo ?23)"BASKETBALL TEAM STATISTICS" *?9);"GAME = ";ST%(1,12);10);"WIN = ";ST%(1,13);10); 4?"LOSS = ";ST%(2,13) >?:19);" POINTS PER QUARTER POINTS"' H?19)TEAM MAKE?/REB", "HOW MANY FOULS DID THE TEAM MAKE?/FOULS","HOW MANY TURNOVERS DID THE TEAM MAKE?/TO" ; "HOW MANY GAMES HAS THE TEAM PLAYED?/GAMES","HOW MANY GAMES HAS THE TEAM WON?/WON" > > IF N<3THENRETURN >P16620 >:: FOUR?/Q4" ; "HOW MANY FIELD GOALS DID THE TEAM MAKE?/FGM","HOW MANY FIELD GOALS DID THE TEAM ATTEMPT?/FGA","HOW MANY FREE THROWS DID THE TEAM MAKE?/FTM","HOW MANY FREE THROWS DID THE TEAM ATTEMPT?/FTA"j ; "HOW MANY REBOUNDS DID THE &:103,1:104,8:13010:N113:3500 :"HOW MANY POINTS DID THE TEAM MAKE IN QUARTER ONE?/Q1","HOW MANY POINTS DID THE TEAM MAKE IN QUARTER TWO?/Q2","HOW MANY POINTS DID THE TEAM MAKE IN QUARTER THREE?/Q3","HOW MANY POINTS DID THE TEAM MAKE IN QUARTER     z#    ز سس ط  ط ط ط  رر ر ر ز ز ز ҮخϠǮϠ ϭӠ-ؠֵW"Ӡ"ӭزرϠԮà̠ӠӠӠ àҮŰàҠŠϠŠ1:FVS(K,5):2000:NB$:"POINTS/GAME ";:FVS(K,6):2000:NB$:K1:Q21:20000:KN2:Q29:200006L21:"PRESS TO OBTAIN PAGE 2":"OF TEAM/OPPONENT STATISTICS.";@L16368,0:GT$:GT$" "19520bL:9:KN1:"PLUS + ";:FVST%(K,6):RDGOALS ";:FVST%(K,4):RD0:2000:(NB$,LD)L"GOALS/GAME ";:FVS(K,2):RD1:2000:NB$:"GOAL % ";:FVS(K,3):2000:NB$"L"ASSISTS ";:FVST%(K,5):RD0:2000:(NB$,LD):"POINTS ";:FVS(K,4):2000:(NB$,LD)_,L"POINTS/QTR ";:RD14:"TEAM OPPO- DIFFER-":7:22:"NENT ENCE":34,7::"QUARTERS ";:FVST%(K,1):RD0:2000:(NB$,LD)dK"GAMES ";:FVST%(K,2):2000:(NB$,LD):"SHOTS ";:FVST%(K,3):2000:(NB$,LD)0K"SHOTS/GAME ";:FVS(K,1):RD1:2000:NB$:":FVST%(K,7):2000:(NB$,LD):19::"NET ";:FVS(K,7):2000J(NB$,LD):19:"NET/QTR ";:FVS(K,8):RD1:2000:NB$:19:"NET/GAME ";:FVS(K,9):2000:NB$:22:" PRESS TO CONTINUE:";J16368,0:GT$:GT$" "19170nJ:K::6:SSISTS ";:FVST%(K,5):RD0:2000:(NB$,LD)3J19:"POINTS ";:FVS(K,4):2000:(NB$,LD):RD1:19:"POINTS/QTR";:FVS(K,5):2000:NB$:19:"POINTS/GME";:FVS(K,6):2000:NB$:19A~J"PLUS + ";:FVST%(K,6):RD0:2000:(NB$,LD):19:"MINUS - ";%(K,2):2000:(NB$,LD)FI"SHOTS ";:FVST%(K,3):2000:(NB$,LD)rI"SHOTS/GME";:FVS(K,1):RD1:2000:NB$J"GOALS ";:FVST%(K,4):RD0:2000:(NB$,LD):"GOALS/GME";:FVS(K,2):RD1:2000:NB$:"GOALS % ";:FVS(K,3):2000:NB$-%JZ:19:"AVST%(K,7):2000:(NB$,LD);j^BFVS(K,7):LD5:2000:(NB$,LD);:RD1:J89:FVS(K,J):2000:NB$;:J::PF:(36(T$))2);T$:4:10:"SOCCER STATISTICS":34,5:K2N:20450:"QUARTERS ";:FVST%(K,1):LD5:RD0:2000:(NB$,LD)I"GAMES ";:FVSTTEAM";16);:KN1:16950:"OPPONENT";12);:K1:16950:"DIFFERENCE";10);:KN2:16950`A::6BFVST%(K,5):LD6:RD0:2000:(NB$,LD);:FVS(K,4):2000:(NB$,LD);:LD5:RD1:J56@BFVS(K,J):2000:NB$;:J:FVST%(K,6):LD6:RD0:2000:(NB$,LD);:F00:NB$;1);:J::xA::" # NAME";:14);"ASSTS PTS PTS/ PTS/ PLUS MINUS NET NET/ NET/":35);"QTR GAME";20);"QTR GAME"A:K2N:FVK:LD2:RD0:2000:(NB$,2);" ";(N$(K),1,17);(17(N$(K)))((N$(K))17));:16950:KVA:"(N$(K)))((N$(K))17));:16640:K::"TEAM";16);:KN1 @16640:"OPPONENT";12);:K1:16640:"DIFFERENCE";10);:KN2:16640:16760 A FIRST SET OUTPUT ALD6:RD0:J14:FVST%(K,J):2000:(NB$,LD);1);:J2ALD6:RD1:J13:FVS(K,J):20S(N1,J)S(1,J):J::P118000 .@:::(72(T$))2);T$::28);"SOCCER STATISTICS":::" # NAME";:15);"QTRS GAMES SHOTS GOALS SHOTS/ GOALS/ GOALS%"; `@50);"GAME GAME"::K2N:FVK:LD2:RD0:2000:(NB$,LD);" ";(N$(K),1,17);(17S(K,3)ST%(K,4)(ST%(K,3)(ST%(K,3)0))(ST%(K,3)0)100 z?S(K,4)ST%(K,4)ST%(K,5):S(K,5)S(K,4)ST%(K,1):S(K,6)S(K,4)ST%(K,2):S(K,7)ST%(K,6)ST%(K,7):S(K,8)S(K,7)ST%(K,1):S(K,9)S(K,7)ST%(K,2):16390 ?J19:S(K,J)0:J @K:J19:S(N2,J)1::ST%(N2,J)ST%(N1,J)ST%(1,J):J:ST%(N1,2)ST%(1,2):ST%(N1,1)ST%(1,1) >ST%(N2,1)0:ST%(N2,2)0:ST%(N1,13)ST%(1,8):ST%(N2,3)ST%(N1,3)ST%(1,3) >?K1N1:ST%(K,1)0ST%(K,2)0163609 R?S(K,1)ST%(K,3)ST%(K,2):S(K,2)ST%(K,4)ST%(K,2):; "HOW MANY ASSISTS DID THIS PLAYER MAKE?/ASST","THE NUMBER OF PLUS POINTS?/+","THE NUMBER OF MINUS POINTS?/-" >P1Ģ12:13:W$ >J3N1:K2N:(ST%(N1,J)ST%(K,J))32767ST%(N1,J)32767:16030 >ST%(N1,J)ST%(N1,J)ST%(K,J)M >K:KK%:103,1:104,8:13010:N17:3500: "HOW MANY QUARTERS HAS THIS PLAYER PLAYED?/QTRS","HOW MANY GAMES HAS THIS PLAYER PLAYED?/GAMES"; "HOW MANY SHOTS DID THIS PLAYER MAKE ON GOAL?/SOG","HOW MANY GOALS DID THIS PLAYER MAKE?/GLS"u V        RMATTED FOR SCREEN. RPF:(36(T$))2);T$:4:8:"VOLLEYBALL STATISTICS":34,5]xF18500}F OUTPUT SCREEN ROUTINE. F:6:" #";:FVK:LD2:RD0:2000:(NB$,LD);" ";N$(K)F8:7:"ACES";14);"ERRORS+F:"SERVE":"HIT":"BLOCK":"TIP":" JB34,2::ahBFVK:LD2:RD0:2000:(NB$,LD);2);(N$(K),17);(17(N$(K)))((N$(K))17));BLD5:FVST%(K,1):2000:(NB$,LD);:J713:FVST%(K,J):2000:(NB$,LD);:J:LD7BFVS(K,3):2000:(NB$,LD);:RD1:FVS(K,4):2000:NB$0CFF FOEYBALL STATISTICS PART II - ERRORS"{B::" # NAME";12);"GMS SR HT BL TP ST PS P ERR ERR/GM":"BK2N:17000:K,B:"TEAM";17);:KN1:170506B"OPPONENT";13);:K1:17050@B"DIFFERENCE";11);:KN2:17050::::OUTPUTZAFVK:LD2:RD0:2000:(NB$,LD);2);(N$(K),17);(17(N$(K)))((N$(K))17));ALD5:J16:FVST%(K,J):2000:(NB$,LD);:J:LD7AFVS(K,1):2000:(NB$,LD);1);:RD1:FVS(K,2):2000:NB$AB CHART2 ERROR STATS$B18);"VOLLE STATSU @::" # NAME";12);"GMS SR HT BL TP SA ACES ACES/GM":j AK2N:16820:K ?J26:S(K,1)S(K,1)ST%(K,J):J: TOTALING ACES H?S(K,2)(S(K,1)(ST%(K,1)(ST%(K,1)0)(ST%(K,1)0))).05(S(K,1)0) R?J713:S(K,3)S(K,3)ST%(K,J):J: TOTALING ERRORS? \?S(K, TEAM TOTALS" >P1Ģ12:13:W$5 >K2N:J2N1n >(ST%(N1,J)ST%(K,J))32767ST%(N1,J)32767:16110 >ST%(N1,J)ST%(N1,J)ST%(K,J) >(ST%(N1,J)ST%(1,J))32767ST%(N2,J)32767:16130 >ST%(N2,J)ST%(N1,J)ST%(1,J) ?J:K ?ST%(S?/A-SA","HOW MANY ERRORS ON SERVES?/E-SRq (< "HOW MANY ERRORS ON HITS?/E-HT","HOW MANY ERRORS ON BLOCKS?/E-BL" < "HOW MANY ERRORS ON TIPS?/E-TP","HOW MANY ERRORS ON SETS?/E-ST" < "HOW MANY ERRORS ON PASSES?/E-PS","HOW MANY PENALTIES?/E-P" >&:103,1:104,8:13010:N113:3500: "HOW MANY GAMES HAS THIS PLAYER PLAYED?/GMS","HOW MANY ACES ON SERVES?/A-SR"`; "HOW MANY ACES ON HITS?/A-HT","HOW MANY ACES ON BLOCKS?/A-BL") ; "HOW MANY ACES ON TIPS?/A-TP","HOW MANY ACES ON ASSIST    9:Z:::3:2000:(NB$,LD)4PZ9:Z:Z9:Z::);5);:9:N$(K):20510PFVK:RD0:LD3:2000:(NB$,LD)PZ9:Z: N$(K):20510PFVK:RD0:LD3:2000:(NB$,LD)PZ9:Z::)Z\NQ:FVS(K,7):2000:(NB$,LD):Q:FVS(K,8):RD1:2000:NB$:Q:FVS(K,9):2000:NB$:ON$(K)""N$(K)" "Ģ7:" # ":7:20500O7:" #";:FVK:RD0:LD3:2000:(NB$,LD);5);:9:N$(K):20510PFVK:RD0:LD3:2000:(NB$,LD)PZQ:FVS(K,2):RD1:2000:NB$:Q:FVS(K,3):2000:NB$>NQ:FVST%(K,5):RD0:2000:(NB$,LD):Q:FVS(K,4):2000:(NB$,LD):Q:FVS(K,5):RD1:2000:NB$HNQ:FVS(K,6):2000:NB$:RN9:Q:FVST%(K,6):RD0:2000:(NB$,LD):Q:FVST%(K,7):2000:(NB$,LDACE BAR> TO CONTINUE:";:IM16368,0:GT$:GT$" "19785H]M34,2:: N9:Q:FVST%(K,1):RD0:2000:(NB$,LD):Q:FVST%(K,2):2000:(NB$,LD):Q:FVST%(K,3):2000:(NB$,LD)*NQ:FVS(K,1):RD1:2000:NB$:Q:FVST%(K,4):RD0:2000:(NB$,LD)34N0:2000:(NB$,LD):"MINUS - ";:FVST%(K,7):2000:(NB$,LD):"NET ";:FVS(K,7):2000L(NB$,LD):"NET/QTR ";:RD1:FVS(K,8):2000:NB$:"NET/GAME ";:FVS(K,9):2000:NB$LK1:Q21:9:20050:KN2:Q29:9:20050:22:" PRESS TO OBTAIN TEAM":"STATISTICS ON ERRORS.";H16368,0:A$:A$" "18565H34,7:KN1:::" ERRORS"::VV11:Q1:18130:VV11:Q13:18160HK1:VV11:Q21:18160:KN2:VV11:Q29:RD1:Q:FVS(K,4):2000:NB$:KN1K1ı5G14000;GPDHK2N:18100:KbHKN1::6:14);"TEAM OPPO- DIFFER-":"GAMES";:7:RD0:FVST%(K,2):2000:(NB$,LD);11);"NENT ENCE"lH:" ACES":VV11:Q3:18120:VV11:Q13:18140vHK1:VVVST%(K,J):2000:(NB$,LD):JpFQ:FVS(K,1):2000:(NB$,LD):RD1:Q:FVS(K,2):2000:NB$:K1KN1KN2ıF:RD0:FVST%(K,1):2000:Q:(NB$,LD):VV10:Q30FVV:RD0:J713:Q:FVST%(K,J):2000:(NB$,LD):J*FQ:FVS(K,3):2000:(NB$,LD)ASSIST":"TOTAL ACES":"ACES/GAME":KN1ıEF:"GAMES":VV10:Q19FVV:Q:"SERVE":Q:"HIT":Q:"BLOCK":Q:"TIP ":Q:"SET":Q:"PASS":Q:"PENALTY"FQ:"TOTAL ERRS":Q:"ERRORS/GAME":VV10:Q12:KN1KN2K1ıFVV:LD4:RD0:J26:Q:FDA AH /Ѽdd` DPROGRAM IN MEMORYNO LINES IN RANGEINCREMENT TOO LARGEDUPLICATE LINE NUMBERSOUT OF MEMORYPROGRAM ON HOLD, USE "&M" TO RECOVERHOLD FILE IN USELIMITED MEMORY, MAY DESTROY PROGRAM CONTINUE (Y/N)?SYNTAX> 63999LINE TOO LONGINCREMENT = 0Si `hhLȪ`樥sthhRL`EȱEi樠 ȱȱ`ijEȱEi椠`H h`:808`ESIFee'Lѥȥ񥰶NO `x `0ȱȘeiȑLe&1 && &!ee)e$@H @@x`c0`~x!pC|@ @@>xp:6:"AN ERROR HAS OCCURRED WITHIN A PROGRAM"::"ON THIS DISKETTE. PLEASE RECORD THE"::"FOLLOWING INFORMATION AND REPORT IT"::"TO MECC.":15:"ERROR = "EN" IN LINE "LN".":x`C~@;(34);"STATS";(34);" DATA DISKETTE."21:958:22:1:"PRESS THE TO CONTINUE.";:16368,0:A$:16368,0:A$" "4090 :12:13:"PLEASE WAIT."p(4)"RUN HELLO-OPTIONS"Pò ERR ROUTINEUEN(222):LN(218)256(219)ZÉ:DRIVE #1 AND":["THE DATA DISKETTE WILL BE IN"::"DRIVE #2 DURING PROGRAM EXECUTION."g4090:12::"* REMEMBER *";::" THE PROGRAM DISKETTE "::"SHOULD REMAIN IN THE DISK DRIVE "&:"UNTIL INSTRUCTIONS ARE GIVEN TO"::"INSERT YOUR "958:"ENTER <1> OR <2>. -=> ";:A$@(A$)1(A$)24010A$:30981,(A$):(A$)14070: POKE CAT ROUTINE WITH DRIVE11:"INSERT YOUR ";(34);"STATS";(34);" DATA DISKETTE "::"INTO DISK DRIVE #2. THE PROGRAM "::"DISKETTE WILL BE IN 52,72,96S  ::J140:"*";::I122:"*";38);"*";::J139:"*";::2039,170a  16303,0  32,2:33,36:34,2:35,22:  :(13)(4)"CLOSE DELETIONS-HELLO" "ARE ONE OR TWO DISK DRIVES ATTACHED"::"TO THE COMPUTER?":$16368,0:8:1:PER":30464,0 D$"INSTR.5200.STIX.O,A$7800":1013,76:1014,0:1015,120:D$"CATALOG.$7900.O,A$7900":764,0:D$"RESTORE TO LINE #,A$7D00" 30980,(47081): POKE CATALOG ROUTINE ;SLOT=PEEK/16  X944953:Y:X,Y:: 104,168,104,166,223,154,72,1************* 50000% D$(4)t (1101)6ĉ::11:"MAKE SURE THE [CAPS LOCK] KEY IS DOWN.":X11200:X D$;"BLOAD SPORTSTAT.PIC"  D$;"BRUN PIC UNPACKER.3E00" D$(4)"BLOAD" (13)(4)"MAXFILES1":39588 D$"MECC FLIP * RON GEISER *; * *Y * CONSULTING ANALYST: *w * EARL KEYSER, TIES * * * * REVISIONS 1983/1984 * !* JEAN BROWN * "* * (***********ED TO THE *- * APPLE BY: RON GEISER *K * TIES, 4/82 *i * * * OUTPUT ROUTINES * * CONVERTED BY: * * REED CHRISTIANSEN * * DAVE LADEN * * CURT TRAASETH *| ************************= * *[ * SPORTS STATS *y * ** ORIGINAL TIMESHARE ** VERSION WRITTEN BY: ** JIM SYDOW, TIES ** * * CONVERT     @c+CWm!>[t8Tot(>Rcy)DYm!6FVm$.;GRsIq6????----66$$$ 66666--- ???---      6$$66$, u -=?-?/ 666$$=/6ve $666 $66 $$& 6ve $66?------??666--?'$$r--666??-%$$$---u6?d-6/? I--??q - )u6'4$46v-= u$66$>4666$ u6 -?6- I166&$ -6" ->?7--'du66& -6&$6M?666$ u6&6&I66?666$-  6666&$ & 6&66$, u6& -6?$666$,e$? u6M16$L6&$166&,?--7&$$4>?-- 666  @~~p""  """`@DL|@`0    @x"$`0  `0 `<$<"< h8@p8 "" "  """"  @`0 @  "" " " > `@DL|   """**6""@`  >> " <>" x0 `@@@@` >> <>""""  "  < <"""G)  < 5    """"  """**6"  <"" h8@p88p  @` 0  "" <"" <"<   `` `@@ """" :"""" :`@DL|) " """> " << 3##cCBFDL > <<" h8@p88p 8`@&<` <"< ""! x{~|$xp" " $ p  p=x@> <"< &   0 `@! " ""  """**6" <x|| `""" """ <""$ <"""::  << "" $" <$h8@p88pp`0pFp@+x@" "<x|     Rp ߅ȱHȱh ߅ ȱHȱ h8`Ngh ȱ5ȱ ޠi} i~` -Lw g RPy  :Lawwwwբ bw uwLXwwwwwww bwwww uwwww`Uz_j`S縎X]`Uw_wjwSwXw]wwPw7wLawhH8 h`> `'>> >>x  >8(i8逅i 8 >"ѥ˥б(П>>`$ 09 !    > > И H >8>% >8>>0>i 666???*---/---II9??76666.--=r)--56666>??/"!!!1111!-----------%$$???v--*-=766&$$$d - -%4666??--e$$?$666f -66#$$I266II2666$$$ 666-- $$$I 66666?/--= ------b--u??--??66.---='$$66666----????66.--u???d -?6e--??$----6& --??v-- ??d -d --66?@--($I  I  5 II6666$";D(0)1:D(1)5.22:R20:D1:800"32,1:33,38:5:1:" ";:22:70*8::(13)(4)"PR#"(47081)16VBZX2:Z(X2)Ģ13:15:" >":1110lL13:15:" < "rV`13:15:" "::DR(30981):PD9932,1:33,38:34,1::1:5:"**************************************":32,2:33,36:3:12: WANT TO RUN ANOTHER DISKETTE?":14:14:"-=>":800O$"N"O$"NO"ė:(13)(4)"MAXFILES3":32,0:33,40:34,0:35,24::"BYE!":(13)(4)"FP"(O$"Y"O$"YE")O$"YES"1070$1035.:11:6)"INSERT THE NEW DISKETTE"::6)"INTO DRIVE #1.":LTRS, 5-#'S NO '.', 6-'RETURN',K3230ı5285:12:"ARE YOU SURE YOU WANT TO STOP NOW?":14:14:"-=>":R3:D1:D(0)1:D(1)18.14:800((O$"Y"O$"YE")O$"YES")(O$"N"O$"NO")10301000O$"N"O$"NO"15003 :12:"DO YOU01(CH)((CH).1):Q NV:W(X1):O(D(X)0):WWO:HHW:H:(A$,R)" ";(8);:X SXa X190n A8:B13 *A$"":R0R255 4X(D(D(0))):YD(D(0))100X100:XX(A$):X:Y >16368,0:190:H IZ=1-ALL CHAR'S, 2-LTRS+#'S, 3-#'S+ '.', 4-1,R):5603 YA(A$)1A$(A$,1,(A$)1):560H YA(A$)0285c O$A$:(O$)0K2410 X1(O$):(O$,X,1)" "ĂX O$(O$,X,255)  :11:9:"CHECKING DATA FILES":13:15:""  0X1D(0) DC(D(X)):H(C):V166 @YAYBY32Y46(Y47Y58)(Y64Y91)400< J^ TYAYBY46(Y47Y58)400d ^ hYAYBY32(Y64Y91)400 r |YAYB(Y47Y58)400  YB400  :YAYB404 (A$)1R285 A$A$(Y):A$(A$,THE PROGRAM DISKETTE FROM"::"DISK DRIVE #1.":12:"INSERT YOUR ";(34);"STATS";(34);" DATA DISKETTE"::"INTO DRIVE #1.":70: X$:16368,0 Y(X$) Y27900 D300,320,340,360,380,395 1052 "190 ,YAYB(Y31Y91)400 TE.":70:v U16:1:"MAKE SURE THE DATA DISKETTE"::"IS IN THE DISK DRIVE AND THAT"::"THE DOOR IS CLOSED.":70: Z16:1:"MAKE SURE THE PROGRAM DISKETTE"::"IS IN THE DISK DRIVE AND THAT"::"THE DOOR IS CLOSED.":70: :(13);:7:"REMOVE + 12000J(32256:D$(13)(4):S$(12),N$(21),II$(21),OO(20):1500F21:958:22:1:"PRESS THE TO CONTINUE.";:16368,0:A$:16368,0:A$" "70K7:1:958: P18:1:"REMOVE THE WRITE PROTECT TAB"::"FROM THE DATA DISKET              Ly U e8 僅 8o oȥpp oi&e iLyȱyȱy yLy`pLy`y{`؍HHN$(0)Ѝ ߥP$Ѝ ߠȱȱhh8Ƭi欩yyy { 2.0 ) ў 2(X6)18(X5)6#$" "(S$(X),14):X:II03630>#%70#&:"NAMES LIST: "N$(E)::(7)"ERASING THIS NAMES LIST WILL ALSO":"ERASE THESE INACTIVE STATS LISTS:":11:X1II:X11Ģ11#(2(X11)18(X10)#*" "(II$(X),14):X:70:13:958l1200" X1:Y1II:OO(Y)1II$(X)II$(Y):XX1>" Y:IIX1Q" S0II03700_" S03622"34,5::"NAMES LIST: "N$(E)::(7)"IF YOU ERASE THIS NAMES LIST, YOU":"WILL ALSO ERASE THE CORRESPONDING":"ACTIVE STATS LISTS.":12:X1S:X6Ģ12:#ESTX.STS."S$(X):X;! X1:Y1S:O(Y)1S$(X)S$(Y):XX1H! Y:SX1W! II03570! :X1II:1090:D$;"OPENINA.STS."II$(X):D$;"READINA.STS."II$(X):A$:A$("STX.NME."N$(E)"STX.STS."II$(X),1,(A$))OO(X)1" (4)"CLOSEINA.STS."II$(X):X:13500& f NS2((O$)0(O$)S)3500= p 19:1:958:3411L NS23800_ S0II03700r 500:S03552 :X1S:1090:D$;"OPENSTX.STS."S$(X):D$;"READSTX.STS."S$(X):A$:A$("STX.NME."N$(E)"STX.STS."S$(X),1,(A$))O(X)1! (4)"CLOS4 19(X10)"> X". "(S$(X),14))H XjR 16:"PRESS THE KEY TO RETURN":"TO THE CLEANUP MENU."S 19:"WHAT IS THE NUMBER OF THE LIST YOU WOULD LIKE TO ERASE?":22:"-=>";:D5:R2:800T Y273210W E(O$) \ NS1((O$)0(O$)N)ISTS.":70:3210 NS38000. NS49000S :13:NS1ĺ"NAMES LISTS":3320f "STATS LISTS"l  X1S(NS2)N(NS1) NS23370 X6Ė1:3360 X6Ģ8 19(X10) X". "(N$(X),14):3400* X6Ė1:3390. X6Ģ8 4E N0NS1ė:12:"THERE ARE NO NAMES LISTS TO ERASE.":70:3210 S0NS2ė:12:"THERE ARE NO STATS LISTS TO ERASE.":70:3210 S0NS3ė:12:"THERE ARE NO ACTIVE STATS LISTS.":70:3210 II0NS4ė:12:"THERE ARE NO INACTIVE STATS L271500) C$,O$:X(26):B$,O$:Y(26)M DD$,O$:W(26):AA$,O$:Z(26)g X1Y1W1Z13200 X0Y0W0Z03200 X1(X0Y0W0Z0)NS1 Y1(X0Y0W0Z0)NS2 W1(X0Y0W0Z0)NS3 Z1(X0Y0W0Z0)NSESC> KEY TO RETURN":"TO THE SPORTS STATS MENU."r 21:"WHICH OPTION WOULD YOU LIKE?":"-=>";:D(1)5.22:D1:R1} X(0) R1:D1:K3230:800 POKE 32,1: POKE 33,38: VTAB 5: HTAB 1: PRINT " ";: HTAB 38: PRINT " ";: POKE 32,2: POKE 33,36 Y LIST FROM THE DISKETTE"\ DD$"D--DEACTIVATE A STATS LIST":AA$"A--ACTIVATE A STATS LIST" :7:1:"N--ERASE A NAMES LIST FROM THE DISKETTE"::"S--ERASE A STATS LIST FROM THE DISKETTE" :DD$::AA$0 ::"PRESS THE <l Y1:1120:II3200Gn F$II$(Y):X(F$)11:((F$,X,1))160ĂXp F$(F$,X):X$"":X1(F$):A$(F$,X,1):(A$)95A$((A$)128)r X$X$A$:X:II$(Y)X$:YY1:YII3182 C$"N--ERASE A NAMES LIST FROM THE DISKETTE":B$"S--ERASE A STATSA$)95A$((A$)128)FX X$X$A$:1090:X:N$(Y)X$:YY1:YN3140Wb Y1:S3180d F$S$(Y):X(F$)11:((F$,X,1))160ĂXf F$(F$,X):X$"":X1(F$):A$(F$,X,1):(A$)95A$((A$)128)h X$X$A$:1090:X:S$(Y)X$:YY1:YS3172$"INA.STS.":30976:II(8):X1II:II$(X)N$(X1):1090:X5 13:16:" >":P$"STX.NME.":30976:X1011:N$(X)N$(X1):1090:X:N(8): Y1:N3170D F$N$(Y):X(F$)11:((F$,X,1))160ĂXN F$(F$,X):X$"":X1(F$):A$(F$,X,1):(TIONS,D1":D$;"LOCKDELETIONS":PD1:3110YX(222):Y(218)256(119):X6PD0:3110lX8İ85:2100w12030& PD1İ150:2100- 12000. 13:15:" >":P$"STX.STS.":30976:X110:S$(X)N$(X1):1090:X:S(8);0 13:16:" >":PpX9ė:"YOUR DATA DISKETTE IS FULL."::"YOU ARE USING THIS DISKETTE FOR"::"DATA OTHER THAN SPORTS STATS."::"DELETE NON-ESSENTIAL FILES."::"RE-BOOT THE SPORTS STATS DISKETTE.":z1203030464,2: PROTECTED2220(D$;"UNLOCKDELE34,5DR22100-430464,1: NORMAL 8>2140H500:D$"OPENDUMMY,D"DR:D$"WRITEDUMMY":"HI":D$"CLOSEDUMMY":(4);"DELETEDUMMY":PD0:3110\X(222):Y(218)256(119):((X8DR1)2(X8DR2)3(X8))2180,2230,2150fX4İ80:2110IN LINE "Y".":3/70:1500:03/70:1500n500:12000W2.X255ĺ"YOU PRESSED CONTROL-C."::"USE THE 'END' OPTION TO QUIT.":120503.::6:"AN ERROR HAS OCCURRED WITHIN A PROGRAM"::"ON THIS DISKETTE. PLEASE RECORD THE"::"FOLLOWING INFORMATION AND REPORT IT"::"TO MECC.":15:"ERROR = "X" #1x#E(O$):E1EIIĺ(7);:8000W1#D$;"RENAME INA.STS.";II$(E);",STX.STS.";II$(E)1#17:958:::(7);II$(E);" ACTIVATED!":SS1:S$(S)II$(E):XEII1:II$(X)II$(X1):X:IIII1:70:32101.X(222):Y(218)(219)256::10:(7)(7)2.9446X10)(X10):(2(X10))(X11)19(X10)G0Z#X;". ";(II$(X),13):X0d#18:"PRESS THE KEY TO RETURN":"TO THE CLEANUP MENU."0n#21:"WHAT IS THE NUMBER OF THE LIST YOU WOULD LIKE TO ACTIVATE? -=>";:D(1)30.22:D5:R2:800:161s#Y273210k/15:958:::(7);S$(E);" DEACTIVATED!":IIII1:II$(II)S$(E):SS1:XES:S$(X)S$(X1):X:70:3210/(#:S10Ģ9:"THERE ARE ALREADY 10 ACTIVE"::"STATS LISTS.":70:3210/2#6:"STATS LISTS WHICH MAY BE ACTIVATED:"+0<#X1II:(6X)(X11)(EY TO RETURN":"TO THE CLEANUP MENU.".19:"WHAT IS THE NUMBER OF THE LIST YOU WOULD LIKE TO DEACTIVATE?":22:"-=>";:D(1)5.22:D5:R2:800:15.Y273210.E(O$):E1ESĺ(7):8000.D$;"RENAME STX.STS.";S$(E);",INA.STS.";S$(E);",D";DR4500U-@:II20Ģ9:"THERE ARE ALREADY 20 DEACTIVATED"::"STATS LISTS.":70:3210-J7:"STATS LISTS":"WHICH MAY BE DEACTIVATED:"-TX1S:(8X)(X6)(8X5)(X5):2(X6)(19(X10))(X5)-rX;". ";(S$(X),13):X%.|16:"PRESS THE K1":D$;"LOCKDELETIONS":PD1:5000Q,\X(222):Y(218)256(119):X8İ90:4500d,fX4İ90:4500o,p12030~,PD05030,X(0):12000,(4);"RUN STIX V52,D1",:(13);:7:"INSERT THE PROGRAM DISKETTE INTO"::"DISK DRIVE #1."-70:9ė:"YOUR DATA DISKETTE IS FULL."::"YOU ARE USING THIS DISKETTE FOR"::"DATA OTHER THAN SPORTS STATS."::"DELETE NON-ESSENTIAL FILES."::"RE-BOOT THE SPORTS STATS DISKETTE.":+412030+>30464,2: PROTECTED+H4700!,RD$;"UNLOCKDELETIONS,DOCKDELETIONS":PD1:50100*(222)8İ90:4500;*12000T*30464,1: NORMAL _*4630* D$"OPENDUMMY,D"DR:D$"WRITEDUMMY":"HI":D$"CLOSEDUMMY":(4);"DELETEDUMMY":PD0:5000*X(222):Y(218)256(119):X84670* X4İ80:4610+*XES")3900")O$"N"O$"NO"2000,) 3820k)<:12:13:"PLEASE WAIT.":(13)(4)"DELETE STX.STS."S$(E))F12:868:S$(E)" HAS BEEN ERASED.":70:2000):12:13:"PLEASE WAIT.")(DR1)4600:30464,2:4530*D$;"UNLOCKDELETIONS,D1":D$;"LS LIST: "S$(E)(:(7)(7)"NOTE:"::"ONCE THIS STATS LIST IS ERASED,":"THE STATS THAT WERE IN IT CANNOT BE RECOVERED."(19:"ARE YOU SURE YOU WANT TO ERASE THIS STATS LIST?":22:"-=>";:D1:R3:800 )19:1:958:O$"Y"(O$"YE"O$"YTHIS NAMES LIST?":22:"-=>";:D1:R3:800['19:1:958:O$"Y"(O$"YE"O$"YES")3760t'O$"N"O$"NO"2000~'3720':12:13:"PLEASE WAIT.":(13)(4)"DELETE STX.NME."N$(E)'12:868:N$(E)" HAS BEEN ERASED.":70:2000(:::"STAT8:ZZ1*&QII$(X);" - (I) STATS LIST":X8&V70:2000]&t34,6::::"NAMES LIST: "N$(E)&~:(7)(7)"NOTE:"::"ONCE THIS NAMES LIST IS ERASED,":"THE NAMES THAT WERE IN IT CANNOT BE RECOVERED."*'1:19:"ARE YOU SURE YOU WANT TO ERASE S:(4)"DELETE STX.STS."S$(X):X/%>II03650[%?X1II:(4)"DELETE INA.STS."II$(X):X%B:"THESE LISTS WERE ERASED:"::N$(E);" - NAMES LIST"::S03656%FX1S:S$(X);" - (A) STATS LIST":X::II03670&HZ1:X1II:XS313Zİ70:8:95$.1:20:958:"ARE YOU SURE YOU WANT TO ERASE THIS":"NAMES LIST?":"-=>";:R3:D1:K3230:800:Y272000$0(O$,1,1)"Y"(O$,1,1)"N"3630$3O$"N"O$"NO"2000$8:12:13:"PLEASE WAIT.":(13)(4)"DELETE STX.NME."N$(E):S03646 %=X1X8))3526,3538,3517( X4İ30:35086 X945:A 12035N 30464,2Y 3535 C$"UNLOCKDELETIONS,D1":C$"LOCKDELETIONS":PD1:3544 X(222):Y(218)256(119):X6PD0:3544 X8İ35:3505 12035 PD1İ50:3505 F$EC DELETIONS,D1":34,13:35,13:C 34,2:35,22:DR2F$""4560f 30464,1:1-NORMAL;2-PROTECTEDq 3514 D$"DUMMY,D"DR:C$"WRITEDUMMY":"HI":B$"DUMMY":C$"DELETEDUMMY":PD0:3544 X(222):Y(218)256(119):((X8DR1)2(X8DR2)3(1:D(1)5.22:22:1:Q$;j% 800:Q15:8220:O0Ģ20:1:958:20:16:(7)"TRY AGAIN.":X11500:X:3360 BP0:(Q$(O),2)"22"BP1 BL$" ":(Q$(O),2)"70"BL$"H" FB0:(Q$(O),2)"30"FB1  13000::12:13:W$:30464,2:40784,21:C$"EX"NAMES LIST":ST$"STATS LIST";l (PD0DR1)DSW1:7250n 6,4:7,36:32000:G:X1G:Q$(X):X:X1G:Q$(X)(64X)"--"Q$(X):Xp :3:14)"M E N U":X1G:(Q$(X),(Q$(X))7):X 20:1:"WHICH SPORT WOULD YOU LIKE?";:X(0):R25:D1:D(0)B$"0."NR$:N 32256:Q$"-=>":W$"PLEASE WAIT.":X0:Y0:Z0:C0:H0:V0:W0:O0:A0:B0:B$(4)"CLOSE":C1$(13):C2$C1$C1$:C$C1$(4):D$C$"OPEN":SL$"/":U1:12000X ST%(32,24),PS%(31,24),S(32,14),O(24),P(6),N$(31),Q$(22):DR(30981):PD1:NL$ NB$""0(NB$)LDRD1NB$NB$"*":20046W(NB$)LDNB$" "NB$:2006{NR$((((FV)((FV)))),2,RD)(NR$)RDNR$NR$"0":2008(NB$)0FV0NB$(NB$,1,(NB$)2)NDNB$NB$"."NR$: NB$(NB$,1,(NB$)1):NB$NFF$,1,1)):FF47FF581510@X1(FF$):(FF$,X,1)","1510IX:~1052:18:1:"INVALID NAME; TRY AGAIN.":14000E1:NDFV0FV1:(FV)10(RD)FV(FV)(10(RD))FVFVND:NB$(((FV)((FV))),1,LD):(((FV)))LD2006X(D(D(0))):YD(D(0))100X100:XX(A$):X:Y:16368,0:190:]Y27K9355ġ:O3::pY27K6105ı(K9300K9320)(K9340K9350)285::OQ1:E1:X0:950X0ĺC$"UNLOCK"O$",D"DRE0:X1:E0:FF((<E1C(O(1)):575%=C(O(M))l?:H(C):V101(CH)((CH).1):H:V2:" "(A$,R)" ";(8)::595DC(D(X)):H(C):V101(CH)((CH).1)::V:W(X1):O(D(X)0):WWO:HHW:H:(A$,R)" ";(8);:SX:190 A8:B13:A$"":R0R255B4400  :YAYB404/ (A$)1R285P A$A$(Y):A$(A$,1,R):560z YA(A$)1A$(A$,1,(A$)1):560 YA(A$)0285 O$A$:(O$)0K2410 X1(O$):(O$,X,1)" "ĂX O$(O$,X,255)  0X1D(0):IX1580 ,YAYB(Y31Y91)400" 6U @YAYBY32Y46(Y47Y58)(Y64Y91)400[ J} TYAYBY46(Y47Y58)400 ^ hYAYBY32(Y64Y91)400 r |YAYB(Y47Y58)400  YB400  YAYBY45(Y47Y58)T$".": F1:19:958:"WHAT IS THE NUMBER OF THE "C1$FF$" YOU WISH TO USE?"C1$"ENTER 'NEW' TO USE A NEW LIST.":8:Q$;::D(0)1:D(1)12.22:D2:R3:800 H X$:16368,0 Y(X$) Y27900 D300,320,340,360,380,395,397 1052:190EMOVE THE PROGRAM DISKETTE FROM"C2$"DISK DRIVE #1."C2$C2$"INSERT YOUR "(34)"STATS"(34)" DATA DISKETTE"C2$"INTO DRIVE #1.":14000: <C2$"YOU HAVE NOT UPDATED YOUR":((U0)(T0)2(T0)(U0T0))63,66,69 ?NL$".": BST$".": ENL$" AND "SHE DISK DRIVE AND THAT"C2$"THE DOOR IS CLOSED.":14000: -:"YOUR DATA DISKETTE IS FULL.":C2$"YOU ARE USING THIS DISKETTE FOR"C2$"DATA OTHER THAN SPORTS STATS."C2$"DELETE NON-ESSENTIAL FILES."C2$"RE-BOOT THE SPORTS STATS DISKETTE.": 2:C2$;:7:"RqU  3150[18:1:"REMOVE THE WRITE PROTECT TAB"C2$"FROM THE DATA DISKETTE.":14000:#16:1:"MAKE SURE THE DATA DISKETTE"C2$"IS IN THE DISK DRIVE AND THAT"C2$"THE DOOR IS CLOSED.":14000:8 (16:1:"MAKE SURE THE PROGRAM DISKETTE"C2$"IS IN T                          !!! ! ! ! ! !!!!!!!!!""" " " " " URN> KEY."c&)13:13:"PLAYER # "G;C2$:2:"OLD NAME: "N$(G)::2:"NEW NAME: "(91);:27:"]";&PD2:R12:D(1)14.18:800:O$""N$(G)O$:5380&d16:2:958:7:"NO CHANGE HAS BEEN MADE.":5400&16:2:958:"NEW NAME: "N$(G)'19:95)"(1 OR 2)":5120'%10)"(1 TO "N")"r%:10:Q$:D5:R2:D(0)1:D(1)14.145:800:G(O$):G1GNĺ(7):5100 &(:" PLEASE ENTER THE PLAYER'S NEW NAME."C2$" IF YOU DO NOT WISH TO CHANGE THAT":" PLAYER'S NAME, JUST PRESS THE ":" ."C2$"PRESS ONLY WHEN YOU ARE"C1$"FINISHED."7#13:6:"PLAYER'S";:1:A1:A$:Z:Y(Z100):ZZY100A!IPS%(X,A):AA1:AZ4425[!NXX1:XYA1:4425e!4540n!944!B$:PL(A1X1)!X(0):944:12000!:K9280:7980:O4660,5820,5850,6420,6840,7220,10000,7240"4:12:"NAMES OPTIONS"C2$:K9300:Z122:PS%(Y,Z)X:Z:YY1:YB4202L mD$F$",D"DR:B$:D$S$:B$:4270f D$F$:C$"READ"F$:N0 N$(N1):NN1:4260 944 B$:XN131:N$(X)"":X:FVG:LD4:RD0:2000:Y((NB$,1,2)):Z((NB$,3,2)):4520"!:D$S$",D"DR:C$"READ"S$:XN$((O$))12000NS$"STX.STS."S$:X(S$)11:((S$,X,1))160ĂXS$(S$,X):X$"":X1(S$):A$(S$,X,1):(A$)95A$((A$)128),X$X$A$:X:S$X$:J1J0:D$S$",D"DR:(4)"WRITE"S$:F$S$:0:B$h:12:13:W$:X0:Y1:B31' j000'O$"INA.STS."S$:920:E14000BFF$S$:1500:E13980L4060944::12:"THERE IS AN";:(O$,3)"STX"ĺ" ACTIVE "ST$C1$:4010" INACTIVE "ST$:"WITH THAT NAME.":14000:3880(O$)03960(O$)1(O$)G3960 S$G0(8)10İ8590:7259p(8)10ė:11:"THERE IS A LIMIT OF 10 ACTIVE"C1$ST$"S PER DISK.":14000:3880:J1:10:"WHAT IS THE NAME OF YOUR NEW"C1$ST$"?":D1:R20:D(1)5.13:13:1:Q$;:800:(O$)03980S$O$:O$"STX.STS."S$:920:E14)"READSTX.STS."N$(X):A$:A$(F$"STX.STS."N$(X),1,(A$))O(X)1rB$:X:X1:Y1G:O(Y)1N$(X)N$(Y):XX1Y:GX1(J0::G03970<12:ST$"S":X1G:X5:X10Ė4:3940P3dX".";:8:N$(X):XxFF$ST$:70:O$"NEW"4020 3770F944::12:"THAT "NL$" IS ALREADY IN USE.":14000:3580X(O$)03660r(O$)1(O$)M3660F$Q$((O$))12000F$"STX.NME."F$:X110:O(X)0:X:G03880B:12:13:W$;::X1G:(4)"OPENSTX.STS."N$(X)",D"DR:(4OT ADD ANOTHER "NL$"."C1$"THERE IS A LIMIT OF 10 ACTIVE "ST$" PER DISK.":14000:3580t:10:"WHAT IS THE NAME OF YOUR NEW"C1$NL$"?":D1:R20:D(1)5.13:13:1:Q$;:800:(O$)03700F$O$:O$"STX.NME."F$:920:E13730FF$F$:1500:E13700:X:N$(Y)X$:YY1:YG3572- :M03700X12:NL$"S":X1M:X5:X10Ė4:3640_$3w8X".";:8:Q$(X):XLFF$NL$:70:O$"NEW"3740jM10ė:11:"THERE IS A LIMIT OF 10 "NL$"S"C1$"PER DISK.":14000:3580UoG10ė:11:"YOU CANN$(F$,X):X$"":X1(F$):A$(F$,X,1):(A$)95A$((A$)128)k X$X$A$:X:Q$(Y)X$:YY1:YM3562| Y1:G3580 F$N$(Y):X(F$)11:((F$,X,1))160ĂX F$(F$,X):X$"":X1(F$):A$(F$,X,1):(A$)95A$((A$)128) X$X$A$""4560) :12:13:W$:T1:F$""U05 12000 P$"STX.NME.":30976:M(8):X1M:Q$(X)N$(X1):X:X(0):P$"STX.STS.":30976:G(8):G0āXG11:N$(X)N$(X1):X:N$(0)"" Y1:M3571 F$Q$(Y):X(F$)11:((F$,X,1))160ĂXA F22M11Ė3:5:868:10:868:16:86846uM:6101Y6PP1:33,36:PZ5Ĺ33,37:60416I0:E0ET0ė:12:8)"STATS ENTRY COMPLETE.":14000:45607E0:ET0::12:8)"STATS EDIT COMPLETE.":EE1āXFZ5:YZ6Z7:APS%(X,Y):PS%(X,Y)ST%(X,Y):ST%H:V2:7);:X(((O$))):(H(X1)2(X2X3))1:V2:((O$));5L(O$)32767Ģ21:1:958:22:10::(7)(7)" NUMBER TOO LARGE ";:X11500:::61215aST%(P,M)(O$):BPM3Y$".":O$,Y$:O$(O$,1,((8)0)15(8)1):ST%(P,M)(O$)10'6tN116368,0:X$:X(X$)e49((BPM3)(XB(X45X57)))((FBM2)(XB(X45X57)))Č1052:62004;X$(13)ĖH:V2:" ";::200:62054=E1C(O(1)):H(C):V101(CH)((CH).1):62154BC(O(M)):H(C):V101(CH)((CH).1)C5G:ATS ":3Q$(M),SL$:Z(26):1:21:958:22:26:(91);:34:(93);:21:D(0)2:D(2)28.22:E1D(1)(((O(1)100)2.95)100):61853&D(1)(((O(M)100)2.95)100)3)1:(Q$(M),Z1);:4822:28:D5(BPM3)2(FB1M2)2:R5:A8:B13:A$""::61302C(O(M))u2H(C):V101(CH)((CH).1)::H:V2:" ";:O$(ST%(P,M)):BPM3O$(ST%(P,M)10)2X(O$):(H(X1)2(X2X3))1:V2:O$;::N12261652M12Ģ2:11::" PLAYER'S STATS "::616532:11::" OPPONENT'S STNS.";:18:31131:18:D(0)1:D(1)31.18:R3:D4:A8:B13:A$"":16368,0:190:31:18:868:21:1:958:2:868:Y27PZ5:62901U0:CL1:O$"YES"O$"YE"O$"Y"62901N122Ė3:5:868:10:868:16:8681MZ6Z7:I12E1C(O(1))((ST%(P,X))):(H(Y1)32(Y2Y3)):V2:BPX3ĺST%(P,X);:61090X$(ST%(P,X)10):Y$".":X$,Y$:X$(X$,1,((8)0)15(8)1):(8);X$;0X 1K6104:PFMZ6K6105:21:3:"PRESS THE KEY TO QUIT AND"6)"RETURN TO THE LIST OF OPTIOA$;/N122Z116098 /Z/18:3:958:18:26:"DONE? ";:3:18:"PLAYER'S NUMBER: "P:3:19:"PLAYER'S NAME: "N$(P)/I0:20:2:958:(EET)6110H0XZ6(Z722)Z7(Z722)11:C(E1)(O(1))(E)(O(X)):H(C):V101(CH)((CH).1):YQ$(X)(Q$(X),1,36)(Q$(X),38,50):60226.X::PF.I1:ZZ6Z7:Q$(Z),SL$:A$(Q$(Z),(26)1,5):X(O((Z7Z6)Z(Z7Z6)))1:C(O((Z7Z6)Z(Z7Z6))):H(C):V101(CH)((CH).1):H:V2:868:PF6082/X((A$)1)2((A$)2(A$)3):V: KEY."2- 14000:R10:D3:F1:Z5N:Z61:Z7N1:E0-HZ9360(Z7Z61)20:X(Z256):YZX256:7,X:6,Y:32000:33,37:MZ6:X1Z7Z61:O(X):X:X1Z7Z61:O(X)O(X).01:O(X)O(X)2::7,58:6,252:32000:G1N1:Q$(G):G:X1N1).(Q$(X),38,1)" "300(,:10:"YOU CANNOT EDIT ";:5843-:6:"ENTER EACH PLAYER'S STATS FOR"C2$"EACH QUESTION."C2$"PRESS TO ADVANCE"C2$"TO THE NEXT QUESTION."C2$"TO ADVANCE TO THE NEXT PLAYER,"C2$"ENTER 'Y' NEXT TO THE WORD 'DONE'"C2$"AND PRESS THE 0:Z1:CL05+Y131:ST%(Y,Z)X:Y:ZZ1:Z225827C+N05860c+:10:"YOU CANNOT ENTER ";+"ANY STATS,"C1$"BECAUSE THERE ARE NO NAMES IN YOUR"C1$"NAMES LIST."C2$"USE THE 'NAMES' OPTION TO"C1$"ENTER NAMES ON YOUR LIST.":14000:4560,N06ARY STEP TO TAKE"C1$"WHEN ENTERING A COMPLETELY NEW SET OF STATS."*13:C1$"WOULD YOU LIKE TO CLEAR YOUR CURRENTSTATS LIST?"*Q$(1)"YES":Q$(2)"NO"::D4:R3:C1$Q$;:958:D(1)5.17:D(0)1:800:Q2:8220:O05824*O25841 +:12:13:W$:XY10ĺ" ";)N$(XY),)0Y:P0ĺC2$C2$G)5C$"PR#0":14000:4660U)CL5841)::(7)" NOTE: "::C1$"IF THE CURRENT STATS LIST IS CLEAREDBEFORE ENTERING STATS, YOU WILL LOSEALL OF YOUR PREVIOUSLY ENTERED"6)"STATS."C*C1$"THIS IS A NECESS:7370::P05580U(:10:"THE LIST OF NAMES IS BEING PRINTED.":7700:C1$C2$u(X(N2):(N2)N2XX1(10)"LIST OF PLAYERS":(F$,9,20)C1$:Y1X:Y". ";:Y10ĺ" ";(N$(Y);:YXN2(N2)5680 )Z15(N$(Y)):Z);XY;". ";:X8:" WOULD YOU LIKE TO MAKE ANY OTHER"C1$" NAME CHANGES? (ENTER YES OR NO.)":D4:R3:D(1)18.22:14:22:Q$;:800:Q2:Q$(1)"YES":Q$(2)"NO":8220:O0ĺ(7);:1:5400'@O15060'T4660'|N0ė:12:5)"THERE ARE NO NAMES TO LIST.":14000:4660(:D(0)1:D(1)19.22:800:Q2:Q$(1)"YES":Q$(2)"NO":8220:O07229PF@O24560ZFA3546mFH:3:UT7244FJ:"NOTE:"::(7)(7):60GL:12:958:"ARE YOU SURE YOU WANT TO STOP NOW?":14:14:Q$:Q$(1)"YES":Q$(2)"NO":D(0)1:D(1)18.14:R3:8004:UT7230$E9(7)"NOTE : ":60E=10:1:"IF YOU CHANGE YOUR NAMES AND STATS"C1$"LISTS, WITHOUT UPDATING THE LISTS"C1$"FIRST, YOU WILL LOSE ALL OF YOUR"C1$"INFORMATION."BF>19:"ARE YOU SURE YOU WANT TO CHANGE"C1$"THE LISTS?":22:15:Q$;:D4:R3PS%(X,Y)ST%(X,Y):ST%(X,Y)A:Y,X:=D:12:13:W$:Y1:X0fDZ114:S(Y,Z)0:Z:YY1:Y337075DZ122:O(Z)X:Z:Z16:P(Z)X:Z:YN1DZ122:ST%(Y,Z)X:Z:YY1:Y337085DYN1DZ122:PS%(Y,Z)X:Z:YY1:Y237095D6840 ES%(X,Y):PS%(X,Y)ST%(X,Y):ST%(X,Y)A:Y,X:L1CD:11:"WHAT IS THE TITLE/DATE?":D1:R32:D(0)1:D(1)3.13:13:1:(91)34)(93):800:T$O$CN7370::P0Ė10:12:"PRINTING....":7700#Dl16000:C$"PR#0"::L1Ģ12:13:W$:X1N:Y1N1:APS%(X,Y):TATS LIST, BECAUSE YOU HAVE"C1$" NOT ENTERED ANY STATS.":14000:6840BO2PLĖ1:15:958:(7)" YOU CANNOT OUTPUT THE PERMANENT"C1$" STATS LIST, BECAUSE YOU HAVE"C1$" NOT SAVED ANY STATS.":14000:6840-CO2PSW1::13:12:W$:X1N:Y1N1:AP10A:PLCLĢ11:"YOU CANNOT USE THE OUTPUT OPTION,"C1$"BECAUSE YOU HAVE NOT ENTERED OR"C1$"SAVED ANY STATS.":14000:4560A12:"OUTPUT OPTIONS":L0:C2$:K9340:7980:O34560EBO1CLĖ1:15:958:(7)" YOU CANNOT OUTPUT THE CURRENT"C1$" S14000:6420@T8:" ONCE THE LIST IS UPDATED YOU"C1$" WILL NOT BE ABLE TO RETRIEVE"C1$" YOUR OLD LIST.":Q$(1)"YES":Q$(2)"NO":D(1)17.20:20:13:Q$;@VD(0)1:R3:D4:18:3:"ARE YOU SURE YOU WANT TO DO THIS?";:Q2:800:8220:O2O06420A65X,Y)ST%(X,Y))(PS%(X,Y)ST%(X,Y)32767)32767(PS%(X,Y)ST%(X,Y)32767):Y,X:BL$"H"İ19000?(4)"DELETE"S$",D"DR:D$S$:(4)"WRITE"S$:U1:PL1 @F$S$:N100(N12):X1N:Y1(N12):PS%(X,Y):Y,X:B$::12:" STATS LIST UPDATE COMPLETE.":ST"C1$"CANNOT BE UPDATED.":14000:64203>d:6740B>nZ326620}>x:12:13:W$:C$"DELETE"F$",D"DR:D$F$:(4)"WRITE"F$>}T1:X1N:N$(X):X:B$::12:" NAMES LIST UPDATE COMPLETE.":14000:6420^?:12:13:W$:X1N:Y1N1:PS%(X,Y)(PS%(:23:20)R=EE1āXFZ5:YZ6Z7:APS%(X,Y):PS%(X,Y)ST%(X,Y):ST%(X,Y)A:Y,X\=5960=:12:"UPDATE OPTIONS"C1$:K9320:::7980:Z3O:Z334560'>Z(Z31T1)(Z32U1)ė:10:"YOU HAVE NOT MADE ANY CHANGES IN"C1$"THAT LIST, THEREFORE THE LI(Y46)(Y60)(Y62)(Y8)(Y21):Y06366M<(16384)12813Y13:6371<(16384)12827Ė1:2:868:23:868:6300<Y32<Y326380<21:33::XZ:4)" ";:XX1:XN1X1:6363<6363 =Z6X:Z7X:32,2:33,36:3:2:20):3"PRESS THE > KEY"C2$"TO CHOOSE THE ITEM"C2$"TO EDIT."C2$"PRESS WHEN"C2$"READY TO EDIT."C2$"PRESS TO QUIT"C2$"AND RETURN TO THE"C2$"LIST OF OPTIONS.":32,2:33,36;21:33::XZ:4)Q$;:16368,0,<Y(16384)128:Y(Y44)(Y13)(Y27) LIST, BECAUSE YOU HAVE"C1$" NOT SAVED ANY STATS.":14000:6330p:R10:D3:Z61:Z7N1:E1:Z33E0:ET1:6381::7,58:6,252:32000:G1N1:Q$(G):G:Z1(N122):X1N1:Q$(X),SL$:8:XZ:(Q$(X),(26)1,6);:X:33,20:32,16:20:38:;X1:: OPTIONS.":6::K9355:8000:EEO1:15:1:958:O363009O1CLĖ1:15:(7)" YOU CANNOT EDIT THE CURRENT"C1$" STATS LIST, BECAUSE YOU HAVE"C1$" NOT ENTERED ANY STATS.":14000:6330?:O2PLĖ1:15:(7)" YOU CANNOT EDIT THE PERMANENT"C1$" STATS:15:958:"WHAT IS THE NUMBER OF THE PLAYER"C1$"WHOSE STATS YOU WOULD LIKE TO EDIT?":18:10:Q$:D5:R2:D(0)1:D(1)14.18:800:X(O$):X1XN63108FX:Z5X:D499:10)"EDIT OPTIONS":12:" PRESS THE KEY TO RETURN"C1$" TO THE LIST OF EDIT(X,Y)A:Y,X:140007:CLPLĢ11:1:"YOU CANNOT USE THE EDIT OPTION,"C1$"BECAUSE YOU HAVE NOT ENTERED OR"C1$"SAVED ANY STATS.":14000:45607D1:R20:10)"EDIT OPTIONS"C2$:K9350:8000:Z3O:Z34E0:45607EE0:F1:Z5N:Z3163308K0:1.08,29.08,5.13,11.13,17.13,23.13,29.13V%3.03,9.03,15.03,21.03,27.03,33.03,3.08,9.08,15.08,21.08,27.08,33.08,9.13,15.13,21.13,27.13V%3.03,9.03,15.03,21.03,27.03,33.03,3.08,9.08,15.08,21.08,27.08,33.08,5.13,11.13,17.13,23.13,29.13XW%3.03,9.03,15.021.08,27.08, 9.13,15.13,21.13,27.13tU%5.03,11.03,17.03,23.03,29.03,5.08,11.08,17.08,23.08,29.08,11.13,17.13,23.13U%5.03,11.03,17.03,23.03,29.03,5.08,11.08,17.08,23.08,29.08,9.13,15.13,21.13,27.13&V%5.03,11.03,17.03,23.03,29.03,5.08,11.08,17.08,233.08,10.13,18.13,26.13RTD% 10.03,18.03,26.03,10.08,18.08,26.08,10.13,18.13,26.13TX%9.03,15.03,21.03,27.03,9.08,15.08,21.08,27.08,15.13,21.1.13Tl%9.03,15.03,21.03,27.03,9.08,15.08,21.08,27.08,10.13,18.13,26.13#U%9.03,15.03,21.03,27.03,9.08,15.08,PERMANENT STATS LIST S$ 18.072S$ 13.07,23.07IS$ 13.04,23.04,18.1eS$ 13.04,23.04,13.1,23.1S$ 11.04,25.04,18.08,11.12,25.12S% 10.04,18.04,26.04,10.1,18.1,26.1S% 10.03,18.03,26.03,18.08,10.13,18.13,26.13T0% 10.03,18.03,26.03,13.08,2PDATE NAMES LIST,S--UPDATE STATS LIST_R|$ 2,C--OUTPUT CURRENT STATS,P--OUTPUT PERMANENT STATSR$ 3,S--EDIT SAME ITEM FOR EVERY PLAYER,O--EDIT ONE ITEM FOR ONE PLAYER,A--EDIT ALL ITEMS FOR ONE PLAYER S$ 2,C--EDIT THE CURRENT STATS LIST,P--EDIT THE S,E--EDIT THE STATS LISTS,U--UPDATE THE STATS OR NAMES LISTS,O--OUTPUT CURRENT OR PERMANENT STATS,L--CHANGE NAMES AND STATS LISTS,R--CHANGE SPORTS ROUTINE,S--STOP QT$ 3,A--ADD NAMES TO THE LIST,C--CHANGE A NAME IN THE LIST,L--LIST THE NAMES%Rh$ 2,N--UVIDUAL)/STIX11","BASKETBALL (TEAM)/STIX10","BOWLING/STIX70","FOOTBALL (OFFENSIVE)/STIX30","HOCKEY (GOALIE)/STIX18","HOCKEY/STIX17"P,$ "SOCCER (GOALIE)/STIX74","SOCCER/STIX76","VOLLEYBALL/STIX78","WRESTLING/STIX12"Q@$ 8,N--NAMES,I--INPUT CURRENT STATYOU WILL HAVE TO INACTIVATE/DELETE"C1$"SOME STATS LISTS.":14000:O$ 14, "BASEBALL/SOFTBALL (OFFENSIVE)/STIX21","BASEBALL/SOFTBALL (FIELDING)/STIX24","BASEBALL/SOFTBALL (PITCHING)/STIX22","BASEBALL/SOFTBALL (HITTING)/STIX23"P$ "BASKETBALL (INDI:(O$)0O0:FN X1Q:Q$(X),O$:O(X)(26)::X1Q:O(X)1OX:cN X:(O$)1(O$)08470rN!(O$)1ıN!Y0:Z0:X1Q:O(X)1YY1:ZXN*!X:Y0Y1O0:NH!OZ:BO!:11:"THERE IS ALREADY 10 ACTIVE"C1$"STATS LISTS ON DISKETTE."C2$":G:"PRESS THE KEY TO RETURN":G:"TO THE MAIN MENU."OMD(1)(G)4.22MG:20:"WHICH OPTION WOULD YOU LIKE?":22:G:Q$;:800:8220:O08200M1:22:868:20:868:16:(7)"TRY AGAIN.":Z31500:Z3:8140M K0:N X1Q:O(X)0:XY:7,X:32000NLhY0:Z0:Q:X1Q:Q$(X):YY(Q$(X)):(Q$(X))ZZ(Q$(X)){LX:Y(YQ):G((35Y)2):GZ37G37ZL(K9300K9320)(K9340)GG2LX1Q:1:G)Q$(X);::(Q$(X))36ĺLX:(K9300K9320)(K9340K9350)8139 WHEN READY.";:A$:A$" "7660KKC$"PR#1":(9)"80N":K,D(0)1:D1:R26 L@X122:Q$(X)""::XN130:N$(X)""::X(0):X(K256):YKX256:6,C1$;:7:"INSERT THE PROGRAM DISKETTE INTO"C2$"DISK DRIVE #1."OJ14000:7259JJ0:P0:(16128)44(16128)24(16128)8J1:7380JP1:-K:10:"WOULD YOU LIKE THE RESULTS SENT"C1$"TO THE PRINTER?":Q$(1)"YES":Q$(2)"NO":Q2:D4:R3:D(0)а45:Iq12035Is30464,2(Iu7289bIwC$"UNLOCKDELETIONS,D1":C$"LOCKDELETIONS":PD1:7295IyX(222):Y(218)256(119):X8İ40:7259I{X4İ40:7259I}12035IDSW1DSW0:3182IX(0):12000IC$"RUN HELLO-OPTIONS,D1">J:CKDELETIONS,D1":C$"LOCKDELETIONS":PD1:7295EHa(222)8İ40:7259PHc12000]He30464,1hHg7275HiD$"DUMMY,D"DR:C$"WRITEDUMMY":"HI":B$"DUMMY":C$"DELETEDUMMY":PD0:7301HkX(222):Y(218)256(119):X87283HmX4İ30:7271IoX9:8220:O07244GNO24560-GPDR27259GRB$::C2$"REMOVE THE "(34)"STATS"(34)" DATA DISKETTE "C2$"FROM DISK DRIVE #1.":12:"INSERT THE PROGRAM DISKETTE INTO"C2$"DRIVE #1.":14000G[:12:13:W$G](DR1)7269:30464,2:7265-H_C$"UNLO̠Π"̠ϱ"(O),6)",D1"C]622:1:868:"PRESS THE TO CONTINUE.";d]616368,0:A$:A$" "14010p]6::,6):):109,((26)):110,((27)):111,((28)):112,((29)):X(0):\,340784,79:13010:X(176)256(175):Y1001:(XY)54(XY1)41YY2:13150\@3Y:"ERR-13120": ]^3XXY1:Y(X256):XXY256:13000:103,X:104,Y:B$"DELETIONS":(4)"RUN"(Q$TION AND REPORT IT"C2$"TO MECC."C2$C2$"ERROR = "X" IN LINE "Y".":Y[/14000:SC0ī4560c[/3520[26,((105)):7,((106)):8,((107)):9,((108)):26,((109)):27,((110)):28,((111)):29,((112)):>\2105,((6)):106,((7)):107,((8)):108,((9)(218)(219)256::10:(7)(7):944:12000>Z.X9İ45:Z.X255ĺ"YOU PRESSED CONTROL-C."C1$"USE THE 'STOP' OPTION TO QUIT.":12050B[/::6:"AN ERROR HAS OCCURRED WITHIN A PROGRAM"C2$"ON THIS DISKETTE. PLEASE RECORD THE"C2$"FOLLOWING INFORMAENT STATS LIST?"C2$Q$;:R3:D(0)1:D(1)5.22:D4:800:O$"N"O$"NO"4580qYj'(O$"Y"O$"YE")O$"YES"10000Y~':12:13:W$;:X0:Z1Y'Y131:ST%(Y,Z)X:Y:Q$(Z)"":ZZ1:Z2210120Y'Y131:N$(Y)"":Y:F$"":CL0:X(0):3180/Z.X(222):YOUTINE,"C1$"THEN YOU SHOULD ALSO CHANGE NAMES"C1$"AND STATS LISTS. IF YOU DECIDE TO"C1$"DO SO AT THIS POINT, THEN YOUR"C1$"CURRENT STATS LIST WILL ALSO BE"C1$"ERASED.X'UT10080X$'60IY`'19:"WOULD YOU LIKE TO CHANGE THE LISTS AND CLEAR YOUR CURR3,21.03,27.03,33.03,3.08,9.08,15.08,21.08,27.08,33.08,3.13, 9.13,15.13,21.13,27.13,33.13WH&9.03,15.03,21.03,27.03,9.08,15.08,21.08,27.08,10.13,18.13,26.13,9.03,15.03,21.03,27.03,9.08,15.08,21.08,27.08,10.13,18.13,26.13X':"IF YOU CHANGE THE SPORTS R