' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈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,&"_]` L/浍굺L  !"#$%&'()*+,-./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#0EB 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`   vLDcpq` [` ~  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 iõ`  \ 濭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- ( D ͮŠ@跻~!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䵍䵐`"L ŵ8ŵH ~(`F d ֠z# u`e Explanation" 2540" 2520? :12:"This File : ";N$c "Cannot be Found on This Disk"m 2540 N$"MAIN.MENU" D$;"RUN ";N$ 18:6);"Press [ ] to Return to Menu" 18:14:A$ :EC254ĴZZ730,1670#L EC62490UV :12:5);"Program Died Due to Error No.";ECe` EC162450j 6);"Refer to Applesoft Reference"t 10);"for Code Explanation"~ 2540 2520 4);"Refer to DOS Programmers Manual" 10);"for Cod;(N$,(N$)1):::16:10);"Output to Printer ? [ ]"QA$"N":16:32:A$a16:32:A$vA$(13)A$"N"A$"N"A$"Y"ı 2270 23:9);"Press [ ] to Continue" 23:17:A$$ :. Z180:"=";:Z:::8 EC(222)B fIp(12)0zD$;"PR#0":(897)208Č8969460RZ140:"=";:Z::x13:10);"Enter Your Choice [ ]"A$" ":13:30:A$13:30:A$:1:11);"Schedule by ";N$:9);"1.Complete Schedule":9);"2.For a Specific "1,J)):L1DW%(I1,J)12L$" - Home On ":L1$L$RS%(I,J)0L$" - Away On "u S%(I1,J)0L1$" - Away On "Z);J;" ";T$(K);L$;DY$(L);Z6);J;" ";T$(K1);L1$;DY$(L1) J*42350HQ(16384)R(Q128)27IB\16368,0isk"! 3050!! N$"MAIN.MENU"3! D$;"RUN ";N$^! 18:6);"Press [ ] to Return to Menu"n! 18:14:A$v! :62960. h 6);"Refer to Applesoft Reference"O r 10);"for Code Explanation"Y | 3050c 3030 4);"Refer to DOS Programmers Manual" 10);"for Code Explanation" 3050 3030 :12:"This File : ";N$! "Cannot be Found on This D  J:I D$;"CLOSE ";N$0 D$;"LOCK ";N$6 D" EC(222)], EL(219)256(218)6 EC254Ģ21:16:" ":21:16:@ EC63000J :12:5);"Program Died Due to Error No.";ECT 5);"Error Occurred in Line No.";EL ^ EC1t-" d 7n 12:1:6);"PRESS [ ] TO RETURN TO MENU"Gx 12:14:A$N 1W 160] m N$"SEASON"s  11:10:"WRITING SEASON DATA" D$;"UNLOCK ";N$ D$;"OPEN ";N$ D$;"WRITE ";N$ I128:J116 S$(S(I,J)) S$ Z1%((Z%)) YS(Z1%,J): Y%((Y)10):Y%Y%(Y)J Y1%((Y%))a D%((Z))(Z1%10)y D1%((Y))(Y1%10)( 2 7:"On Week No."< K140:"-";:KF 9:"Team No.";11);"Team No.";9);"On"P 10:K140:"-";:KZ 11:16:"-a1:20:40)L 21:40)'V 22:40)-` =j N$"SEASON"Ct f~ 11:10:"READING SEASON DATA"l  D$;"OPEN ";N$ D$;"READ ";N$ I128:J116 S$ S(I,J)(S$) J:I D$;"CLOSE ";N$  Z%((Z)10):Z%Z%(Z)22:25:A$22:25:A$<A$"N"A$"Y"A$(13)ī2300I1:2240|A$"N"Ģ20:1:40):21:40):22:40):1960 D(C$)1 S(I,J)(TZ)(D(Z)) ((Z)2)2340,2400,2360$ S(T,J)(I10)D. 23708 S(T,J)((I10)D)(1) B 22:11:"Sun=1 Mon=2 Tue=3"Dp23:8:"Wed=4 Thur=5 Fri=6 Sat=7"Tz21:39:C$d21:39:C$yC$(13)C$"1"(C$(49)C$(55))212021:39:C$22:1:40)23:1:40)22:"Is The Above Correct ? [ ]"A$"Y" 20:27:A$21:40)K21:"Opponent No.";X);J;"= "j 21:26:"Day of Week=[ ]"uC$"1" 21:39:C$*21:16:T4T1T28Ģ21:1:40):2050>TI2050H21:17:TRC$"1"\21:26:"Day of Week=[ ]"fvK140:"=";:K X0L19:"Entries for Team No.";I;"-";T$(I)ZJ9X120:"Week No.";X);J;"---";"Home Game---[ ]"A$"Y":Z1020:27:A$20:27:A$A$"N"Z(10)A$"Y"A$"N"A$(13)20301:196020:20:A$%A$"Y"A$(13)14506A$"N"1800C1:1720O:1850Y1930c1450m&2720v0160:10:"Schedule Entry Routine"DK140:"=";:KNK114:X1XK9X2bX);K;1);T$(K);" "K14;1);T$(K14)lK:WDB(I)(R(I,2)R(I,4)2)W$$i I]$n 8);"NATIONAL FOOTBALL LEAGUE DIVISIONAL STANDINGS"$x W0ĺ24);"BEFORE WEEK 1";"-";Y:3380:2700$ 24);"FOR WEEK ";W;"-";Y:3380$ L11:L25:L35:L41$ 20);"AMERICAN FOOTBALL CONFERENCE"$ 3380%(897)208Č896:# 936:10:8:"Do You Want to List the"h# 12:8:4120:"Divisional Standings ?[ ]"# Z$"Y":12:31:Z$# 12:31:Z$#( Z$(13)Z$"Y"#2 Z$"N"Z$"Y"2630#< 2580#F :Z$"N"2940#P 3250#Z X65$d I128:DB(I)00)"j TN$(F7);" BY";Z1);(F4);Z2);NUMB3"t 2440Q"~ 11);"PICK'EM";Z2);NUMBe" DB(I)1:DB(K)1" (IFT)(KFT)ĺ(27);(34);" J" :3380" L1$""2530" :X80" 3380" :L1$:L2$" 3380" 4140" (12)# D$;"PR#0":UMBL1! L20.25L205! L20.25L20.75L20.5H! L20.75L21W!$ NUMBL1L2m!. Z26:F60.5Z24!8 NUMB9.5Z2Z21!B F40Z24!G F418Z26!L (IFT)(KFT)ĺ(27);(33);!V T$(I);" AT ";T$(K);" ON ";DY$(L);" -- ";"` F402436.25F60' F60.25F60.75F60.5: F60.75F61V F4(F7F6)((F4)):F7Ih (F4)0F7K{ LDW%(J,W1)1 (F4)F3F4F3 Z11:(F4)9.5Z12 (F4)1Z13 NUMB((R(I,7)R(K,7))2)((R(I,8)R(K,8))2)!L1(NUMB):L2NX80:3380H415);"GAME";18);"DAY";9);"PREDICTED";7);"OVER/UNDER"R>3380kH:J128:DB(J)0:JwRJ128\DB(J)12460fIJ:K(S%(J,W1))pS%(J,W1)02180zIK:KJF4R(I,1)R(K,1)F1F5(F4):F7(F5):F6F5F7 FC;" % CORRECT FOR WEEK ";W$3380CD$"Y"ĺ:"NOTE !-THE ABOVE PREDICTED RESULTS MAY DIFFER FROM PREVIOUS":7);"PRINTOUTS DUE TO CHANGES IN TEAM DATA."4140 W162540: 17);"MR.MACHINE'S SELECTIONS FOR WEEK ";W1;" - ";Y *93011);"TIED --";+DB(I)01960LTN$(L1);" BY";Z2);(DB(I))V1970r11);"PICK'EM":NGNG1DB(I)1000:DB(K)1000(IFT)(KFT)ĺ(27);(34);J:3380CC2:PC(10(C100NG))10C;" OUT OF ";NG;" FOR ";P(DB(I))1Z23/0(IFT)(KFT)ĺ(27);(33);Z:T$(I);" AT ";T$(K);"- ";DY$(L2);"--";tDD%(I)0DB(I)01890NTN$(L);" BY";Z1);(D%(I));" --";TN$(L1);" BY";Z2);(DB(I))X1970bD%(I)01920lTN$(L);" BY";Z1);(D%(I));" --";v1)JJ128)DB(J)10001990NIJ:K(S%(J,W)):S%(J,W)01760ZIK:KJgLI:L1IyL2DW%(J,W)1(D%(I))0LK(DB(I))0L1K(DB(I))F3DB(I)F3Z$((D%(I))):Z13((Z$))Z21:(DB(I))9.5Z22&K ";W;" - ";YT:3380i^53);"POINT SPREADS":15);"GAME";18);"DAY";7);"ACTUAL";14);"PREDICTED"sh3380r:J128|F4(DB(J)):F7(F4):F5F4F7F5.25F50F50.25F50.75F50.5F50.75F51DB(J)(F7F5)((DB(J))Commissioner of Football *"Q19);"* Has Determined That This Program is *"19);"* Dangerous to Your Bank Account !!!!!! *""19);"*****************************************",(12)6I2:4150@W02070 J27);"RESULTS FOR WEE;ZC);PC$;Z7);R(J,5);Z8);R(J,6);Z9);PS%(J);ZA);PA%(J)QJFTĺ(27);(34);nDA(J)1000:I::3380:I110::I19);"*****************************************"19);"* COPYRIGHTED ";Y;12);"*"19);"* WARNING: The TEAM RATING WINS LOSSES TIES % SCORED ALLOWED P.S. P.A."Rn3380`x:I128hJ1tK128DA(K)DA(J)1450JKK3400JFTĺ(27);(33);9Z1);I;" ";T$(J);Z2);RA$;Z3);R(J,2);Z4);R(J,3);Z5);R(J,4)k No.";W$4"Press [ ] to Enter a Different Week"C&15:8:A$I0^:D$;"DELETE ";N$wD:3288:E1460,830N1900XN$"MAIN.MENU"bD$;"RUN ";N$l18:6);"Press [ ] to Return to Menu"v18:14:A$:Ufor Code Explanation"1900)1880T4);"Refer to DOS Programmers Manual"u10);"for Code Explanation"19001880N$"TD."TD$:12:"This File : ";N$"Cannot be Found on This Disk"E10Č3288:1870 "For WeeE144460 40"For Week No.";WK4:"Press [ ] to Enter a Different Week"Z4D15:8:A$`4Nu4XD$;"DELETE ";N$4b:3288:1204l:44904vN$"MAIN.MENU"4D$;"RUN ";N$418:6);"Press [ ] to Return to Menu"418:14:A$4:R;"Refer to Applesoft Reference"@310);"for Code Explanation"J34490T3447035);"Refer to DOS Programmer's Manual"310);"for Code Explanation"34490344703936:12:"This File : ";N$3"Cannot be Found on This Disk" 4&(222)2|EL(219)256(218)B2EC254Č3288:E1640,690,140V2EC5E144370e2EC643702EC255(E11E12)44702936:12:5);"Program Died Due to Error No.";EC25);"Error Occurred in Line No.";EL2EC16EC0433036)XZ(12):XT,XZ(12):SND:C1,H16:XD,XZ(H):XT,XZ(H6):SND:H:W1673);"PAGE ";In1@I180:"=";:I:t1J1T 173,48,192,136,208,4,198,1,240,8,202,208,246,166,0,76,0,3,961^ 96,72,57,48,57,48,50,50,50,100,50,200,25,125,150,1751h2rECE ";N$0Y$C$(1)0J0'0I51110JJ1B0DY$(J)C$(I)I0Iq0F1(C$(2)):F2(C$(4)):F3(C$(3))0Y(Y$):FT(C$(15))0I018:J:768I,J:I0XD0:XT1:SND7680I116:XZ(I):I00XD,XZ(13):XT,XZ(5):SND:1"XD,)Z%/Z1%((Z%))1/DW%(I,J)((S))(Z1%10)8/(J?/2IS/<D$;"CLOSE ";N$g/FN$"PGMFACTORS"/P936:12:10);"At Last, Almost Ready ...."/ZZ0/dD$;"OPEN ";N$/nD$;"READ ";N$/xZZ1/C$(Z)/C$(Z)"END"39600D$;"CLOS28:TN$(I):I!.D$;"CLOSE ";N$1.N$"SEASON"].936:12:9);"Finding Who Plays Who.".9);"Relax, This Takes a While ....".D$;"OPEN ";N$.D$;"READ ";N$.I128.J116.S$.S(S$).Z%((S)10):Z%Z%(S)/ S%(I,J(Z$)) -$-.N$"TEAM.CITY"C-8936:12:13);"Gathering Data"V-BD$;"OPEN ";N$i-LD$;"READ ";N$-VI128:T$(I):I-`D$;"CLOSE ";N$-jN$"TEAM.NAME"-t936:12:10);"Gathering More Data"-~D$;"OPEN ";N$-D$;"READ ";N$ .I146((Z$))), Z$(R(J,4)):Z56((Z$))D, PC0PC$".000":3570`, PC1PC$"1.000":3570{, PC$(((PC)"000"),4), ZC7((PC$)), Z$(R(J,5)):Z77((Z$)),Z$(R(J,6)):Z87((Z$)),Z$(PS%(J)):Z97((Z$))-Z$(PA%(J)):ZA5(C0:3420+R PCF4W)+\ Z11:I9Z12:+f RA(R(J,1))W+p RB(R(J,1)100)(RA100)e+z RA$(RA)s+ RB$(RB)+ RB$(("."RB$"000"),2)+ RA$RA$RB$+ Z22:((RA$))4Z21+ ((RA$))4Z23+ Z$(R(J,2)):Z36((Z$)) , Z$(R(J,3)):Z:32:SL$* 14:32:SL$1* SL$(13)SL$"1"O* SL$(48)SL$(55)3270]* SL(SL$)* 1:16:5);"Output Now Directed to Printer"* * D$;"PR# ";SL** *4 LW1X:"-";:LW::*> LW1X:"=";:LW:: +H F4R(J,2)(R(J,4)2):W0PD.";TD$)b Z$"N":Z$))l I128:J18:)v Z$(R(I,J))B) Z$L) J:Id) D$;"CLOSE TD.";TD${) D$;"LOCK TD.";TD$) ) 936:4120) 12:" Turn on Printer and Position Paper") SL$"1") 14:7);"Enter Printer Slot No. [ ]" * 1412);"Another Run ?[ ]"-( Z$"N":12:27:Z$=( 12:27:Z$C( X( Z$(13)Z$"N"p( Z$"N"Z$"Y"3100z( 3040( Z$"Y"120(& 4470(0 WXW1:W$(WX):Y$(Y1900)(: TD$W$"."Y$(D N$"TD."TD$(N D$;"OPEN TD.";TD$)X D$;"WRITE T '^ 4140'h (12)5'r D$;"PR#0":(897)208Č896C'| 936:12s' 4120:4);"Update Disk For Next Week ?[ ]"' Z$"Y":12:33:Z$' 12:33:Z$' ' Z$(13)Z$"Y"' Z$"N"Z$"Y"3020' 2960' Z$"Y"İ3120( 936:12:4120: KL1L2!& DB(K)DB(J)2850)& JK0&" K:&, 3400T&6 (JFT)ĺ(27);(33);&@ T$(J);Z2);RA$;Z3);R(J,2);Z4);R(J,3);Z5);R(J,4);ZC);PC$;Z7);R(J,5);Z8);R(J,6)&J (JFT)ĺ(27);(34);'T DB(J)1:I::L1L21:L2L2L3:L35:L4L41:L:3380 L16% L4İ3380K% L4ĺ20);"NATIONAL FOOTBALL CONFERENCE":3380]% L1L5L34l% L44L41% C$(L411):Z116:"-";:Z:33);"POINTS POINTS"% 5);"TEAM RATING WINS LOSSES TIES % SCORED ALLOWED"% IL1L2% J1 &䍲ӠčŠǠ͠ìҬŧӍР󠱴宠宍Š͠Ǡ͠宠󮍍٠Ҡ箠堺쬠򮍍̠ԭƠ󺍍ΠҠŠĠŠ䠨宠Ӯš󍭭宍ٍ  ΍  ΍΍  ٍ  9:"BY":7:13:"ROBERT MUENCH":9:13:"COPYRIGHT 1985" 17:" SOFTDISK IS NOT PUBLIC DOMAIN. ":" PLEASE RESPECT THE AUTHOR'S RIGHTS.": D$;"RUN MAIN.MENU"1 N896906:G:N,G:N N4680046810:G:N,G:T  169,208,133,54,169,182,133,55,76,234,3 49,128,201,224,144,2,41,223,76,240,253 :::13:" ":13:" MR. MACHINE ":13:" ":9 5:1D$(4):897,03000P D$"BLOAD PACK/UNPACK":D$"BLOAD TITLEMM.PAC"f(637)223420d::10:"CAN YOUR COMPUTER DISPLAY LOWER CASE? ";A$:(A$,1)"Y"(A$,1)"y"420x1000:896:230,64:0,5:1,97:24576I15000 I  ӠӠӠӠӠӠӠӠӠӠӠӠӠӠӠӠӠӠӠӠӠӠӠӠӠӠӠӠ ԮӠΠϠԠΠ٠٠̮ӠנӠΠϠϠӠɠנĠנˠӠɠĠΠȠҠӠ٠̮ӠΠϠŠӠנˠӍ z #?   ĮĮ ĮĮ ԠĮ  Š !Ӡ Įͮ٠ͮŠĮ Į Ӡ ٠ ͮà ˯ˠԠӠΠ ͮŠήՠԮՠŮԠŮӠٮӠ.   to Return to Menu"# 18:14:A$+:1 lanation" 770 750F 4);"Refer to DOS Programmers Manual"g 10);"for Code Explanation"p 770y 750 :12:"This File : ";N$ "Cannot be Found on This Disk" 770 N$"MAIN.MENU" D$;"RUN ";N$18:6);"Press [ ] &580 0N$"HELLO"K ::12:"THANKS FOR VISITING":"SEE YA NEXT WEEK"] DD$;"RUN ";N$c Nq XEC(222) bEC6720 l:12:5);"Program Died Due to Error No.";EC vEC16680 6);"Refer to Applesoft Reference" 10);"for Code ExpI " ---->" J1100:J' I/ 23B A$(49)ī480U A$(50)ī500h A$(51)ī520{ A$(52)ī540 A$(53)ī560 N$"RATINGS" 580 N$"SCHEDULE.ROUTINES" 580 N$"EDIT.MENU" 580 N$"INSTRUCTIONS"Quit" I140:"=";:I( :U " Pick a Number Between 1 and 5 [ ]"] :r "I140:"=";:I ,18:36:A$ 6A$(49)A$(53)ī300 @A(A$):L12(2A) J18:36:A$ TI1L ^I1ī380 h16I r" " |15 Z d n9 x6);"-----> THE MAIN MENU <-----"N I140:"=";:IT y 8);"1.Ratings and Predictions" 8);"2.Schedule Routines" 8);"3.Edit Procedures" 8);"4.Program Overview"  8);"5.Time to 2% **************************I *PROGRAM NAME="Main.Menu"*m * by *( * Robert Muench *2 * Copyrighted 1983 *< **************************FD$(4):(897)208Č896 P600     nnot be Found on This Disk"$8207 N$"MAIN.MENU"I*D$;"RUN ";N$t418:6);"Press [ ] to Return to Menu">18:14:A$H:Nress [ ] to Return to Menu"p18:14:A$z:ted in Line No.";EL! EC16730I 6);"Refer to Applesoft Reference"j 10);"for Code Explanation"s 820| 800 4);"Refer to DOS Programmers Manual" 10);"for Code Explanation" 820 800 :12:"This File : ";N$ "Ca.EDIT" 610 N$"CITY"& &6104 0N$"NAME"= :610N DN$"FACTORS"W N610j XN$"MAIN.MENU"| bD$;"RUN ";N$ l vEC(222) EC6770 EL(219)256(218) :12:5);"Program Died Due to Error No.";EC 5);"Error OccurrL hI1ī390 r18I( |" "2 17IA " ---->"Q J1100:JX I` 23s A$(49)ī500 A$(50)ī520 A$(51)ī540 A$(52)ī560 A$(53)ī580 A$(54)600 N$"WEEKLY.DATA" 610 N$"SCHEDULEam Constants." 6 8);"6.Return to Main Menu."< Q I140:"=";:IY : " Pick a Number Between 1 and 6 [ ]" ": ,I140:"=";:I 620:36:A$ @A$(49)A$(54)ī310 JA(A$):L14(2A) T20:36:A$ ^I10 Z d1 n8);"Edit Functions Available"F xI140:"=";:IL n 8);"1.Change Weekly Data. "t 8);"2.Modify Schedule Data." 8);"3.Change City Name." 8);"4.Change Team Name."  8);"5.Change Progr% **************************J *PROGRAM NAME="Edit.Menu"*n * by *( * Robert Muench *2 * Copyrighted 1983 *< **************************FD$(4):(897)208Č896 P63      ":9:9:V)9:28:" ":9:28:H811:T$(V)K11:20:T$(H)`11:36:DY$(D%)20:"Is This Correct ? [ ]"21:"Note!-If the Above is Correct Be Sure"22:7:"to Check Team No.";Z1%;" for Error."A$"Y":20:20:A$ ":VP:HP:I$ I$(48)1830,I(I$)?I1I281520IVP21h"VP:HP:" ":VP:HP:J$t,J(J$)6J1J161570@ZS(I,J)J2530T^2610h7:12:" ":7:12:JrHI:VZ1%|((Z))(1)HZ1%:VI 9:9:":10:10);"Printing Complete !!!"/26705?2410EO1850t19:1:"Select Team to Edit---"20:5:"Enter Team No."21:9:"What Week-"23:5:"Enter a 0 For Team No. to Quit"VP20:HP20:HPP20 VP:HP:" V9X9H9Y8F("Team No. ";V;X);"Team No. ";H;Y);"On"]2K140:"-";:K:<T$(V);"-at-";T$(H);" ";DY$(D%)FK140:"-";:K::PQ(16384)Z(Q128)27J16:I28d16368,0nJ:IxD$;"PR#0":(897)208Č896%:16:5);"Output Now Directed to Printer"Z18:" Press Key to Stop Printing"`rD$;"PR# ";SNI128:J116BD(I,J)01390ZBD(I,J)2530"On Week No.";JHI:VZ1%((Z))(1)HZ1%:VI X8:Y7 20:18:A$J$I.(82670.B_L12:" Turn on Printer and Position Paper"kVSN$"1"`14:7);"Enter Printer Slot No.[ ]"j14:31:SN$t14:31:SN$~SN$(13)SN$"1"SN$(49)SN$(55)1110SN(SN$)*1,J)01050ZBD(I,J)"2530>7:12:" ":7:12:JLHI:VZ1%g((Z))(1)HZ1%:VI9:9:" ":9:9:V9:28:" ":9:28:H11:T$(V)11:20:T$(H)11:36:DY$(D%)20:10);"PRESS [ ] TO CONTINUE"  2.List Errors To Printer":M4" 3.Forget It and Return to Menu"::p>" Enter Your Choice [ ]"H15:26:A$RA$(49)A$(51)840\A$(49)890fA$(50)1090pA$(51)160z2610I128:J116 BD(II,J)S(I,J)F(D%D1%)0ERER1:BD(I,J)S(I,J):BD(Z1%,J)S(Z1%,J)PJ:IVdER078010:8);"NO ERRORS WERE DETECTED"2670 4:"There Were ";ER;" Suspected Errors Detected" 8:" 1.List Errors To Screen":*",J)0600 N1930 XJ" bI, l27205 v160> ER0H 2410N  I128:12:"Checking Team No.";I;"-";T$(I):J116 14:8:"Suspected Error Count ";ER ZS(I,J) 2530 Y%(I((S(I,J))))0ERER1:BD(Z1%,J)S(Z1%,J):BD( " 14I " ---->"+ J1100:J2 IE A$(49)ī530X A$(50)ī640l A$(51)ī1430~ A$(52)510 160 N$"EDIT.MENU" D$;"RUN ";N$  I128:J116:S(I,J)0:J:I &1850 0I128 :J116 DS(In to Edit Menu." + "I140:"=";:I3 ,:` 6" Pick a Number Between 1 and 4 [ ]"h @:} JI140:"=";:I T17:36:A$ ^A$(49)A$(52)ī340 hA(A$):L10(2A) r17:36:A$ |I1L I1ī420 15I " $(4)"THR.":DY$(5)"FRI.":DY$(6)"SAT."- 5 :V 10);"Schedule Edit System"k I140:"=";:Iq 8);"1.Enter a New Schedule." 8);"2.Verify an Existing Schedule" 8);"3.Correct an Entry."  8);"4.Retur***********************6 FT$(30),S(30,20),BD(30,20)A P2850^ ZD$(4):(897)208Č896q dN$"TEAM.CITY" nD$;"OPEN ";N$ xD$;"READ ";N$ I128:T$(I):I D$;"CLOSE ";N$' DY$(0)"SUN.":DY$(1)"MON.":DY$(2)"TUE.":DY$(3)"WED.":DYw1 ********************************* _ * PROGRAM NAME="SCHEDULE.EDIT" * * BY *( * ROBERT MUENCH *2 * COPYRIGHTED 1983 * < **********          (16384)l(Q128)27IB,v16369,061940@2320GIgD$;"PR#0":(897)208Č896p460}IAB2" Week";7);T$(I);16);"Week";7);T$(I1)2350J116Z2:J9Z3K(S%(I,J)):LDW%(I,J)1K1(S%(ITN0SN01970IAB!9" Week";7);T$(I)C2190OJ116aZ3:J10Z4K(S%(I,J)):LDW%(I,J)1L$" - Home On "&S%(I,J)0L$" - Away On "0Z);J;" ";T$(K);L$;DY$(L):JDN2190XSN01930 bQ2230@2190J2240#T2190-^2200JhA$(49)A$(50)İ2200grA$(49)A1:B28:1720{|A$(50)155014:7);"Enter Team No.(1 to 28)___ "14:31:TNTN1TN281670ATNBTN2260A$"Y"İ141014:32:SN$$SN$(13)SN$"1"BSN$(49)SN$(55)1410PSN(SN$)1:16:5);"Output Now Directed to Printer"18:" Press Key to Stop Printing"D$;"PR# ";SNZZ2"TN0:SN0,N$"Teams"6(23502::!<Q(16384)5F(Q128)27WBCP16368,0JZWUd(12)unD$;"PR#0":(897)208Č896~x46012:" Turn on Printer and Position Paper"SN$"1"14:7);"Enter Printer Slot No. [ ]"14:32:SN$ -at-";T$(K);"-";DY$(L);" ";0DA(I)1:DA(K)19J28@JLJ128^DB(J)11300IJ:K(S%(J,W1)):S%(J,W1)01250IK:KJLDW%(J,W1)1T$(I);"-at-";T$(K);"-";DY$(L)DB(I)1:DB(K)1J28 1120J2 .X08W9X1jB"On Week No.";W;X);"-";Y$;17);"Day - On Week No.";W1;X);"-";Y$;17);"Day"tL2350VJ128:DA(J)0:DB(J)0:J`J128jDA(J)11200tIJ:K(S%(J,W)):S%(J,W)01160~IK:KJLDW%(J,W)1T$(I);"0910IK:KJ"LDW%(J,W)1ET$(I);"-at-";T$(K);"-";DY$(L)YDA(I)1:DA(K)1`Jfp2190SN01020Q(16384)(Q128)27WB16368,010302320WD$;"PR#0":(897)208Č896460$WABWK1WK16730AWK&BWK0 2260BA$"Y"İ1410W WK0SN01060b*WABl4:X0y>W9X1H"On Week No.";W;X);"-";Y$;18);"On"R2190\J128:DA(J)0:JfJ128pDA(J)1940zIJ:K(S%(J,W)):S%(J,W)N.MENU" XD$;"RUN ";N$ b( lZZ17 vN$"Weeks"E WK0:SN0O 2230Y 2190c 2240m 2190w 2200 A$(49)A$(50)İ2200 A$(49)A1:B16:780 A$(50)610 14:10);"Enter Week (1 to 16) ___ "14:31:WK"Schedule Routines" 2190? 10);"1.Schedule by Weeks":a 10);"2.Schedule by Teams": 10);"3.Return to Main Menu": 2190 2200 A$(49)A$(51)İ2200 &A$(49)610 0A$(50)1550 :A$(51)460 D NN$"MAID ";N$ "I128 ,J116& 6S$2 @S(S$)N JZ%((S)10):Z%Z%(S)] TS%(I,J)Z%m ^Z1%((Z%)) hDW%(I,J)((S))(Z1%10) rJ |I D$;"CLOSE ";N$ Y$C$(1) J0 I512 JJ1 DY$(J)C$(I) I  11);150 D$;"CLOSE ";N$* N$"TEAM.CITY"P :12:10);"Gathering More Data"c D$;"OPEN ";N$v D$;"READ ";N$ Z128:T$(Z):Z D$;"CLOSE ";N$ N$"SEASON" :12:5);"Getting the Secret Ingredients" D$;"OPEN ";N$ D$;"REA***************, FD$(4):(897)208Č896j PC$(20),T$(30),S%(30,20),DA(30),DB(30),DW%(30,20),DY$(10)u Z2360 dN$"PGMFACTORS" nZ0 x:12:13);"Gathering Data" D$;"OPEN ";N$ D$;"READ ";N$ ZZ1 C$(Z) C$(Z)"END". **********************************[ *Program Name="Schedule.Routines"* * by *( * Robert Muench *2 * Copyrighted 1983 * < *******************     ^EL(219)256(218)<hEC5(E11E12)Č3288:1770SrEC6Č3288:1780|:12:5);"Program Died Due to Error No.";EC5);"Error Occurred in Line No.";ELEC16EC0Č3288:17306);"Refer to Applesoft Reference"10);"D$;"UNLOCK TD.";TD$.D$;"OPEN TD.";TD$FD$;"WRITE TD.";TD$OMD$[T128fK18wR$(R(T,K))R$KTD$;"CLOSE TD.";TD$"D$;"LOCK TD.";TD$,8306:N$"EDIT.MENU"@D$;"RUN ";N$JTEC(222)7:16:K$FK(K$)(PK$(48)1440DZK$(49)K$(56)1340Td17:16:K$yn4K:20:" <--Enter Change"x4K:19:R$4K:19:21):20:R$R(I,K)(R$)1340MD$"Y":12:"Writing New Weekly Data File TD.";TD$ALLOWED- ";R(I,6)811:"7-AVERAGE OFTEN.- ";R(I,7)^12:"8-AVERAGE DEFEN.- ";R(I,8)d {K140:"=";:K:16:"For the Item You Wish to Change"(17:"Enter 1 Thru 8-__"219:"When Done--Enter 0 to Quit" <17:16:" ":1sting Data for ";T$(I)-K140:"=";:K:3X5:"1-RATING--------- ";R(I,1)}6:"2-WINS----------- ";R(I,2)7:"3-LOSES---------- ";R(I,3)8:"4-TIED----------- ";R(I,4)9:"5-POINTS SCORED-- ";R(I,5)10:"6-POINTS "Gathering Data for Week No.";J5WD$J$:Z$(Y$,2)H$TD$WD$"."Z$_.D$;"OPEN TD.";TD$v8D$;"READ TD.";TD$BMD$LT128VK18`R$jR(T,K)(R$)tK~TD$;"CLOSE TD.";TD$:13);"For Week No.";J"The Exik ___"621:" When Done--Enter 0 for Team Number"V22:" to Return to Menu."f18:27:I$xI$(48)320I(I$)I1I28Ģ18:27:" ":95019:27:J$J(J$)W$J$J1J16Ģ19:27:" ":99012:*D$;"LOCK TD.";TD$4320(>:E12GH11);"Modify Weekly Data"\RK140:"=";:Kl\K114:X1zfK9X2pX);K;" ";T$(K);" ";K14;" ";T$(K14)zKK140:"=";:K18:12);"Enter Team No.___"19:12);"For What WeeWD$Z$MD$"Y"A:12:6);"Writing New Weekly Data File"o" for Week No.1 of the ";Y$;" Season"D$;"OPEN TD.";TD$D$;"WRITE TD.";TD$MD$I128J18R$(R(I,J))R$ JI D$;"CLOSE TD.";TD$):Z(Z$):ZZ1:Z$(Z):TD$W$Z$8 D$;"OPEN TD.";TD$O D$;"READ TD.";TD$X MD$d I128o &J18w 0R$ :R(I,J)(R$) DJ NI XD$;"CLOSE TD.";TD$ bI128 lJ26 vR(I,J)0 J I WD$"1.":Z$(Y$,2)TD$ 12:20:A$+ A$(49)A$(51)400= A$(49)460O A$(50)830b A$(51)1590m :E11 12:5);"Gathering Data and Setting-up" 10);"New Weekly Data File" " for Week No.1 of the ";Y$;" Season"! W$"17.":Z$(Y$,2y Data Files Edit System"2 TI140:"=";:I::a ^"1.Initialize File for Start of Season": h"2.Modify a Specific Week of Data": r"3. --Return to Edit Menu--": |I140:"=";:I:: 12:"Enter Your Choice [ ]" A$" ":12:20:A$e Existing Weekly Data Files"H 14:7);"for the ";Y$;" Season ? [ ]"_ A$"Y":14:31:A$o 14:31:A$ 14:31:A$ A$"Y"A$(13)320 A$"N"300 "240 ,16:7:"Enter Year of Season _____" 616:28:Y$ @ J5);"WeeklD$(4):(897)208Č896- dR(30,10),T$(30)@ nN$"TEAM.CITY"S xD$;"OPEN ";N$f D$;"READ ";N$| I128:T$(I):I D$;"CLOSE ";N$ N$"PGMFACTORS" D$;"OPEN ";N$ D$;"READ ";N$ Y$ D$;"CLOSE ";N$  12:" Are th' ***************************N *PROGRAM NAME= WEEKLY.DATA* t * by *( * Robert Muench *2 * Copyrighted 1983 *< *************************** FE10P1620 Z     (I,1)10)10:DA(I)R(I,1):I*2I1:4150x<W1ĺ12);"MR.MACHINE'S RATINGS AND STATISTICS BEFORE WEEK 1 - ";Y:1360F12);"MR.MACHINE'S RATINGS AND STATISTICS AFTER WEEK ";W;" - ";YPX80:3380Z54);"POINTS POINTS LAST GAME"Hd"RANK "_";:I!10:I140:"_";:IF12:"Line 2:";:I133:"_";:I_13:I140:"_";:I16:"NOTE !--Just Press "17:8);"If No Comments are Wanted"9:7:L1$ L1$""131012:7:L2$3250(I128:R(I,1)(R,7)10)PS%(I))111~R(I,7)(R(I,7)102)102TR(I,8)((R(I,8)10)PA%(I))11sR(I,8)(R(I,8)102)102zI9366:"You May Enter any Special Comments"7:"That You Wish to be Printed on Page 2..."9:"Line 1:";:I133:)(I3)1060CC1O$R(I,1)R(I,1)F2(I2I3):R(I1,1)R(I1,1)F2(I3I2)x.F4R(I,2)(R(I,4)2):W0PC0:10908PCF4WBF4R(I,6):F40F41LW41180VF5((R(I,5)F4)0.5)PC`F51.5F51.5jR(I,1)R(I,1)F5tR(I,7)((R(I0R(I,4)R(I,4)15PS%(I)PA%(I)R(I,2)R(I,2)1XPA%(I)PS%(I)R(I,3)R(I,3)1yI1(S%(I,W)):D%(I)F31000I2F3:1030D%(I)(F3)1020I2F3:1030I2D%(I)D%(I1)D%(I):I3DA(I)DA(I1):DB(I)I3:DB(I1)I3 (D%(I)"860R800,\A$"N"Ģ19:1:868:600=f19:1:868DpINz936WE1012:6);"Doing Some Number Crunching."13:6);"Be Right Back......."I128D%(I)PS%(I)PA%(I):R(I,5)R(I,5)PS%(I):R(I,6)R(I,6)PA%(I)D%(I)PS%(K)PS%(J)PA%(K)=14:24:" ":14:25:PS%(J)a14:32:" ":14:33:PA%(J)u DB(K)1:DB(J)119:1:7);"Is the Above Correct ? [ ] " A$"Y":19:32:A$*4130419:32:A$>A$(13)A$"Y"HA$"N"A$"Y12:24:PS%(K)?PS%(K)0PS%(K)99Ģ12:23:8):12:1:640`12:23:8):12:25:PS%(K)12:33:" ":12:36:"<---"E12:412012:32:PA%(K)PA%(K)0PA%(K)99Ģ12:31:8):1:69012:31:8):12:33:PA%(K)PA%(J)(I,W)0600NKJ:JIFX12:1:868:5);T$(K);" ___";6);"___"\b13:10);"-Vs.-"l14:1:868:5);T$(J);" ___";6);"___"v16:X40:3390::6);"Hit Ctrl-, to Abort"12:24:" ":12:28:"<---"E11:4120.";W;"-";Y= 6:"Enter the Requested Points as Indicated:"O 7:X40:3390m 9:22);"Points Points" 10:10);"Teams";7);"Scored Allowed" 11:6:X32:3380 I128:DB(I)0:I &I128 0DB(I)1880 :KI:J(S%(I,W)) DS%TD$ @D$;"READ TD.";TD$" JZ$- TCD$Z$@ ^I128:J18H hZ$Y rR(I,J)(Z$)c |J:I{ D$;"CLOSE TD.";TD$ E10 I128 F40 S%(I,W)0450 F4F1 DA(I)R(I,1)F4:I W01190 936 5:10);"For Week No40) W0W0 W16250) 4130c 8:40):6:5:W;" Is too Many Weeks-Try Again":190 14:5:"Reading Team Data for Week No.";W WXW:WX0WX1 W$(WX):Y$(Y1900) TD$W$"."Y$ "E14 ,N$"TD."TD$ 6D$;"OPEN TD.";s" X40:1:3390" 12:3390K 18:8);"NOTE !--Enter 0 to Obtain"p 8);"Predictions for Week No.1" :8);"Hit to Return to Main Menu" 8:10:4120:"Enter Week Number ";W$:W(W$):W$"Q"W$"q"4470 WW$"0"120 6:(28),DA(28),DB(28),PA%(28),PS%(28),DW%(28,16),R(28,8),S%(28,16),C$(20),DY$(7),T$(28),TN$(28),XZ(16),MN$(12) P936::D$(4):(897)208Č896 ZE10 d4210 n3630 xE13 C0:L40:NG14:4140 936:4:5:"Weekly Ratings and Prediction,* ********************************T * PROGRAM NAME = " RATINGS " * } * BY *( * ROBERT E. MUENCH *2 * COPYRIGHTED 1983 *< ********************************k FD%               D$;"RUN ";N$; 18:6);"Press [ ] to Return to Menu"K18:14:A$S :iesoft Reference"110);"for Code Explanation":780C760n4);"Refer to DOS Programmers Manual"10);"for Code Explanation"780760:12:"This File : ";N$"Cannot be Found on This Disk"780N$"MAIN.MENU""CLOSE ";N$ &D$;"LOCK ";N$1 0N$"EDIT.MENU"C :D$;"RUN ";N$I DW NEC(222)e XEC6730~ bEL(219)256(218) l:12:5);"Program Died Due to Error No.";EC v5);"Error Occurred in Line No.";EL EC166906);"Refer to ApplA$ A$(49)A$(54)3800 A$(54)470F I(A$):I5I15l 20:5:"Enter New Factor ______" 20:22:C$(I) 180 I0 D$;"UNLOCK ";N$ D$;"OPEN ";N$ D$;"WRITE ";N$ II1 C$(I) C$(I)"END"510 D$; @ JI140:"=";:I::J T18:5);"Select Factor to be Changed--"p ^19:15);"Enter Your Choice [ ]" h22:1:"Warning!-No Error Checking is Done." r23:"Be Careful When Changing Data." |A$" ":19:35:A$ 19:35:A$ 19:35:son" > " 2.Home Field Advantage----";C$(2);" Points"D x " 3.Differential Cut-Off----";C$(3);" Points"~  " 4.Sensitivity Factor -----";C$(4)  "" 5.Number of Favorite Team-";C$(15) , 6" 6.Return to Edit Menu"590 ZC$(20)& dN$"PGMFACTORS". nI0A xD$;"OPEN ";N$T D$;"READ ";N$^ II1i C$(I) C$(I)"END"140 D$;"CLOSE ";N$ 11);"Program Constants" I140:"=";:I:: " 1.Program is for the -----";C$(1);" SeaT& **************************K * Program Name="FACTORS" *p * by *( * Robert Muench *2 * Copyrighted 1983 *< **************************FD$(4):(897)208Č896 P     ΍ $1100'.:12:"This File : ";N$K8"Cannot be Found on This Disk"UB1120hLN$"MAIN.MENU"zVD$;"RUN ";N$`18:6);"Press [ ] to Return to Menu"j18:14:A$t:~A to Menu"18:14:A$:DDue to Error No.";EC=5);"Error Occurred in Line No.";ELMEC161030u6);"Refer to Applesoft Reference"10);"for Code Explanation"112011004);"Refer to DOS Programmers Manual"10);"for Code Explanation"1120)SN$(55)800\SN(SN$)Nf1:16:5);"Output Now Directed to Printer"~p18:" Press Key to Stop Printing"zD$;"PR# ";SNEC(222)EL(219)256(218)EC254210EC61070:12:5);"Program Died ;"RUN ";N$)I140:"=";:I::5I114=X1KI9X2wX);I;" ";T$(I);" ";I14;" ";T$(I14)~ I SN$"1"*14:7);"Enter Printer Slot No.[ ]"414:31:SN$>14:31:SN$HSN$(13)SN$"1"RSN$(49ers" D730 N740 X730? bD$;"PR#0":(897)208Č896E lo v12:7);"Writing New Team City File" D$;"UNLOCK";N$ D$;"OPEN ";N$ D$;"WRITE ";N$ I128:T$(I):I D$;"CLOSE";N$ D$;"LOCK";N$ N$"EDIT.MENU" D$K 150 B 12:"Do You Want a Hardcopy of the list of"t 13:"Team Numbers for Future Reference ?[ ]" A$"N":13:37:A$ 13:37:A$ A$(13)A$"N" A$"N"ĺ:640 A$"Y"500 & 0800 :10);"List of Team Numb(T$(I))% JL15Ģ21:1:40):3008 T21:15:T$(I)] ^22:1:"Is Entry Correct ? [ ]"h hA$"Y"x r22:21:A$ |22:21:A$ A$"N"150 A$"Y"A$"N"A$(13)420 350 L15150 B15L S$" " K1B:T$(I)T$(I)S$:f Team to Edit=[ ]"$ 19:31:I2 I28150C 19:31:3)V 19:31:I;"]"c I0470 23:1:"Only 15 Characters are Allowed." "20:1:"City to be changed = ";T$(I) ,21:1:"Enter Change-________________" 621:14:T$(I) @LD$(4):(897)208Č896+ dN$"TEAM.CITY"> nD$;"OPEN ";N$Q xD$;"READ ";N$g I128:T$(I):I{ D$;"CLOSE ";N$ 8);"CITY OF TEAM EDIT SYSTEM" 730 740 730 23:1:"Enter [0] When Done." 19 "Enter Number o ' ***************************M * Program Name="CITY" *s * by *( * Robert Muench *2 * Copyrighted 1983 *< ***************************F920PT$(30) Z     ΍cAA "(AAGG v~|~X9 (`1qqq NLLf``@ @AA(0?? ~CAA`?a 8n5 <<< cfffF8R`[p xR@P{GScs`pVhq~p?  ?`c 0s331 l 2` p8xx c``@  "   q``?@@@@)@ ~ p x~CAA]1 6*" @CF C Y9LLL "2 ACGG ?>>G@@@x| pxx a9q@@A@@HL OLLLO @ ;c Y9y ~|~ p800 `000ppp c3ssa~ fffF  Cs33c ?a CcCcc|G0|@5g`7q```{G7p| x@ss3c7pFO| | 7=cAAA:`9q|~.8003s33sfga``.vNp``?1`9xp x <<<  x|~.8?? ?c @@LOgg`AAc> ><(ACGG ~v~|x (q1qqa LLNG``` @NAN(?0?? AAc^`@ 85 < gfff88R```qo[x pR@@PRsc0ppUgG|?p ara `c? q3330 | Q`` xxxp @c`` q @  ?``q@@@@ @@ ~ x pAAc^1 "*"" @GF G yLLL "", AAGGG ?<@|x x8xx q9a@@@@a_GHL OLLNM @@ c y9Y G<~| pP008 p00p s3cscG< bbFfff  c33sC qq@ cccC~a0|@5g`7?`7x |pa3ssC7?`FO| | 7A:p9a~G<.800s33s3fc```.~?``p2qx8` | <<< p~|.0?? c @@LLLNMCfg`     ``  `(0 Z`нй`)JJ & & f)`  (0 Z` H  ` ` ` `h$``ɀ ͮŮ庠ōԠŠ﮵Š͍ӍǍ͠宠ͮٮ庠ٍԠŠ﮴Š͠ō嬠報庠ŮԍԠŠ﮳Š٠ō䮠﬍宠󮍠󠱰笠򠵸ŮԠή宍庠ٮԠŠ﮲٠ō嬠嬠ٍﮱ笠宍﮲庠ŮӍԠӍ庠ԮӍԠŠﮱŠ宍庠ӍŠӍ䮍宠Į嬠庠ήՍӠĠӍ譍躍ΠՍ歍󠍍Үō䠍謠宮荠򮍠          ήήŮĮҮɮԮΠ΍̠΍Π΍čččﮱ占۠ݠ     8:14:A$*:P0,4);"Refer to DOS Programmers Manual"M10);"for Code Explanation"V790_770|:12:"This File : ";N$"Cannot be Found on This Disk"790N$"MAIN.MENU" D$;"RUN ";N$18:6);"Press [ ] to Return to Menu"  1(222) XEL(219)256(218). bEC254250< lEC6740n v:12:5);"Program Died Due to Error No.";EC 5);"Error Occurred in Line No.";EL EC16700 6);"Refer to Applesoft Reference" 10);"for Code Explanation" 79077"N"A$(13)460 390% B10L0 S$" "M K1B:T$(I)T$(I)S$:KV 150j D$;"UNLOCK";N$} D$;"OPEN ";N$ D$;"WRITE ";N$ I128:T$(I):I D$;"CLOSE";N$ &D$;"LOCK";N$ 0N$"EDIT.MENU" :D$;"RUN ";N$ D NEC:1:"Name to be changed = ";T$(I)A T"Enter Change-__________"T ^21:14:T$(I)c hL(T$(I))~ rL9Ģ21:1:40):340 |21:15:T$(I) 22:1:"Is Entry Correct ? [ ]" A$"Y" 22:21:A$ 22:21:A$ A$"N"150 A$"Y"A$" ";T$(I14) I( I140:"=";:IK 23:1:"Enter [0] When Done."S 19} "Enter Number of Name to Edit=[ ]" 19:31:I I28150 "19:31:3) ,19:31:I;"]" 6I0500 @23:1:"Only 9 Characters are allowed."" J20):(897)208Č896% dN$"TEAM.NAME"8 nD$;"OPEN ";N$K xD$;"READ ";N$a I128:T$(I):Iu D$;"CLOSE ";N${ 8);"NAME OF TEAM EDIT SYSTEM" I140:"=";:I I114 X1 I9X2 X);I;" ";T$(I);" ";I14;& ***************************K * Program Name="Name" *p * by *( * Robert Muench *2 * Copyrighted 1983 *< ***************************F590PT$(30) ZD$(4   [ ] to Return to Menu"&$18:14:B$..:48ON768796:G:N,G::432,190,222,32,227,223,32,108,221,133,133,132,134,32,44,213,169,0,160,2,162,141,32,233,227,32,154,218,96Nnation"10501030F4);"Refer to DOS Programmers Manual"g10);"for Code Explanation"q1050{1030:12:"This File : ";N$"Cannot be Found on This Disk"1050N$"MAIN.MENU"D$;"RUN ";N$18:6);"Press "PR# ";SNHREC(222)6\EL(219)256(218)EfEC25490TpEC61000z:12:5);"Program Died Due to Error No.";EC5);"Error Occurred in Line No.";ELEC169606);"Refer to Applesoft Reference"10);"for Code Expla"1", 14:7);"Enter Printer Slot No.[ ]"= 14:31:SN$N 14:31:SN$e SN$(13)SN$"1" SN$(49)SN$(55)730 SN(SN$) 1:16:5);"Output Now Directed to Printer" *18:" Press Key to Stop Printing" 4 >D$;128)27JI 16368,0! &JA 0D$;"PR#0":(897)208Č896T :N$"MAIN.MENU"f DD$;"RUN ";N$l N XQ(16368):23:" Press [C] to Continue, [Q] to Quit" bQ(16384):Q128610 lQ195Q209Q(16368):610 v16368,0: SN$ "1 12:"Do You Want a Hardcopy List of This"c 13:"Information for Future Reference ? [ ]"z B$"N":13:37:B$ 13:37:B$ B$(13)B$"N" B$"N"ĺ:570 B$"Y"430  730 J1I A$(J) Q(16384) (Q;N$ I1:JI/ 768,A$(I):A$(I)"END"360g A$(I):II1:JJ1:J16J1:600:20:1:Q209360p 220z hII1 rD$;"CLOSE ";N$ |23:9);"Press [C] to Continue";10) 23:17:B$  23:1:" (897)208Č896 K2000 P8 Z1:14);"MR.MACHINE"P d2:X140:"=";:Xi n22:X140:"=";:Xz s34,3:35,21 x12:5);"Getting the Informational Text" ::: D$(4) X$"0" N$"INFOTEXT" D$;"OPEN ";N$ D$;"READ "( ********************************P * Program Name = INSTRUCTIONS * w * by *( * Robert Muench *2 * Copyrighted 1984 *< ********************************FA$(500) H!! ! ! ! ! !!!ٍ"" "