' +JJJJ ?\>m0M='+l> /+l  P˵B̵CõDĵEµµBD ĵ ⵭µ ۰ µL` 鷎귭෍ᷩ췩緈JJJJx i 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/  !"#$%&'()*+,-./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`   d@ŵLҦL [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<ԍ L}JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\8õ浍õĵBD` L[W ԧ 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̦µ_bJLLz L^ ۰L^  ȟ QlXJ̥KlV  ȟ QlV eօ3L׮ʊHLQ &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ȿõ` F`  \ 濭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-U@Ϡ@跻~!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 ꝍ ŤL{ BH [ h`Lo õ ڬL ꝍ Ť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볩쳢8DH ؿ 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뷭鷭  ˤLª 뷰` Lk ݵܵߵ޵ ^`8ܵ i B8` 9L%ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵BֵO G굎뵎쵬 뵎쵌`` ַ յյ`@ +õm浍õĵ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# 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(`F d ֠z#?ϠȎϠu`2:5:A$"(S) LOAD DATA FOR WHICH YEAR?":1310:" ";A$:II112:A$C$(II)88&)II:L(A$):LL(L0):R128:(N$(R),L)A$COM$A$:80&.R:(A$)29İ166:45'2Y$A$:TM$Y$:TY$Y$:O1$O$Y$DR$:C1$C$Y$:R1$R$Y$:161:D$(4):47413,222:47262,222ES "D%(TM,0,2)e%34,22::A$"(S) ENTER SELECTION:":1310:" ";TM$:QM(TM$):QM0QM29TMQM:630x%COM$TM$::80%$SC1İ166:45%%DR$",D1":DR2DR$",D2":1064%&167:12:11:"INSERT DATA DISKETTE"::14:"AND HIT RETURN":150L&(::1,Q,H)TMĂQ:686T$B(SP(I,Q,1)):ASP(I,Q,1)0:(A1H1)(A0H2)ĺ"-"B;:660_$"+"B;$CSP(I,Q,0):AC1500C0:5((B)));:(A1H1)(A0H2C0)ĺ"W";:686$" ";%:I::4:20:"WINS "D%(TM,0,1)" TIES "D%(TM,0,3);:27:"LOSS:770:I3((I)));:D%(TM,I,0)1ĺ"H ";:H1:643=#" ";#A(D%(TM,I,1)):A;3((A)))N$(A);:L114(N$(A)):Q1L1:".";:Q:AD%(TM,I,2):BD%(TM,I,3):3((A)))A"-"B;#3((B)));:D%(TM,I,1)0ABĺ"W ";:650#" ";$Q114:S%(I":"NATIONAL CONFERENCE WINS LOSSES TIES":"=================== ==== ====== ===="o"]"EASTERN DIVISION""bI:24:"HIT RETURN FOR MENU........";:165:45"vFIX1İ5000"{::"TEAM ";TM;" ";N$(TM);"........":2#I116:H2:768,5:769,10L:".";:Q:3((D%(W%(J,1),0,1))));!PD%(W%(J,1),0,1);7((D%(W%(J,1),0,2))));D%(W%(J,1),0,2);7((D%(W%(J,1),0,3))));D%(W%(J,1),0,3):J:I3610!X24:"HIT RETURN TO CONTINUE.....";:165:W"Z:::"=================== ==== ====== ====1:W%(Q,2)W%(J,2)D%(W%(Q,1),0,2)D%(W%(J,1),0,2)T1W%(Q,1):T2W%(Q,2):W%(Q,1)W%(J,1):W%(Q,2)W%(J,2):W%(J,1)T1:W%(J,2)T2 HJ,Q I(16384)155Ĺ16368,0::0:45'!NJ1E1:164:W%(J,1);3((W%(J,1))));N$(W%(J,1));:L18(N$(W%(J,1))):Q1572,573,574,575,576);B1:E5:E15:580E<B6:E9:E14::A$:580c=B10:E14:E15::B$:580{>B15:E19:E15:580?B20:E24:E15::A$:580@B25:E28:E14::B$:580DQBE:W%(QB1,1)Q:W%(QB1,2)D%(Q,0,1):Q FQ1E11:JQ1E:165:45 0FIX1İ50002::"=================== ==== ====== ====":"AMERICAN CONFERENCE WINS LOSSES TIES":"=================== ==== ====== ===="5"EASTERN DIVISION":A$"CENTRAL DIVISION":B$"WESTERN DIVISION":I16:I571,(N$(SUM(0,2)),12)):Q113L:".";:Q:SUM(0,1)SUM(I,2)ĺ"H";:490N"A";N$((SUM(0,3)),4):(N$)1N$N$".0":494(N$,(N$)1,1)"."N$N$".0"5(N$))N$" "OU:I:WK$"ALL":::WK23:0:PRT1:"HIT RETURN ..............",4)OU486oSUM(0,1)SUM(I,1):SUM(0,2)SUM(I,2):SUM(0,3)R:TM$"ALL"SP(WK,I,2)SUM(0,3):SP(WK,I,4)OU164:(N$(SUM(0,1)),12);:L((N$(SUM(0,1)),12)):Q113L:".";:Q:SUM(0,1)SUM(I,1)ĺ"H ";:488"A ";D(N$(SUM(0,2)),12);:L(:OU60OU60UT1.84.486(X1Z1).489(X2Z1):T22.75.486(Y1Z2).489(Y2Z2)RT1T2:R(R10.5)10:X10X20Y10Y20R0(R)2430,460,460SUM(0,1)SUM(I,2):SUM(0,2)SUM(I,1):SUM(0,3)(R):TM$"ALL"SP(WK,I,2)SUM(0,3):SP(WK,I13454Z1Z11:X1X1D%(H1,G,2):X2X2D%(H1,G,3)bZ2Z21:Y1Y1D%(A1,G,2):Y2Y2D%(A1,G,3)iYG^Z1Z1(Z10):Z2Z2(Z20) OU.65(D%(H1,WK1,2)D%(H1,WK1,3)D%(A1,WK1,2)D%(A1,WK1,3))2.35(X1Z1Y2Z2X2Z1Y1Z2)2:OU(OU10.5)10"WK".......":VTM$"ALL"āI114:SUM(I,1)S%(WK,I,1):SUM(I,2)S%(WK,I,2):I:FIX1I1NG:X10:X20:Y10:Y20:R0:TMP0:T10:T20:Z10:Z20H1SUM(I,1):A1SUM(I,2):(16384)128Ĺ16368,0:0:PRT1:45G116:W0:D%(SUM(I,1),G,1)1GWKİ166:220SUM(I,2)A I3PRT1ĊSL::::"============== ============== ==== ====":" COM FAVORITE COM UNDERDOG LINE O/U":"============== ============== ==== ====":34,3:WK$"ALL"āWKN1N2::"FORECAST FOR WEEK NUMBER $):LL(L0):Q128:(N$(Q),L)A$SUM(I,1)Q:220NQ:A1A28İ166:200]SUM(I,1)A"GAME ";I;": ";:A$"ENTER AWAY TEAM:":1310:" ";A$:A(A$):L(A$):LL(L0):Q128:(N$(Q),L)A$QSUM(I,1)SUM(I,2)Q:240 Q:A1A28ASUM(I,1)RE UPDATE ";::" "::(L$,39):34,3:CT0P6tJ115:D%(1,J,1)11660W6vJ6|::A$"(S) ENTER WEEK NUMBER (1-":1310:J")";:": ";A$:A(A$):A$""(A$)0COM$A$:806A1A16İ166:16606A1D%(1,A1,1)1İ166:16607D%(S%(A,(S%(I,J,1),I,2)0D%(S%(I,J,1),I,3)0D%(1,I,2)0D%(1,I,3)0D%(S%(I,J,1),I,1)S%(I,J,2):D%(S%(I,J,2),I,1)S%(I,J,1):16105GD%(S%(I,J,1),I,1)S%(I,J,2):D%(S%(I,J,2),I,1)S%(I,J,1)5JJ,I:5002::4526r::(L$,39)::" ";::" WEEKLY SCO ":GM6:L14(N$(S%(I,GM,1))):L114(N$(S%(I,GM,2))):GM;:4:N$(S%(I,GM,1));:Q1L:".";:Q4>" HM";:23:N$(S%(I,GM,2));:Q1L1:".";:Q:" AW":15604@CT0::161:I116:J114:D%(S%(I,J,1),I,0)1:D%(S%(I,J,2),I,0)0}5ED%Q),L)A$AQ:1585.3.Q:A1A28İ166:1580D31S%(I,GM,1)A:CT136"GAME "GM;:A$": ENTER AWAY TEAM":1310:": ";A$:A(A$):L(A$):LL(L0):Q128:(N$(Q),L)A$AQ:159538Q:A1A28İ166:1590q4;S%(I,GM,2)A:GM6:" CT11600 2 A$"N"A$"NO"45B2"A$"Y"A$"YES"İ166:15662':23:A$"ENTER GAME NUMBER (1-14)":1310:": ";GM$:GM(GM$):GM1GM14İ166:15753,:23:"GAME "GM;:A$": ENTER HOME TEAM":1310:": ";A$:A(A$):L(A$):LL(L0):Q128:(N$(114:CCCCS%(I,Q,1)S%(I,Q,2):Q:CC406ė:"";:23:"ERROR IN SCHEDULE ABOVE....HIT RETURN":1501CC0::A$"ANY CHANGES TO THE ABOVE":23:1310:"? ";A$:(A$"N"A$"NO")SC0ĉ:34,3::21:(L$,39):34,21::I:SC1:1600 2(A$"N"A$"NO"):LL(L0):Q128:(N$(Q),L)A$AQ:1527G0Q:A1A28İ166:1525W0S%(I,J,2)A0164:L14(N$(S%(I,J,1))):L114(N$(S%(I,J,2))):J6:J;:4:N$(S%(I,J,1));:Q1L:".";:Q:" HM";:230N$(S%(I,J,2));:Q1L1:".";:Q:" AW":Jg1CC0:QI,J,1)0S%(I,J,2)01550/:23:"GAME "J;:A$": ENTER HOME TEAM":1310:": ";A$:A(A$):L(A$):LL(L0):Q128:(N$(Q),L)A$AQ:1522/Q:A1A28İ166:1520/S%(I,J,1)A+0"GAME "J;:A$": ENTER AWAY TEAM":1310:": ";A$:A(A$):L(A$)::" "::(L$,39):34,3::SC01509.5:A$"(S) ENTER WEEK NUMBER (1-16)":1310:": ";I$:I(I$):I$""(I$)0COM$I$:80.I1I16İ166::1502.:21:(L$,39):34,21::SC0āI116/5:"NOW ENTERING WEEK # "I"......"::J114:S%(0-CG1:DRA:1200U-:A$"ENTER NEW SLOT NUMBER":23:1310:": ";A$:A$""1220w-A(A$):A1A7ė:166:1220-CG1:SLA:1200-Q1(A$):X(16336):(A$,Q,1);:Q:(.CT0:::(L$,39)::" ";::" ANNUAL SCHEDULE ENTRY SECTION ";7413,250:47262,250:161:D$"OPEN CONTROL FILE,D1":D$"WRITE CONTROL FILE":SL:DR:D$"CLOSE CONTROL FILE":45,A(A$):A1A2ė:166:1220,A21260,:A$"ENTER NEW DRIVE NUMBER":23:1310:": ";A$:A$""1220-A(A$):A1A2ė:166:122: "DR::"2 PRINTER SLOT NUMBER NOW: "SL:34,16:z+:23:A$"ENTER SELECTION (1-2)":1310:": ";A$:A$""CG0ĉ::45+A$""CG1ĉ::167:12:13:"MAKE SURE SYSTEM":9:"DISKETTE IS IN DRIVE # 1":14:"AND HIT RETURN":150n,A$""CG1ĉ::4I116:J114:Q04:SP(I,J,Q):Q,J,I:D$;C1$:VN0*DR1ė:167:12:10:"INSERT SYSTEM DISKETTE"::14:"AND HIT RETURN":150*45*::(L$,38)::" ";::" CONTROL FILE SECTION ";::" "::(L$,38):2+"1 DATA DRIVE NOW128:(N$(R),L)A$TMR:6308)jR:(A$)29İ166:45)nY$A$:TM$Y$:O1$O$Y$DR$:C1$C$Y$:W1$W$Y$:161:D$(4):47413,222:47262,222:23:D$;O1$:D$;W1$:SC)tI03:J016:K128:D%(K,J,I):K,J,I:I116:J114:Q12:S%(I,J,Q):Q,J,I6*~FIX1İ50000(NDR$",D1":DR2DR$",D2":1110v(P167:12:11:"INSERT DATA DISKETTE"::14:"AND HIT RETURN":150(V::12:4:A$"(S) SAVE DATA FOR WHICH YEAR?":1310:34:Y$;:33:" ";A$:II111:A$C$(II)COM$A$:90)`II:L(A$):LL(L0):R:23:D$;O1$:D$;R1$:SCn'8I03:J016:K128:D%(K,J,I):K,J,I:I116:J114:K12:S%(I,J,K):K,J,I'BI116:J114:K04:SP(I,J,K):K,J,I:D$;C1$'DDR1ė:167:12:10:"INSERT SYSTEM DISKETTE"::14:"AND HIT RETURN":150'F45 (L30:"TEAM ";I:K116:D%(I,K,1)13030jF J116:D%(I,K,2)D%(D%(I,K,1),J,3)ID%(D%(I,K,1),J,1)3030F J:164:ZX3:I;" ";N$(I);" GAME ";K:ZXZX1:ZEZE1:ZX10ĺ:"HIT RETURN TO CONTINUE":ZX0:150:*G K,I:ZX5:"THERE WERE ";ZE;" ERRORS FO5)10:SP30SP30İ166:27601E SP(1,TM,2)SPE A$"ENTER OVER/UNDER SCORE...:":1310:" ";SP$:SP(SP$):SP(SP10.5)10:SP20SP70İ166:2770E SP(1,TM,4)SP:FIX1:2701(F ::ZX0:ZE0:"VERIFICATION IN PROCESS.......":34,2:::I128:1: CHANGES":1310:": ";COM$:COM$""COM$"N"COM$"NO"45_D COM$"Y"COM$"YES"İ166:2730D :A$"ENTER GAME NUMBER (1-14)":1310:": ";TM$:TM(TM$):TM1TM14İ166:2750E :A$"ENTER COMPUTER PREDICTION:":1310:" ";SP$:SP(SP$):SP(SP10.REDICTION:":1310:" ";SP$:SP(SP$):SP(SP10.5)10:SP30SP30İ166:2712aC SP(1,I,2)SPC A$"ENTER OVER/UNDER SCORE...:":1310:" ";SP$:SP(SP$):SP(SP10.5)10:SP20SP70İ166:2720C SP(1,I,4)SP::I:FIX1:27019D :A$"DO YOU HAVE1,1,4)02710HB I114:L(N$(S%(1,I,1))):I4((I)))N$(S%(1,I,1));}B Q120L:".";:Q:" ";:ASP(1,I,2):A0ĺ"+";B A7(((A))))SP(1,I,4):I:(L$,39):34,20:2730B I114:"GAME NUMBER "I": "N$(S%(1,I,1)):OC A$"ENTER COMPUTER P10:(T3(SP10SP70))(T3(SP30SP30))İ166:2675UAv T3SP(I,TM,3)SP:2682hAx SP(I,TM,1)SPAz 34,4::FIX1:2630A SC145 B ::(L$,39)::" ";::" FIRST WEEK COMPUTER PREDICTIONS ";::" "::(L$,39):34,4::SP(1,1,2)0SP("N"COM$"NO"456@\ COM$"Y"COM$"YES"İ166:2650N@^ T3::34,4::2615@d :A$"ENTER GAME NUMBER (1-14)":1310:": ";TM$:TM$""2682@n TM(TM$):TM1TM14İ166:26608As A$"ENTER LAS VEGAS LINE....":1310:": ";SP$:SP(SP$):SP(SP10.5);?K SP(I,J,1))?N J:(L$,39):34,20?P :A$"DO YOU HAVE CHANGES":1310:": ";COM$:COM$""COM$"N"COM$"NO"ĴT2650,45,45?R COM$"Y"COM$"YES"İ166:2640?T 2660@Z :A$"WANT TO ENTER THE OVER/UNDER LINE?":1310:" ";COM$:COM$""COM$5)10:(T3(SP10SP70))(T3(SP30SP30))İ166:2621W>? T3SP(I,J,3)SP:2626i>@ SP(I,J,1)SPv>B J:FIX1>F :J114:164:"GAME "J;:9:N$(S%(I,J,1));:L(N$(S%(I,J,1))):Q120L:".";:Q:" ";:T3ĺSP(I,J,3):2638?J SP(I,J,1)0ĺ"+"310:J")";:": ";I$:I(I$):I$""(I$)0COM$I$:80N=4 I1IJİ166:2610r=7 TM0:J114:SP(I,J,T)0TM1=8 J:TM1ī2630=< :J114== "GAME "J;:9:N$(S%(I,J,1));:L(N$(S%(I,J,1))):Q120L:".";:Q:": ";SP$;>> SP(SP$):SP(SP10.3)N:D%(S%(A,GM,2),A,2)D%(S%(A,GM,1),A,3)::34,3:1700<( ::(L$,39)::" ";::" LAS VEGAS LINE UPDATE SECTION ";::" "::(L$,39):34,4:T1<* J116:D%(1,J,1)12605<, J<- JJ1:J1İ166:456=2 :A$"(S) ENTER WEEK NUMBER (1-":1";:Q:": ";N$:N(N$):N0N99İ166:1770p;D%(S%(A,GM,1),A,2)N:D%(S%(A,GM,2),A,3)D%(S%(A,GM,1),A,2):FIX1;A$"ENTER "N$(S%(A,GM,2))" SCORE":L(N$(S%(A,GM,2))):1310:Q115L:".";:Q:": ";N$:N(N$):N0N99İ166:17808<D%(S%(A,GM,1),A,CHANGES TO THE ABOVE":1310:"? ";A$:A$"N"A$"NO"45Y:A$"Y"A$"YES"İ166:1750::A$"ENTER GAME NUMBER (1-14)":1310:": ";GM$:GM(GM$):GM1GM14İ166:1765+;:A$"ENTER "N$(S%(A,GM,1))" SCORE":L(N$(S%(A,GM,1))):1310:Q115L:"."UPDATING WEEK NUMBER "A"....."::J114:164:L14(N$(S%(A,J,1))):L114(N$(S%(A,J,2)))9J;:4:N$(S%(A,J,1));:Q1L:".";:Q:" ";D%(S%(A,J,1),A,2);:22:N$(S%(A,J,2));:Q1L1:".";:Q:" "D%(S%(A,J,2),A,2)9J:(L$,39):34,227::A$"ANY (S%(A,J,1),A,2):D%(S%(A,J,1),A,1)S%(A,J,2)8A$"ENTER "N$(S%(A,J,2))" SCORE":1310:I1L1:".";:I:": ";N$:N(N$):N0N99İ166:16928D%(S%(A,J,1),A,3)N:D%(S%(A,J,2),A,2)D%(S%(A,J,1),A,3):D%(S%(A,J,2),A,1)S%(A,J,1):8J:FIX1[9::1,1),A,1)01700p7::"UPDATING WEEK NUMBER "A"....."::J114:L14(N$(S%(A,J,1))):L114(N$(S%(A,J,2)))7A$"ENTER "N$(S%(A,J,1))" SCORE":1310:I1L:".";:I:": ";N$:N(N$):N0N99İ166:1690+8D%(S%(A,J,1),A,2)N:D%(S%(A,J,2),A,3)D%4)128Ĺ16368,0::100C:"WEEK NUMBER "I:" HOME AWAY TOTAL HOME AWAY TOTAL HOME AWAY TOTAL HOME AWAY TOTAL":2200:J112:Q12:SUM(J,Q)0:Q,J'HI:"------------ ---- ---- ----- ---- ---- ----- ---- ---- ----- ---- ---- -----" T O T A L":Q$O4I014:J04:SUM(I,J)0:J,I:IBE:D%(1,I,1)121206J114:((SP(I,J,0)),1)"3"SUM(0,1)SUM(0,1)1:21108T(((SP(I,J,0)),1)):C(((SP(I,J,0)),2,1)):SUM(T,C)SUM(T,C)1:SUM(T,C2)SUM(T,C2)1>J:(1638..........: POINTSPREAD PREDICTION ANALYSIS":"WEEKS INCLUDED........: "B" THRU "E:(L$,78)::Q$" --------------- --------------- --------------- ---------------":Q$:" F A V O R I T E U P S E T H Y B R I D ALL"B1:E16:2010,B1B16İ166:2000x:A$"ENDING WEEK NUMBER......(1-16)?":1310:" ";E$:E(E$):E$""100E1E16İ166:2004EBEB::163:161:SL:(9)"80N":164:(L$,78):"SEASON................: "Y$b"REPORT TITLEIJ::"WINS "D%(I,0,1)" TIES "D%(I,0,3)" LOSSES "D%(I,0,2)W:I:100Q1(A$):X(16336):(A$,Q,1);:Q:::A$"BEGINNING WEEK NUMBER (1-16,A)?":1310:" ";B$:B(B$):B$""(B0B$"ALL")100B16E16:2010B$"((Z)));:((SP(J,Q,0)),2,1)"1"ĺ"W ";:674;" ";PR0ĺ"--";:679d(P$,R21,2);Z(SP(J,Q,4)10.5)10:" "SP(J,Q,3)6((SP(J,Q,3))))Z;6((Z)));:((SP(J,Q,0)),3,1)"1"ĺ"W":686" "(16384)128Ĺ16368,0::10060 "+"B;\CSP(J,Q,0):AC1500C0:5((B)));:(A1H1)(A0H2C0)ĺ"W";:666f" ";R(((SP(J,Q,0)),1)):A2:SP(J,Q,2)0A1Z((SP(J,Q,2))10.5)10:BS%(J,Q,A):D%(I,J,1)1SP(J,Q,2)0BI/" "(N$(B),6)" BY "Z;:54471TTP1N N SYSTEMS DEGIGN LAB P R O F O O T B A L L THE GOLD EDITION BY KEN PERRY COPYRIGHT MAY 1982 (213) 374-4471C (213) 374-4471 COPYRIGHT MAY 1982 (213) 374-0P10P2P1TT6`MP1SP(I,J,3):P2SP(I,J,4):PD%(H,I,2)D%(H,I,3):PP1P1P2TT30:5080MQ((P2P1PP1)(P2P1PP1)):P10:Q0Q1M5100MSP(I,J,0)T:JMI:FIX0:M(Q)25110,5105,5120MTTP3:5130MTTP2:5130N1)(T1500P1P20P20)(T1500P1P2)):Q0Q1=L5100aLP20P10P2P1TT1:5046|LP20P10TT2:5046LP20P10P2P1TT2:5046LP20P10TT3:5046LP20P10TT4:5046LP20P10P2P1TT5:5046MP2)W:D%(I,0,2)L:D%(I,0,3)TI:W0:L0:TI0:IJKI116:D%(1,I,1)15090KJ114:T0:HS%(I,J,1):WS%(I,J,2):P1SP(I,J,1):P2SP(I,J,2)KQD%(H,I,2)P1D%(H,I,3):P1000:5100KT2000T3300:50303LP100:Q((T1500P2P10P10)(T1500P2PQ:3((D%(S%(I,J,2),I,2))))D%(S%(I,J,2),I,2):JBJ165:I:45KJ161JVN1:W0:L0:TI0:I128:J116:D%(I,J,1)0D%(I,J,2)D%(I,J,3)WW1JD%(I,J,1)0D%(I,J,3)D%(I,J,2)LL1JD%(I,J,1)0D%(I,J,2)D%(I,J,3)TITI1,KJ:D%(I,0,1TEAM":"------------------ ------------------":J114:164:N$(S%(I,J,1));:Q115(N$(S%(I,J,1)))I".";:Q:3((D%(S%(I,J,1),I,2))))D%(S%(I,J,1),I,2)" ";I(16384)155Ĺ16368,0::0:452JN$(S%(I,J,2));:Q115(N$(S%(I,J,2))):".";:$WK$:80"HB1B16İ166:4001H:A$"(S) ENDING WEEK NUMBER......(1-16)":1310:"? ";WK$:E(WK$):E0WK$""COM$WK$:80HE1E16İ166:4004HBEEBHIBE:::"SCHEDULE FOR WEEK NUMBER ";I;".......":eI4)"HOME TEAM"11)"AWAY UND.":23:"HIT RETURN":150:ZE0:ZX0:45G::(L$,39)::" ";::" ANNUAL SCHEDULE SECTION ";::" "::(L$,39):34,3G::A$"(S) BEGINNING WEEK NUMBER (1-16,A)":1310:"? ";WK$:B(WK$):WK$"ALL"B1:E16:4010 HB0WK$""COM,J,2),I,2))))D%(S%(I,J,2),I,2):J--I:100-::(L$,38)::" ";::" OVER-UNDER DIFFERENTIAL GRAPHING ";::" "::(L$,38):34,3-::A$"BEGINNING WEEK NUMBER (1-16,A)?":1310:" ";BW$:BW$""100-BW$"ALL"BW1:EW16:5028.BW(BW$Q$:4)"HOME TEAM"11)"AWAY TEAM":Q$:J114:N$(S%(I,J,1));:Q115(N$(S%(I,J,1))),".";:Q:3((D%(S%(I,J,1),I,2))))D%(S%(I,J,1),I,2)" ";,(16384)128Ĺ16368,0::100!-N$(S%(I,J,2));:Q115(N$(S%(I,J,2))):".";:Q:3((D%(S%(I)"80N":164:(L$,78):"SEASON...............: "Y$+"REPORT TITLE.........: SEASON SCHEDULE":"WEEKS INCLUDED.......: "B" THRU "E:(L$,78)::+IBE::"SCHEDULE FOR WEEK NUMBER ";I;".......":V,Q$"------------------ ------------------":MBER (1-16,A)":1310:"? ";WK$:B(WK$):WK$"ALL"B1:E16:4008U*B0WK$""100n*B1B16İ166:4000*:A$"ENDING WEEK NUMBER......(1-16)":1310:"? ";WK$:E(WK$):E0WK$""100*E1E16İ166:4003*BEEB3+:163:161:SL:(9Z) "PERCENT WINS..";:C0:Q112:CC1:5((SUM(Q,1))))SUM(Q,1);:C2Q12C0:" ";) Q::Q112:SUM(Q,1)0:SUM(Q,2)0:Q:) SUM(P,1)SUM(P,1)1:SUM(P,3)SUM(P,3)1:) SUM(P,2)SUM(P,2)1:SUM(P,4)SUM(P,4)1:A*::A$"BEGINNING WEEK NU..";:C0:Q112:CC1:5((SUM(Q,1))))SUM(Q,1);:C2Q12C0:" ";( Q::C0:"GAMES LOST....";:Q112:CC1:5((SUM(Q,2))))SUM(Q,2);:C2Q12C0:" ";( Q::Q112:ASUM(Q,1)SUM(Q,2):A0A1( SUM(Q,1)(SUM(Q,1)A1000.5)10:QE AWAY HOME AWAY":2430'X T:I112:SUM(I,1)SUM(I,3):SUM(I,2)SUM(I,4):I:15)"---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ----"'[ 2430:15)"==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ====":100H(~ "GAMES WON...60,2550(&N P10:TWL0ĴS12560,2550I&P P11:THL0ĴS12560,2550j&R P12:TWL0ĴS12560,2550'V J,I::N$(T)15(N$(T)))" FAVORITE UNDERDOG FAVORITE UNDERDOG FAVORITE UNDERDOG":15)"HOME AWAY HOME AWAY HOME AWAY HOME AWAY HOMF12560,2550.%< P3:THL0ĴF12560,2550N%> P4:TWL0ĴF12560,2550g%@ SP(I,J,0)30002390%B P5:THL0ĴC12560,2550%D P6:TWL0ĴC12550,2560%F P7:THL0ĴC12560,2550%H P8:TWL0ĴC12550,2560&L P9:THL0ĴS125(16384)128Ĺ16368,0::100Y$4 HS%(I,J,1):WS%(I,J,2):D%(1,I,1)1(THWT)2390$6 C((SP(I,J,0)),1)"1":LSP(I,J,1)0:S((SP(I,J,0)),2,1)"1":FD%(T,I,2)D%(T,I,3):D%(T,I,2)D%(T,I,3)2368$8 P1:THL0ĴF12560,2550%: P2:TWL0-------------"6)"----------------"6)"----------------":17)"TEAM PERFORMANCE"6)"COVERING SPREAD"6)"COMPUTER RESULTS"# 17)"----------------"6)"----------------"6)"----------------"#. I014:J04:SUM(I,J)0:J,I:T128$3 I116:J114:M(11,1))))SUM(11,1)6((SUM(12,1))))SUM(12,1):"::163:161:SL:(9)"80N":164:(L$,78):"SEASON................: "Y$""REPORT TITLE..........: TEAM PERFORMANCE SUMMARY":"WEEKS INCLUDED........: SEASON TO DATE":(L$,78)::z# 17)"---)10:A!5((SUM(7,1))))SUM(7,1)5((SUM(8,1))))SUM(8,1)6((SUM(9,1))))SUM(9,1)" ";:A79:SUM(A,1)0:SUM(A,2)0:A,J!A1012:SUM(A,2)0SUM(A,2)1!SUM(A,1)(SUM(A,1)SUM(A,2)1000.5)10:A1"5((SUM(10,1))))SUM(10,1)5((SU7,2)SUM(J,1)SUM(J,2):SUM(8,1)SUM(J1,1):SUM(8,2)SUM(J1,1)SUM(J1,2):SUM(9,1)SUM(7,1)SUM(8,1):SUM(9,2)SUM(7,2)SUM(8,2) A1012:H12:SUM(A,H)SUM(A,H)SUM(A3,H):H,A A79:SUM(A,2)0SUM(A,2)1!SUM(A,1)(SUM(A,1)SUM(A,2)1000.5M(J1,T):J6ASUM(J1,T)SUM(J,T)E6((A)))A" ";:J6ī2210J:HSUM(1,T)SUM(3,T)SUM(5,T):WSUM(2,T)SUM(4,T)SUM(6,T):AWH5((H)))H5((W)))W6((A)))A:A$"LOSSES TO LV":T "PERCENT WINS";:J152:SUM(7,1)SUM(J,1):SUM(:I16:J12:SUM(I,J)SUM(I,J2):J,IR2200:"============ ==== ==== ===== ==== ==== ===== ==== ==== ===== ==== ==== =====":100A$"WINS OVER LV":T12:A$;:J16:J3J522205((SUM(J,T))))SUM(J,T);:J62240#ASUM(J2,T)SU1AY 1982 (213) 374-4471 L LOSSES: ";LL;:K(100LLK110.5)10:6((K)))K"%":::100< SYSTEMS DESIGN LAB P R O F O O T B A L L THE GOLD EDITION THE GOLD REPORTS BY KEN PERRY COPYRIGHT MAY 1982 (213) 374-447:J:t:KWK(I,2):LLLLK:4((K)))K;:KK100KK1:KK(KK10.5)10:7((KK)))KK;:" ";:K1ĺ" ":8170:J1K:"L";:J::I:K1WNLL:K1K1(K10):(L$,78)::"TOTAL WINS: "WN;:K(100WNK110.5)10:6((K)))K"%"A;"TOTA180'9(16384)128Ĺ16368,0::100\9"RANGE = ";:K(WK(I,0)10.5)10:7((K)))K9K1WK(I,1)WK(I,2):K1K1(K10)9KWK(I,1):WNWNK:4((K)))K;:KK100KK1:KK(KK10.5)10:7((KK)))KK;:" ";:K1ĺ" ":8165:J1K:"W";"HYBRIDS (-) & FAVORITES (+)":8145O8A$"UPSETS (-) & FAVORITES (+)":81458A$"HYBRIDS (-), UPSETS (-) & FAVORITES (+)"8"WEEKS INCLUDED........: "BW" THRU "EW8"RANGE.................: "R9WN0:LL0:(L$,78)::I162:WK(I,0)998......: POINTSPREAD DIFFERENTIAL GRAPHING"a7A$"LAS VEGAS FAVORITE....: ":HA8131,8132,81337A$"BOTH HOME & AWAY GAMES":81407A$"HOME GAMES ONLY":81407A$"AWAY GAMES ONLY"7A$"TYPE PREDICTIONS......: ":UP8141,8142,8143$8A$0'6HA3V0CT1CT3CT58090168120a6(UP3)(UP2CT5)(UP1CT3CT4)8100k681206K161:DWK(K1,0)WK(K,W)WK(K,W)1:81206K6J,I:SL:(9)"80N":164:(L$,78)+7"SEASON................: "Y$:"REPORT TITLE....)995rIBWEW:J114D5wW(((SP(I,J,0)),2,1)):W3W081205|VSP(I,J,1):CSP(I,J,2):D(C)(V):(V0C0)(V0C0)D((V)(C))5(16384)128Ĺ16368,0::1005CT(((SP(I,J,0)),1)):HA180906HA2V0CT2CT4CT680900'4XEW(EW$):EW1EW16İ166:802284ZEWBWEWBWz4\A$"FREQUENCY RANGE.........(.5-5)?":1310:" ";R$:R$""1004^R(R$):R.5R5İ166:80284j::163:161:I162:J02:WK(I,J)0:J,I5mCT0:I1515R:CTCT1:WK(CT,0)I:I:WK(CT1,0$:UP$""10013PUP(UP$):UP1UP3İ166:8012y3R::A$"BEGINNING WEEK NUMBER (1-16,A)?":1310:" ";BW$:BW$""1003SBW$"ALL"BW1:EW16:80283TBW(BW$):BW1BW16İ166:80184VA$"ENDING WEEK NUMBER......(1-16)?":1310:" ";EW$:EW$""1ER SELECTION (1-3):":1310:" ";HA$:HA$""100S2JHA(HA$):HA1HA3İ166:80052L:"1 HYBRID & FAVORITE GAMES ONLY":"2 UPSET & FAVORITE GAMES ONLY":"3 HYBRID, UPSET & FAVORITE GAMES":(L$,39) 3N23:A$"ENTER SELECTION (1-3):":1310:" ";UP8150c1@::(L$,39)::" ";::" POINTSPREAD DIFFERENTIAL GRAPHING ";::" "::(L$,39):34,31E:"1 LAS VEGAS FAVORITE HOME & AWAY GAMES":"2 LAS VEGAS FAVORITE HOME GAMES ONLY":"3 LAS VEGAS FAVORITE AWAY GAMES ONLY":(L$,39)/2H23:A$"ENT:DWK(K1,0)WK(K,W)WK(K,W)1:5080,0KS0J,I:SL:(9)"80N":164:(L$,78)0"SEASON................: "Y$:"REPORT TITLE..........: OVER-UNDER DIFFERENTIAL GRAPHING"1"WEEKS INCLUDED........: "BW" THRU "EW:"RANGE.................: "R:63:161:I162:J02:WK(I,J)0:J,I^/CT0:I1515R:CTCT1:WK(CT,0)I:I:WK(CT1,0)99s/IBWEW:J114/W(((SP(I,J,0)),3,1)):W3W05080/VSP(I,J,3):CSP(I,J,4):DCV:D(D10.5)10/(16384)128Ĺ16368,0::100%0K161):BW1BW16İ166:5018\.A$"ENDING WEEK NUMBER......(1-16)?":1310:" ";EW$:EW$""100.EW(EW$):EW1EW16İ166:5022.EWBWEWBW.A$"FREQUENCY RANGE.........(.5-5)?":1310:" ";R$:R$""100.R(R$):R.5R5İ166:5028%/::1͍΍͍΍͍΍ՠŮՠ̠Ϡ͠Ů̠ˠҮҠōĠҍˠϠՠӠΠӠŮŠŠҠŠנǠЍ ͍΍͍΍͍΍͍΍  z#??     "ӠҠĠΠ ԭҠֲԭҮʱֲԭҮʲֲD Үԛ ҮŠϠϠŠĠΠIŠĠӠ6Π̠Š!Ϡ'" Ӡ  $:80q:A$"(S) ENTER # OF GAMES (1-14,A):":1310:" ";TM$:NG(TM$)::(NG1NG14)TM$"ALL"COM$TM$:80TM$"ALL"WK17İ166:183TM$"ALL"NG14:250I1NG:3"GAME ";I;": ";:A$"ENTER HOME TEAM:":1310:" ";A$:A(A$):L(AOM$"YES"COM$"Y"PRT1:163:175?COM$"N"COM$"NO"80^ND216:D%(1,ND,1)0ĂND:5:TM0:A$"(S) ENTER WEEK NUMBER (2-":1310:ND",A):";:" ";WK$:WK$"ALL"NG14:TM$"ALL":N12:N2ND:N2N2(ND17):250WK(WK$):WK2WKNDCOM$WK:IC635:10:IC:"*":16:IC:"*":IC:IC1115:6:IC:"*":35:IC:"*":IC::fD%(1,1,1)145wFIX1İ5000::(L$,39):"*** POINTSPREAD CALCULATION SECTION ***":(L$,39):34,3::"A$"(S) WANT HARDCOPY PRINTOUT?":1310:" ";COM$:C,35:769,30:770:150D167:12:18:"PLEASE"::17:"STAND BY":_768,10:769,20:770:167:12:12:"ADJUST PRINTER NOW"::14:"AND HIT RETURN":150768,5:769,10:770:16384,128:16368,0:RJ150:X(16336):RJ:R:(4)"FP""54915:FIX1ĉ:5000DR1ė:167:12:13:"MAKE SURE SYSTEM":9:"DISKETTE IS IN DRIVE # 1":14:"AND HIT RETURN":150:161:(4)"BLOAD CHAIN,A520,D1"520"THE GOLD REPORTS"IC1200:(16384)128Ĺ16368,0:IC:768FIX1ĉ:5000yVN0130z:::"WARNING: SAVE DATA FILE"::13:5:A$"WANT TO SAVE YOUR DATA FILE":1310:"? ";A$:A$"Y"A$"YES"45|A$"N"A$"NO"122::11:9:"P R O F O O T B A L L"::12:"THE GOLD EDITION":15:18:"END":22:060,1100,1500,560,170,1650,2600,4000,3000,140,1209d45ZeER(222):LELE1:LE10130fER5ĺD$"DELETE PRO DATA "Y$:TY$"":Y$""h0:PRT1:::12:12:A$"--- E R R O R ---":1310:::9:A$"PLEASE READ YOUR MANUAL":1310::150i45 xEEK"2700->COM$"CONTROL FILE"CG0:1200XFII(COM$):SC0II0II29TMII:630PL(COM$):LL(L0):R128:(N$(R),L)COM$SC0TMR:630TRVII112:COM$C$(II)ĂII:SC145XSC1II2II4II12SS1:166:451ZII100,1PRINT HARD COPY REPORTS":SS1ğR;"END";::12:"EXIT PROGRAM":(L$,38):101<22:20(TY$)2:TY$:24:4:" P R O F O O T B A L L";:18:8:A$"(S) ENTER TEAM NUMBER OR":1310:20:12:A$"SELECTION:":1310:" ";COM$ =SC0COM$"FIRST W DIVISIONAL STANDINGS"j 8"FORECAST";:12:"PREDICT POINTSPREADS":"UPDATE";:12:"UPDATE WEEKLY SCORES" 9"SPREADS";:12:"UPDATE LAS VEGAS LINE":"LIST";:12:"LIST ANNUAL SCHEDULE" :"VERIFY";:12:"LOCATE ERRORS IN DATA FILE":"REPORTS";:12:"" MENU SCREEN ";::" "::(L$,38):SC1SS0:PRT1O .SS1ğ 24:"DISK LOAD";::12:"LOAD DATA FROM DISK":"DISK SAVE";:12:"SAVE DATA TO DISK":SS1ğ 4"SCHEDULE";::12:"CREATE FULL YEAR SCHEDULE" 7"STANDING";:12:"LISTAMS,NEW ORLEANS,SAN FRANCISCO| + "",DISK LOAD,DISK SAVE,SCHEDULE,STANDING,FORECAST,UPDATE,SPREADS,LIST,VERIFY,REPORTS,END ,O$"OPEN PRO DATA ":C$"CLOSE PRO DATA ":W$"WRITE PRO DATA ":R$"READ PRO DATA "C -::54915:(L$,38)::" ";::BALTIMORE,BUFFALO,MIAMI ,NEW ENGLAND,NY JETS CINCINNATI,CLEVELAND,HOUSTON,PITTSBURGH,DENVER,KANSAS CITY,LA RAIDERS,SAN DIEGO,SEATTLE DALLAS,NY GIANTS,PHILADELPHIA,ST LOUIS,WASHINGTON,CHICAGO,DETROIT,GREEN BAY,MINNESOTA,TAMPA BAY (ATLANTA,LA R),W%(5,2):P$"FHFAUHUAHHHA":L$"================================================================================" I128:N$(I):I:I112:C$(I):I::44 173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96,32,234,03,76,213,166, F 120JI770796:J:I,J:I:1010,23:1011,03:1012,166:SC045D$(4):D$"NOMON C,I,O"::D$"OPEN CONTROL FILE":D$"READ CONTROL FILE":SL:DR:D$"CLOSE CONTROL FILE"q SUM(14,4),WK(62,3),S%(16,14,2),SP(16,14,4),D%(28,16,3),N$(28),C$(12                         ):A;3((A)))N$(A);:L114(N$(A)):Q1L1:".";:Q:AD%(I,J,2):BD%(I,J,3):3((A)))A"-"B;3((B)));:D%(I,J,1)0ABĺ"W ";:650" ";Q114:S%(J,Q,H)IĂQ::686B(SP(J,Q,1)):ASP(J,Q,1)0:(A1H1)(A0H2)ĺ"-"B;:6--------- ------- ---------------- ---- ---- -------":Q$:"HOME TEAMS PLAYED SCORE LV LINE COMPUTER LINE TYPE LV CMPTR":Q$J116:SH1D%(I,J,1)1686H2:J3((J)));:D%(I,J,0)1ĺ"H ";:H1:644" ";aA(D%(I,J,1)ITLE..........: TEAM PERFORMANCE DETAIL"{{"WEEKS INCLUDED........: ";:SH1ĺ"SHORT VERSION (GAMES PLAYED ONLY)":637|"LONG VERSION (ALL SCHEDULED GAMES)"}(L$,78):::I128:"TEAM ";I;" ";N$(I);"........":~Q$"---- ----------------ION (ONLY GAMES PLAYED)":"2 LONG VERSION (ALL SCHEDULED GAMES)"w23:A$"ENTER SELECTION (1-2):":1310:" ";SH$:SH$""100xSH(SH$):SH1SH2İ166:630)y::163:161:SL:(9)"80N":164:(L$,78):"SEASON................: "Y$:"REPORT T1),0,1))));PD%(W%(J,1),0,1);7((D%(W%(J,1),0,2))));D%(W%(J,1),0,2);7((D%(W%(J,1),0,3))));D%(W%(J,1),0,3):J:I3610Z::Q$:"NATIONAL CONFERENCE WINS LOSSES TIES":Q$]"EASTERN DIVISION"bI:::::100Dv::"1 SHORT VERS%(W%(Q,1),0,2)D%(W%(J,1),0,2)T1W%(Q,1):T2W%(Q,2):W%(Q,1)W%(J,1):W%(Q,2)W%(J,2):W%(J,1)T1:W%(J,2)T2sHJ,QI(16384)128Ĺ16368,0::100 NJ1E1:W%(J,1);3((W%(J,1))));N$(W%(J,1));:L18(N$(W%(J,1))):Q1L:".";:Q:3((D%(W%(J,;B1:E5:E15:5800<B6:E9:E14::A$:580N=B10:E14:E15::B$:580f>B15:E19:E15:580?B20:E24:E15::A$:580@B25:E28:E14::B$:580DQBE:W%(QB1,1)Q:W%(QB1,2)D%(Q,0,1):QjFQ1E11:JQ1E1:W%(Q,2)W%(J,2)DINCLUDED........: SEASON TO DATE":(L$,78)::4Q$"------------------- ---- ------ ----":Q$:"AMERICAN CONFERENCE WINS LOSSES TIES":Q$5"EASTERN DIVISION":A$"CENTRAL DIVISION":B$"WESTERN DIVISION":I16:I571,572,573,574,575,576C:"*":IC:IC1115:6:IC:"*":35:IC:"*":IC::X:161:(4)"BLOAD CHAIN,A520"s520"THE GOLD EDITION"0::163:161:SL:(9)"80N":164:(L$,78):"SEASON................: "Y$02"REPORT TITLE..........: DIVISIONAL STANDINGS":"WEEKS ::14:"AND HIT RETURN":150 "SYSTEMS DESIGN LAB":"THE GOLD EDITION":"BY KEN PERRY":"COPYRIGHT MAY 1982":"PHONE: (213) 374-4471":: 24)"*** P R O F O O T B A L L ***":: K150:X(16336):K:5::IC635:10:IC:"*":16:I::0:12:12:A$"--- E R R O R ---":1310:::9:A$"PLEASE READ YOUR MANUAL":1310::150:100 I1200:(16384)128Ĺ16368,0: I:768,35:769,30:770:150 167:12:18:"PLEASE"::17:"STAND BY": 167:12:12:"ADJUST PRINTER NOW""WARNING: SAVE DATA FILE"::13:5:A$"WANT TO SAVE YOUR DATA FILE":1310:"? ";A$:A$"Y"A$"YES"100 |A$"N"A$"NO"122 ::11:9:"P R O F O O T B A L L"::12:"THE GOLD EDITION":15:18:"END":22:47413,222:47262,222:(4)"FP"a :"8 OVER-UNDER DIFFERENTIAL GRAPHING":"9 EXIT PROGRAM"Q j(L$,38):34,13: l:23:A$"ENTER SELECTION (1-9)":1310:": ";COM$:I(COM$):I1I9İ166:108 p:34,3::I200,4000,630,2300,560,2000,8000,5000,120 s100 xVN0140i z:::8) f"1 RETURN TO MAIN MENU SCREEN":"2 PRINT SEASON SCHEDULE":"3 PRINT TEAM PERFORMANCE DETAIL":"4 PRINT TEAM PERFORMANCE SUMMARY":142: i"5 PRINT DIVISIONAL STANDINGS":"6 PRINT PREDICTION ANALYSIS":"7 POINTSPREAD DIFFERENTIAL GRAPHING":4 140CZI770796:J:I,J:I:1010,23:1011,03:1012,166:\173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96,32,234,03,76,213,166 d:0:::54915:(L$,38)::" ";::" HARDCOPY REPORT MODULE ";::" "::(L$,3                膢 ȱ " <67 L  8ij v vo>G ? p>B ^?x? do~?x"wpvg|;? $a ?7??@?8 vX1qf? t'q:&@߀!<@~?>>~??8| >>?`??w~p|8 x|>>ۇq? pxy? LJðqp| >8pLJ 3pxa|<8xpx918a8xs98dN@ŏd<"E 2 I `AЍ> spD&$>N ̞!CdƐ[^,0ACP$.|L, >p0t@?C 49AG d`e `Á 0&8&@ B2&`@(@4pLi#DB4bcHf1D3F1Ʊ 2sscX<<||xp  zq yaCc8<8{<RX>nP]Z CAT-ANSWER.OBJ2:V2.6"R64098 \T$"12T$" AM":D$(4):F$"ANSWER.TEXTCAST22:MIHR1:SEMI1`:1:39)" ":4:39)" "RTY,THIRTYONE,THIRTYTWO,THIRTYTHREE,THIRTYFOUR,THIRTYFIVE,THIRTYSIX,THIRTYSEVEN,THIRTYEIGHT,THIRTYNINE,FOURTY,FOURTYONE,FOURTYTWO,FOURTYTHREE,FOURTYFOUR,FOURTYFIVE,FOURTYSIX,FOURTYSEVEN,FOURTYEIGHT,FOURTYNINEU FIVETTY,FIVETTY ONE,FIVETTY TWO,FIVETTY081mONE,TWO,THREE,FOUR,FIVE,SIX,SEVEN,EIGHT,NINE,TEN,ELEVEN,TWELF,THIRTEEN,FOURTEEN,FIVTEEN,SIXTEEN,SEVENTEEN,EIGHTTEEN,NINETEEN,TWENTY,TWENTYONE,TWENTYTWO,TWENTYTHREE,TWENTYFOUR,TWENTYFIVE,TWENTYSIX,TWENTYSEVEN,TWENTYEIGHT TWENTYNINE,THIN125a63078:SA$N$:N(MI):63076:63078:SA$SA$"."N$bbSA$SA$".."(TI$,10,1)"."(TI$,11,1)hcd255,N:X((255)16):NX10:NN((255)(X16))efN0N$"OH":g:S1N:N$::hP$"":A$""iP$P$A$:A$:(A$)1363Ĺ16368,0:EX10:%:SA$L$(A):38131::0@ST13;HX(0)AIJ255,(37):254,(36):63040:24:14:TI$;:37,(255):36,(254):T63050:(16384)12863060YK$:K(K$)]^SA$"":63040_N(HR):63076:N12NN12`N02128:HK,0 N8:1:39)" ":4:39)" ":39)" "[V122:V:1:" ";:40:" ":o23:39)" ";:34,6:33,38:32,1:35,22:"36,((40(P$))2):P$:,5:1:37)" ":5:63010:6A1L:630507EX0 8(16384)155"12:00:00":TI$T$" AM":D$(4):F$"ANSWER.TEXT"(27):SL2j]CO1625516SL:HK1625416SL:XB1624316SLw^ST21503_HRST22:MIHR1:SEMI1`0ST7:M(3):M4ADAD1:62020;AD0D21:15:"[SOUND:"AD"] "IAD30ĹCO,Ĺ255,(37):24::37,(255):63050:Nj:12:P$"[DOS ERR #"((222))"]":63010kP$"[ HIT ANY KEY TO CONTINUE ]"::63010:63060lX(0):170H:12:"PLEASE RUN THE FOLLOWING FILE FIRST.."M" :> CAT-ANSWER V2.8"R640986\T$31:63050 P21:ZHK,0@dD$"OPEN"F$",L50":D$"WRITE"F$",R"CATnTL$:P$"HUMAN"\xP$rD$"WRITE"F$",R0"CA:MO:TP:AND$"CLOSE"TPĹCO,30128:A13000::XB,0:A1500::XB,8:CO,2128:6102010`(222)2552:"[RECORDING TIME LEFT :"TI": SECONDS]":TITI1:TI01340aX(SE):(16384)155Ĺ16368,0:1340l(62000~)(SE)X132021300<CO,2128:SA$"PLEASE STOP . YOUR MESSAGE HAS BEEN SAVED":38131:63050FSA$"THANK YOU .. GOOD BYE;":381:SA$SA$N$:38131A1100::9KSA$"YOU CALLED AT":38131:63070:38131dA1300::CO,2128o63030EX101360TP1350SA$"PLEASE START YOUR MESSAGE NOW":38131:63050AD0 CO,30128:TITI1663050:20:868: :P$"[PHONE RINGING:::CALLER #"(CA1)"]":63010:CACA1:P$"[PHONE CALL AT "TI$"]":63010:TL$TI$:63050} A12000: X(0) 12:P$"[SAYING WELCOME MESSAGE..]":63010 9:TPĹCO,30128 SA$"YOU ARE CALLER NUMBER ":NCA:63078(A): .D$"CLOSE":63050 8AN1h B:P$"[ FOR MAIN MENU]":63010:P$"[ FOR TESTING]":63010 L12:P$"[AWAITING CALL #"(CA1)"]":63010 VST4:63050 `X(0) j(16384)155ė:170 t(16384)1601160 ~(3)21110m4,2:255,3::(4)"BRUNCAT-ANSWER V2.8", 1019K D$"UNLOCK ANSWER.WELCOME"W 60000a 1040 :12:"[NO WELCOME FILE ON DISK....]":170 HK,0:63050: 16368,0 D$"OPEN ANSWER.WELCOME":D$"READ ANSWER.WELCOME" $L:A1L:L$40,2:CO,2128:HK,0# PST10:ST1:20; ZCA0:MO0:TP0:AN0U dTI20:51,0:CO,2128i CA:MO:TP:AN D$"CLOSE":TP$"ON ":TPTP$"OFF" P$" ":63020:5:1:"CALLS:"CA;15)"MODEM:"MO;30)"TAPE:"TP$:10:60000 1000! :253,1:25Zgi hj: L ogZLfթghZ [ \ ] ^ Le 21503o 6326y 51,0 61020 (253)3(254)2(255)161000 60000  X(0) D$"OPEN"F$",L50":D$"READ"F$",R0" F381L :::::::::::::::+: CAT-ANSWER :@: VER.:2.8 :U:::::::::::::::j: WRITTEN BY: :: DIE KATZE ::::::::::::::::: PROG. FROM :: THE NDC... : :::::::::::::::      SEVEN,FIVETTY EIGHT,FIVETTY NINE,SIXTY+NE,SIXTYEIGHT,FIVETTY NINE,SIXTYPSF SVLFIVE,THIRTYSIX,THIRTYSEVEN,THIRTYEIGHT,THIRTYNINE,FOURTY,FOURTYONE,FOURTYTWO,FOURTYTHREE,FOURTYFOUR,FOURTYFIVE,FOURTYSIX,FOURTYSEVEN,FOURTYEIGHT,FOURTYNINE  FIVETTY,FIVETTY ONE,FIVETTY TWO,FIVETTY THREE,FIVETTY FOUR,FIVETTY FIVE,FIVETTY SIX,FIVETTY T,NINE,TEN,ELEVEN,TWELF,THIRTEEN,FOURTEEN,FIVTEEN,SIXTEEN,SEVENTEEN,EIGHTTEEN,NINETEEN,TWENTY,TWENTYONE,TWENTYTWO,TWENTYTHREE,TWENTYFOUR,TWENTYFIVE,TWENTYSIX,TWENTYSEVEN,TWENTYEIGHT TWENTYNINE,THIRTY,THIRTYONE,THIRTYTWO,THIRTYTHREE,THIRTYFOUR,THIRTY"."N$-bSA$SA$".."(TI$,10,1)"."(TI$,11,1)3chd255,N:X((255)16):NX10:NN((255)(X16))nefN0N$"OH":g:S1N:N$::hP$"":A$""iP$P$A$:A$:(A$)1363081mONE,TWO,THREE,FOUR,FIVE,SIX,SEVEN,EIGH3HX(0) ISJ255,(37):254,(36):63040:24:14:TI$;:37,(255):36,(254):sT63050:(16384)12863060YK$:K(K$)]^SA$"":63040_N(HR):63076:N12NN12`N0N12a63078:SA$N$:N(MI):63076:63078:SA$SA$:39)" "&V122:V:1:" ";:40:" "::23:39)" ";:Z34,6:33,38:32,1:35,22:x"36,((40(P$))2):P$:,5:1:37)" ":5:63010:6A1L:630507EX08(16384)155Ĺ16368,0:EX10::SA$L$(A):38131::@ST1OBJ1:V2.8":" :> CAT-ANSWER.OBJ2:V2.8"/R64098r\T$"12:00:00":TI$T$" AM":D$(4):F$"ANSWER.TEXT"(27):SL2]CO1625516SL:HK1625416SL:XB1624316SL^ST21503_HRST22:MIHR1:SEMI1`:1:39)" ":4:39)" "1045_:`(222)255Ĺ255,(37):24::37,(255):63050:ij:12:P$"[DOS ERR #"((222))"]":63010kP$"[ HIT ANY KEY TO CONTINUE ]"::63010:63060lX(0):160H:12:"YOU ARE MISSING ONE OF THESE FILES.."$M" :> CAT-ANSWER. K$"N"1704D$"OPEN"F$",L50":D$"READ"F$",R0"LA,B,C,D:D$"CLOSE"^D$"DELETE"F$D$"OPEN"F$",L50":D$"WRITE"F$",R0""0":"0":C:"0"D$"CLOSE":100253,3:254,2:255,1::D$"BRUNCAT-ANSWER.OBJ1:V2.8"\L$(X)"/A"ė:X(0):170,fL$(X)"/EX"7706pXX1Uz:12:"SAVING MESSAGE..."D$"OPEN ANSWER.WELCOME":D$"WRITE ANSWER.WELCOME"XA1X:L$(A):D$"CLOSE":LX:680:12:"VERIFY [?]";:9:63060:K$"Y"K$"N"94010890>L$(X)"/E"XX1:780HL$(X)"/H"ĺ":> /H THIS LISTING":":> /L LIST ALL ENTERED LINES":":> /EX EXIT AND SAVE FILE":":> /E EDIT THE LINE ABOVE":":> /A ABORT ENTER WELOCOME MESSAGE":780RL$(X)"/L"ė:A1X1:"<"A">:"L$(A)::780.":A12000::60000160q:"PLEASE ENTER A MAXIMUM OF 10 LINES..":"ENTER /H)ELP,/EX)IT,/E)EDIT LINE ABOVE"yX0XX1 X1X1"["X"]:";:"";L$(X):(L$(X))0780 (L$(X),1,1)"/"(L$(X))3830*SA$L$(X):381314X60000B:12:P$"[SAYING WELCOME MESSAGE..]":63010:63030::12sP$"[HIT ANY KEY TO CONTINUE]":63010:63060:12:"IS THIS SATISFACTORY [Y/N] :";:63060:K$"Y"K$"N"700K$"Y"170750:12:"NO WELCOME FILE ON DISK...0D$"CLOSE":A0:B0:C0:D0:X(0)%:90tD:12:"E)NTER, L)OAD WELCOME MESSAGE [E/L]:";:63060:K$"E"K$"L"580zNXK$"E"750b730lD$"OPEN ANSWER.WELCOME"vD$"READ ANSWER.WELCOME"LA1L:L$(A):D$"CLOSE"170K:12:"TAPE RECORDER O)N, F)OFF [O/F] :";:63060:K$"O"K$"F"460QgA0:B0:D0:530xK$"O"TP1K$"F"TP0D$"OPEN"F$",L50":D$"READ"F$",R0"A:B:C:D:CTPD$"WRITE"F$",R0"60000&A:B:C:D600004hCA0Ģ12:"YOU HAVENT HAD ANY CALLERS!!!":420@rA1CAU|D$"READ"F$",R"Aj63080:T$P$:P$"CALL #"A" :";:15:T$;:28:P$D$"CLOSE"P$"[ HIT ANY KEY TO CONTINUE ]":63010:63060CO,2128:X(0):H0NH:290:HR,N#NM:290:MI,N6 NS:290:SE,NA!:170t"255,N:N((255)10)16:NN((((255)),1))z#6::CO,30128;340@D$"OPEN"F$",L50":D$"READ"F$",R0"JCA:MO:TP:ANT"CALLERS:"CA:"MODEMS :"MO:^ 22:"ENTER [?]";:8:63060* K1K9170J K280,310,460,580,1040,940S 170 :11:"ENTER THE CURRENT TIME [6,43,20,PM] :":":";H,M,S,T$ H1H12280 M0M60S0S60280 (T$)2280 T$"PM"HH12 T$"AM"H12254,0:255,0:AN0 16368,0:* 8:1:AN0B "[1] CHANGE CLOCK"[ "[2] READ MESSAGES"{ "[3] CONFIGURE CAT-ANSWER" "[4] ENTER/LOAD WELCOME MESSAGE" "[5] THE APPLE-CAT ANSWERING SERVICE" "[6] RESET APPLE-CAT ANSWERING SERVICE"",L50":D$"READ"F$",R0"% CA:MO:TP:AN. 140D D$"WRITE"F$",R0"X CA:MO:TP:AN D$"CLOSE":TP$"ON ":TPTP$"OFF" P$" ":63020:5:1:"CALLS:"CA;15);"MODEM:"MO;30);"TAPE:";TP$:10:60000 (253)1(254)2(255)3Ĺ253,0:ATZE":63010+ 35:P$"VERSION 2.8":63010:P$""7 461000Y 5D$"LOCKCAT-ANSWER.OBJ1:V2.8"| <D$"BLOADCAT-ANSWER.OBJ2:V2.8" F38140,2:CO,2128:HK,0 PST10:ST1:20 ZCA0:MO0:TP0:AN0 dTI20:51,0:CO,2128 n132 xD$"OPEN"F$Zgi hj: L ogZLfթghZ [ \ ] ^ Le 21503o 7792y 51,0 61020 (253)1(254)2(255)370 2::63000:2:P$"THE APPLE-CAT ANSWERING SERVICE":63010:P$"WRITTEN BY:DIE KL :::::::::::::::+: CAT-ANSWER :@: VER.:2.8 :U:::::::::::::::j: WRITTEN BY: :: DIE KATZE ::::::::::::::::: PROG. FROM :: THE NDC... : :::::::::::::::                !! ! ! ! ! !!!!!!!!!"         Š묠䭍󮍍ԠĠӺԠĠԠ묠Ů堍庍Ӻ占䮠䍠ĠԮ庠占Ԡ뮍ĠӺčԠ묠󠍠Š뮍Ӻԍ묠󠍠婠䮠ፍŠ󍠠䮍頠נϠԠŠҠӍӍӍĠӍӍӺ" """"""""Π뮍ŠҠŠҠǠŠӡ̮٠ήӠΠԠ󮍍ӠΠ宍ϠԠҠӠҠŠǠˠԠӠšԠ䮍庍련䩠ŠΠ廍򍲮٠廠򍳮""" " " "