' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx ( 3   Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` F d ֠z# uSSS-` ԠԨŠ ԠԨŠ ԠԨŠƠѠΠƠɠ̠ĤɠΠԠƠѠΠƠɠҠɠҠɠϠԱŠɠȠԨũ ԠԤԨŠ ԠԨŠ ԠԨŠ ԠԨŠ ԠԨŠ ԠԨŠ ԠԨŠ ԠԨŠɠԨɠԨɠԨɠԨɠԨɠԨɠԨɠԨɠԨɠԨɠԨɠԨɠԨɠԠź ƠѠΠңԠ̠ŠǺԠ͠àԠӠӠˠԠ͠ΠƠ̠΢ԭ  ԠԠˠҠԠǍƠǠҠǠРΠ  ԠԠΠŢҠɠϠԠɺϠȠ   ҠŠϠԱɠŠԠԨɩԨϠԠԠɍңŠԠԠŠϿٯΠԠƠ٢ĠǠΠǠǠϠϠŠ  ԠԠӠŢ  ԠŠҠˠҠРҠɠϠԱȠ̠Ĥ¤٬ ààƠàΠ ԠԤ ԠդϠԠԠԤԠ٠٠ԠɺҠɠԠ̠ŠˠǺ Ԡǭ ԠǭԠӠӭӠ٠ׯ̯Ԣ ԠŠԠӠӠˠԠРԠ̠ԠӠĢԠà٠դԠРҠҢҠɠϠԠɺϠԱŠԠӠԠҠǠԠԠԠˠҠԠǺƠǠҠǠΠ  Ԡ¤ ңΩΠԠԠɍ  ԠԠԠŠٯΠԠƠ٢ĠǠΠǠǠϠϠŠԠϠŠΠŢҠɠϠԠɺϠƠѠΠŠԠƠ̠Ԥ¤ΠȠ̠Ĥ¤ج  ԠԤԠȠ̠Ĥ¤٬ ԠԤؠؠ٠٠Ơɠ̠ĤɠŢҠɠϠԠɺϠƠՠΠ  Ԡ¤ ƠΠ¤ԱΠŠ  ԠŠҠˠǍؠ٠ԠҠɠϠԱРƠՠΠƠՠΠƠՠΠ  ԠϾƠՠΠ  ԠϾ  ԠΠԠˣԠǺƠǠҠǠΠ  ԠԠԠԠϠբ֠ҠՠϠ  ֺԠ٭Ԡդ  ֺԠèƠդ٢Π֠֠ԠպƠդ٢ΠƠՠΠ  ԠԾԠĤ̬ıΠٍנ΍ҍ٠Ӎԍ̠ԠӠǍӠɠ٠Ӡ׾׭׭׭׾׭׍̭̾׭׾̭̭̭̭̭̾̾׾׭̾̍׭̾׭̭̾̾׭׾̾׭̭׾̭׭̍̾׭׾̭׾׭̾ԭ׭̾׾̭̭׾̭̍̾׾׭׭׾׾̭̾̾׭̭̾̾׍׭̾׾̭׭̾׭̭̾׭׾̭̾̾̍Ծ̭׾̭׾׭̭̾׾׭̭̾׾׾̍̾׭׾̭׾̭̭׾׭̾׾׭׾̭׍׭׾̭̭̾̾׭Ծ׭׾̭̠ºԠºԠĤϠԠĤԠĤԠԠºԠºԠºԠºԠºԠĤŠ ԠϠРԠɠϠΠӢ  ԠՠΠ׺РàӠӠΠÍΠٍٍΠР̠ΠύӠԍҍӠҠŠǍ٠ӍύԠӠנ΍ϠɠϠԠԍנ΍č٠ʶ׾̭̭̾׭̾׭̾׾̭׍׭׭̭̾̾̾׭׾׭̾̾׭̭̾׍̭Ծ׭׾׾׭̾׾̭̭̭̾̾׭׍׾׭̾׭̭̭̭̾̾̾̾׭̾׭׍׭̭̾׾׾׭̾׭̭̾׾̭׭׾׍׭׭׾׾̭̭׾̾׭̭̾׭̭׾׍̾Ծ׭׾̭̭̭̾̾׭׭׾׭׾̍׭׾̭׭׭׾׭̾̾׭̭̾׾׭̭̭̭̍̾̾׾׭3((B%))):(B%10):=:"WAIT FOR MENU":D$;"RUNNFL,D1"RD$;"SAVEDETAIL" "lD$;"SAVEDETAIL"  ORLEANSNY GIANTS NY JETS PHILADEL PITTSBURGHSAN DIEGO SAN FRAN SEATTLE ST LOUIS TAMPA BAY WASHINGTON",(J15)101,10):A%10A:B%B10:(35((A%))):(A%10);:(40((B%))):" "(B%10)::A%10A:B%10B:(24((A%))):(A%10);:(3V$"Q"1500%LL11:J:1500J15A$("ATLANTA BUFFALO CHICAGO CINCINNATICLEVELAND DALLAS DENVER DETROIT GREEN BAY HOUSTON INDIANAP KANSAS CTYLA RAIDERSLA RAMS ",(J1)101,10):A$("MIAMI MINNESOTA NW ENGLANDNW(CCDD)H1010:"% ATTEMPTS BY RUSH";:A0:B0:BB0A100(S%(L)BB)cDD0B100(D%(L)DD)1010:"YARDS PENALIZED";:AS%(L5)GN:BD%(L5)GN:1010::"VS SPREAD > AT HOME - AWAY":" ";U$(J)24:" < N > NEXT < Q > QUIT TO MENU ";:V$% COMPLETED";:A100(S%(L7)S%(L6)):B100(D%(L7)D%(L6)):1010"% INTERCEPTED";:A100(S%(L8)S%(L6)):B100(D%(L8)D%(L6)):1010:"AVG # TURNOVERS";:AAAGN:BCCGN:1010:"AS % OF ATTEMPTS";:A0:B0:BB0A100(AABB)DD0B1001)D%(L):1010"AVG PASS ATTEMPTS";:AS%(L6)GN:BD%(L6)GN:1010:"AVG YDS/GAME";:AS%(L2)GN:BD%(L2)GN:1010:"AVG YDS/ATTEMPT";:AS%(L2)S%(L6):BD%(L2)D%(L6):1010C"AVG YDS/COMPLETION";:AS%(L2)S%(L7):BD%(L2)D%(L7):1010:":AS%(L10)GN:BD%(L10)GN:1010:"RUSH ATTEMPTS";AAS%(L8)S%(L4):BBS%(L)S%(L6):CCD%(L8)D%(L4):DDD%(L)D%(L6)AS%(L)GN:BD%(L)GN:1010:"AVG YARDS/GAME";:AS%(L1)GN:BD%(L1)GN:1010:"AVG YARDS/ATTEMPT";:AS%(L1)S%(L):BD%(LREAD";F$:;/CT0ĺD$;"OPENSPREAD,D2":D$;"READSPREAD":f0D$;"OPENSPREAD,D1":D$;"READSPREAD":J1T1::"TEAM ";:900::" ";A$;" ";::" BEFORE GAME ";N:21:"BY";:28:"AGAINST":"AVG/GAME OF % OFFENSE DEFENSE":4"POINTS SCORED";N:1000L:3:"PERFORMANCE VS SPREAD > AT HOME":26:"- AWAY":5:U$(J)fI17::I:LL11:J0:"";:"";:"";:"";::11:10:"HIT ANY KEY TO CONTINUE ";:AK$:1500,CT0ĺD$;"OPEN";F$",D2";:D$;"READ";F$: -D$;"OPEN";F$:D$;"BD%(L3)GN:1000W5:"% FUMBLES LOST";:A0:B0:S%(L3)0A100(S%(L4)S%(L3))~D%(L3)0B100(D%(L4)D%(L3))1000:5:"YARDS PENALIZED";:AS%(L5)GN:BD%(L5)GN:1000:5:"YARDS SACKED";:A(S%(L9)S%(L2))GN:B(D%(L9)D%(L2))GTOTAL ATTEMPTS";:A0:B0:BB0A100(S%(L)BB)JDD0B100(D%(L)DD)P5:"% ATTEMPTS BY RUSHING";:1000::3:"MISC. AVERAGES PER GAME":5:"AVG TIMES INTERCEPTED";:AS%(L8)GN:BD%(L8)GN:1000:5:"FUMBLES PER GAME";:AS%(L3)GN:):B100(D%(L7)D%(L6)):1000:5:"% INTERCEPTED";:A100(S%(L8)S%(L6)):B100(D%(L8)D%(L6)):1000:3:"AVG TURNOVERS";:AAAGN:BCCGN:1000:5:"AS % OF ATTEMPTS";:A0:B0:BB0A100(AABB)DD0B100(CCDD)1000:/3:"OF GN:1000:5:"AVG PASS YARDS/GAME";:AS%(L2)GN:BD%(L2)GN:10005:"YARDS PER ATTEMPT";:AS%(L2)S%(L6):BD%(L2)D%(L6):1000:5:"YARDS PER COMPLETION";:AS%(L2)S%(L7):BD%(L2)D%(L7):1000:l5:"% COMPLETED";:A100(S%(L7)S%(L6)D%(L2))DD:1000:3:"RUSH ATTEMPTS";:AS%(L)GN:BD%(L)GN:1000:5:"AVG YARDS RUSHING/GAME";:AS%(L1)GN:BD%(L1)GN:10005:"AVG YARDS PER ATTEMPT";:AS%(L1)S%(L):BD%(L1)D%(L):1000:C3:"PASS ATTEMPTS";:AS%(L6)GN:BD%(L6)SE DEFENSE"::3:"POINTS SCORED";:AS%(L10)GN:BD%(L10)GN:1000:AAS%(L8)S%(L4):BBS%(L)S%(L6):CCD%(L8)D%(L4):DDD%(L)D%(L6)3:"TOTAL ATTEMPTS/GAME";:ABBGN:BDDGN:1000:5:"AVERAGE GAIN";:A(S%(L1)S%(L2))BB:B(D%(L1)1:X(J1)16:K1GN:RP%(XK):L111:HYL:D%(H)D%(H)A%(RL):L:K:J[ sL1:CQ1400b t1 xJ1T1:2:"STATISTICS BEFORE GAME ";N;" ":N10ĺ"LAST TEN GAMES" yN10ĺ }33:"BY AGAINST" 2:900:"TEAM: ";A$;H30:"OFFENS"9 UJ1T1:X(J1)88:Y(J1)11:QJ21:AH%(Q)095~ ZK1AH%(Q):RX(K1)11:L111:QYL:S%(Q)S%(Q)A%(RL):L:K _QJ2:AH%(Q)0105 dK1AH%(Q):RX(K1)11(T188):L111:HYL:S%(H)S%(H)A%(RL):L:K iJI nJ1T1:Y(J1)1AH%((A1)21)11):P%((VN1)16GN)P:K((A1)2)1:JJ((VN1)2)2:AH%(K)AH%(K)1:AH%(JJ)AH%(JJ)1 FA%(P1):A%(P2):A%(P3):A%(P4):A%(P5):A%(P6):A%(P7):A%(P8):A%(P9):A%(P10):A%(P11):J:D$;"CLOSE";F$:I P8:7:"CALCULATING STATK3 WK4 WK5 WK6 WK7 WK8 WK9 WK10WK11WK12WK13WK14WK15WK16WK17WK18WK19WK20WK21WK22",(I1)41,4):300r -H1:GNGN1 /30:I9:"WEEK ";I 2J1T1:A:HH1:P((A1)88):H1P(P(T188))(AH%((A1)22)11):VSP:VNAe <H1P%((A1)16GN)VS:PP(AIL STATS -- EACH TEAM"2 4:7:"LOADING DATA";} N3ė:"NEED 2 GAMES COMPLETED ":::"WAIT FOR MENU":D$;"RUNNFL,D1" 303:I1T1:U$(I):I:D$;"CLOSESPREAD" X1:YN1:Y10XY9:7:7:"LAST TEN WEEKS" #GN0b (IXY:F$("WK1 WK2 WTD$(13)(4)' T128: 6/9/83xU$(T1),A%(T1176),P%(((T11)16)10),AH%(2T1),S%(T112),D%(T112):H1:GN0D$;"OPENGA,D1":D$;"READGA":N,CQ,CR,CS,CT,CU:D$;"CLOSEGA":CS1ĺ"PRINT DETAIL STATS -- ALL TEAMS" CS0ĺ"DISPLAY DET          ݛĈĈĀĀ|];wn];w~݇ĈĈĀĀ;wn| /x~~@p|@̇LĈĈ̙`}q88\w{A}8nG8p88\ĈĈĈĈĀćLĈĈĀϙ`=p`\w;@80tA8nGq` 3@yO00 sy 0` 0L` 8`݁ĈĈĀǘ| /x~~@p|s>L |?~p3` >~ >~Og xĈĈĀ| /x~~ @p|D D D"">>>LDD D"Ḋ`qq>88\wA{`=8nG8p88\ݻD D"D́`pp`w;@80G{8np`  G BHOUINDK CL ARAMMIAMINN EN ONYGNYJPHIPITS DS FSEASTLT BWAS",(H1)31,3):FL$("WK1 WK2 WK3 WK4 WK5 WK6 WK7 WK8 WK9 WK10WK11WK12WK13WK14WK15WK16WK17WK18WK19WK20WK21WK22",(G1)41,4):'D$;"SAVESCHEDULE":'D$;"SAVESCHEDULE": KANSAS CTYLA RAIDERSLA RAMS ",(H1)101,10):VT$("MIAMI MINNESOTA NW ENGLANDNW ORLEANSNY GIANTS NY JETS PHILADEL PITTSBURGHSAN DIEGO SAN FRANC SEATTLE ST LOUIS TAMPA BAY WASHINGTON",(H15)101,10):LVT$("ATLBUFCHICINCLEDALDENDET00:8:VT$;" AT "; XX4< H((B$,Y,2)):4000:VT$F YY4Z I:A$"Y"3008c 511H1HT1VT$"NO DATA":1H15VT$("ATLANTA BUFFALO CHICAGO CINCINNATICLEVELAND DALLAS DENVER DETROIT GREEN BAY HOUSTON INDIANAP :CT0ĺD$;"OPENSCHED,L58,D1":9 D$;"OPENSCHED,L58":S D$;"READSCHED,R";G:n D$;"WRITESCHED,R";G: D$;"CLOSESCHED": :8:"GET NEXT GAME < Y/N ";:T$:T$"Y"3002 D$;"CLOSE SCHED":340 X1:Y3 I1272:H((B$,X,2)):40 ";:H((B$,Y,2)):4000:VT$:XX4:YY4:I`22:5:"OK TO FILE < Y/N > ";:P$:P$"N"2000rP$"Y"20323000:3004:B$:3006:4:10:"COMPLETED GAME ";G:7:8:"DO THE NEXT GAME < Y/N > ";:A$:A$"Y"GG1:200012  D$H:M$;:Y$:V:HH:4):Y$(M$,1)2028PA%(A)1:M$"V-->":Y$"V"M$"H-->"HH5:V:10):B$B$(A):(B$)(T12)2030VV1:A:V7:H4:2004:"GAME SCHEDULE FOR WEEK ";G::X1:Y3:8,I1(T11)2:H((B$,X,2)):4000:8:VT$;" AT18 V:H:M$;:Y$:V:H:4)6Y$(M$,1)2018BA%(A)1iH5:V:10):A10B$B$"0"(A)A10B$B$(A)(B$)(T12)2030M$"V-->":Y$"V"M$"H-->"A%(A)1VV1:A:V7A((T12)1)T1:A%(A)02028(V:HT w:11:"SCHEDULE GAME WEEK ";G:3:4:"'V' VISITOR FIRST 'H' HOME NEXT":12:"' ' ADVANCES ARROW":I114:HI:4000:9:VT$;:HI14:4000:29:VT$:IV7:H4:M$"V-->":B$"":HH24:I128:A%(I)0:IA1(T12):A%(A)020;FL$:D$;"READ";FL$:AD$:CT0ĺD$;"WRITE";FL$;",D2":WD$;"WRITE";FL$:mD$;"CLOSE";FL$::GG$"GAME COUNTER IN ERROR - BIG PROBLEM"::"ERASE FILES AND REENTER ALL DATA"::"GAME COUNTER MUST BE LESS THAN 23":"AND MORE THAN 0":0080010001200140016001800200022002400260028",(I1)21,2))ĺCQ0ĭI14I28ĺ:::::"HIT ANY KEY TO CONTINUE ";:AK$:I::::::::::::::::::::::12CT0ĺD$;"OPEN";FL$",D2":D$;"OPEN";FL$",D1":D$;"READ":"TM SC AT YDS YDS SAK AT CM IN F L PEN":I1T1:EI12:HT(E):4003:VT$;" ";T(E1);:8:T(E2);:11:T(E3);:15:T(E4);:20:T(E5);:23:T(E6);:26:T(E7);:30:T(E8);:32:T(E9);:35:T(E10);<38:T(E11):CQ0ĭI(("0002000400060NUMBER ";:GCoG1GCP1Ė18:12:"NOT IN FILE":I1500:I:12[pH1:4005:200:210yE1T1:IE12:T(I),T(I2),T(I3),T(I4),T(I9),T(I10),T(I11),T(I6),T(I7),T(I8),T(I5),T(I1):T(I5)T(I5)T(I4):E:230zCQ0Ċ1-~"NFL GAME ";G,Y,2)):4000:CC1:C1Ė4:VT$:12:U$:106>i"AT ";VT$:WjYY2:I:I15::Ik0::"NEXT GAME TOO? < Y/N > ";:A$lA$"Y"G22GG1:101m12 n:6:5:"LAST STATS AVAILABLE":8:5:"ARE FOR WEEK NUMBER ";CP1:5:11:"PRINT WEEK --":18:"RUSHING-- NET YDS ---PASSES--- FUMBLES PENALTY W/L/T" f12:"SCORE ATT YARDS YARDS SACK ATT COMP INT TOTAL LOST YDS SPREAD": gC1:Y1:U$"----- --- ----- ----- --- --- ---- --- --- --- ---- ---"-hI1T1:H((B$2. <:"NO SCHEDULE IN FILE":I1500:I:12c ZCQ1ė:"NOT SETUP FOR PRINTER":I1500:I:12m cT128 d:"FACTS SHEET FOR COLLECTING DATA"::"WHAT WEEK NUMBER ";:G:G1G2112F e3000:3002:B$:3006:1:"NFL GAME WEEK ";G:18:"PASSING---I1(T11)2:((B$,2))160e H((B$,X,2)):4000:7:VT$;" AT ";:H((B$,Y,2)):4000:VT$ #XX4:YY4:I(("000005000011000017000023000000000",(I1)21,2))ĺ 'I (22:10:"GET NEXT GAME < Y/N > ";:A$:A$"Y"G21GG1:25 21 U4110$ U1Ģ6:10:"DO>"; U2Ģ8:10:"DO>" 18:13:"BEGIN AT WEEK# ";:G:G1G21Ģ20:13:"NOT AVAILABLE":I11500:I:12 U22000 3000:3002:B$:3006:(B$)(T12)60 :6:1:"SCHEDULE FOR WEEK ";G X1:Y3: :8:"BUILD GAME SCHEDULES":10:15:"PRINT GAME STATS FORM"z 12:15:"PRINT PRIOR GAME STATS":14:15:"QUIT TO MENU" V6 U15:10:V:"Y-->";:U$:10:V:4):U$"Y"VV2:U:U$"Y"14 U5Ģ14:10:"GET>":D$;"RUNNFL,D1" U390D$(13)(4)V ***SCHEDULE NFL 6/6/83 COPYRIGHTED PICKAM SOFTWAREd 9/9/83 T128:A%(T1),B$(T1),T(T11224):FL$"GA":200:210:CP,CQ,CR,CS,CT,CU:230< 0::2:10:"G A M E S C H E D U L E":6:15:"LOOK AT SCHEDULES":15       ؈߻D"D D""Lظ𻃀D"D D"̇s`Y~O80 s 8p 8N` 8p؃D"D D"| /x~~@p|s`~O 8p^s  N` 8p߻D"D D""Lj|@ /x~~@p|ݛĈĈĀĀo];wn];݇ĈĈĀĀ;wn}| /x~~ @p|@HA D " LĈĈ̙`aqx88\wa;p8nG8p88\ĈĈ̙`pppwC{`=88G{8nppĈĈĀĆLĈĈĀ~s|GO|?~O3c?|?~x|?~Ogfy݁ĈĈĀ| /x~~@p|3@Y~O 00 sLLL`@ `ĈĈĀ|@ /x~~@p|ܻ D D"";wn]{ρD D D""xn];w>| /x@~x@@|@HA qD " L؃D D D"Ḋ`aqp88`p8.G8p88\ݟD@ D"D́`ppx>wc{q}8<G{8npx>؈ݻD"D D""|  x~@@~|x?Lظ𻏀D"D D"̇~sxC|?~O3C|?~x|?~OgfyD"D D"| x~~@p|~3x~O 80 s|x|N`` p߻D"D D""Ĉ| /x~~@p|EݛĈĈĀĀn]݇ĈĈĀĀ^;wn]{| /x@~x@@|@HA rssqD>>>LĈĈտ̙`aqp88`p8.G8p88\ĈĈϙ`ppx<`qqx8<G{8px<ĈĈĀĞ|  x~@@~|x?LĈĈĀ~cpAx|O3|~x?|~~Ggfq?݁ĈĈĀ| x~~@p|~3x~O p?0 s|~x?|~|Ocp `ĈĈĀĈ| /x~~@p|E߻ D D""́D D D""wn];wn|   x~@@~| @OA D"" ~O؏D D D"Ḋ`qqxx<`aqp8<G8px<D@ D"D́`pp88`p8G8p88C?0L px@s0` 0~ 0~|Cg `؈ݻD"D D""| /x@~x@@|ȁܻD"D D"χ~C?`@ pxO3|~x|~|CgfaD D D"|}| /x~~@p|~3xL1 x?0 3`|?~x|?~~Ocx pؼ߻D"D D""|  /x~~@p| ݛĈĈĀĀݟĈĈĀĀ];wn];|   x~@@~| @A D"" ~OĈĈĈ̙`}q~x>\wc{q}8<wG8nGqx>ĈĈ̙`=px88`p8NwG8p88c8L x|`1` 8~ 8~~Gg p?ĈĈĀĘ| /x@~x@@|ĈĈĀρ݇ĈĈĀ>>L،D"D D"Ḋ`}p>p\wC{`=88vC8nGqp LDD D"Dؾ́`}p>88px8NwG8p88s<L |?~p3` <~ <~Og x؈ݻD"D D""̈| /x~~ @p|ȇ߻D"D D"Ӂ@D D D"o]{| /x~~@p|3xN} |0 sp 8~p 8~Cc> x،ܻD"D D""| /x~~@p|                Ģӥ̠ӥ̠ ĥ̠ĥ̠ Ԡ ԠǠӢκ àκ  ԠӠƠӢ Ơ Π©ɠ ԠӠҠ΢ӥ̠ӥ̠ ĥ̠ĥ̠ Ԡ ԠĢӥ̠ӥ̠ ĥ̠ĥ̠  ԠԠӠӢӥ̠κ ĥ̠κ  ԠǠӠӯŢӥ̠κ ĥ̠κ  ԠӠҠԢӥ̠ӥ̠ ĥ̠ĥ̠ ӥ̩κ ĥ̩κ  ԠǠӠǯŢӥ̠κ ĥ̠κ  ԠǠӠҠԢӥ̠ӥ̩ ĥ̠ĥ̩ Ԡ ɺĠĥ̩ĥ̠ Ԡ̠ӯŢ κ Ġκ  ԠŠ΢ӥ̠ӥ̠º ĥ̠ĥ̠ĺ Ԡ ԠȠӢ  Ԡͺ ԠŠŢԠ ԠӠĢӥ̠κ ĥ̠κ Ԡӥ̠ӥ̠ ӥ̩ӥ̠àĥ̠ĥ̠      Ⱥ Ԡ٠̠Ӣ Ⱥ ԠԠŠҢ Ⱥ ԠŠӠΠŢ Ⱥ ԠϠϠТ Ⱥ ԠŠӠҠנҢ Ⱥ Š ŠԠ̠Ҡ̠͠Ƞ  ȺԠҠӠҠŠ Ⱥ Ԡ٠ԠӢ Ⱥ ԠįĠӢ Ⱥ ύōϠϠԍčӠҠԠΠٍΠӠԍҍŠ٠ӍӠɠנ΍נ΍٠Ӡ̠ǍΠύΠÍԠӠٍӠנ΍٠ӍԠӠ̠ӠΠύΠύǍŠΠÍϠԍčҠҍԠٍΠٍӠРӠԍɠϠנ΍٠ SEATTLE ST LOUIS TAMPA BAY WASHINGTON",(J15)101,10):sA%10A:B%B10:30:(A%10);:40:" "(B%10):A%10A:B%10B:20:(A%10);:29:(B%10):(4);:"CLOSE NW.2.SYS"D$(4):D$:D$;"SAVEDETAIL"FALO CHICAGO CINCINNATICLEVELAND DALLAS DENVER DETROIT GREEN BAY HOUSTON INDIANAP KANSAS CTYLA RAIDERSLA RAMS ",(J1)101,10):<A$("MIAMI MINNESOTA NW ENGLANDNW ORLEANSNY GIANTS NY JETS PHILADEL PITTSBURGHSAN DIEGO SAN FRAN )BB) DD0B100(D%(L)DD)1010:"YARDS PENALIZED";:AS%(L5)GN:BD%(L5)GN:1010::"VS SPREAD > AT HOME - AWAY":" ";U$(J)24:" < N > NEXT < Q > QUIT TO MENU ";:V$V$"Q"1500LL11:J:1500J15A$("ATLANTA BUFN"% INTERCEPTED";:A100(S%(L8)S%(L6)):B100(D%(L8)D%(L6)):1010:"AVG # TURNOVERS";:AAAGN:BCCGN:1010:"AS % OF ATTEMPTS";:A0:B0:BB0A100(AABB)DD0B100(CCDD)1010:"% ATTEMPTS BY RUSH";:A0:B0:BB0A100(S%(L:1010:"AVG YDS/GAME";:AS%(L2)GN:BD%(L2)GN:1010:"AVG YDS/ATTEMPT";:AS%(L2)S%(L6):BD%(L2)D%(L6):1010"AVG YDS/COMPLETION";:AS%(L2)S%(L7):BD%(L2)D%(L7):1010:"% COMPLETED";:A100(S%(L7)S%(L6)):B100(D%(L7)D%(L6)):1010S%(L4):BBS%(L)S%(L6):CCD%(L8)D%(L4):DDD%(L)D%(L6)AS%(L)GN:BD%(L)GN:1010:"AVG YARDS/GAME";:AS%(L1)GN:BD%(L1)GN:1010:"AVG YARDS/ATTEMPT";:AS%(L1)S%(L):BD%(L1)D%(L):1010u"AVG PASS ATTEMPTS";:AS%(L6)GN:BD%(L6)GN;"OPENSPREAD,D1":D$;"READSPREAD":J1T1::"TEAM ";:900::" ";A$;" ";::" BEFORE GAME ";N:21:"BY";:28:"AGAINST":"AVG/GAME OF % OFFENSE DEFENSE":"POINTS SCORED";:AS%(L10)GN:BD%(L10)GN:1010:"RUSH ATTEMPTS";=AAS%(L8)VS SPREAD > AT HOME":" - AWAY":5:U$(J)ZI17::I:LL11:Jw(4);:"CLOSE NW.2.SYS",CT0ĺD$;"OPEN";F$",D1";:D$;"READ";F$:-D$;"OPEN";F$:D$;"READ";F$:/CT0ĺD$;"OPENSPREAD,D1":D$;"READSPREAD":#0D$   0:B0:S%(L3)0A100(S%(L4)S%(L3))PD%(L3)0B100(D%(L4)D%(L3))1000:5:"YARDS PENALIZED ";:AS%(L5)GN:BD%(L5)GN:1000:"YARDS SACKED ";:A(S%(L9)S%(L2))GN:B(D%(L9)D%(L2))GN:1000@:"PERFORMANCE (L)DD) \"% ATTEMPTS BY RUSHING ";:1000::3:"MISC. AVERAGES PER GAME ":"AVG TIMES INTERCEPTED ";:AS%(L8)GN:BD%(L8)GN:1000:5:"FUMBLES PER GAME ";:AS%(L3)GN:BD%(L3)GN:1000)"% FUMBLES LOST ";:A%(L8)D%(L6)):1000:"AVG TURNOVERS ";:AAAGN:BCCGN:1000:"AS % OF ATTEMPTS ";:A0:B0:BB0A100(AABB)DD0B100(CCDD)1000:"OF TOTAL ATTEMPTS ";:A0:B0:BB0A100(S%(L)BB)DD0B100(D%%(L6):BD%(L2)D%(L6):1000:5:"YARDS PER COMPLETION ";:AS%(L2)S%(L7):BD%(L2)D%(L7):1000:"% COMPLETED ";:A100(S%(L7)S%(L6)):B100(D%(L7)D%(L6)):1000:"% INTERCEPTED ";:A100(S%(L8)S%(L6)):B100(D1000P5:"AVG YARDS PER ATTEMPT ";:AS%(L1)S%(L):BD%(L1)D%(L):1000:"PASS ATTEMPTS ";:AS%(L6)GN:BD%(L6)GN:1000:5:"AVG PASS YARDS/GAME ";:AS%(L2)GN:BD%(L2)GN:1000j5:"YARDS PER ATTEMPT ";:AS%(L2)STAL ATTEMPTS/GAME ";:ABBGN:BDDGN:1000:5:"AVERAGE GAIN ";:A(S%(L1)S%(L2))BB:B(D%(L1)D%(L2))DD:1000:3:"RUSH ATTEMPTS ";:AS%(L)GN:BD%(L)GN:1000:5:"AVG YARDS RUSHING/GAME ";:AS%(L1)GN:BD%(L1)GN:/}" BY AGAINST"I2:900:"TEAM: ";A$;" OFFENSE DEFENSE"::"POINTS SCORED ";:AS%(L10)GN:BD%(L10)GN:1000:AAS%(L8)S%(L4):BBS%(L)S%(L6):CCD%(L8)D%(L4):DDD%(L)D%(L6)"TOnJ1T1:Y(J1)11:X(J1)16:K1GN:RP%(XK):L111:HYL:D%(H)D%(H)A%(RL):L:K:Jn sL1:CQ1400 t(4);:"OPEN NW.2.SYS,D2" xJ1T1:2:(4);:"WRITE NW.2.SYS":"STATISTICS BEFORE GAME ";N;" ":N10ĺ"LAST TEN GAMES"yN10ĺ:"CALCULATING STATS"L UJ1T1:X(J1)88:Y(J1)11:QJ21:AH%(Q)095 ZK1AH%(Q):RX(K1)11:L111:QYL:S%(Q)S%(Q)A%(RL):L:K _QJ2:AH%(Q)0105 dK1AH%(Q):RX(K1)11(T188):L111:HYL:S%(H)S%(H)A%(RL):L:K iJ\ 1)16GN)VS:PP(AH%((A1)21)11):P%((VN1)16GN)P:K((A1)2)1:JJ((VN1)2)2:AH%(K)AH%(K)1:AH%(JJ)AH%(JJ)1 FA%(P1):A%(P2):A%(P3):A%(P4):A%(P5):A%(P6):A%(P7):A%(P8):A%(P9):A%(P10):A%(P11):J:D$;"CLOSE";F$:I P8:7XY:F$("WK1 WK2 WK3 WK4 WK5 WK6 WK7 WK8 WK9 WK10WK11WK12WK13WK14WK15WK16WK17WK18WK19WK20WK21WK22",(I1)41,4):300 -H1:GNGN1 /30:I9:"WEEK ";I 2J1T1:A:HH1:P((A1)88):H1P(P(T188))(AH%((A1)22)11):VSP:VNAx <H1P%((ACS1ĺ"DISPLAY DETAIL STATS -- EACH TEAM"E 4:7:"LOADING DATA"; N3ė:"NEED 2 GAMES COMPLETED ":::"WAIT FOR MENU":D$;"RUNNFL,D1" 303:I1T1:U$(I):I:D$;"CLOSESPREAD" X1:YN1:Y10XY9:7:7:"LAST TEN WEEKS" #GN0u (ID$(13)(4)&D$"MON,C,I,O": T128: 6/9/83U$(T1),A%(T1176),P%(((T11)16)10),AH%(2T1),S%(T112),D%(T112):H1:GN0D$;"OPENGA,D1":D$;"READGA":N,CQ,CR,CS,CT,CU:D$;"CLOSEGA":CS0ĺ"PRINT DETAIL STATS -- ALL TEAMS"*           ";W:"P%(H)=";P%(H),"Q%(H)=";Q%(H):i<1:"LINE 51 BEFORE NEXT L":"S(L*J)=";S(LJ),"T(J*L)=";T(JL):<1:"LINE 53 W=";W,"Q=";Q: FOR MENU ";:A$:75m <(4);:"CLOSENW.6.SYS" J:12:"HIT ANY KEY TO CONTINUE ";:AK$   U:(4);:"WRITENW.6.SYS":"NFL GAME WEEK ";G:"VISITOR POINTS AT HOME POINTS DIFF": I1(T12):V1$(I)" ";:11:W(I)" ";:16:H1$(I)" ";:30:X(I)" ";:35((Y(I))):Y(I):CQ0ĺ:I:60( #CQ1ĭI(("0000030000060000090000120000150000VED ************************q V1$(T1),W(T1),H1$(T1),X(T1),Y(T1)::"REPRINT LAST PREDICTIONS":D$(4):D$ D$;"OPENSCORES":D$;"READSCORES" I1T12:V1$(I):W(I):H1$(I):X(I):Y(I):I:D$;"CLOSESCORES": (4);:"OPEN NW.6.SYS,D2"[ (4);:"MON,C,I,O" z D$(4):D$:D$;"OPENGA":D$;"READGA":CP:CQ:CR:CS:CT:CU:GCP:D$;"CLOSEGA":T128 6/9/83 ******  ** NFL 06/10/83 FINAL COPYRIGHTED BY PICKHAM SOFTWARE, LOS ANGELES, CA ALL RIGHTS RESER   ԠĤĢƤΠƠԠΠԠĤĬIJԠĤĢΠԠĤĬıԠĤĢΠҠʠϠԱŠԠ͠ ŠԠ̱ԠʍңԠԠԠԠŠ  ԠԠ٠٠ϠŠԠˤϠƠԠΠԠĤ΢ƤIJԠĤĢƤΠԠĤ΢ƤɠԠӠĢӥ̠ӥ̠κ ĥ̠ĥ̠κ Ԡ ԠŠӠĠԠŢ Ԡ٢ ԠդʩҠɠϠԠԠɺ̠̠΢ΠƠ֤٢ΠϠĠԠĤ̢ĠԠĤŢ̤ΠƠԠΠԠĤŢ̤IJΠԠĤŢ̤ΠԠĤƠԠΠԠĤĬ̵ıΠԠĤĬ̵ΠƠ֤ΠԠĤ΢̤IJΠԠĤ΢̤ΠԠĤƠԠΠԠĤĢ̤ΠԠĤĢ̤ΠƠԠΠԠĤŢ̤ΠԠĤŢ̤Π7WK18WK19WK20WK21WK22",(G1)41,4):+'DD$;"SAVESCHEDULE":FRANC SEATTLE ST LOUIS TAMPA BAY WASHINGTON",(H15)101,10):VT$("ATLBUFCHICINCLEDALDENDETG BHOUINDK CL ARAMMIAMINN EN ONYGNYJPHIPITS DS FSEASTLT BWAS",(H1)31,3):%FL$("WK1 WK2 WK3 WK4 WK5 WK6 WK7 WK8 WK9 WK10WK11WK12WK13WK14WK15WK16WK1 BUFFALO CHICAGO CINCINNATICLEVELAND DALLAS DENVER DETROIT GREEN BAY HOUSTON INDIANAP KANSAS CTYLA RAIDERSLA RAMS ",(H1)101,10):AVT$("MIAMI MINNESOTA NW ENGLANDNW ORLEANSNY GIANTS NY JETS PHILADEL PITTSBURGHSAN DIEGO SAN AME < Y/N ";:T$:T$"Y"30028 D$;"CLOSE SCHED":340D X1:Y3y I1272:H((B$,X,2)):4000:8:VT$;" AT "; XX4 H((B$,Y,2)):4000:VT$ YY4 I:A$"Y"3008 511H1HT1VT$"NO DATA":H15VT$("ATLANTA z#> ˱ ˱˱ ˱ ˱" ˵ ˶˷˸ ˹ ˱˱  Ġ ˲˳˴ "ԠˠԠĠŠ ̠Ҡ  ̠6вŠ̠נӠ Ġ̠ ˲ Š ӠŠĠŠ РϠ Ϯà! ̮Ϡ Š Š ԠҠ           D$(4):D$;"RUNNFL.PRO" % OFFENSE DEFENSE":c"POINTS SCORED";:AS%(L10)GN:BD%(L10)GN:1010:"RUSH ATTEMPTS";AAS%(L8)S%(L4):BBS%(L)S%(L6):CCD%(L8)D%(L4):DDD%(L)D%(L6)>AS%(L)GN:BD%(L)GN:1010:"AVG YARDS/GAME";:AS%(L1)GN:BD%(L1)GN:1047721:D$;"OPEN";F$:D$;"READ";F$:c/CT0Č47741:CT0ĺD$;"OPENSPREAD,D2":D$;"READSPREAD":047721:D$;"OPENSPREAD,D1":D$;"READSPREAD":J1T1::"TEAM ";:900::" ";A$;" ";::" BEFORE GAME ";N:21:"BY";:28:"AGAINST":"AVG/GAME OF L2))GN:1000S:3:"PERFORMANCE VS SPREAD > AT HOME":26:"- AWAY":5:U$(J)mI17::I:LL11:J0:"";:"";:"";:"";::11:10:"HIT ANY KEY TO CONTINUE ";:AK$:1500,CT0Č47741:CT0ĺD$;"OPEN";F$",D2";:D$;"READ";F$:%-3)GN:BD%(L3)GN:1000^5:"% FUMBLES LOST";:A0:B0:S%(L3)0A100(S%(L4)S%(L3))D%(L3)0B100(D%(L4)D%(L3))1000:5:"YARDS PENALIZED";:AS%(L5)GN:BD%(L5)GN:1000:5:"YARDS SACKED";:A(S%(L9)S%(L2))GN:B(D%(L9)D%(3:"OF TOTAL ATTEMPTS";:A0:B0:BB0A100(S%(L)BB)QDD0B100(D%(L)DD)W5:"% ATTEMPTS BY RUSHING";:1000::3:"MISC. AVERAGES PER GAME":5:"AVG TIMES INTERCEPTED";:AS%(L8)GN:BD%(L8)GN:1000:5:"FUMBLES PER GAME";:AS%(LS%(L6)):B100(D%(L7)D%(L6)):1000:5:"% INTERCEPTED";:A100(S%(L8)S%(L6)):B100(D%(L8)D%(L6)):1000:3:"AVG TURNOVERS";:AAAGN:BCCGN:1000:5:"AS % OF ATTEMPTS";:A0:B0:BB0A100(AABB)DD0B100(CCDD)1000:6%(L6)GN:1000:5:"AVG PASS YARDS/GAME";:AS%(L2)GN:BD%(L2)GN:10005:"YARDS PER ATTEMPT";:AS%(L2)S%(L6):BD%(L2)D%(L6):1000:5:"YARDS PER COMPLETION";:AS%(L2)S%(L7):BD%(L2)D%(L7):1000:s5:"% COMPLETED";:A100(S%(L7)%(L1)D%(L2))DD:1000:3:"RUSH ATTEMPTS";:AS%(L)GN:BD%(L)GN:1000:5:"AVG YARDS RUSHING/GAME";:AS%(L1)GN:BD%(L1)GN:10005:"AVG YARDS PER ATTEMPT";:AS%(L1)S%(L):BD%(L1)D%(L):1000:J3:"PASS ATTEMPTS";:AS%(L6)GN:BD"OFFENSE DEFENSE"::3:"POINTS SCORED";:AS%(L10)GN:BD%(L10)GN:1000:AAS%(L8)S%(L4):BBS%(L)S%(L6):CCD%(L8)D%(L4):DDD%(L)D%(L6)3:"TOTAL ATTEMPTS/GAME";:ABBGN:BDDGN:1000:5:"AVERAGE GAIN";:A(S%(L1)S%(L2))BB:B(D(J1)11:X(J1)16:K1GN:RP%(XK):L111:HYL:D%(H)D%(H)A%(RL):L:K:Jb sL1:CQ1400i t2 xJ1T1:2:"STATISTICS BEFORE GAME ";N;" ":N10ĺ"LAST TEN GAMES" yN10ĺ }33:"BY AGAINST" 2:900:"TEAM: ";A$;O30:NG STATS"@ UJ1T1:X(J1)88:Y(J1)11:QJ21:AH%(Q)095 ZK1AH%(Q):RX(K1)11:L111:QYL:S%(Q)S%(Q)A%(RL):L:K _QJ2:AH%(Q)0105 dK1AH%(Q):RX(K1)11(T188):L111:HYL:S%(H)S%(H)A%(RL):L:K iJP nJ1T1:YS:PP(AH%((A1)21)11):P%((VN1)16GN)P:K((A1)2)1:JJ((VN1)2)2:AH%(K)AH%(K)1:AH%(JJ)AH%(JJ)1 FA%(P1):A%(P2):A%(P3):A%(P4):A%(P5):A%(P6):A%(P7):A%(P8):A%(P9):A%(P10):A%(P11):J:D$;"CLOSE";F$:I P8:7:"CALCULATI1 WK2 WK3 WK4 WK5 WK6 WK7 WK8 WK9 WK10WK11WK12WK13WK14WK15WK16WK17WK18WK19WK20WK21WK22",(I1)41,4):300y -H1:GNGN1 /30:I9:"WEEK ";I 2J1T1:A:HH1:P((A1)88):H1P(P(T188))(AH%((A1)22)11):VSP:VNAl <H1P%((A1)16GN)VLAY DETAIL STATS -- EACH TEAM"9 4:7:"LOADING DATA"; N3ė:"NEED 2 GAMES COMPLETED ":::"WAIT FOR MENU":D$;"RUNNFL,D1" 303:I1T1:U$(I):I:D$;"CLOSESPREAD" X1:YN1:Y10XY9:7:7:"LAST TEN WEEKS" #GN0i (IXY:F$("WKD$(13)(4)' T128: 6/9/83xU$(T1),A%(T1176),P%(((T11)16)10),AH%(2T1),S%(T112),D%(T112):H1:GN047721:D$;"OPENGA,D1":D$;"READGA":N,CQ,CR,CS,CT,CU:D$;"CLOSEGA":CS0ĺ"PRINT DETAIL STATS -- ALL TEAMS" CS1ĺ"DISP          Р ԠɩƠɩҠɩΠ Ԡɩ ɠР ԠɩƠɩҠɩΠ Ԡɩ ɠР Ԡ ɠР ԠɩƠɩҠɩРΠ Ԡɩ ɠР ԠɩƠɩҠɩΠ Ԡɩ ɠA%10A:B%10B:(24((A%))):(A%10);:(33((B%))):(B%10):l:"WAIT FOR MENU":D$;"RUNNFL,D1"D$;"SAVEDETAIL" 50):A$("MIAMI MINNESOTA NW ENGLANDNW ORLEANSNY GIANTS NY JETS PHILADEL PITTSBURGHSAN DIEGO SAN FRAN SEATTLE ST LOUIS TAMPA BAY WASHINGTON",(J15)101,10):A%10A:B%B10:(35((A%))):(A%10);:(40((B%))):" "(B%10)::E24:" < N > NEXT < Q > QUIT TO MENU ";:V$@V$"Q"1500TLL11:J:1500J15A$("ATLANTA BUFFALO CHICAGO CINCINNATICLEVELAND DALLAS DENVER DETROIT GREEN BAY HOUSTON INDIANAP KANSAS CTYLA RAIDERSLA RAMS ",(J1)101,1S";:A0:B0:BB0A100(AABB)7DD0B100(CCDD)w1010:"% ATTEMPTS BY RUSH";:A0:B0:BB0A100(S%(L)BB)DD0B100(D%(L)DD)1010:"YARDS PENALIZED";:AS%(L5)GN:BD%(L5)GN:1010::"VS SPREAD > AT HOME - AWAY":" ";U$(J)/";:AS%(L2)S%(L7):BD%(L2)D%(L7):1010:"% COMPLETED";:A100(S%(L7)S%(L6)):B100(D%(L7)D%(L6)):1010"% INTERCEPTED";:A100(S%(L8)S%(L6)):B100(D%(L8)D%(L6)):1010:"AVG # TURNOVERS";:AAAGN:BCCGN:1010:"AS % OF ATTEMPT10:"AVG YARDS/ATTEMPT";:AS%(L1)S%(L):BD%(L1)D%(L):1010"AVG PASS ATTEMPTS";:AS%(L6)GN:BD%(L6)GN:1010:"AVG YDS/GAME";:AS%(L2)GN:BD%(L2)GN:1010:"AVG YDS/ATTEMPT";:AS%(L2)S%(L6):BD%(L2)D%(L6):1010r"AVG YDS/COMPLETION_ "OPENGA""READGA"6CP,CQ,CR,CS,CT,CUM(CP,CQ,CR,CS,CT,CU]2"CLOSEGA" C;D$;"SAVENFL"; 42067-;`20683;E;D$;"SAVENFL"K;;pKK0:1:"J=";J,"H=";H(J),"I=";I(J):"J=";J(J),"K=";K(J),"L=";L(J):"M=";M(J):;1:"J=";J,"N=";N,"JX=";JX:"P=";P%(NJX),"Q=";Q%(NJX):$<81:"LINE 51 K=";K,"R=";R,"W="READ";FL$:(:$CT0ĺD$;"WRITE";FL$:>:%D$;"WRITE";FL$:T:.D$;"CLOSE";FL$:w:8CT0ĺD$;"DELETE";FL$;",D2"::9D$;"DELETE";FL$::BD$:CT0ĺD$;"OPENSCHED,L58,D1"::CD$;"OPENSCHED,L58"::LV$"N"2055:VV$"Y"2067:`2068;1,10):B$("PITS DS FSEASTLT BWAS",((A21)1)31,3):9 :"SCHEDULE IS WRONG"::"LOOK AT SCHEDULE":::"WAIT LOADING SCHEDULE ROUTINE":D$;"RUNSCHEDULE,D1"9CT0ĺD$;"OPEN";FL$",D2":9D$;"OPEN";FL$:9D$:CT0ĺD$;"READ";FL$: :D$; A22A$("MIAMI MINNESOTA NW ENGLANDNW ORLEANSNY GIANTS NY JETS PHILADEL ",((A14)1)101,10):B$("MIAMINN EN ONYGNYJPHI",((A14)1)31,3):79 A29A$("PITTSBURG SAN DIEGO SAN FRANC SEATTLE ST LOUIS TAMPA BAY WASHINGTON",((A21)1)10NCINNATICLEVELAND DALLAS DENVER ",(A1)101,10):B$("ATLBUFCHICINCLEDALDEN",(A1)31,3):7 A15A$("DETROIT GREEN BAY HOUSTON INDIANAP KANSAS CTYLA RAIDERSLA RAMS ",((A7)1)101,10):B$("DETG BHOUINDK CLA RAM",((A7)1)31,3):8:"VS SPREAD W/L/T ";:=6 U$(A)"W"TA$">L":U$(A)"-W":b6 U$(A)"L"TA$">W":U$(A)"-L":6 U$(A)"T"TA$">T":U$(A)"-T":6 U$(A)"-?":TA$">?":6 6 HT$" VISITOR":H0HT$" AT HOME"b7 A8A$("ATLANTA BUFFALO CHICAGO CIACKED ";:.5 11:5:"PASS-ATTEMPTED ";:Q5 12:5:"PASS-COMPLETED ";:t5 13:5:"PASS-INTERCEPTED ";:5 15:5:"FUMBLES ";:5 16:5:"FUMBLES LOST ";:5 17:5:"PENALTY YARDS ";:5 28:"CHECK THIS":6 19:5K ";::" ";G1a4::"CORRECT THE SCHEDULE < ANY > ";:A$::"LOADING SCHEDULE PROGRAM":202944:5:"POINTS SCORED ";:45:5:"RUSH ATTEMPTS ";:46:5:"RUSHING YARDS ";:48:5:"NET PASSING YDS ";: 5 9:5:"YDS LOST-S":CP:CQ:CR:CS:CT:CU:D$;"CLOSEGA"?3)GCP:G2GG1:153*:"TWO GAMES REQUIRED FOR PREDICTIONS":4:"WE START NEXT WEEK":8:3:" FOR MENU ";:G$:20053:8:"SCHEDULE ERROR IN ";:I1Ğ:" THIS WEEK ";::" ";G4I2Ğ:" NEXT WEEI:363092$FL$"SPREAD":G1āI1T1:OU$(I)"":I:2086b2%3600:3610:I1T1:OU$(I):I:36302&3600:3620:I1T1:OU$(I)OU$(I)U$(I):OU$(I):I:3630'3(FL$"GA":3600:3620:CPG1:CP:CQ:CR:CS:CT:CU:3630:CT0ĺD$;"OPENGA,D1":D$;"WRITEGA1 FL$("WK1 WK2 WK3 WK4 WK5 WK6 WK7 WK8 WK9 WK10WK11WK12WK13WK14WK15WK16WK17WK18WK19WK20WK21WK22",(G1)41,4)1!12:8:"SAVING DATA FOR FORECAST":3600:3640:3600:36201"I1T1:E(I1)12:A%(E11)A%(E11)A%(E4):I2#I1336:A%(I):A%(I)0:T:100e022:"YOU MUST RETYPE EACH FIELD DISPLAYED ":H28:4:H:A%(P12):H:A%(P2):H:A%(P3)08:H:A%(P4):H:9:A%(P11):H:11:A%(P8):H:12:A%(P9):H:13:A%(P10):H:15:A%(P5):H:16:A%(P6):H:A%(P7)0:"TEAM ";A$:2071pA%(P4):2304:A%(P11):2305:A%(P8):2306:A%(P9):2307:A%(P10):2308:A%(P5)/2309:A%(P6):2310:A%(P7):2312:U$(A):22:"< N > NEXT < R > RETYPE < Q > QUIT ";:V$:V$"N"ĭV$"R"ĭV$"Q"2072/22:35:V$:V$"Q"1000V$"N"ĂARDCOPY TO PRINTER":1:"NFL GAME ";G;:18:"RUSH PASS":"TEAM SCR ATT YDS YDS SK ATT COM INT FUM LST PEN SPREAD"::105.T1T1:A((W$,(T1)21,2)):P(T1)12:3500::"TEAM ";A$U/2300:A%(P12):2301:A%(P2):2302:A%(P3):2303:I)0A%(I)6İ2309:" ";A%(I);:2311f-IP7:2310:A%(I):A%(I)0A%(I)100İ2310:" ";A%(I);:2311-H1İ2312:U$(A):2314:U$(A)"-?"İ2312:" ";U$(A);:2311-22:5:"IS DATA CORRECT < Y/N > ";:V$:3660-HH1:T:CQ1100.:"STATS HI)60İ2305:" ";A%(I);:2311c, IP9:2306:A%(I):A%(I)5A%(I)A%(P8)İ2306:" ";A%(I);:2311,IP10:2307:A%(I):A%(I)0A%(I)8İ2307:" ";A%(I);:2311,IP5:2308:A%(I):A%(I)0A%(I)9İ2308:" ";A%(I);:2311$-IP6:2309:A%(I):A%(1:" ";A%(I);:2311V+ IP3:2302:A%(I):A%(I)25A%(I)450İ2302:" ";A%(I);:2311+ IP4:2303:A%(I):A%(I)25A%(I)450İ2303:" ";A%(I);:2311+ IP11:2304:A%(I):A%(I)0A%(I)40İ2304:" ";A%(I);:2311, IP8:2305:A%(I):A%(I)10A%(" ";::HT$W*2300:2301:2302:2303:2304:2305:2306:2307:2308:2309:2310:2312w*H0Ė22:19:TA$:U$(A)TA$*P(T1)12:A%(P1)A*IP12:2300:A%(I):A%(I)0A%(I)45İ2300:" ";A%(I);:2311+IP2:2301:A%(I):A%(I)5A%(I)50İ230D1" )3650?)IG(G1):D$;"READSCHED,R";I:B$:IGW$B$z)I:WW$B$:D$;"CLOSESCHED":I((W$,2)):II((WW$,2)))I1IT1I1:2270)II1IIT1I2:2270)H1:SW0:CPG *T1T1:A((W$,(T1)21,2)):3499::"TEAM ";::" ";A$;:X:N$;:A$:Y:X:4):A$"Y"YY2:I:A$"Y"YYY:XXX:2016V(X:Y:"DO >":u(:14:11:"REMOVE DISC":(D$;"RUNPRACTICE,D1"(D$;"RUNERASE,D1"(D$;"RUNDETAIL,D1"(D$;"RUNSCHEDULE,D1"(D$;"RUNCHANGE,D1")D$;"RUNREPRINT,RACTICE PROGRAM":H:14:"CHANGE STATS IN FILE":H:16:"SET UP PRINTER - ";HGB$:H:18:"ERASE FILES FOR NEW YEAR":H:20:"QUIT FOR THE DAY"'O9:XX7:YY4:N$"Y-->"'2015:I2040,2031,2029,2028,2026,2030,1000,2027,2025'XXX:YYYB(I1O:YBALL LEAGUE "::H13:4:H:"ENTER STATS FOR GAME ";CP:H:6:CQ0ĺ"REPRINT LAST PREDICTIONS"&CQ1ĺ"REVIEW LAST PREDICTIONS"&H:8:"BUILD/REVISE SCHEDULES":H:10:CQ0ĺ"PRINT DETAIL STATS"&CQ1ĺ"DISPLAY DETAIL STATS"'H:12:"RUN P(QZ16)10),C%(2T1),D%(T1),E%(T112),F%(T112),G%((QZ16)10),H(T1),I(T1),J(T1),K(T1),L(T1),M(T1),N%(T114),O%(T114),P%(12T1),Q%(12T1),R%(T1),S(T16),U(T1),V(T1),W(T1),X(T1),Y(T1)%OU$(T1),U$(T1),T(T16),H1$(T1),V1$(T1)_&:9::" NATIONAL FOOT(F%(AA)10)GN:D(N%(BB)10)GN>$6(BA)320AA10:BB10]$7(CD)320CC10:DD10j$8D0D1$9P%(NJX)(BA)100A:Q%(NJX)(CD)100D:$JMVO(VO10)10:QVO10HD10VO:QQMHD100:$D$;"RUNSETUPPRINTER,D1"%A%(176T1),B%( "A%(P5);:40:" "A%(P6);:40:" "A%(P7);:40:" "U$(A)#kI(("00020004000600080010001200140016001800200022002400260028",(I1)21,2))ĺ#lI:I121::I:0:100#n0:#o100$,AAAF:BBHA:A(E%(AA)10)GN:B(O%(BB)10)GN:CERROR - GO TO MENU":O3:XX7:YY8:N$"Y-->":2015:I12080I"fI22070S"g2005"iI1T1:P(I1)12:AA%(P1):3500:A$;:12:A%(P12);:16:A%(P2);:20:A%(P3);:25:A%(P4);:29:A%(P11);:33:A%(P8);:37:A%(P9);:40:" "A%(P10);:40E#j"DETAIL REPORT":::7:"HIT ANY KEY TO CONTINUE ";:AK$:2028J!`2005!d:1:8::" L A S T C H A N C E "::10:3:"IS YOUR DATA CORRECT ?":14:"YOUR CHOICES:":12:8:"OK - SAVE ON DISC":10:12:"WAIT - SCREEN REVIEW/EDIT":12:12;"e"MAJOR HOME PTS SPREAD": \I1T12:V1$(I);:(14((W(I)))):W(I);:16:"AT ";H1$(I);:(33((X(I)))):X(I);:(40((Y(I)))):Y(I)::I ]I133::I::C:0 ^D$(13)(4)@!_:11:8:CS1ĺ"HAVE AT LEAST 28 SHEETS"::6:" OF PAPER FOR (A$,9):C:"HIT ANY KEY TO CONTINUE ";:AK$:23:2:"SAVING PREDICTIONS":FL$"SCORES":3600:3640:3600:3620XC1T12:V1$(C):W(C):H1$(C):X(C):Y(C):C:3630YCQ1ī2005ZR1:1:CR1RCR [C1R:"GAME WEEK ";CP::"VISITOR PTS Y%10:11:W(C);:VOE%(Y11)10GN:HDQ%(Z5):330:QQEX2:QQ36:TY%TY:X(C)TY%10:Y(C)((TY%VY%)10):AV:3500V17:"AT ";(A$,9);:30:X(C);:36:Y(C):C(("0000030000060000090000120000150000180000210000240000270000",(C1)21,2))ĺpWH1$(C)0)10:VYVY10VP:VYVY(MVP10):VYVY10:MTY(TY10)10TTYTY10TP:TYTY(MTP10):TYTY10:TYTY36:EXD%(V)D%(H):EXEX236GN:TYTYEX2:VYVYEX2:VOE%(ZZ11)10GN:HDQ%(X5):330:QQEX2tUAH:3500:V1$(C)(A$,9):V1$(C);:VY%VY:W(C)V:SW0SV:VH:HS:VYTY:VPTP:SW1:77RSW0:TUE%(Y5)E%(Y9)F%(Y5)F%(Y9):TUTUF%(ZZ5)F%(ZZ9)E%(ZZ5)E%(ZZ9):TUTU250GN:TYTYTU:VYVYTU:PEE%(Y6)F%(Y6)E%(ZZ6)F%(ZZ6):PEPEGN2:TYTYPE:VYVYPE:TYTY10:VYVY10;SMVY(VY1:330&NTYQ:VOH(V):HDQ%(Z3):330OMQ(Q10)10:QQ10:EXTYQ:TYTYM10EX:TYTY10:VOE%(Y7):VOVO10GN:HDQ%(Z3):330PSTQ:VOI(V):HDQ%(Z4):330:MQ(Q10)10:QQ10:EXSTQ:STSTM10EX:TYTYST10:VOJ(V):HDQ%(Z6):330'QTPQH):CM(J):DN%(14H):N6:310:JSJ:"VISITOR POINTS HOME POINTS DIFF":aKYE1:YF3LC1(T11)2:V((WW$,YE,2)):H((WW$,YF,2)):YEYE4:YFYF4MTY0:TP0:X(V1)6:Y(V1)11:Z(H1)6:ZZ(H1)11:VOE%(Y1):VOVO10GN:HDQ%(Z1)(U)(GN1):O%(U)O%(U)(GN1):K:JHJ1T1:JX(J1)6:16:26:"- FINAL TAB ";J;:H(J1)14:F(J1)11:A1:N1:300:AH(J):BO%(12H):CK(J):DN%(12H):N2:310:A7:N3:300:AI(J):BO%(13H):CL(J):DN%(13H):N4:310:A11:N5:300!IAJ(J):BO%(14I10CYI:HPI:N%(H)N%(H)E%(C):O%(H)O%(H)F%(C)EI:N%(12P)N%(12P)H(R):O%(12P)O%(P12)K(R):N%(13P)N%(13P)I(R):O%(13P)O%(13P)L(R):N%(14P)N%(P14)J(R):O%(14P)O%(P14)M(R):KF15:26:"- VS NEXT ";J;#GK114:UPK:N%(U)N%)(100Q))10:<AJ1T1:L(J1)16:F(J1)11:P(J1)14BK111:RPK:N%(R)F%(FK):O%(R)E%(FK):K:O%(12P)H(J):N%(12P)K(J):O%(13P)I(J):N%(13P)L(J):O%(P14)J(J):N%(P14)M(J)CK1GN:RG%(LK):Y(R1)114DI111:I1I7D)F%(D)((F%(D)(100Q))100)E:L:J:26:14:"- PTS PER YD";:65v<L2AOH(J):BOK(J):63:H(J)AO:K(J)BO:58=L4AOI(J):BOL(J):63:L(J)BO:I(J)AO:58>AOJ(J):BOM(J):63:M(J)BO:J(J)AO:58?AOAO((AO10)(100W))10:BOBO((BO101T1:X(J1)6:U(J1)11:Z(J1)16:L16:FXL:W(200T(F)):Q(200S(F)):R%(L)0606DUR%(L):E%(D)320E%(D)E%(D)((E%(D)10)(100W))10:567E%(D)E%(D)((E%(D)(100W))100)8F%(D)320F%(D)F%(D)((F%(D)10)(100Q))10:589F%(R%(6)0$112:26:"- LOGARITHMS";e2J1T1:X(J1)6:U(J1)11:Z(J1)16:L16:Q0:W0:FXL3K1GN:YZK:RG%(Y):G(R1)6:HGL:QQ(100P%(H)):WW(100Q%(H)):K:QQGN:WWGN:S(F)(Q):T(F)(W):L:J413:26:"- NEW RATIOS";X5JJX(J1)6:H(J1)14:F(J1)11:A1:N1:300:AH(J):BO%(12H):CK(J):DN%(12H):N2:310:A7:N3:300:AI(J):BO%(13H):CL(J):DN%(13H):N4:3100A11:N5:300:AJ(J):BO%(14H):CM(J):DN%(14H):N6:310:J:R%(1)1:R%(2)0:R%(3)7:R%(4)0:R%(5)11:I:N%(12P)N%(12P)H(R):O%(12P)O%(12P)K(R):N%(13P)N%(13P)I(R):O%(13P)O%(13P)L(R):N%(14P)N%(14P)J(R):O%(14P)O%(14P)M(R):K-K114:UPK:K1K7K10N%(U)N%(U)(GN1):O%(U)O%(U)(GN1).K:J:11:26:"- RATIOS";/J1T1::P(J1)14*K111:RPK:N%(R)F%(FK):O%(R)E%(FK):K:O%(12P)H(J):N%(12P)K(J):O%(13P)I(J):N%(13P)L(J):O%(14P)J(J):N%(14P)M(J)+K1GN:RG%(LK):Y(R1)11:I111:I1I6CYI:HPI:O%(H)O%(H)F%(C):N%(H)N%(H)E%(C),10)2:M(J)(PT10)H:M(J)M(J)((F%(X11)10)PT)(FH):J:DL0:YL0&9:26:"- LEAGUE AVG";:J1T1:DLDLM(J):YLYLJ(J):J:DLDLT1:YLYLT1:J1T1:M(J)(M(J)DL)2:J(J)(J(J)YL)2:J'26:10:"- ADJUST AVG"; )J1T1:L(J1)16:F(J1)1110)((F%(X7)5)10):FE%(X2)E%(X3):PE%(X6)F%(X6):T((F%(X5)F%(X9))(E%(X5)E%(X9)))25:FF(PT):F(F5)10:HF2:PT(E%(X11)10)2E%J(J)(PT10)H:J(J)J(J)((E%(X11)10)PT)(FH):FF%(X2)F%(X3):FFTP:F(F5)10:HF2:PT(F%(11X))C%(J21):J:26:8:"- AVERAGES";#J1T1:X(J1)11:E%(7X)E%(7X)(E%(10X)E%(3X))8:F%(7X)F%(7X)(F%(10X)F%(3X))8:H(J)(E%(X2)10)((E%(X1)5)10):K(J)(F%(X2)10)((F%(X1)5)10)$I(J)(E%(X3)10)((E%(X7)5)10):L(J)(F%(X3)111:HYL:E%(H)E%(H)A%(RL):L:K@ J:7:26:"- DEFENSE"; J1T1:Y(J1)11:X(J1)16:K1GN:RB%(XK):L111:HYL:F%(H)F%(H)A%(RL):L:K:J !J1T1:X(J1)16:K1GN:T%B%(XK):T%(T188)T%T%(88T1)$"G%(XK)T%881:K:D%(J0:XAH 7:18:" ":6:8:"CALCULATING: SUMS - OFFENSE";~ J1T1:X(J1)88:Y(J1)11:QJ21:C%(Q)029 K1C%(Q):RX(K1)11:L111:QYL:E%(Q)E%(Q)A%(RL):L:K QJ2:C%(Q)031$ K1C%(Q):RX(K1)11(88T1):L1):VNA:VSP H1B%((A1)16GN)VS:PP(C%((A1)21)11):B%((VN1)16GN)P:J((A1)2)1:JJ((VN1)2)2:C%(J)C%(J)1:C%(JJ)C%(JJ)1 A%(P1):A%(P2):A%(P3):A%(P4):A%(P5):A%(P6):A%(P7):A%(P8):A%(P9):A%(P10):A%(P11):TM:363". XAIXG:20:7:" ":7:27:XA:GNGN1 FL$("WK1 WK2 WK3 WK4 WK5 WK6 WK7 WK8 WK9 WK10WK11WK12WK13WK14WK15WK16WK17WK18WK19WK20WK21WK22",(XA1)41,4):3600:3610 TM1T1:20:7:TM:A:HH1:P((A1)88):H1P(P(T188))(C%((A1)22)1 ALL RIGHTS RESERVED ************************I IX1:G10IXG9p :LX%5:G3LX%5((GIX)2)1.02  6/9/83 3:"RUN TIME IS APPROX ";LX%;" MINUTES":NUG1::"PREPARING FORECAST FOR GAME ";NU:GN0:H1:6:8:"LOAD DATA: TEAM GAME#3D$(13)(4) P FL$"GA":3600:3610:CP,CQ,CR,CS,CT,CU:3630:GCPo HGB$"OFF":CQ1HGB$"ON" T128:T2176(T12):QZT11:SW0:CU1ī1000 20003  ** NFL 06/10/83 FINAL COPYRIGHTED BY PICKAM SOFTWARE, LOS ANGELES, CA                 D$(13)(4)M12:"PLEASE ENTER THE CORRECT WEEK NUMBER ";A$p16:"<1> OR <2> DRIVES ? ";B$ D$"OPENGA"D$"WRITEGA"(A$):"0":"1":"1":(B$)1:"1"(D$"CLOSEGA"2D$"RUNNFL" AD$"CLOSEGA" D A BAY WASHINGTON",(U15)101,10):)ND$(4):D$:D$;"SAVEDEMOCHANGE"DDD DALLAS DENVER DETROIT GREEN BAY HOUSTON INDIANAP KANSAS CTYLA RAIDERSLA RAMS ",(U1)101,10):yUT14#A$("MIAMI MINNESOTA NW ENGLANDNW ORLEANSNY GIANTS NY JETS PHILADEL PITTSBURGHSAN DIEGO SAN FRANC SEATTLE ST LOUIS TAMP10):6:"PENALTY YARDS ";A%(Y,11)/=5:V5hBII111:30:A%(Y,I):V:30:A%(Y,I);" ":VV1:IIzGCCCC1:1050 3050 :"WAIT FOR MENU"D$(4):D$:D$;"RUNPRACTICE"UTnA$("ATLANTA BUFFALO CHICAGO CINCINNATICLEVELANING YARDS ";A%(Y,3)z66:"NET PASSING YDS ";A%(Y,4):6:"YDS LOST-SACKED ";A%(Y,5):6:"PASS ATTEMPTS ";A%(Y,6)76:"PASSES COMPLETED ";A%(Y,7):6:"PASS - INTERCEP ";A%(Y,8):6:"FUMBLES ";A%(Y,9)$86:"FUMBLES/LOST ";A%(Y,:4):A$"Y"VV1:Y:1064? .YT11Ģ18:23:"WAIT":3000M /B$(Y)"*"c 3:Y15UY:4011w 4Y14UY:40165"TEAM ";A$:26:"ENTER ALL DATA":21:"IN FILE NEW":5:6:"POINTS SCORED ";A%(Y,1):6:"RUSH ATTEMPTS ";A%(Y,2):6:"RUSH:B$(A)"" "A:4:3:10)' #4:V4t $T114:4010:9:A$;B$(T);:4015:29:A$;B$(T14):T:29:"**COMPLETED"| (V4 )Y1T12:V:3:"Y-->";:A$:V:3:4):A$"Y"VV1:Y:V4:1067 *1071 +Y(T12)1(T11):V:23:"Y-->";:A$:23:V:VV1:A$"Y"ĂI:A$"Y"1039W :" CHANGE WEEK ";I;" TEAM SELECTION":CC01059n 4:3:"LOAD DATA"z A128 A%(A,1)14 A%(A,2)25:A%(A,3)145:A%(A,4)175:A%(A,5)16:A%(A,6)38:A%(A,7)16 !A%(A,8)2:A%(A,9)1:A%(A,10)0:A%(A,11)65"F 22:5:"ALTER A DATA FILE < Y/N > ";:A$:A$"Y"ĭA$"N"1010V 22:31:A$g A$"N"4000 :"CHANGE DATA FILE 'Y' TO SELECT WEEK" G4 3 I1(G1):20:I:I:V3 3:V3 I1(G1):11:V:"WEEK-->";:A$:V:11:7)T BE RETYPED."q 12:" 3. ALTER ANY TEAMS FOR THE WEEK":5:"SELECTED":15:" 4. SELECT 'COMPLETED' TO REFILE" 17:" 5. IF MORE THAN ONE WEEK IS TO BE":5:"CHANGED, IT WILL BE NECESSARY":5:"TO MAKE THE SELECTION AGAIN -":5:"AT THE MASTER MENU.P  6/9/832T128:A%(T1,12),B%(T1),B$(29)T:11:"CHANGE EXISTING FILE"4:" 1. SELECT THE WEEK TO CHANGE":6:" 2. SELECT THE FIRST TEAM TO CHANGE" 8:8:"FOR ANY TEAM SELECTED FOR":8:"CORRECTION - ALL DATA FOR":8:"THAT TEAM MUS     ,10):vVT$("ATLBUFCHICINCLEDALDENDETG BHOUINDK CL ARAMMIAMINN EN ONYGNYJPHIPITS DS FSEASTLT BWAS",(H1)31,3):|'D$(4):D$:D$;"SAVEDEMOSCHED":2 DETROIT GREEN BAY HOUSTON INDIANAP KANSAS CTYLA RAIDERSLA RAMS ",(H1)101,10):VT$("MIAMI MINNESOTA NW ENGLANDNW ORLEANSNY GIANTS NY JETS PHILADEL PITTSBURGHSAN DIEGO SAN FRANC SEATTLE ST LOUIS TAMPA BAY WASHINGTON",(H15)101 X1:Y3> I1272:H((B$,X,2)):4000:8:VT$;" AT ";H XX4f H((B$,Y,2)):4000:VT$p YY4 I:A$"Y"3008 511H1HT1VT$"NO DATA":[H15VT$("ATLANTA BUFFALO CHICAGO CINCINNATICLEVELAND DALLAS DENVER ((B$,X,2)):4000:8:VT$;" AT ";:H((B$,Y,2)):4000:VT$:XX4:YY4:I22:5:"OK TO FILE < Y/N > ";:P$:P$"N"2000P$"Y"2032:4:10:"COMPLETED GAME ";G:7:8:"DO THE NEXT GAME < Y/N > ";:A$:A$"Y"GG1:200012 )1)T1:A%(A)02028GV:HH:M$;:Y$:V:HH:4):Y$(M$,1)2028oA%(A)1:M$"V-->":Y$"V"M$"H-->"HH5:V:10):B$B$(A):(B$)(T12)2030VV1:A:V7:H4:2004:"GAME SCHEDULE FOR WEEK ";G::X1:Y3:8KI1(T11)2:H:I!A1(T12):A%(A)02018?V:H:M$;:Y$:V:H:4)UY$(M$,1)2018aA%(A)1H5:V:10):A10B$B$"0"(A)A10B$B$(A)(B$)(T12)2030M$"V-->":Y$"V"M$"H-->"A%(A)1VV1:A:V7A((T12ST BE LESS THAN 23":"AND MORE THAN 0"::11:"SCHEDULE GAME WEEK ";G:3:4:"'V' VISITOR FIRST 'H' HOME NEXT":12:"' ' ADVANCES ARROW":I114:HI:4000:9:VT$;:HI14:4000:29:VT$:IV7:H4:M$"V-->":B$"":HH24:I128:A%(I)0PRINT WEEK NUMBER ";:GNoG1GCP1Ė18:12:"NOT IN FILE":I1500:I:12p:"STATS PRINTING PROGRAM NOT DEMO'ED ":I11000:I:12I:12(:GG$"GAME COUNTER IN ERROR - BIG PROBLEM"::"ERASE FILES AND REENTER ALL DATA"::"GAME COUNTER MUT1:H((B$,Y,2)):4000:CC1:C1Ė4:VT$:12:U$:106Ii"AT ";VT$:bjYY2:I:I15::Ik0::"NEXT GAME TOO? < Y/N > ";:A$lA$"Y"G22GG1:101m12n:6:5:"LAST STATS AVAILABLE":8:5:"ARE FOR WEEK NUMBER ";CP1:5:11:":18:"RUSHING--- NET YDS ---PASSES--- FUMBLES PENALTY W/L/T":"TEAM";:12:"SCORE ATT YARDS YARDS SACK ATT COMP"; f"INT TOTAL LOST YDS SPREAD"::U$"----- --- ----- ----- --- --- --- --- --- --- ---- ---" gC1:Y18hI121GG1:25 212B <:"NO SCHEDULE IN FILE":I1500:I:12w ZCQ1ė:"NOT SETUP FOR PRINTER":I1500:I:12 cT128 d:"FACTS SHEET FOR COLLECTING DATA"::"WHAT WEEK NUMBER ";:G:G1G2112{ e1:"NFL GAME WEEK 4":29:"PASSING-----"";G X1:Y3:4 I1(T11)2:((B$,2))160y H((B$,X,2)):4000:7:VT$;" AT ";:H((B$,Y,2)):4000:VT$ #XX4:YY4:I(("000005000011000017000023000000000",(I1)21,2))ĺ 'I (22:10:"GET NEXT GAME < Y/N > ";:A$:A$"Y"GU4110! U1Ģ6:10:"DO>"8 U2Ģ8:10:"DO>" 18:13:"BEGIN AT WEEK# ";:G:G1G21Ģ20:13:"NOT AVAILABLE":I11500:I:12 U22000 B$"28012702260325042405230622072108200919101811171216131514" :6:1:"SCHEDULE FOR WEEK T PRIOR GAME STATS":14:15:"QUIT TO MENU"q V6:B$"28012702260325042405230622072108200919101811171216131514" U15:10:V:"Y-->";:U$:10:V:4):U$"Y"VV2:U:U$"Y"14 U5Ģ14:10:"GET>":D$(4):D$:D$;"RUNPRACTICE" U390 C ***SCHEDULE NFL 6/6/83 COPYRIGHTED PICKAM SOFTWAREQ 9/9/83h T128:CP3:A%(T1) :2:10:"G A M E S C H E D U L E":6:15:"LOOK AT SCHEDULES":15:8:"BUILD GAME SCHEDULES":10:15:"PRINT GAME STATS FORM"+ 12:15:"PRIN     (4):D$:D$;"SAVEDEMOERASE"`"D:"SETUP LATER"g 12:3:"CONTINUE SETUP < Y/N > ";:A$::"WAIT FOR MENU":D$(4):D$;"RUNPRACTICE" :"WAIT FOR SETUP SCREEN":::"NO DEMO -- CAN BE CHANGED ANYTIME":I11000:I :"WAIT FOR MENU" D$(4)::D$;"RUNDEMONFL"  D$N"550 cQ$"N"780f l:"WAIT FOR MENU AFTER ERASE PROGRAM ENDS":3:15:"1:45 MINUTES RUN TIME" "DEMO ONLY":I11000:I :17:"O P T I O N S":5:3:"YOU CAN NOW: 1. SETUP DISC AND":20:"PRINTER OPTIONS":8:17:"2. REMOVE DISC AND":20 GAME COUNT TO 1"::"ALL DATA IS LOST AND A NEW SCHEDULE":"MUST BE ENTERED FOR THE YEAR"::"THERE IS NO RECOVERY": b" DO YOU WISH TO ERASE?"::"ENTER 'Y' TO ERASE":"ENTER 'N' TO AVOID ERASING"::"ENTER YOUR ANSWER < Y/N > ";:Q$:Q$"Y"ĭQ$"#Z 6/11/1983 ERASE FINAL3_T128:U$""Ac 6/9/83ld **** ANNUAL FILE ERASE ROUTINE *****:11:"NO FILES ARE ERASED BY DEMO":I11500:I&:D$(4)v X"ANNUAL FILE ERASE"::"THIS PROGRAM KILLS ALL DATA FILES":"IT RESETS THE   29A$("PITTSBURG SAN DIEGO SAN FRANC SEATTLE ST LOUIS TAMPA BAY WASHINGTON",((A21)1)101,10):B$("PITS DS FSEASTLT BWAS",((A21)1)31,3): A$"NO DATA":D$(4):D$:D$;"SAVEDEMONFL" T$:D$;"SAVEDEMONFL" D CTYLA RAIDERSLA RAMS ",((A7)1)101,10):B$("DETG BHOUINDK CLA RAM",((A7)1)31,3): A22A$("MIAMI MINNESOTA NW ENGLANDNW ORLEANSNY GIANTS NY JETS PHILADEL ",((A14)1)101,10):B$("MIAMINN EN ONYGNYJPHI",((A14)1)31,3): A2280  3 HT$" VISITOR":H0HT$" AT HOME" A8A$("ATLANTA BUFFALO CHICAGO CINCINNATICLEVELAND DALLAS DENVER ",(A1)101,10):B$("ATLBUFCHICINCLEDALDEN",(A1)31,3):\ A15A$("DETROIT GREEN BAY HOUSTON INDIANAP KANSAS" 17:5:"PENALTY YARDS ";:: 28:"CHECK THIS":] 19:5:"VS SPREAD W/L/T ";: U$(A)"W"TA$">L":U$(A)"-W": U$(A)"L"TA$">W":U$(A)"-L": U$(A)"T"TA$">T":U$(A)"-T": U$(A)"-?":TA$">?": A1:H1:TA$">V"::ARDS ";:.8:5:"NET PASSING YDS ";:P 9:5:"YDS LOST-SACKED ";:s 11:5:"PASS-ATTEMPTED ";: 12:5:"PASS-COMPLETED ";: 13:5:"PASS-INTERCEPTED ";: 15:5:"FUMBLES ";: 16:5:"FUMBLES LOST ";::12:H:A%(P9)U13:H:A%(P10):15:H:A%(P5):16:H:A%(P6):17:H:A%(P7)n:"TEAM ";A$:2071 12:8:"SAVING DATA FOR FORECAST":I11000:I:154:5:"POINTS SCORED ";:5:5:"RUSH ATTEMPTS ";: 6:5:"RUSHING Y N > NEXT < R > RETYPE < Q > QUIT ";:V$:V$"N"ĭV$"R"ĭV$"Q"2072ZV$"Q"100nV$"N"ĂT:10022:"YOU MUST RETYPE EACH FIELD DISPLAYED":H28:4:H:A%(P12):5:H:A%(P2):6:H:A%(P3):H:8:A%(P4):H:9:A%(P11):11:H:A%(P8)1T1:A((W$,(T1)21,2)):P(T1)12:3500::"TEAM ";A$2300:A%(P12):2301:A%(P2):2302:A%(P3):2303:A%(P4):2304:A%(P11):2305:A%(P8):2306:A%(P9):2307:A%(P10):2308:A%(P5)J2309:A%(P6):2310:A%(P7):2312:U$(A):22:"<100İ2310:" ";A%(I);:2311\H1İ2312:U$(A):2314:U$(A)"-?"İ2312:" ";U$(A);:231122:5:"IS DATA CORRECT < Y/N > ";:V$:V$"N"2055HH1:T:CQ1100:"STATS HARDCOPY TO PRINTER":::"DEMO SCREEN ONLY":I1500:I:100;T)İ2306:" ";A%(I);:2311ZIP10:2307:A%(I):A%(I)0A%(I)8İ2307:" ";A%(I);:2311IP5:2308:A%(I):A%(I)0A%(I)9İ2308:" ";A%(I);:2311IP6:2309:A%(I):A%(I)0A%(I)6İ2309:" ";A%(I);:2311IP7:2310:A%(I):A%(I)0A%(I)A%(I);:2311O IP4:2303:A%(I):A%(I)25A%(I)450İ2303:" ";A%(I);:2311 IP11:2304:A%(I):A%(I)0A%(I)40İ2304:" ";A%(I);:2311 IP8:2305:A%(I):A%(I)10A%(I)60İ2305:" ";A%(I);:2311 IP9:2306:A%(I):A%(I)5A%(I)A%(P89:2310:2312-H0Ė22:19:TA$:U$(A)TA$FP(T1)12:A%(P1)AIP12:2300:A%(I):A%(I)0A%(I)45İ2300:" ";A%(I);:2311IP2:2301:A%(I):A%(I)5A%(I)50İ2301:" ";A%(I);:2311  IP3:2302:A%(I):A%(I)25A%(I)450İ2302:" ";E" :74NW$"28012702260325042405230622072108200919101811171216131514"bA%(500),U$(28)uH1:SW0:CPGT1T1:A((W$,(T1)21,2)):3499::"TEAM ";::" ";A$;" ";::HT$ 2300:2301:2302:2303:2304:2305:2306:2307:2308:230027,2025XXX:YYYfI1O:Y:X:N$;:A$:Y:X:4):A$"Y"YY2:I:A$"Y"YYY:XXX:2016zX:Y:"DO >"::"WAIT FOR MENU"D$:D$;"RUNNFL"D$:D$;"RUNDEMOERASE"2005D$:D$;"RUNDEMOSCHED"D$:D$;"RUNDEMOCHANGISPLAY DETAIL STATS"H:12:"QUIT THE DEMONSTRATOR":H:14:"CHANGE STATS IN FILE":H:16:"NO DEMO SETUP":H:18:"ERASE FILES FOR NEW YEAR":H:20:"RETURN TO MASTER MENU"O9:XX7:YY4:N$"Y-->"2015:I2040,2031,2029,2028,2025,2030,2005,2kI:I111::I:0:100Cn10:" FOR MENU ";:V$Lo100R:9::" NFL DEMONSTRATOR PROGRAM "::H13:4:H:"ENTER STATS FOR GAME 4":H:6:"DISPLAY LAST PREDICTIONS"H:8:"BUILD/REVISED SCHEDULES":H:10H:10:"D$;:12:A%(P12);:16:A%(P2);:20:A%(P3);:25:A%(P4);:29:A%(P11);:33:A%(P8);:37:A%(P9);:41:A%(P10);:45jA%(P5);:49:A%(P6);:54:A%(P7);:60:U$(A):I(("00020004000600080010001200140016001800200022002400260028",(I1)21,2))ĺ:"IS YOUR DATA CORRECT ?":14:"YOUR CHOICES:":12:8:"OK - SAVE ON DISC":10:12:"WAIT - SCREEN REVIEW/EDIT":12:12e"MAJOR ERROR - GO TO MENU":O3:XX7:YY8:N$"Y-->":2015:I12080fI22070g2005yiI1T1:P(I1)12:A(P1):3500:A,9);:11:F%10;:AV:3500I P17:"AT ";(A$,9);:30:G%10;:36:H%10 WCC1:(("0000030000060000090000120000150000180000210000240000270000",(C1)21,2))ĺ XH:23:" FOR MENU ";:A$:2005xd:1:8::" L A S T C H A N C E "::10:3I F15:26:"- VS NEXT ";J;& GJZ HJ128:16:26:"- FINAL TAB ";J:I140:I:J J:"VISITOR POINTS HOME POINTS DIFF": KH1282:VH1 LF%((K$,(H1)31,3)):G%((K$,(V1)31,3)):H%F%G%:H%0H%G%F% NAH:3500:(A$I1300:I:10:26:"- ADJUST AVG"7 -J140:K110V .K:J:11:26:"- RATIOS";s 112:26:"- LOGARITHMS"; 3I1400:I 413:26:"- NEW RATIOS"; 5I1500:I 9J110:L110 :L:J:26:14:"- PTS PER YD";:65 AJ128:I125:XA:GNGN1. TM128:20:7:TM:I1300:I6 TM> XA 7:18:" ":6:8:"CALCULATING: SUMS - OFFENSE"; J1500: J:7:26:"- DEFENSE"; I1500:I:26:8:"- AVERAGES" !9:26:"- LEAGUE AVG" "I1400:I# &HAM SOFTWARE, LOS ANGELES, CA ALL RIGHTS RESERVED ************************e :IX1:G3 3:"RUN TIME IS APPROX () MINUTES"::"PREPARING FORECAST FOR GAME 4":6:8:"LOAD DATA: TEAM GAME#":I1150:I XAIXG:20:7:" ":7:27:J T12:W$"0204060810121416182022242628010305070911131517192123252729" G3:CP3:D$(4):D$:K$"215183336075246113428125145142135200187045183215335246113245165294152122061195334206333222" 2000V  ** NFL 06/10/83 FINAL COPYRIGHTED BY PICK       1 8  8      .  .  . 8    کl V i ?砕 L 8    8     .  .  .  .  .  . 8    کv V X  c % ]    8    ک V *V   b V i *  1 8  ?Ǡ L 8 [   8 f    .  .  .  .  .  . 8 n   کc V i pǠ L1 8 v   8     .  .  .  0  L'2  L V  c  ]   ک! V 4  Li p " V 6  L ? X V  c  ] 8     c  ]   کU  LW  LY V Y  L?]  V ~ c  ]   ک V   L? ? L  V p  V T c  ]     ] ˠ   w   ?  L p  V   L   V [ c  ]     ]     ] !  X ੜ V  L% ?  V M L? p  V X F ] 7   M c M ] E    ] g   ک V Ǡ + V ?  p  ?  p⠕ + V ~ c  ]      L  L ڠ   w   s򩑠 V [ ]    [ ]    ک V b i V p̠ + MѠ +֠  5 V w c ~ ] .    w c ~ ] * > 3  L pݠ i̠ 5  L b iLW V p L  w   s [ ] Ơ   [ ]    کx V T ]    [ ]    ک} V T ] .   [ ] F   ک V کY   کz   ک V M ]    M ]    ک V [ ]Lc V d V i *  1 8  8 =   8 H   w    정 砕 ⠕ 8 O   ?⠕ L?n V X F ] W   M ] e   M ]    کs V T ]  P@РLLLՠLڠLߠLLLLݠL+LݠLLꩾL L̠L砕L+L砕LL+L+정L+멾L LꩾLLLLL정L DETAILSTATS ANALYSIS AFTER EACHGAME < Y/N > YNYYANSWERS ARE CORRECT < Y/N > YNNOPENGA ,D1WRITEGACLOSEGAOPENGA,D1WRITEGACLOSEGAOPENGA,D1WRITEGACLOSEGAWAIT FOR MENURUNNFLSAVESETUPPRINTER`@0(@HERE IS NO DRIVE 2YES - CLEAN DISC IN DRIVE 2Y-->YYPRINTER SETUPTHESE INSTRUCTIONS MAY BE CHANGEDAT ANYTIME FROM MASTER MENU.DO YOU HAVE A PRINTER < Y/N > YNYEACH WEEK: HOW MAY PRINTED COPIESOF THE PREDICTIONS ( 1 TO 10 ) DO YOU WANT TO PRINTAYS BE IN DRIVE 2WHEN THE PROGRAM IS STARTED.3. THE DATA DISC CAN BECOPIED FOR BACKUP.THIS SELECTION CANNOT BE CHANGEDEXCEPT AT THE START OF EACH SEASON.MOVE ARROW WITH SPACE BARPRESS'Y' AT THE CORRECT SELECTIONNOT READY FOR SETUP - ABORT NO - T L! L9•<<'     fLOPENGA ,D1READGACLOSEGAPROGRAM SETUPYOUR PROGRAM DISC CANNOT BE COPIEDIF YOU HAVE A SECOND DISC DRIVE:1. PLACE A CLEAN DISC NOW IN DRIVE TWO. THIS WILL BEYOUR DATA DISC.2. IT MUST ALWȑ` ^_ } SՠZȑZ L   VW {, 6,A" 湱 :,Z목Z"ȱ :,L e B `Z^[ȑ^L*+` P J ' # f ] X$*umoswRxc Ii [Z䢐š eȨ̣̏ͦ͢`Z[ȅȱZLeZZ[LH  h Lh`  ΑZLZ `[eZȪoo` | \` S80 `   - L'  L L L Lȱ[Z`  i` $ { PZ` $ { 8PPL.` $ { P L8PPPL.  H S L `hL9 Lo` Z[5ŝ R MENU":D$;"RUNNFL";D$(4):D$:D$;"SAVESETUPPRINTER"dE { _^  Z%ﭨ Z[` ` |ȱL- |L7 4  }L  |L LJ  |``` L L $:TT0ĺD$;"OPENGA ,D1":D$;"WRITEGA":CP:CQ:CR:CS:CT:CU:D$;"CLOSEGA"cTT1ĺD$;"OPENGA,D1":D$;"WRITEGA":CP:CQ:CR:CS:CT:CU:D$;"CLOSEGA"lCT0ĺD$;"OPENGA,D1":D$;"WRITEGA":CP:CQ:CR:CS:CT:CU:D$;"CLOSEGA"v:10:12:"WAIT FOIL":5:"STATS ANALYSIS AFTER EACH":5:"GAME < Y/N > ";:A$:A$"Y"ĭA$"N"540c 13:19:A$t !A$"Y"CS1 "A$"Y"CS0 X18:5:"ANSWERS ARE CORRECT < Y/N > ";:A$:18:33:A$:A$"Y"ĭA$"N"600 YA$"N"500 ]CRALbD$(4):DYOU HAVE A PRINTER < Y/N > ";:A$:A$"Y"ĭA$"N"510F 6:35:A$] A$"Y"CQ0:600f CQ1 8:5:"EACH WEEK: HOW MAY PRINTED COPIES":5:"OF THE PREDICTIONS ( 1 TO 10 ) ";:A:A0CR1 A10CR10S 11:5:"DO YOU WANT TO PRINT DETA"Y-->";:A$:V:6:4):A$"Y"VV1:I:A$"Y"V21:150I I1ė:W I2CT0e I3CT1 :14:"PRINTER SETUP":3:3:"THESE INSTRUCTIONS MAY BE CHANGED":5:"AT ANYTIME FROM MASTER MENU." TTCT CQ0:CR1:CS0:CU17 6:5:"DO T THE START OF EACH SEASON."j :3:"MOVE ARROW WITH SPACE BAR":3:"PRESS'Y' AT THE CORRECT SELECTION" :11:"NOT READY FOR SETUP - ";::" ABORT ": 11:"NO - THERE IS NO DRIVE 2":11:"YES - CLEAN DISC IN DRIVE 2" V21< I13:V:6: "::11:"IN DRIVE TWO. THIS WILL BE":11:"YOUR DATA DISC." x:8:"2. IT MUST ALWAYS BE IN DRIVE 2":11:"WHEN THE PROGRAM IS STARTED." }:8:"3. THE DATA DISC CAN BE":11:"COPIED FOR BACKUP." :"THIS SELECTION CANNOT BE CHANGED":"EXCEPT A=c 6/9/83hdD$(4):D$:D$;"OPENGA ,D1":D$;"READGA":CP,CQ,CR,CS,CT,CU:D$;"CLOSEGA":CU0500n:14:"PROGRAM SETUP":3:"YOUR PROGRAM DISC CANNOT BE COPIED"::3:"IF YOU HAVE A SECOND DISC DRIVE:"= s8:"1. PLACE A CLEAN DISC ";::" NOW          2))ĺ. (I:23:" FOR MENU ";:A$:75B <I135::I:0p J:12:"HIT ANY KEY TO CONTINUE ";:AK$ K:"WAIT FOR MENU":D$(4):D$;"RUNNFL,D1"  D$(4):D$:D$;"SAVEREPRINT"  ):D$:D$;"SAVEREPRINT"  (1H :"NFL GAME WEEK ";G:"VISITOR POINTS AT HOME POINTS DIFF": I1(T12):V1$(I);:11:W(I);:16:H1$(I);:30:X(I);:39((Y(I))):Y(I):CQ0ĺ:I:60 #CQ1ĭI(("000003000006000009000012000015000018000021000024000027000",(I1)21,********Y V1$(T1),W(T1),H1$(T1),X(T1),Y(T1)::"REPRINT LAST PREDICTIONS":D$(4):D$ CT0ĺD$;"OPENSCORES,D2":D$;"READ SCORES":20 D$;"OPENSCORES":D$;"READSCORES" I1T12:V1$(I):W(I):H1$(I):X(I):Y(I):I:D$;"CLOSESCORES":CQ0Ċ b D$(4):D$:D$;"OPENGA":D$;"READGA":CP:CQ:CR:CS:CT:CU:GCP:D$;"CLOSEGA":T128q 6/9/83~ ******  ** NFL 06/10/83 FINAL COPYRIGHTED BY PICKHAM SOFTWARE, LOS ANGELES, CA ALL RIGHTS RESERVED ****************TA NW ENGLANDNW ORLEANSNY GIANTS NY JETS PHILADEL PITTSBURGHSAN DIEGO SAN FRANC SEATTLE ST LOUIS TAMPA BAY WASHINGTON",(U15)101,10):D$(4):D$:D$;"SAVECHANGE"GTON",(U15)101,10):D$(4):D$:D$;"SAVECHANGE"AIT FOR MENU")D$(4):D$;"RUNNFL,D1"1UTA$("ATLANTA BUFFALO CHICAGO CINCINNATICLEVELAND DALLAS DENVER DETROIT GREEN BAY HOUSTON INDIANAP KANSAS CTYLA RAIDERSLA RAMS ",(U1)101,10):UT14A$("MIAMI MINNESO2" CT1ĺD$;"OPEN"FL$/ D$;"WRITE"FL$ T1T1:B%(T):A%(B%(T),2):A%(B%(T),3):A%(B%(T),4):A%(B%(T),9):A%(B%(T),10):A%(B%(T),11):A%(B%(T),6):A%(B%(T),7):A%(B%(T),8):A%(B%(T),5)A%(B%(T),4):A%(B%(T),1):T D$;"CLOSE"FL$  :"W7):6:"PASS - INTERCEP ";A%(Y,8):6:"FUMBLES ";A%(Y,9)86:"FUMBLES/LOST ";A%(Y,10):6:"PENALTY YARDS ";A%(Y,11)=5:V5BII111:30:A%(Y,II):V:30:A%(Y,II);" ":VV1:IIGCCCC1:1050 D$:CT0ĺD$;"OPEN";FL$",DA":21:"IN FILE NEW":5:6:"POINTS SCORED ";A%(Y,1):6:"RUSH ATTEMPTS ";A%(Y,2):6:"RUSHING YARDS ";A%(Y,3)66:"NET PASSING YDS ";A%(Y,4):6:"YDS LOST-SACKED ";A%(Y,5):6:"PASS ATTEMPTS ";A%(Y,6)B76:"PASSES COMPLETED ";A%(Y,$:V:3:4):A$"Y"VV1:Y:V4:10672*1071+Y(T12)1(T11):V:23:"Y-->";:A$:23:V:4):A$"Y"VV1:Y:1064.YT11Ģ18:23:"WAIT":3000/B$(Y)"*"3:Y15UY:40114Y14UY:4016z5"TEAM ";A$:26:"ENTER ALL DATA,8):A%(A,5):A%(A,1):B%(T)A:T:D$;"CLOSE"FL$X T1T1:A%(T,5)A%(T,5)A%(T,4):Tp !E129:B$(E)"":E "4:3:10) #4:V4 $T114:4010:9:A$;B$(T);:4015:29:A$;B$(T14):T:29:"**COMPLETED" (V4()Y1T12:V:3:"Y-->";:A5 WK6 WK7 WK8 WK9 WK10WK11WK12WK13WK14WK15WK16WK17WK18WK19WK20WK21WK22",(I1)41,4)v D$:CT0ĺD$;"OPEN";FL$",D2" CT1ĺD$;"OPEN"FL$ D$;"READ"FL$1 T128:A:A%(A,2):A%(A,3):A%(A,4):A%(A,9):A%(A,10):A%(A,11):A%(A,6):A%(A,7):A%( FILES AVAILABLE":4000 3; I1(G1):20:I:I:V3F 3:V3 I1(G1):11:V:"WEEK-->";:A$:V:11:7):VV1:A$"Y"ĂI:A$"Y"1039 :" CHANGE WEEK ";I;" TEAM SELECTION":CC01059T 4:3:"LOAD DATA":FL$("WK1 WK2 WK3 WK4 WKT THE MASTER MENU."X 22:5:"ALTER A DATA FILE < Y/N > ";:A$:A$"Y"ĭA$"N"1010h 22:31:A$y A$"N"4000 :"CHANGE DATA FILE 'Y' TO SELECT WEEK" D$;"OPENGA,D1":D$;"READGA":G,CQ,CR,CS,CT,CU:D$;"CLOSEGA" G2Ģ6:"NO DATA8:"THAT TEAM MUST BE RETYPED." 12:" 3. ALTER ANY TEAMS FOR THE WEEK":5:"SELECTED":15:" 4. SELECT 'COMPLETED' TO REFILE" 17:" 5. IF MORE THAN ONE WEEK IS TO BE":5:"CHANGED, IT WILL BE NECESSARY":5:"TO MAKE THE SELECTION AGAIN -":5:"A  D$(13)(4)! 6/9/83DT128:A%(T1,12),B%(T1),B$(29)f:11:"CHANGE EXISTING FILE"4:" 1. SELECT THE WEEK TO CHANGE":6:" 2. SELECT THE FIRST TEAM TO CHANGE" 8:8:"FOR ANY TEAM SELECTED FOR":8:"CORRECTION - ALL DATA FOR":        :"WAIT FOR SETUP SCREENS":D$(4):D$:D$;"RUNSETUPPRINTER"V :"WAIT FOR MENU"s D$(4):D$:D$;"RUNNFL"yD$(4):D$:D$;"SAVEERASE"STER" :"WAIT FOR MENU" D$(4):D$:D$;"RUNNFL"D$(4):D$:D$;"SAVEERASE"$;"WRITEGA":A:B:B:B:B:B:D$;"CLOSEGA" :17:"O P T I O N S":5:3:"YOU CAN NOW: 1. SETUP DISC AND":20:"PRINTER OPTIONS":8:17:"2. REMOVE DISC AND":20:"SETUP LATER" 12:3:"CONTINUE SETUP < Y/N > ";:A$:A$"Y"ė:"REMOVE DISC":?L$:I# CT0ĺD$;"OPENSPREAD,D2"> CT1ĺD$;"OPENSPREAD"U D$;"DELETESPREAD"a A1:B0 CT0ĺD$;"OPENGA,D1":D$;"WRITEGA":A:B:B:B:B:B:D$;"CLOSEGA":D$;"OPENGA,D1":D$;"WRITEGA":A:B:B:B:B:B:D$;"CLOSEGA":750+ D$;"OPENGA":DR";I:U$:I:D$;"CLOSESCHED", D$(4):D$ I122:FL$("WK1 WK2 WK3 WK4 WK5 WK6 WK7 WK8 WK9 WK10WK11WK12WK13WK14WK15WK16WK17WK18WK19WK20WK21WK22",(I1)41,4) CT0ĺD$;"OPEN"FL$;",D2":D$;"DELETE"FL$:I:690 D$;"OPEN"FL$:D$;"DELETE"FNTER YOUR ANSWER < Y/N > ";:Q$:Q$"Y"ĭQ$"N"550E cQ$"N"780 l:"WAIT FOR MENU AFTER ERASE PROGRAM ENDS":3:15:"1:45 MINUTES RUN TIME" D$(4):D$:CT0ĺD$;"OPENSCHED,L58,D1" CT1ĺD$;"OPENSCHED,L58,D1" I121:D$;"WRITESCHED,S PROGRAM KILLS ALL DATA FILES":"IT RESETS THE GAME COUNT TO 1"::"ALL DATA IS LOST AND A NEW SCHEDULE":"MUST BE ENTERED FOR THE YEAR"::"THERE IS NO RECOVERY":5 b" DO YOU WISH TO ERASE?"::"ENTER 'Y' TO ERASE":"ENTER 'N' TO AVOID ERASING"::"E#Z 6/11/1983 ERASE FINAL3_T128:U$""M`I1T1:U$U$"29":I[c 6/9/83d **** ANNUAL FILE ERASE ROUTINE *****D$(4):D$:D$;"OPENGA":D$;"READGA":CP,CQ,CR,CS,CT,CU:D$;"CLOSEGA"&:D$(4) X"ANNUAL FILE ERASE"::"THI       NFL PRO TITLE" BY CAP: IMAGE LASTS ABOUTJ 5 SECONDSPs(4);"BLOADNFLPRO.PIC,A$2000" 49236,0 D15000: D$(4):D$;"RUNNFL"A ӠΠ  ԠӠԭĠΠ  ԠӭĠΠ  ԠӭĠΠ  ԠӭĠΠԠǠŠ͢Ϡ  ԠӠĠΠ  ԠȠӠΠ  ԠǠӠΠ  ԠԠԠŠҠΠƠɠΠŠԠӠˠ̠ԠǍƠɠΠŠԠԠˠ̠ԠǠԠԠԠԠŠŠ٠ԠԠԠԺԠպԠĤǠкƠǠΠǠǠϠŠԠϠӠĠҠӢ ԠŠԠԠˢ  ԠپҠՠԠǤϠŠ ԠդɩԠɺ ̤  РǠԠкԠѺԠҺԠӺԠԺԠպ ƠԠΠԠĤıԠĤԠкԠѺԠҺԠӺɠԠɺ ̤ĢƠǠΠҠɠϠԱդɩԠɺϠ  ҠɠϠԱԠդɩԠɺ   ҠɠϠԱդɩդɩդɩҲǠ  ԠǠҠԢ    ҠɠϠԱŠɠŠŠŠԠɍҠɠϠԠɩɩԠР Ⱥ ԠР Ⱥ ԠР ȺԠРŠԠ͠Ϡ̤Ĥ˱˲˳˴˵˶˷˸˹˱˱˱˱˱˱˱˱˱˱˲˲ĠȠ  ȺԠР ȺԠР ȺԠР  ȺԠР Ⱥ ԠР Ⱥ ԠР Ⱥ ԠР Ⱥ ɼҠŠѠԠԠ֤Ơ֤΢ΠƠ֤ҢΠƠ֤ѢΠ  Ԡ֤Ơ֤ѢΠƠ֤΢ΠԠԺϠ ԠՠԠŠȠĠΠٍנ΍ԠӠ٠ӍΠ٠ӠϠٍύ̠ӠΠÍǍΠύӠԍčŠӠԍԠנ΍РϠҍҠɠ! ! "COMPLETED GAME ";G:7:8:"DO THE NEXT GAME < Y/N > ";:A$:A$"Y"GG1:2000W12]  D$:CT0ĺD$;"OPENSCHED,L58,D1": D$;"OPENSCHED,L58": D$;"READSCHED,R";G: D$;"WRITESCHED,R";G: D$;"CLOSESCHED": :8:"GET NEXT G41:"GAME SCHEDULE FOR WEEK ";G::X1:Y3:8I1(T11)2:H((B$,X,2)):4000:8:VT$;" AT ";:H((B$,Y,2)):4000:VT$:XX4:YY4:I22:5:"OK TO FILE < Y/N > ";:P$:P$"N"2000P$"Y"20323000:3004:B$:3006O:4:10:M$"V-->":Y$"V"M$"H-->"'A%(A)18VV1:A:V7[A((T12)1)T1:A%(A)02028V:HH:M$;:Y$:V:HH:4):Y$(M$,1)2028A%(A)1:M$"V-->":Y$"V"M$"H-->"HH5:V:10):B$B$(A):(B$)(T12)2030VV1:A:V7:H4:20014:4000:29:VT$:IIV7:H4:M$"V-->":B$"":HH24:I128:A%(I)0:IgA1(T12):A%(A)02018V:H:M$;:Y$:V:H:4)Y$(M$,1)2018A%(A)1H5:V:10):A10B$B$"0"(A)A10B$B$(A)(B$)(T12)2030::"ERASE FILES AND REENTER ALL DATA"::"GAME COUNTER MUST BE LESS THAN 23":"AND MORE THAN 0":hTn:11:"SCHEDULE GAME WEEK ";G:3:4:"'V' VISITOR FIRST 'H' HOME NEXT":12:"' ' ADVANCES ARROW":I114:HI:4000:9:VT$;:HII:(4);:"CLOSE GF1.11":<CT0ĺD$;"OPEN";FL$",D1":VD$;"OPEN";FL$",D1":kD$;"READ";FL$:D$;"READ";FL$:D$:CT0ĺD$;"WRITE";FL$;",D1":D$;"WRITE";FL$:D$;"CLOSE";FL$:b:GG$"GAME COUNTER IN ERROR - BIG PROBLEM"(E5);" ";:T(E6);" ";:T(E7);" ";:T(E8);" ";:T(E9);" ";:T(E10);" ";38:T(E11):CQ0ĭI(("00020004000600080010001200140016001800200022002400260028",(I1)21,2))ĺCQ0ĭI14I28ĺ:::::"HIT ANY KEY TO CONTINUE ";:AK$:5),T(I1):T(I5)T(I5)T(I4):E:230Dz(4);:"OPEN GF1.11,D2"_|(4);:"WRITE GF1.11"~"NFL GAME ";G:"TM SC AT YDS YDS SAK AT CM IN F L PEN":MI1T1:EI12:HT(E):4003:VT$;" ";T(E1);" ";:T(E2);" ";:T(E3);" ";:T(E4);" ";:T GAME TOO? < Y/N > ";:A$5lA$"Y"G22GG1:101=m12Rn"WHAT WEEK";:GoG1GCP1Ė18:12:"NOT IN FILE":I1500:I:12pH1:4005:200:210&yE1T1:IE12:T(I),T(I2),T(I3),T(I4),T(I9),T(I10),T(I11),T(I6),T(I7),T(I8),T(ISACK ATT COMP INT TOTAL LOST YDS SPREAD": gC1:Y1:U$"----- --- ----- ----- --- --- ---- --- --- --- ---- ---" hI1T1:H((B$,Y,2)):4000:CC1:C1Ė4:VT$:12:U$:106 i"AT ";VT$: jYY2:I:I15::Ik0::"NEXTT128W d:"FACTS SHEET FOR COLLECTING DATA"::"WHAT WEEK NUMBER ";:G:G1G2112 e3000:3002:B$:3006:1:"NFL GAME WEEK ";G:18:"PASSING-----":18:"RUSHING-- NET YDS ---PASSES--- FUMBLES PENALTY W/L/T"1 f12:"SCORE ATT YARDS YARDS #XX4:YY4:I(("000005000011000017000023000000000",(I1)21,2))ĺP 'I (22:10:"GET NEXT GAME < Y/N > ";:A$:A$"Y"G21GG1:25 212 <:"NO SCHEDULE IN FILE":I1500:I:12 ZCQ1ė:"NOT SETUP FOR PRINTER":I1500:I:12 c1Ģ20:13:"NOT AVAILABLE":I11500:I:129 U22000d 3000:3002:B$:3006:(B$)(T12)60 :6:1:"SCHEDULE FOR WEEK ";G X1:Y3: I1(T11)2:((B$,2))160 H((B$,X,2)):4000:7:VT$;" AT ";:H((B$,Y,2)):4000:VT$I15:"QUIT TO MENU" V6d U15:10:V:"Y-->";:U$:10:V:4):U$"Y"VV2:U:U$"Y"14 U5Ģ14:10:"GET>":D$;"RUNNFL,D1" U390 U4110 U1Ģ6:10:"DO>" U2Ģ8:10:"DO>"+ 18:13:"BEGIN AT WEEK# ";:G:G1G2F(4);:"MON,C,I,O"+D$(13)(4)n ***SCHEDULE NFL 6/6/83 COPYRIGHTED PICKAM SOFTWARE| 9/9/83 T128:A%(T1),B$(T1),T(T11224):FL$"GA":200:210:CP,CQ,CR,CS,CT,CU:230 110 12:15:"PRINT PRIOR GAME STATS":14:"" " " " " """""""""