ZXTape! 0Created with Ramsoft MakeTZXHEAD COACH d YAMERICAN FOOTBALL HEAD COACH ADDICTIVE GAMES LTD 1986 #65364T::6:6: h"":18,0;:"":18,0;:"":18,0;:"":18,0;:"" H1 @Hi0 3 0ÇýÁ?3330 ?3330@@Ã3?  00 3 330 @3?  00 3 330  ۿ0 3300 3?? ýÁ0 3300 3??@@@0 3 0     @ @@@     @  @@   @ @  @@  @  ?8@ @@      @  D@ @@      @   @  @  @ @  @ @@  ?@@  ?  @  @  @  @  @     ??<|~~@B@ f{ߏ?/<"|^{~wW|!#@^>WB!B@!f{W<`|~{~?~W~000000000000000000000000000000000000qqqqqqqqqqqqqqqqqqqqqqqq000000000000000000000000000000000000022222222222222222222222222222200222222222222222222222222222222002222222222222222222222222222220000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000222222222222222200000000000000000000000000000000000000000000000000000000000000000qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq0000000000000000000000000000000000000000000000000000000000000000pH2 X  800(x0@ p   @@@x@DJD0Ĵ??  8000\t :8. H3 UPsx H4 WV^H5 vt"" 69900&:9750&:25*O1*(O1>100d) r1,0;y$(f$(b));g;m;" ";x$(g+);" ";w$(x(b));:" ";j(,x(b));" ";j(2,x(b));" ";j(3,x(b));24;t(x(b));" ";i$(x(b));" ";q$(x(b)): Bl=n*10 +(*10 ):l=l+(l=0):f$(l)="1"12  f$(l)="1" ak=k+:x(l)=k:w$(k)=n$((*30)+)+" "+o$((*40()+):t(k)=(*8)+22 >b=3:g=g(b,n+):j(b,k)=((*g)+)*(g0):b Rq$(x(l))="0":i$(x(l))=((10 -3^(.1}L+(*20)/20))): Nޯ"":o(2):n=2:7;ٯ"";"",n*16-3;q(n):n ^7;6,3+(b=2)*25;" ";7,3+(b=2)*25;" " ' 0 (Dn=313 :n,4;"":n ) o()ɯ"" *B7:0:16,"";"THE BALL IS WITH ";s$(b);" " --l=yt*(b=2)+(100d-yt)*(b=1) <s=(l/502+):18,"";v$(d);" Down & ";yr;" on the ";s$(s);19,20;l+(100d-2*l)*(s=2);" Yard Line" F9l1=6+(l/5)-(b=):l2=l1+3-2*b H$b1=(b=2)-(b=):޼:8 Kbh=2-(b=ah):bh=2q(3-ah)+3q(ah)lp=(d=2yt5((q(3-ah)q(ah))/5+)>(4.2fff/yr)yt<20+(*26))o()=4:500 MPbh=2lp=-d=2yt<(35#+*11 )o()=4:500 P20,-;"YOUR ";a$(bh,8);"? (I=Info)"'("Pass,Rush,Line Plunge or Kick"(bh=))+("Rush,Pass,S.Yardage or Standard" (bh=2)) Zm$=:m$=""90Z [-m$="i"o()=o()+(o()=""):9990' \o(bh)=(bh=)*((m$="p")+2*(m$="r")+3*(m$="l")+4*(m$="k"))+(bh=2)*((m$="s")+2*(m$="y")+3*(m$="r")+4*(m$="p")):o(bh)=""90Z _D.04|# =,40(:n=2021:0;n,0;k$:n io()=4500 nc(b):n=510 :n,l1;(146+b):n:3,l1+b1;(146+b):13 ,l1;(146+b):n=79 :n,l1-(1+(n/8ɺ(n/8)))*(-b1);(146+b):n oDc(3-b):o(3-bh)=(*(5-bh))+:bh=125} pnt= q*10 +*14-12 -(q(2+b)/3)>l(b,o())nt=nt+:o()=o()+-3*(o()=3):113q+(nt=4) s\o()=l(b,)<10 +l(b,3)(yt=5(d=2yr=5))o()=3 x}bh=2o()=3yr=10 d=2yt5o()=+(l(b,)-8ƥ>.3o(2)=2 ~Tbh=d=2yr=10 o(2)=2o(2)=3+((*2)) ^ٯ"";21,"";a$(3-bh,8);"GO FOR ";(e$(o(3-bh)+(bh=)*3)) [150+o(2)*5:n=3:m:g=m:a:a,l1-b1*n;(149-b):g:n An=312 9 :n,l1-b1*3;(159-b);:n c4,5,7,8,10 ,3,5,7,10 ,2,6,8 c6,5,6,7,8,9 ,10 ,2,5,10 ,1,8 c4,5,7,8,10 ,4,5,7,8,10 ,1,8 c3,5,8,10 ,3,5,7,10 ,3,6,8,9 %i=158+b:(o()+)*100d Vq=85U+ha+2.5 *(p(b,3)-p(3-b,6)-n(b,))-i(,o(2)) v950:޼:c(b):ٯ"";8,l1+b1;(146+b):8,l1+2*b1;(156+b):ޯ"";20*b1,"" 'y=8-5*b2:x=l1+b1*(b2=) 伧,-,,"" "",-,,- 221-b2 zp=1 970 6ٯ"";ޯ"";y,x;u$(x+):x=x-b1:y,x;(158+b) /u=8:v=l1+2*b1:w=c(b):980 ޯ"":8:m=*170:m>144+q/820,"";"INTERCEPTED":-40(*b1,40(*b2+8*(b2=-1):u=12 -9 *(b2=):v=l1-3*b1:w=c(3-b):980:d=2:t="":700 *-35#*b1,26*b2+8*(b2=) Rm+4*wc>q20,"";"INCOMPLETE":.4L,-10 :t="":700 _20,"";"PASS RECEIVED":u=4+7*(b2<""):v=l1-2*b1:w=c(b):980  c(b):޼ R(5*((x-l1)-)=ytť*170>q+15)5*((x-l1))yt290" 600X:275 " t=(x-l1) $G0;ٯ"";y-b2,x-(b1*(t=2));u$(1+x-(b1*(t=2))) ' 390 ,gq=100d+ha+2.5 *(p(b,)-p(3-b,4)-n(b,2))-i(2,o(2))-3*pc 1 950 4"", 6 伧,,, 73095-b2 9=c(b):޼:x=l1+b1*2:y=8-b2:zp=2-(b2=) ; 970 =,*170>145+q/88204 @I(5*((x-l1)-)=ytť*170>q)5*((x-l1))yt385 E600X:320@ Vt=(x-l1):n=x-b1*(t=)-(b1*(x=l1))*(t<):0;0;y+b2,n;u$(1+n) 1c(3-b);y,x-b1;(149-b):700 aq=130+ha+2.5 *(p(b,2)-p(3-b,5)-n(b,3))-i(3,o(2)) Y950:޼:c(b):ޯ"";8,l1+b1;u$(+l1+b1):8+b2,l1+b1;(146+b) Nٯ"";8-b2,l1+2*b1;(146+b):8,l1+b1;(158+b) +9999':8,l1+b1;(158+b) Dޯ"";8,l1;u$(+l1):9999':8,l1;(148+b) ,*170>144+q/88204 %*170>qt=0:480 ٯ"";8,l1-b1;(149-b):c(3-b);9 ,l1-2*b1;(149-b):9999':ޯ"";8,l1;u$(l1+):8,l1-b1;(158+b) (*600X>qyt5)yt=10 ٯ"";9 ,l1-2*b1;(149-b):c(3-b);8+(o(2)=3),l1-2*b1;(149-b):t=:480 9999':ٯ"";8,l1-b1;(158+b):o(2)=3ٯ"";8,l1-2*b1;(149-b);c(3-b);7,l1-3*b1;(149-b) 28,l1-2*b1;(156+b):t=2  700 q=25:*101e>(95_-yt)*(yt<20)+(110n-2*yt)*(40(>ytyt>15)+(145-3*yt)*(yt>35#)+3*p(b,7)q=17 ޼:bh+v()=q=17 c(b):n=511 :n,l1;(146+b):n:n=412 8:n,l1+b1;(146+b):n:n=78:n,l1+2*b1;(62>+n*12 +b):n uc(3-b):n=412 :n,l1-b1;(149-b):n:n=78:n,l1-2*b1;(149-b):n Y8:480+8/5*l,106j:ޯ"";b1*18,"":.04|# =,40( M8,l1+2*b1;(158+b);8,l1+2*b1;(146+b)  /v=20:u=-b1*(yt+q)*8/v:920 o()42180 Dq=25n=2040(:.005y# =,n:n:n=1721:ٯ"";n,"";"***FIELD GOAL FOR ";s$(b);"***":n:lp=-q(b)=q(b)-3:8010J Iq=252120H N^d=3:21,"";"FIELD GOAL MISSED ":.2~L,-10 :yt<20yt=20 S 710 XP0;0;y,x;u$(x+1):x=x-b1:i=314:+b*2-i:y,x;i [ii=y+b2-2*b2*(o()=) ]_(l1-x)>(4-o())ii,x+b1;0;0;u$(x+b1+1):c(3-b); ii,x;i bd(l1-x)=(4-o())ii,x;0;0;u$(x+1):ii,x;c(3-b);(146+b) l q(2+b)=q(2+b)+:l(b,o())=l(b,o())-:n(b,o())=n(b,o())+:ٯ"":ޯ"":yt=yt-t*5:yt<""9898&:16,"";k$:n=1721:n,0;" ***TOUCHDOWN FOR ";s$(b);"** ":n:lp=-8010J  yt<""2160p:2120H 4d=d+:yr=yr-5*t:yrǯ""d=:yr=10 lp>-2150f Wd=3d=:yr=10 :.3,-8:b=3-b:ha=-ha:yt=100d-yt _ٯ"":97771&-(lp=2(q()q(2))):3305 :30+7970"*(lp=2) 4ޯ"":n=10 :.01z# =,n:n:21,"";s$(b);" FUMBLE ":b7=(*2)+:n=20:.007ye`A,n:n:21,"";s$(b7);" Recover the ball":b7=bt="":700 9d=3:710 =ޯ"":8:x=(l1+2*b1+(b=))*8:y=110n t=""v/5.06|u\ u*t+x,v*t+y-5*t*t:t: Bb2=2*((*2))-:u=8:v=l1:w=c(b):980 8:0:l1*8+8*(b=),108l:o()ɼ9 *b1,0:u=8:v=l1+b1:w=c(b):980:9 *b1,9 *b2:u=8-b2:v=l1+2*b1:w=c(b):980:  ʁn=zpo()+:u:v:0;0;y,x;u$(x+):x=x-u*b1:y=y-v*b2:y,x;(158+b-2*(n=2)):2:n: J.02{# =,40(:n=""7:޼;n;u,v;" ":n:޼;w;u,v;" ": f=3:0:9750&:j=0:w1=0:9740 &:0,6;"WEEK ";wk:46.,166:60<-8*(wk<10 ),"" :::n=3:ۼ;n;0;" INSPECT ";a$(n)'':n "4 CHECK SCHEDULE"''"5 CHECK TABLES"''"6 DRAFT SITUATION"''"7 SAVE ON TAPE"''"8 FACTS & FIGURES"''"9 CHANGE SKILL LEVEL"''"0 GO TO NEXT MATCH" Lm$=:m$=""1100L V;480>m$57912 )-b()'"All Time Record: ";b()+m();"-";(wk-)*(wk<13 )+12 *(wk>12 )-b()+m(6)'"Winning Seasons: ";m(2);'"Playoff Seasons: ";m(3);'"Superbowls: ";m(4)'"Superbowl Victories: ";m(5) '"Next Opponent: "'t$(h(wk));" (";b(h(wk));"-";(wk-)*(13 >wk)+12 *(wk>12 )-b(h(wk));") ";o$(40(+ah)''""'" Squad Size: ";s()+s(2)+s()'':n=̺:a$(n);":";s(n):n:97760&:1000 K9760 &:"You are contacted by ";t$((*23)+2):n(7) Gl=(*99c)+:n=(l/10 ):f$(l)"0"źn=31255 Rn(2)=l:k=32 :a=(*3)+:a=a-2*(a>3.4Y):14 s(y(+n))=18y(+n)a'"They offer you an ";a$(y(+n))'"player,but you have 18 in that squad so you cannot accept":1480 j'"They propose..."'':9950&:b=l:r1=5:9961&:'"FOR"''"any member of your ";a$(a) a97760&:f$(l)="0":5102:r1=s(a)+:'"Player Offered...":b=l:f$(l)="1":9961& _"","";"Enter no. of player to trade, OR ""0"" for no deal ";n():n()=""1480 (-n()>99cn()=n(2)1310 *5f$(n())="0"y((n()/10 )+)a1310 <n=2:m=3:n(2+n)=n(2+n)+j(m,x(n(n))):m:n(2+n)=(10 *(n(2+n)*5+i$(x(n(n))))/(30+t(x(n(n))))):n >p=f$(n()) @Cp=9750&:'"They don't want an injured man!!":1480 Ahn(5)=n(3)-n(4)+(>.5):n(6)=(n(5)):n(7)=8-n(6) K0n(7)>6n(7)="":1400x L-n(7)""n(7)= NDn(7)<9750&:'"They are not interested!":1480 PHd(n(7))=""n(5)<""n(7)=n(7)-:1355K x\:>(0.9ffff+(n(5)/15)*(n(5)<""))"THE DEAL IS REJECTED":1480 }]'"So it's..."'':9950&:''"FOR":n=2:b=n(n):r1=4*n:9961&:n n(7)=""1445 bn(5)>""'"and you also get a ROUND ";n(7);" draftchoice for the end of season ";sn mn(5)<""'"and you also must give up a"'"ROUND ";n(7);" draft choice for the endof season ";sn 8"Do you accept (y/n) ? ";m$:m$"y"m$"n"1450 m$="n"1480 ?n(5)<""n(7)ɯ""d(n(7))=d(n(7))- ?n(5)>""n(7)ɯ""d(n(7))=d(n(7))+ p=2b=(n()/10 +):v(10 +a)=v(10 +a)-:v(b)=v(b)-:m=3-2*(a=3):p(3-ah,(a-)*3+m)=p(3-ah,(a-)*3+m)-j(m,x(n())):m :s(a)=s(a)-:s(y(+(n(2)/10 )))=s(y(+(n(2)/10 )))+:f$(n())="0":f$(n(2))="1":x(n(2))=x(n()):x(n())="":m=3:j(m,x(n(2)))=j(m,33!):m:q$(x(n(2)))="0":t(x(n(2)))=t(33!):i$(x(n(2)))=i$(33!):w$(x(n(2)))=w$(33!):w$(x(n(2)));" HAS JOINED YOUR SQUAD":1490 D9888&:f$(n(2))="0":x(n(2))="":t(33!)="" 97760&: 40(*oi*(oi>100d):s$(ah)=t$():s$(3-ah)=t$(h(wk)):wk=159910&:6,14;s$();9 ,17;"v";12 ,14;s$(2);16,12 ;"FOR SUPERBOWL ";sn:97760&: 'wk=13 wk=149975&: ,n=7:pwp(ah,n)=p(3-ah,n) p(3-ah,n)=7+5*sk+(*(28-5*sk)+*(5*(b(h(wk))+)/(wk+0.5))):p(3,n)=(p(3-ah,n)*(sc++*(100d-sc)+*(100d-sc))/100d) n:p(3-ah,7)=(*6)+5:p(3,7)=(p(3-ah,7)-+(*3))-(p(3-ah,7)=10 ) pwk=15"SUPERBOWL ";sn:3,4;s$();" vs ";s$(2):m(4)=m(4)+:1610J @Rټ;" SEASON ";sn;" WEEK ";wk'"":3,4;s$();" at ";s$(2) Jc(ah)=:c(3-ah)="" TL5,"";"SCOUT'S REPORT ON ";s$(3-ah):n=0.01z# =:5065 (21,"";"Scout Accuracy-";sc;"%" f=:97760&  5000 ln=2:l(n,)=p(n,3)-p(3-n,6)-wc:l(n,2)=p(n,)-p(3-n,4)-6*pc/5:l(n,3)=p(n,2)-p(3-n,5):n q 9900& "":گ"":7::3300 :n=23232Z23263Z:n,568:n:q(4):n(2,):b=(*2)+:ha=(b*10 -15)*(wk15):c=40(:lp="":n=2:c(n);9 ;"",(n-)*16+;s$(n,13 );" ":n Q32 ,166:223,"":,"";"Time"'"Used";2,31;"" ,14,5;"G 20 50 20 G" ߜn=""̼:23+209*n,128:"",-18:5-10 *n,"":19+217*n,96`:"",20:2-4*n,2:n "",502:255,"" 5d=:yr=10 :yt=557+(*8)*5 4"720-690*(c=40() H 2150f MDq(b)=q(b)+7-4*(o()=4):b=3-b:2030 fn=(2*(*7)+)*(lp="")+(247-c)*(lp=):m=n:c+m,159:2;"",-5:m:c=c+n:c>233lp=lp+:lp=6,8;"LAST PLAY OF GAME" k pB97771&:3300 :17,;"EXTRA POINT TRY BY ";s$(b) z39':q=25:yt=0:l=100d*(b=):l1=6+19*(b=):*100d<(14-p(b,7))q=17  505 L19,10 ;("IS SUCCESSFUL"q=25)+("FAILS"q=17) q=259898&: 0q=17q(b)=q(b)-:.2~L,-10 : o$k="":n=""9 :n=3n tm=f(n+):12 :m:n yWa=3:m=4-a+2*(a=):n=(h$(a,(*(7-(a*2))+))) {@l=10 *n+(*10 ):l=l+(l=""):f$(l)"0"2427{ |14:m:a ~Es(3):s()=16:s(2)=14:s(3)=2 9760 &:w1="":j=15:9740 &:''"Enter the skill level of your choice"'':n=4:n-;ۼ;n;ۯ"";" ";g$(n)'':n .sk:sk>4sk<9888&:2435 d97782&:16,;"You are a"+("n"sk=4);" ";sk-;g$(sk);(" "sk>2);"Coach": h(15):m=""77:b$="234":n=""2:a=(*(3-n))+:h(n*2++m)=b$(a):b$(a)=b$(3-n):n:m Tn=524:a(n-4)=n:n:a=21:n=211 :h(n)>""n 1a=a-:a1=(*a)+:h(n)=a(a1):a(a1)=a(a):n 9760 &:" SEASON ";sn:" SCHEDULE FOR ";t$()::"Week Opponents Venue"::n=12 :n;4;t$(h(n));16;o$(40(+((n/2-(n/2))*6-ai)):n 97760&: (16,0;0;0;k$ 3 m=1721:0;m,0;k$:m: B97760&:9760 &:" WEEK ";wk;" Other scores....."'"": Fn=23:a(n)=n+:n:a(h(wk)-)=24:a(23)=h(wk) 2a=11 :c(4)="":m=34 Sc(m)=(*((12 -a)*2))+:c(3)=c(4)m=4:4513 2+a,(m-3)*16;t$(a(c(m))):c(m+2)=(*(m+-(wk=)+(b(a(c(m)))=e(+((a(c(m))-)/4)))))*7+(*(m+))*3 H2+a,(m-2)*16-2-c(m+2);c(m+2):m c(5)=c(6)2+a,30;"OT":d=(*2)+5:c(d)=c(d)+3+(*2)*3:m=34:4520 Vb(a(c(3+(c(5)13 4810 fen=""5:m=4:b(n*4+m)=e(n+)w(n+(n>2)+)=n*4+m:n:4720p km:n pm=""44:r="":n=12 :b(n+m*3)>rw(((n-)/4)++m)n+m*3z(+m)=n+m*3:w(4+m)=z(+m):r=b(n+m*3) un:m zu:"PLAYOFF TEAMS":n=8:n*2+,"";t$(w(n));:n/4=(n/4)"(WILDCARD TEAM)":4735 |#"(";d$(n-(n>4));" WINNERS)" n p1=(w()=)+(w(4)=) Sp197760&::"Alas,you did NOT make it into the playoffs":4980t 1m=""̺ͺ:r="":n=̺:e(n+m)>rr=e(n+m) ~n:r1=2:n=r̯""-:g=̺:e(g+m)=nz(r1+m*4/3)=w(g+m*4/3):r1=r1-+3*(r1=2)  g:n:m lz()=z(4)=n=2:z(12 +n)=z(n):z(n)=z(2+n):z(2+n)=z(12 +n):n W97760&::"CONGRATULATIONS-YOU'VE MADE THE PLAYOFFS"''"SCHEDULE":m()=m()+: Bn=59;-wk*42::t$(z(n));" ";t$(z(n+)):n  97760& 0a=3-ah:ah=+(z(2)=):pw=(a=ah) !h(wk)=z(3-ah):1000 8:r="Alas,you are out of the playoffs":4980t Ϻwk=169910&:5,8;"YOU'VE WON THE SUPERBOWL":8,10 ;"THE CHAMPIONS ARE ";10 ,15;t$():m(5)=m(5)+:9900&:4990~ ԗz()=z(-ah):"Other Scores...":n=31-wk*2:a=(*4)*7+(*4)*3:b=(*3)*7+(*4)*3 Xt$(z(+n*2));" ";a,t$(z(2+n*2));" ";b:a=bb=b+3:4830 "z(n+)=z(n*2++(b>a)):n cn=̺2:z(n)w(n*2+2)z(6+n)=z(n):z(n)=z(n+):z(n+)=z(6+n) n |z(2)=w(4)(b(z(2))"0"v((n/10 )+)=v((n/10 )+)+ n:m(2)=m(2)+(b()>6):m()=m()+b():m(6)=m(6)+12 -b():dt=20:f=7813:8800`" &ޯ"":a=̺-(s()=""):5100 l9750&:9740 &:'"PRESS"''" S to check your squad again"''"or M to go to next match" "m$=:m$"m" m$"s"5010  97782&:m$="s"5000 &n=10 :f(n).25~):wc=(*5)*(>.25~) }'"PRE-MATCH STRENGTH FIGURES":n=""̼:j=n*28+:w1=4:9740 &:5,4+13 *n;s$(n+)' Pm=7175:l=(m-2)/5:l<3n=l=3-l ʢݼ;m,n*25;a$(l,7):l=318,n*26;"Kicker";18,12 +6*n;p(n++2*(n=0.01z# =),7):n=0.01z# = l=3n:5080 ΀a=3:m+a,n*28;o$(42*+a);m+a,12 +n*6;p(n++2*(n=0.01z# =),l*3-3+a)':a:m n=6:o=2*(n>3):m=p(2,n+3*(-o)):l=-+(p(,n)m)+(p(,n)"0"r1=r1+1:9 m:n  f>2 a3޼;19,"";a$(a,8);"TOTALS ":20,"";s$(3-ah):m=3:19,m*3+13 ;p(ah,m+3*(a=2)):20,m*3+13 ;p(3,m+3*(a=)):m 19,25;"#PICKED";20,26;"= ";v(10 +a):m=7-a*2:g=+h$(a,m):1;x$(g);0;v(g);" ";:m:y=:#1;"6/7=Down/Up,0 to Select or ENTER" 8:޼:y,"";" " m$=:m$=""5126  cm$="6"m$="7"q=-1+2*(m$="6"):(y+q,"")" ".02{# =,20:y,"";" ":y=y+q Im$=13 v(10 +a)<12 .05|L,40(:a:5005 m$"0"n=̧:n:5125 (y,"")="I"5125 Ln1=((y,)):m=((y,2)):n=10 *n1+m:f$(n)=(3-f$(n)) ۼ;ޯ"";y,"";y$(f$(n)):v(10 +a)=v(10 +a)-3+2*f$(n):v(n1+)=v(n1+)-3+2*f$(n):m=3-2*(a=3):p(ah,3*(a-)+m)=p(ah,3*(a-)+m)+(2*f$(n)-3)*j(m,x(n)):m ޯ"";20,28;v(10 +a);" ":a3ޯ"";21,(h$(a,n1))*4-2;v(n1+):m=3:ޯ"";19,m*3+13 ;p(ah,m+3*(a=2));" ":m )a=3ޯ"";21,2;v()  5126 o켧 p5,"";"AMERICAN FOOTBALL HEAD COACH";6,19;"by SJC DAVIES";8,4;" ADDICTIVE GAMES LTD 1986"'':97760&:9750& r`""'""''"PRESS"''" L to load a previous game"''"or ANY OTHER KEY to continue" sm$=:m$=""6003s t+m$="l":"DATA":a(24):1000 u9760 &:޼:8:d2="":n=6:d2;d$(n);"(";n;")"::f=4:d2;t$((n-)*4+f):f:n=d2=16:"","";:n z:n G"Enter division no.(1-6) ";d:d6.2~L,:6016 d>3n=̺:j$=d$(n):d$(n)=d$(n+3):d$(n+3)=j$:n:m=12 :j$=t$(m):t$(m)=t$(m+12 ):t$(m+12 )=j$:m:d=d-3 wj$=d$(d):d$(d)=d$():d$()=j$:n=4:j$=t$(n):t$(n)=t$(((d-)*4)+n):t$(((d-)*4)+n)=j$:n 5:,"";"You have chosen a team from the ";d$() %n=4:'ۼ;n;:" ";t$(n):n E"Select team number ";tn:tn4.2~L,:6030 %j$=t$(tn):t$(tn)=t$():t$()=j$ ;f=2:9750&:j=15:w1=7:9740 & w10 ,;"YOU HAVE JUST BECOME THE";11 ,;"HEAD COACH OF ";t$(,):20*O0*(O0>100d):sn= ~b(24):e(6):p(3,7):z=:n=6:d(n)=:n:wk=:ai=(*2)+:ah=-ai:2450 f=:pw="":1000 J|a3=0:m=e(a)+0-1:n=4:b(n+a2)=m8;޼;a1;t$(n+a2);" ";m:a3=a3+:a3=e(a)=m On:a3=4 Tm: |;"SCOUTING STAFF":a=(*7)+:b=-+2*(>.5):sc=sc+a*b:sc>"_"sc<"<"sc="<"+35#*(sc>"_") `"Recent Developments at the club have changed the accuracy of your scouts to ";sc;"%": (g=(*10 ):g=37700 "TRAINING METHODS"'"A new way of coaching for the ";x$(g+);"position has been suggested by the co-ordinator of the ";a$(y(g+)): r1=10 :"Your ";x$(g+);" Line up is currently as follows"':9950&:b=g*10 +(g="")g*10 +9 :f$(b)"0"m=b-g*10 :9 :r1=r1+ (b -6"","";"Do you adopt his new system ? (y/n) ";m$ 2m$"n"m$"y"7725- 7 m$="n" .5):"This change has ";(9 +186*(q=-));"had a good "'"effect" F.'"The new line up is as follows":9950& KLr1=5:b=g*10 +(g=-)g*10 +9 :f$(b)="0"7770Z Pn=̺-2*(y(g+)=3):a=q-q*(j(n,x(b))=q*g(n,g+))+(j(n,x(b))=-q):j(n,(x(b)))=j(n,x(b))+a:p(ah,(y(g+)-)*3+n)=p(ah,(y(g+)-)*3+n)+(f$(b)="2")*a:n:ot=2 U#m=b-g*10 :9 :r1=r1+ Zb d x+b=(*99c)+:f$(b)="0"7800x t(x(b))<26q=:g=(b/10 ):7760P:w$(x(b));" has made good progress"''"His figures are now"'':9950&:9955&: 't(x(b))<27+(*4)l=: i"Having taken medical advice ";'w$(x(b));" has decided to RETIRE"''"His figures were "':9955& f$(b)="2"n=̺-2*(b<10 ):p(ah,3*y(g+)-3+n)=p(ah,3*y(g+)-3+n)-j(n,x(b)):n:v(g+)=v(g+)-:v(10 +y(g+))=v(10 +y(g+))- Ls(y(+(b/10 )))=s(y(+(b/10 )))-:f$(b)="0":t(x(b))="": a=(*2.3333)+:s(a) x"FITNESS TRAINING The opportunityhas arisen for any ";a$(a);'"player to be restored to full"'"fitness":97760& f=:5102 I"","";"Enter no. of player to be restored to full strength ";b b>"c"ż>b7915 f$(b)="0"7915 #y((b/10 )+)a7915 f$(b)="3"f$(b)="1" i$(x(b))="9": v(11 )="" +n=(*99c)+:f$(n)"2"7952 ^x$((n/10 )+);" ";w$(x(n));" was injured and willmiss the next game ":9940&: @qq()=q(2)2,12 ;"OVERTIME":lp=-:9900&:b=(*2)+:2030 J'lp=-97760&:q(b)=q(b)+6 MLf="":9750&::n=310 :n,8;k$(119):n O7;4,11 ;" FINAL ";5,11 ;" SCORE ";7,10 ;s$();" ";q();9 ,10 ;s$(2);" ";q(2);:lp=-12 ,10 ;"(after overtime)" TFq(ah)>q(3-ah)b()=b()+-(wk>12 ):r="":9900& Y1q(ah)12 ) &n=99c:f$(n)="0"8145 2f$(n)="3"f$(n)="1":i$(x(n))="9":q$(x(n))="0" 6x=q$(x(n))+(f$(n)-r)*3-4:x<""x="" x<10 8110 ?g=(n/10 )+:a=(*3)+:g(a,g)=""8107 x="":g1=(j(a,x(n))""8805e" "E9760 &:l="":ot=2:b=99c:f$(b)="0"8930" ".<((t(x(b))<26)*0.5)8930" "Xl="":٥*4;"","";"CLOSE-SEASON DEVELOPMENTS"'':7810:l97760&: "b "Sv(10 ):n=99c:f$(n)>"0"v((n/10 )+)=v((n/10 )+)+ "n #9750&:f=f+160:17,"";"The College Draft is about to start.Take a last look at your squad and decide which positionsneed to be reinforced" #&8605!:a=3:5102 # 97760&:a #(Uf=9920&:k1="!":n="!"̯",":t(n)="":n:a=6:d(a)=""9205# #*8:٥*4;"Season ";sn;" COLLEGE DRAFT: Round ";a'' #-Nn=2:"Pos NAME Ag *";:n:18,"";"*- Division of College" #<>޼:8:8:m=""1616:n=16 #A+g=(*10 )+:g=49025A# #Frn,m;x$(g);" ";n$((*30)+);" ";o$((*40()+);" ";21+(*4);" ";(*4)+:n:m #L519,"";"No of picks- ";d(a)'"Position(s):-"; #Na(24):n=d(a) #PWr=p1*((*8)+17)+(p1="")*((*16)+):m=d(a):a(r)9040P# #Um:a(r)=:",";r;:n #Z$n=24:a(n)=9065i# #_Vx=16*(>.5)+3:y=(*14)+3:(y,x)=49055_# #bHm$=(y,x+10 ):m$+((y,x+12 ))>(*10 )+9055_# #d74;گ"";ޯ"";y,x-3;" DRAFTED ":n #i x=:y= #nۼ;y,x;" " #xm$=:m$=""9080x# #zm$=13 9100# #}xoy=y+(m$="6")-(m$="7"):ox=x+16*((m$="8")-(m$="5")):oy=17oy=2ox=-13 ox=35#9070n# #=y,x;" ":.02{# =,20:y=oy:x=ox:9070n# #$(y,x-2)=49080x# #q.1}L,"":b$=(y,x-2):m$=(y,x-3)+b$:m=10 :x$(m,34)=m$g=m:9110# #m #Vv(g)=9 ޯ"";21,"";"You have the maximum 9 ";x$(g);"s":9080x# #~e=((y,x+12 )):m=̺:j(m,k1)=((*g(m,g)+)*(12 -a-e)/10 ):q=2j(m,k1)=(j(m,k1)-((*7))) # j(m,k1)>g(m,g)j(m,k1)=g(m,g) #"j(m,k1)<(g(m,g)ɯ"")j(m,k1)= #4m:v(g)=v(g)+:t(k1)=((y,x+10 ))+20 #im=(*10 ):m=m+(m=""g=):b(k1-32 )=(g-)*10 +m:f$(b(k1-32 ))>"0"9120# #pf$(b(k1-32 ))="1":x(b(k1-32 ))=k1:b=7̯""-:w$(k1)=(y,x+b)+w$(k1):b:s(y(g))=s(y(g))+ #:d(a)=d(a)-:k1=k1+:d(a)>""k1<45-9060d# #k1<45-a $T}s=s()+s(2)+s():9750&:"You now have a squad of ";s'"players"'':n=̺:a$(n);" ";(s(n)>18);s(n):n $^ia=̺:s(a)>18''"You have too many in the ";a$(a):97760&:9700%:bo="":9315c$ $`a:9330r$ $c>"Player to CUT from squad ? ";p:p>99cż>p9315c$ $h 9930& $r$s<33!97760&:9400$ $wp97760&:9750&:bo=:''"Maximum squad size is 32 -So youmust CUT ";s-32 ;" players":97760& $|a=̺:9700% $}>"","";"Type No of player to cut,or 0 tosee next squad ";p $p=""a:9340|$ $ 9930& $n="":r=32 $4r=r+:t(r)=""9402$+480*(r>43+) $ n=n+:n=33!9430$ $t(n)9405$ $^m=̺:j(m,n)=j(m,r):m:t(n)=t(r):w$(n)=w$(r):x(b(r-32 ))=n:f$(b(r-32 ))="1" $ 9402$ $,9750&:8,10 ;"NEW SEASON" %esn=sn+:v(13 ):l=99c:f$(l)>"0"t(x(l))=t(x(l))+:17:f$(l)>"1"f$(l)="1" %&l:6090 %9760 &:"You have an illegal line up":2,-;"Pos No.Chosen Max.allowed"'':n=10 :n4(v(n)>f(n));x$(n);5;v(n);15;f(n) %n:97760&:5000 %z9760 &:9950&:n=7-2*a:b=h$(a,n):m=""+(b="")9 :p=10 *b+m:f$(p)="0"9730& %|" ";b;m;" ";x$(b+);" ";w$(x(p));:g=3-2*(a=3):15+g*2;j(g,x(p));:g:24;t(x(p)) &m:n: & w1,j;"";w1+,j;"": &-kq=(*7):kq=kq-2*(kq=3) &kq:kq:9 :: & kq=7:9752& &09#1;"---PRESS ANY KEY TO CONTINUE---" &1=""97771& &2".01z# =*(f4),10 : &.2~L,"": &]20-7*(m$="i"),4*(m$="i");"Wind- ";wc*5;" mph Pitch ";p$(pc+): &'n=2740(:.01z# =,n:n: &"9900&:5,5,7,9 ,5,9 ,7,"",5,5,7,9 ,5.13$(,4.18\,5,5,7,9 ,10 ,9 ,7,5,4,"",2,4,5.13$(,5.4,:n=28:a:.1}L+a-a,a+7:n: &7"","":"@",-"(",2*/3:-"@","(",2*/3:"@",-"(",/4:16,"2":14,"8":-10 ,-"8":":",106j:10 ,-"8":10 ,"":"","-":5,5:15,"":"","2":"8","":"",-"2":16,3;"SUPER";17,4;"BOWL": &9f$(p)="0"y((p/10 +))a9315c$+26*bo &Pf$(p)="0":t(x(p))="":x(p)="":s(a)=s(a)-:s=s-:9300T$+30*bo &Լf$(n)="3":b=(n/10 )+:v(b)=v(b)-:v(10 +y(b))=v(10 +y(b))-:m=3-2*(y(b)=3):p(ah,(y(b)-)*3+m)=p(ah,(y(b)-)*3+m)-j(m,x(n)):m: &&" # Pos Name R L P Ag Ft Fm": &8g=(b/10 ):r1=7:m=b-g*10 :9 : &,g=(b/10 ):m=b-g*10 :9 : &3,15;"";4,15;"";7,14;d$(,);"FC";9 ,8;ټ;("1ST ROUND PLAYOFF"wk=13 )+("CHAMPIONSHIP GAME"wk=14) &`12 ,13 ;s$();14,15;"AT";16,13 ;s$(2):97760&: '40(:3,4;"PRE-GAME RATINGS SUMMARY":n=""̼:q=4*n+4:q,6;"ON ";a$(n+):n4,16;"(Kicker ";p(ah,7);")" 'm=̺:a=p(ah,n*3+m)-p(3-ah,(-n)*3+m):q+m,4;o$(42*+m);"- You "+("trailed"a<"")+("led"aȯ"")+" by ";a:m:n:9895&:97771&:39':޼:81Q ' n=̺: &\ K!) OFFENSE DEFENSE SPECIAL TEAM  12678345 45912 30 1st2ndA5    5 Hard Good Soft MuddyGooey DENVER SAN DIEGO !_JimJoeSamStuRonRayJonSidPatTomLesKenBobTedRodGuyDanMaxArtMalVicLeeRoyDonSebTimBenHalDesIanϹ-HillOwenWoodGrayHallPughLongRiceWeirMonkTateBestCookBallDoddLambShawHartRyanDentPikeHawkRoseKiddBirdHoodFordCainDeanBrewDalyKnoxFootBoydHaigClotHuntBahrWestMannAwayHomeRushLinePassu d k!dc% #%zhp;yqt Us uvwx|u\,&$ewC# nPASS RUSH LINE PLUNGE STANDARD SHORT YARDAGEPREVENT RUSH PREVENT PASS o!Novice Rookie VeteranAll-Prog R AFC WEST AFC CENTRALAFC EAST NFC WEST NFC CENTRALNFC EAST AFC EAST = DENVER LA RAIDERS SAN DIEGO SEATTLE CINCINNATI CLEVELAND HOUSTON PITTSBURGH BUFFALO MIAMI NEW ENGLANDN.Y.JETS ATLANTA LA RAMS NEW ORLEANSS.FRANCISCOCHICAGO DETROIT GREEN BAY MINNESOTA DALLAS N.Y.GIANTS ST LOUIS WASHINGTON i K" U- K'QBRB DBLBOLTEWRDLL  RSI$!000000000000000000000000000000000$!000000000000000000000000000000000+ J DENVER   &{!nB244{MFc000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000,,I!e, cD UWVN]