ZXTape! 0Created with Ramsoft MakeTZX run m o "PRINTCODE" &! "PRINTCODE"63744,1536  "CHOOSESC" a$(2,11 ,18) a(2,11 ,11 ) b$(2,25) (b(2,2) * c(2) 2d$(2,18) <d(2,7) Fe$(2,2,18) Pe(2,2,4) Zf$(2,2,18) df(2,2,4) ng$(2,5,18) xh$(2,15,18) j$(2,18) j(2,3) i(2,6) x$(7,13 ) u$(4,14) z(2,13 ) "TEAM 1 = ";y$ +y$3.1}L,.1}L:170 "TEAM 2 = ";z$ +z$3.1}L,.1}L:172 21,0;"" y$+"data" z$+"data"  n=12 b$(n) b(n,1),b(n,2) a=111 a$(n,a) b=111 a(n,a,b) b a c(n)=1  a = 16  i(n,a)  a d$(n) "a=17 ,d(n,a) 6a 7j$(n) 8a =13 9j(n,a) :a @a=12 J e$(n,a) Tb=14 ^ e(n,a,b) hb ra |a = 12  f$(n,a) b=14  f(n,a,b) b a a = 15  g$(n,a) a a= 15  h$(n,a) a a=113 &z(n,a) 0a :u$(1)="Run" Du$(2)="Pass" Nu$(3)="Prevent" Xu$(4)="Blitz" bx$(1)="Inside run" lx$(2)="Short yardage" mx$(3)="Sweep run" vx$(4)="Quick pass" x$(5)="Short pass" x$(6)="Long pass" x$(7)="Screen pass" n  ! "a$"a$()  ! "a"a()  ! "b$"b$()  ! "b"b()  ! "d$"d$()  ! "d"d()  ! "e$"e$()  ! "e"e()  ! "f$"f$()  ! "f"f()  ! "g$"g$()  ! "h$"h$()  ! "j$"j$() * ! "j"j() 4 ! "u$"u$() > ! "x$"x$() H ! "i"i() I ! "z"z() R "endzone"    7  ) KO WO Wǻ # ) #A` =  ZYzzzPRINTCODE *S\+U#!"[O\R#"(\'X1_:W:) {ҫ8O8>#_!:):;\O:*(30{ ʊ ~6Ҋ %>2>6#w>2ɯ2{sڌ >2ҫ @&o)))^:\8{=)= yW:(7= *>_???@g{8''===o>~@$= 9>W:(:= z٦wz 6w#{٦w{ 6w+#%# !{wدw#~8w>w*Q\͈ "Q\֥A 8> ''0H(z> 'Ɛ2)O0!! F({F!\w2)2 ` > ~M ͭ![:???o>~@> o= !ͭ{wدw>2ɾwЯ2[zS_S@@@@@PP(|((|(xPx(x HH HH(*D: @ @@@@ @ @(|(| @|@ @@8LTTd8 ` p0H x0HH0(|x@pH00HH0x @@0H0HH00HH0 @  @ @ ||@  @0H 8LTL@80HHxHHpHpHHp0H@@H0`PHHP`p@`@@pp@`@@@0H@XH0HHxHHHp p0P HP`PHH@@@@@pDlTDDDHhhXXH0HHHH0pHHp@@0HHHP(pHHpPH0H H0p HHHHH0DD((DDDTT(D((DD(x @x`@@@@`@@ ` `8T pp x08H8@@pHHp0H@H08HH80Hp@80@`@@@8HH8p@@pHHH ` p ` @@@P`PH` phTTTTpHHHH0HHH0pHHp@@8HH8Ph@@@0@0p@`@@0HHHH8DDD(DDDT(D((DHHH8px0@x @ PPPPPP@  @(P$ZM2CHOOSESC @# g9D~Bx~3150 (#9 ;9 ,0;"Touchback"; down=1:yds=10 def=1line=20 def=2line=80P 195 rand=(*10 )+1 /rande(def,1,3)returner=1 /rand>e(def,1,3)returner=2 y#9 ;9 ,0;e$(def,returner,1e(def,returner,4));" gets the ball on his ";kickoff;" yd-line." 5run=((*12 )+1)-((*12 )+1) 6#9 ;11 ,0;"He returns the ball .."; %dist=(run+e(def,returner,1)) 7dist>30dist=dist+(*e(def,returner,2)) def=1line=kickoff+dist *def=2line=100d-kickoff-dist )line>100dline<16700, n=0dist k=110 :k ##9 ;12 ,0;n;" "; .01z# =,.01z# = n (#9 ;13 ,0;"yards to"; jline<502#9 ;" the ";b$(1,b(1,2)b(1,1));" ";line;"-yard line." tline>502#9 ;" the ";b$(2,b(2,2)b(2,1));" ";100d-line;"-yard line." .line=502#9 ;" the halfway line." ,(*100d)+1<99c195 '#9 ;15,0;"FUMBLE!"; )n=13:.2~L,.1}L:n L#9 ;16,0;b$(off,1b(off,1));" regain poss."; =""185 6secs=20:down=1:yds=10 :205 =""195 ext=10 :8600! down=1:yds=10 off=2204 def=1:off=2 205 off=1:def=2 8100 8000@ d#9 ;3,0;b$(off,b(off,2)b(off,1));" Press 1 to review/change team."; z$= z$="1"6400 z$=""208 63,0;" "; P#9 ;3,0;b$(off,b(off,2)b(off,1));" - offense."; 3#9 ;13 ,140;"Select play (a-i)"; *#9 ;5,13 ;"Inside Run"; 1#9 ;6,13 ;"Short Yardage Run"; )#9 ;7,13 ;"Sweep Run"; *#9 ;9 ,13 ;"Quick pass"; +#9 ;10 ,13 ;"Short pass"; *#9 ;11 ,13 ;"Long pass"; ,#9 ;13 ,13 ;"Screen pass"; %#9 ;15,13 ;"Punt"; 3#9 ;17,13 ;"Field Goal Attempt"; n=16 O#9 ;4+n,120x;n;4+n,130;" : ";a$(off,i(off,n)); @a(off,n,10 )=0#9 ;n+4,230;"QB"; Ga(off,i(off,n),10 )=1#9 ;n+4,230;"RB"; Ga(off,i(off,n),10 )=2#9 ;n+4,230;"TE"; Ga(off,i(off,n),10 )=3#9 ;n+4,230;"WR"; n M#9 ;5,0;"a>";6,0;"b>";7,0;"c>"; O#9 ;9 ,0;"d>";10 ,0;"e>";11 ,0;"f>"; P#9 ;13 ,0;"g>";15,0;"h>";17,0;"i>"; "z$= #z$=""290" % z=(z$) &z=105i500 'z=104h600X (#z<104hz>96`300, ) 290" ,.1}L,.1}L 13n=517:n,0;" ";:n 6+#9 ;5,0;x$(z-96`); 7play=z ;1#9 ;13 ,140;"Select player ("; <"play<100d#9 ;"1-6)"; =!play>99c#9 ;"2-6)"; Bz$= Cz$=""322B D z=(z$) Ez=13 322B Fz=z-480 Gz<1322B Hz>6322B I$play>99cz=1322B Mtarget=i(off,z) ^-#9 ;7,0;a$(off,i(off,z)); wstrat=0 x3#9 ;13 ,140;"Select strategy ("; y"play<100d#9 ;"1) "; z#play>99c#9 ;"2-3) "; {?#9 ;9 ,0;"1>";9 ,10 ;"Draw Play"; |C#9 ;10 ,0;"2>";10 ,10 ;"Play action"; }?#9 ;11 ,0;"3>";11 ,10 ;"Shotgun"; ~C#9 ;12 ,0;"0>";12 ,10 ;"no strategy"; z$= z$=""382~ &z$="1"play<100dstrat=1 %z$="2"play>99cstrat=2 %z$="3"play>99cstrat=3 5n=9 12 :n,0;" ";:n Hn=12 16:n,0;" ";:n 7strat=1#9 ;9 ,0;"Draw play"; 9strat=2#9 ;9 ,0;"Play action"; 5strat=3#9 ;9 ,0;"Shotgun"; F#9 ;17,0;"1 to amend, else any key to continue.."; z$= z$=""397 z$="1"205 717,0;" "; 63,0;" ";  800  n=317 /n,0;" "; n 1#9 ;4,0;"Field Goal Attempt"; +off=1dist=100d-line+17 !off=2dist=line+17 S#9 ;6,0;d$(off,1d(off,7));" from ";dist;" yards." rand=1 dist>19rand=2  dist>29rand=3  dist>39'rand=4 kick=(*1) dist>557kick=1 *kickd(off,rand)#9 ;"Successful." ,kick>d(off,rand)#9 ;"Unsuccessful." &)kickd(off,rand)s(off)=s(off)+3 D 6000p E.kickd(off,rand)quarter=58150 N=""590N Oext=10 :8600! P`(mins=15mins=30mins=45-mins=60<)secs=08100:8000@ Qkickd(off,rand)132 Ryds=10 :down=1 T 199 Zn=317 [0n,0;" "; \n b##9 ;4,0;"Punt"; gF#9 ;6,0;j$((off),1j(off,3));" punts"; lEgain=j(off,1)+((*10 )+1)-((*10 )+1) mgain=(gain) poff=1line=line+gain qoff=2line=line-gain u(line>0line<100d650 x(#9 ;7,0;"Touchback"; y=""633y zoff=1line=80P {off=2line=20 ~ 693 "#9 ;" ";gain;" yards, to -" kickoff=line rand=(*10 )+1 Irand>5(line<7line>93])#9 ;"come to rest on "; erand>5((def=1line>6)(def=2line<94^))#9 ;"a fair catch on "; kline<502#9 ;"the ";b$(1,b(1,2)b(1,1));"' " ;line;"-yard line." uline>502#9 ;"the ";b$(2,b(2,2)b(2,1));"' " ;100d-line;"-yard line." -line=502#9 ;"the halfway line." rand<6670 'down=1:yds=10 :694 runner=(*10 )+1 ,runnerf(def,1,3)ret=1 ,runner>f(def,1,3)ret=2 #9 :#9 Y#9 ;11 ,0;"It is caught by ";f$(def,ret,1(f(def,ret,4))); Hgain=f(def,ret,1)+((*8)+1)-((*8)+1) 2gain>15gain=gain+(*f(def,ret,2)) 2gain>f(def,ret,2)gain=f(def,ret,2) off=1line=line-gain off=2line=line+gain gain=(gain) #9 ;" who returns it "; )line>100dline<16600 gain<1gain=1 3n=1gain:#9 ;12 ,0;n;" "; i=16:i .01z# =,.01z# = n #9 ;" yards "; wline>502#9 ;"to the ";b$(2,b(2,2)b(2,1));"' ";100d-line;" yard line." mline<502#9 ;"to the ";b$(1,b(1,2)b(1,1));"' ";line;" yard line." 0line=502#9 ;"to the halfway line." down=1:yds=10 =""694 dummy=off:off=def:def=dummy ext=10 :8600!  205 !$n=14:u(n)=0:n "n=517 #n,0;" "; $n %717,0;" "; &Cstrat=3#9 ;13 ,140;"Shotgun formation."; *d#9 ;3,0;b$(def,b(def,2)b(def,1));" choose your defensive strategy"; .A#9 ;5,0;"a>";5,15;"Run defence"; /B#9 ;7,0;"b>";7,15;"Pass defence"; 0E#9 ;9 ,0;"c>";9 ,15;"Prevent defence"; 1=#9 ;11 ,0;"d>";11 ,15;"Blitz"; >z$= ?z$=""830> Az=z$ Bz<97a830> Cz>100d830> Ddpl=z-96` E6n=512 :n,0;" ";:n H##9 ;5,0;u$(dpl) Jdpl<4860\ L.#9 ;7,0;"How many blitz?"; M##9 ;8,0;"3-8?"; Oz$= Pz$=""847O Rz=z$ Sz=z-480 Tz>8847O Uz<3847O W)#9 ;10 ,0;z;" blitz."; Xu(4)=z Z 897 \dpl>1875k ^+#9 ;5,0;"Run defense."; _6#9 ;7,0;"Key which number 1-6?"; `,#9 ;8,0;"0 for no key."; az$= bz$=""865a cz=z$ dz=z-480 e z<1z>6897 fu(1)=i(off,z) h-#9 ;9 ,0;a$(off,i(off,z)); j 897 kN#9 ;7,0;"Double cover any player?";8,0;"2-6"; l5#9 ;8,0;"0 for no double cover."; mz$= nz$=""877m oz=z$ pz=z-480 qz<2898 rz>6898 su(2)=i(off,z) u.#9 ;10 ,0;a$(off,i(off,z)); vdpl<3897 wT#9 ;12 ,0;"Double cover another player?";13 ,0;"2-6"; xz$= yz$=""888x {z=z$ |z=z-480 }z<2898 ~z>6898 .#9 ;15,0;a$(off,i(off,z)); u(3)=i(off,z) G#9 ;17,0;"Press 1 to amend, else any key to cont."; =""898 ="1"800   8100 ,(*95_)+1>90Z85004! play>99c1100L  8100 b#9 ;3,0;a$(off,target,1a(off,target,11 ));" - ";x$(play-96`); }dpl=1u(1)>0#9 ;4,140;"Key : ";a$(off,u(1),1a(off,u(1),11 )); 2#9 ;3,140;"Defense : ";u$(dpl) La(off,target,4)>0a(off,target,4)=a(off,target,4) *a(off,target,4)=0950 rand=(*100d)+1 "play=98brand=rand-5 "play=99crand=rand+5 3a(off,target,2)>30rand=rand+5 3a(off,target,1)>15rand=rand+3 "rand=rand-z(def,1)*2 rand<95_950 #9 ;"Breakaway"; .3,3 *gain=a(off,target,2)-(*25) gain<10 gain=10  970 8200 :block/tkle Ogain=a(off,target,1):a(off,target,3)>10 gain=gain+2 0gain=gain+a(off,target,1)-z(def,1) Fplay=97again=gain+((*4)+1)-((*4+1)) Fplay=98bgain=gain+((*2)+1)-((*2+1)) Fplay=99cgain=gain+((*6)+1)-((*6+1)) gain=gain+mod  dpl=1gain=gain-2 &u(1)=targetgain=gain-2 u(1)=0964 &u(1)targetgain=gain+2 2a(off,target,4)=0gain=gain-3 n=26 5i(off,n)>0gain=gain+a(off,i(off,n),5) n gain=gain-4 <(dpl=2dpl=4)strat=1gain=gain+4 0strat = 1dpl=1gain=gain-4  gain=gain ,play=98bgain<-3gain=-3 "gain<-5gain=gain+4 Tgain=0#9 ;12 ,0;"He is stopped at the line of scrimmage." Egain<0#9 ;12 ,0;"He loses ";gain;" yards." -off=1line+gain100d7000X +off=2line-gain07000X 5a(off,target,4)=a(off,target,4)-1 >a(off,target,4)<0a(off,target,4)=0 gain<1997 (#9 ;12 ,0;"He gains"; n=1gain $#9 ;12 ,40(;n;" "; i=15:i .01z# =,.01z# = n #9 ;" yards." off=1line=line+gain off=2line=line-gain  1034  gainyds1020 down=down+1 &off=1line<16500d 'off=2line>99c6500d 0ext=30+(*10 )+1:8600! yds=yds-gain =""1018  205 0ext=30+(*10 )+1:8600! down=1 yds=10 =""1028  205  rand=(*100d)+1  %rand=rand+(z(off,10 )/2)  rand<104h1000 H#9 ;14,0;"FUMBLE! recovered by ";:.2~L,.2~L 3rand=(*5)+1:#9 ;h$(def,rand); rand=(*10 )+1  ?rand>21083;:ret=ret+(*10 )+(*10 ) !!ret=(*10 )+(*10 ) $*off=1line-ret>01070. %,off=2line+ret<100d1070. & 1410 /.#9 ;15,0;"He returns it "; 2n=1ret 3i=110 :i 4.01z# =,.01z# = 5$#9 ;15,65A;n;" "; 7n 8#9 ;"yards."; 9off=1line=line-ret :off=2line=line+ret ;dummy=off:off=def:def=dummy <down=1:yds=10 >ext=20:8600! J=""1098J K 205 M-(*100d)+1>95_85004! O=((play=101e)play=102f)(dpl=4)8300l V_#9 ;3,0;x$(play-96`);3,557;" directed at ";a$(off,target); W1#9 ;4,0;"Defense : ";u$(dpl); XSu(2)0#9 ;5,0;"Dble cover : ";a$(off,u(2)); YSu(3)0#9 ;6,0;"Dble cover : ";a$(off,u(3)); Zcomp=a(off,c(off),6) [$comp=(comp+z(def,2))/2 \n=(*100d)+1 ]!u(2)=targetn=n+20 ^!u(3)=targetn=n+20 _W#9 ;9 ,0;a$(off,1,1a(off,1,11 ));" pass : "; `n<80P1130j adummy=(*5)+2 bdummy=target1130j ctarget=dummy e1#9 ;"goes towards ";a$(off,i(off,target)); ftarget=i(off,target) g1(strat=2dpl=1)comp=comp+10 h"strat=3comp=comp+5 i/strat=2dpl=1comp=comp+10 j/strat=2dpl>1comp=comp-10 l0play=103gdpl=4comp=comp+10 m play=103gplay=101e p#play=101ecomp=comp-5 q$play=102fcomp=comp-15 t!dpl=2comp=comp-10 {0dpl=3play=100dcomp=comp+10 |0dpl=3play=102fcomp=comp-20 +comp=comp+(a(off,target,9 )*2) 3u(2)=0u(3)=01170 'u(2)=targetcomp=comp-10 'u(3)=targetcomp=comp-10 8u(2)targetu(3)targetcomp=comp+5 d(off=1line>80P)comp=comp-((z(def,13 )*5))+(a(off,target,8)*3) d(off=2line<20)comp=comp-((z(def,13 )*5))+(a(off,target,8)*3) Mdown3comp=comp-((z(off,11 )+z(def,12 ))/2)/2 comp<5comp=5 -play=102fcomp>35#comp=35# rand=(*100d) =""1194 rand>comp1310 )#9 ;11 ,0;"COMPLETE!"; e(play=100d)(a(off,target,6)<11 )gain=a(off,target,6)-(*10 )+1 i(play=100d)(a(off,target,6)>10 )gain=a(off,target,6)-(*7)-(*7) i(play=101e)(a(off,target,6)<11 )gain=a(off,target,6)-(*5)+(*5) i(play=101e)(a(off,target,6)>10 )gain=a(off,target,6)-(*7)+(*7) k(play=102f)(a(off,target,6)<11 )gain=a(off,target,6)+(*10 )+(*10 ) k(play=102f)(a(off,target,6)>10 )gain=a(off,target,6)+(*15)+(*15)  gain=gain ,z(def,4)<12 gain=gain-2 ,z(def,4)>14gain=gain+2 ,off=1line+gain>99c7100 +off=2line-gain<17100  add=gain Bgain=0#9 ;" On the line of scrimmage.";:1231 Vgain<0#9 ;" ";gain;" yards behind the line of scrimmage.";:1231 #9 ;" For a gain of "; n=1gain %#9 ;11 ,107k;n;" "; i=15:i n #9 ;"yards."; break=(*100d)+1 6a(off,target,7)>30break=break+10 .z(def,4)<12 break=break-5 .z(def,4)>14break=break+5 #dpl=2break=break-20 #dpl=3break=break-40( break<80P1290  c#9 ;13 ,0;"And he's off and running!";14,0;"For a further gain of"; gain=a(off,target,7) (gain=gain-(*(a(off,target,7))) $play=100dgain=gain-10 gain<1gain=1 1 off=1gain+add+line>99c7120 /off=2line-add-gain<17120 n=1gain %#9 ;14,100d;n;" "; i=15:i n #9 ;" yards.";  gain=gain+add  off=1line=line+gain  off=2line=line-gain  (line<1line>99c6500d  gain102f1350F 2+#9 ;12 ,0;"Incomplete."; 7ext=10 :8600! <down=down+1 >=""1342> A 8100 B 8000@ C 207 Gretn=(*5)+1 H,#9 ;12 ,0;"INTERCEPTED!"; I)n=13:.3,.3:n K+play=100dgain=(*5)+5 L-play=101egain=(*10 )+10 M-play=102fgain=(*20)+20 Poff=1line=line+gain Qoff=2line=line-gain R)line<100dline>01372\ T/#9 ;" in the endzone by ";h$(def,retn); Udown=1:yds=10 Voff=1line=80P Woff=2line=20 X=""1368X Yext=10 :8600! Z 199 _#9 ;" on the "; `-line=502#9 ;"halfway line by "; aqline>502#9 ;b$(2,b(2,2)b(2,1));"' ";100d-line;" yard-line, by"; bgline<502#9 ;b$(1,b(1,2)b(1,1));"' ";line;" yard-line, by"; c*#9 ;13 ,0;h$(def,retn); dret=(*502)-gain e"play=100dret=ret-20 fret>01390n i2#9 ;14,0;"There is no return." jext=10 :8600! l=""1388l m 199 n*off=1line-ret01410 o,off=2line+ret100d1410 q.#9 ;14,0;"He returns it "; rn=1ret s$#9 ;14,65A;n;" "; ti=110 :i vn w#9 ;" yards."; xoff=1line=line-ret yoff=2line=line+ret zdummy=off:off=def:def=dummy {ext=10 :8600! |down=1:yds=10 }=""1405} ~ 205 .#9 ;15,0;"He returns it "; off=1ret=line !off=2ret=100d-line n=1ret $#9 ;15,65A;n;" "; i=15:i .01z# =,.01z# = n #9 ;" yards for a TD!"; #s(def)=s(def)+6:6000p =""1426  dummy=def  def=off  off=dummy  7200  ext=10 :8600! =""1440  132 q60,0;" "; rp#9 ;0,0;b$(1);0,120x;"v";0,170-b(2,1);b$(2) sI#9 ;1,0;"------------------------------------------"; t)#9 ;0,100d;s(1); u-#9 ;0,135;s(2);" "; y  8100 d#9 ;2,110n;"-RUSHING-";2,165;"BLK";2,190;"--PASSING--"; N#9 ;3,110n;"ave TD max ";3,190;"ave TD ***"; n=211 'a(off,n,11 )=06440( 3z$=(n+95_):#9 ;n+3,0;z$; )#9 ;n+3,10 ;a$(off,n); 1#9 ;n+3,110n;a(off,n,1); 1#9 ;n+3,130;a(off,n,3); 1#9 ;n+3,145;a(off,n,4); 1#9 ;n+3,170;a(off,n,5); #1#9 ;n+3,190;a(off,n,6); $1#9 ;n+3,215;a(off,n,8); %1#9 ;n+3,235;a(off,n,9 ); (n )n=26 **#9 ;i(off,n)+3,95_;"*"; +n 29#9 ;16,0;"Replace any players?(y/n)"; 3z$= 4z$=""64513 5z$"y"6496` 7%#9 ;17,0;"OUT -"; 9z$= :z$=""64579 ;z=z$ =z=z-95_ > n=2 ?i(off,n)=z6467C @ n=n+1 An<76463? B 64579 C/#9 ;a$(off,z,1a(off,z,11 )); F'#9 ;17,100d;"IN - "; Hz$= Iz$=""6472H Jz=z$ K0z=z-95_:z>11 z<26472H Lelem=2 Mi(off,elem)=z6472H Nelem=elem+1 Oelem<76477M P/#9 ;a$(off,z,1a(off,z,11 )); R i(off,n)=z S)n=414:n,12 ;" ";:n T717,0;" "; X 6441) a 8100 c f?#9 ;17,0;"He's tackled, for a safety, by "; gsack=(*5)+1 i#9 ;g$(def,sack); n)n=13:.1}L,.5:n p#s(def)=s(def)+2:6000p qquarter=58150 x kickoff=(*20)+20 =""6590  6000p  8100 F#9 ;3,0;b$(off,1b(off,1));" kickoff."  150 6gain=100d-kickoff Bn=1gain Dk=13:k E.01z# =,.01z# = F##9 ;12 ,0;n;" "; Gn H6#9 ;13 ,0;"yards for a touchdown!"; =""6786 #s(def)=s(def)+6:6000p dummy=off:off=def:def=dummy  7200  =""6790  132 b)#9 ;12 ,0;"He gains "; d"off=1gain=100d-line eoff=2gain=line ln=1gain m$#9 ;12 ,40(;n;" "; ni=15:i o.01z# =,.01z# = pn q#9 ;"yds." v#s(off)=s(off)+6:6000p x)#9 ;16,0;"TOUCHDOWN"; y*n=110 :.1}L,.1}L:n z=""7034z  7200  ext=20:8600! down=1:yds=10 =""7055  132 "off=1gain=100d-line off=2gain=line #9 ;" For a gain of "; n=1gain i=15:i %#9 ;11 ,107k;n;" "; n #9 ;" yards, for a TD!";  7150 &off=1gain=100d-line-add off=2gain=line-add n=1gain %#9 ;14,100d;n;" "; i=15:i n #9 ;" yards, for a TD!"; .3,.3 #s(off)=s(off)+6:6000p =""7153 721,0;" ";  7200  ext=10 :8600! =""7190  132 %721,0;" "; &quarter=58150 * 8100 ,3#9 ;4,0;"Extra point attempt."; 4rand=(*100d)+1 5$#9 ;6,0;d$(off); 6rand>98b7250R 9*#9 ;7,0;"Successful."; :#s(off)=s(off)+1:6000p Q R%#9 ;7,0;"Fails!";  Bn=1921 C0n,0;" "; Dn EFmins=75K#9 ;20,0;"MATCH DRAWN";:8005E Idown<58039g N.5,.5 OO#9 ;20,0;b$(off,1b(off,1));" lose possession." P=""8016P Q720,0;" "; T dummy=off U off=def V def=dummy Wdown=1:yds=10 gsecs-ext>08041i h\((mins=15)(mins=30)(mins=45-)(mins=60<))secs=08070 iJ#9 ;18,0;"------------------------------------------"; jJ#9 ;19,0;b$(off,1b(off,1));" on offense." knsecs>9 #9 ;19,190;"Quarter : ";quarter;20,190;"Time : ";mins;":";secs; lpsecs<10 #9 ;19,190;"Quarter : ";quarter;20,190;"Time : ";mins;":0";secs; m721,0;" "; n1down=1#9 ;21,0;"1st"; o1down=2#9 ;21,0;"2nd"; p1down=3#9 ;21,0;"3rd"; q1down=4#9 ;21,0;"4th"; r$(off=2)(yds>line)yds=line s8(off=1)(yds>100d-line)yds=100d-line t;(off=1)(yds+line=100d)#9 ;" and goal"; u9(off=2)(yds-line=0)#9 ;" and goal"; w.(off=2)(yds-line=0)8062~ x0(off=1)(yds+line=100d)8062~ |#9 ;" and ";yds;" on"; ~Gline<502off=1#9 ;" on their own ";line;"-yd line"; Qline>502off=2#9 ;" on their own ";100d-line;"-yd line"; line>502off=1#9 ;" on the ";b$(2,b(2,2)b(2,1));" ";100d-line;"-yd line"; wline<502off=2#9 ;" on the ";b$(1,b(1,2)b(1,1));" ";line;"-yd line"; 1line=502#9 ;" on the halfway line"; 0:7  mins=75K8093 mins=308081 mins=60<8091 quarter=quarter+1 secs=0 .#9 ;20,0;"END OF QUARTER"; =""8076 '20,0;" ";  8041i 1#9 ;20,0;"END OF FIRST HALF"; secs=0 quarter=quarter+1 =""8085 (t(1)=0:t(2)=0 '20,0;" "; 4#9 ;3,0;"Start of second half.";  120x is(1)=s(2)quarter=5:secs=0:t(1)=0:t(2)=0:103g ,#9 ;20,0;"END OF MATCH";  8099 n=217 0n,0;" "; n  721,0;"END OF MATCH ";  8151 9(off=1line>90Z)gain=gain-(z(def,7)) 9(off=2line<10 )gain=gain-(z(def,7)) z=(*10 )+1 'z(def,1)<3.7lz=z-2 'z(def,1)>4.5z=z+2 'off=1line<90Z82400 'off=2line>10 82400 z=z-(z(def,7)*2) z=z+a(off,target,3) 1z<58270N :3#9 ;6,0;"Runs behind a block."; ; mod=2 =k(*10 )=9 #9 ;" And breaks a tackle!":mod=mod+6+(*10 ):.1}L,.3 M U'#9 ;6,0;"Tackled."; V"mod=0-(*3)-2 W play=99cmod=mod-2 k m 8100 n_#9 ;3,0;x$(play-96`);3,502;" directed at ";a$(off,target); t%#9 ;4,0;"BLITZ!"; uW#9 ;9 ,0;a$(off,1,1a(off,1,11 ));" pass : "; w=""8311w xrand=(*100d)+1 z>rand=rand+z(def,3)+z(off,8)+(u(4)*2) rand>85U8370 rand>70F8350 rand>40(8332 1200 +#9 ;11 ,0;"Incomplete."; down=down+1 =""8336 (ext=(*10 )+10 :8600! 205 Z#9 ;11 ,0;a$(off,c(off),1a(off,c(off),11 ));" is running."; +gain=(*10 )+a(off,c(off),1) gain0gain=1 972 Z#9 ;11 ,0;a$(off,c(off),1a(off,c(off),11 ));" is running."; /#9 ;13 ,0;"He's sacked by "; rand=(*5)+1 #9 ;g$(def,rand); gain=-(*15)+1 +off=1line+gain<18400 ,off=2line-gain>99c8400 off=1line=line+gain off=2line=line-gain yds=yds-gain down=down+1 8#9 ;15,0;"He loses ";gain;" yards."; =""8389 (ext=(*10 )+10 :8600! 205 6500d !.G#9 ;4,0;b$(off,1b(off,1));" kickoff."; !6.3,.4L !=%(*100d)>5028550f! !@pen=(*2)+1 !C`pen=1#9 ;10 ,0;"PENALTY AGAINST THE OFFENSE : OFFSIDE";:loss=5 !Lapen=2#9 ;10 ,0;"PENALTY AGAINST THE OFFENSE : HOLDING";:loss=10 !M5off=1line-loss<1loss=(line/2) !NBoff=2line+loss>99closs=((100d-line)/2) !Woff=1line=line-loss !Xoff=2line=line+loss !Yyds=yds+loss !\ext=10 :8600! !c=""8547c! !e 205 !jS#9 ;10 ,0;"PENALTY AGAINST THE DEFENSE : OFFSIDE";:loss=5 !z5def=1line-loss<1loss=(line/2) !{Bdef=2line+loss>99closs=((100d-line)/2) !def=1line=line-loss !def=2line=line+loss !yds=yds-loss !yds08023W !=""8595! !ext=10 :8600! ! 205 !mins<288625! !)mins>29mins<58:8625! !)mins>59;mins<73I8625! !J#9 ;16,0;"Seconds to be added without timeout : ";ext; !Jt(off)<3#9 ;17,0;"Press 1 - timeout offense ;" !Lt(def)<3#9 ;17,122z;"Press 2 - timeout defense ;" !z$= !z$=""8614! !<z$="1"t(off)<3t(off)=t(off)+1:ext=10 !<z$="2"t(def)<3t(def)=t(def)+1:ext=10 !.1}L,.4L !down=5ext=10 !secs=secs+ext !6secs60<secs=secs-60<:mins=mins+1 !umins=28secs-ext<0secs=0:#9 ;17,160;"TWO MINUTE WARNING";:.2~L,.2~L !umins=58:secs-ext<0secs=0:#9 ;17,160;"TWO MINUTE WARNING";:.2~L,.2~L !umins=73Isecs-ext<0secs=0:#9 ;17,160;"TWO MINUTE WARNING";:.2~L,.2~L !B((mins=15)(mins=30))secs-ext<0secs=0 !R((mins=45-)(mins=60<)(mins=75K))secs-ext<0secs=0 ! !3#9 ;9 ,0;"Onside kick attempt."; "ret=(*10 )+1 "]ret<6#9 ;11 ,0;"RECOVERED BY THE ";b$(off,1b(off,1)); "]ret>5#9 ;11 ,0;"RECOVERED BY THE ";b$(def,1b(def,1)); " .3,.1}L " =""8714 " " line=502 "ret>5199 " 205 #(=a$(2,11 ,18):a(2,11 ,11 ) #)6b$(2,25):b(2,2):c(2) #**d$(2,18):d(2,7) #+:e$(2,2,18):e(2,2,4) #,:f$(2,2,18):f(2,2,4) #-<g$(2,5,18):h$(2,5,18) #.*j$(2,18):j(2,3) #/9s(2):t(2):u(4):z(2,13 ) #0,u$(4,10 ):x$(7,10 ) #1Hmins=0:secs=0:down=1:quarter=1:ext=0 #26c(1)=1:c(2)=1:comp=0 #4! "a$"a$():! "a"a() #5! "b$"b$():! "b"b() #6! "d$"d$():! "d"d() #7! "e$"e$():! "e"e() #8! "f$"f$():! "f"f() #9! "g$"g$():! "h$"h$() #: ! "j$"j$() #; ! "u$"u$() #< ! "x$"x$() #= ! "j"j() #> ! "i"i() #? ! "z"z() #Z! "PRINTCODE" #[ 100d