GridIron2  2:2:2:53757:53754,93]:53755,248:236077\,128:236066\,0:8:8:8:8:1:"":"":"" $"t:":"GridIron2"1:"mast1" Cgridpic 쀶p+ @?z,_ -_\rWW @ pr8;| B<  pr_WQ  a O {@ 1 3E r`* r ?~ > ?@ _ J UW r W* r _@ ( ?s  @o 13eJ @ r r @ /0   D kZk5eJ@?W@ rW8 r_ /P  A  kZc5eOOOOOOhhhhhoooooh899999999999998OOOOOOhhhoooooooo899999999999998OOOOOOhhhoooooooo899999999999999OOOOOOhhhhooooooo8:::::::::::::8OOOOOOhhhhhhooohh8:::::::::::::8OOOOOOhhhhhoooooo8:::::::::::::8hhhhhhhhhhhoooooo8:::::::::::::8oooohhhhhhhoooooo899999999999998oooohhhhhhhhhhhhh899999999999998oooohhhhhhhhhhhhh8:::::::::::::8oooohhhhhhhhhhhhh8:::::::::::::8hhhhhhhhhhhhhhhhh8:::::::::::::8(((((((((((((((((8:::::::::::::8*(+((((((((((((((8::::999:::99989::9888((((8<88<:888999999999888;::9998((((8:88;;888999999999888`````````````````88::::::::::888'''''' 88::::::::::888`````````````````88::::::::::888 888:::::::::888 888888:::888888`````````````````888888:::888888`````````````````888888888888888 $$$ 888888888888888"gridcode &&6~6666 ?000>~ff~~f~`~~ff~~``~fff6>06<8<6kkkk~ffff~fff~~ff~``~ff~>0000~`~~>ffff~ff<<kkkkf<<@apWs8U G00T\ @UUUHEUUTD +UUP@UUH@@@"rl mamammmamm mmmkX D'"$E$rG#d d !q'Q 0Srqp`>B !`9$@f*T R * $Ȫ 4 HeAIB*j( xH,IJ@" "R (*(JD(*"( 8p `@'8āB C#r8T$ppp&TA>!|UUP+@H$AB`8 DUUU@#UU@@EEUUT0DH( P@ AHUUE HQQIUUBB $@IQI!q AȂDG:G!ā  !q8.\#&  ` 1(8xhUD(*"0@@HP ( `x @P$*!@!"   *""$"D@"*" #܈8000000000& DDpqA@p8 "S=U EJDBIUUT 5TUUUAa$UUPCH!UUQ"@PDA( UUH!D@UUB@ @003333333033&HHDE'$ ("8rQ=OcF LGhHCXn*PRDB ((Q@X$I (BT JD("UT@J(BTTTBDRTTP8D330333C Bw"A8w!D&1/ 7/ȉ Hl pģ$UUU ,PT" UUU R T DB8UUPDTT ( UUBJ@@@ )!!UT D$@! =================================================GFEFFEFGGFBCEEFFDEFFEECBFGDGFGFBEEEEBFGFGDECECDFCCFDCECEBBG''''''''''''''''GG''''''''''''''''''''GFE''''''''''''''''''''''EF''''''''''''''''''''''''''''''''''''''''''''''B'''#'''"''''''''EEGEFCDFDCBEͤcͬ:Gͤc' x ͬc:{(( !R&!D&ͤc!p!@@u$|} o|g|Xg}_|8??????|Hg{!`~o~gBo&~(x)))w)####!`!~o~gB~w#)###########!`!~o~gB~w#)###########!`~ (9####ɧ((:((%(;(>(A(D~5~%4~55~244YzczcmYm`8!a@w#) !a@86G,6G6G,6G:{( (((%!>2ͣ!>2ͣ!>2ͣ!>2ͣ x ɯN6#<yyy X X! NLJ# B>!]]!gik#tx!!#!! #!X X! NLJ# B>!]]!gik#tx!!#!! #!@@@@ @@@@@ x>xx>xw< w+< w< !XX2!?XX ~ !ZZ!ZZ~ :2 X<|>x>|>B< <BDDDBFBD (T @Bx>B>B< 8$(8|<<<!XX6!@w#$ gridmain lhlhnh!WELL PROTECTED PROGRAM! 0:0:0:0:0:7:53757:236099\,6:236066\,254:236077\,208 -53754,93]:53755,248 j23658j\,8:.1}L,20:21,0;5,0;"Please input your name ";Z$ $Z$<1űZ$>1521 #kPOS=0:COR=0:SP=0:PLAY=0:ENG1=0:SK1=0:MOR1=502:GAM=1 (?SM=16:TM=0:SC1=0:SC2=0:TI=0 < S=0 n<K(8):L(8):M(8):N(8):O(8) p"SEQ=61819{:QES=61820| r3CLR=63216:COL=632811:ROT=63343o xAV(30):G(30):H(30):I(30):F(30) .a$(16,20):e$(26,10 ) )190:f=116:a$(f):f 1"BUFFALO BILLS","TAMPA BUCCANEERS","ATLANTA FALCONS","DALLAS COWBOYS","ST LOUIS CARDINALS","HOUSTON OILERS","CHICAGO BEARS","LOS ANGELES RAMS","SEATTLE SEAHAWKS","PITTSBURGH STEELERS","NEW YORK GIANTS","NEW ORLEANS SAINTS","WASHINGTON REDSKINS","MIAMI DOLPHINS","GREEN BAY PACKERS","SAN FRANCISCO 49ERS" f=126:e$(f):f "DICKENSON","THEISSMANN","RIGGINS","PLUNKETT","MONTANA","JOHNSTON","WHITE","MONK","MARINO","GAULT","GREEN","MITCHELL","CARTER","ALLEN","BROWN","GRAHAM","JACKSON","KING","KENNEDY","FOUKES","RICHTER","LLOYD","GILBERT","WILLIAMS","CLAY","" lMON=250000t$ vIN=0:LO=0 LA=1000000t$ 0:0:6: ;1,0;1;"PICK YOUR LEVEL OF PLAY (15)" d3,1;"1) BEGINNER"''" 2) NOVICE"''" 3) GOOD"''" 4) PROFICIENT"''" 5) EXPERT" .2~L,30 8000@:LEV=A $LEV<1LEV>5653 0:0:CLR 00,0;0;6;"GROUP ONE" ]A=18:0:4;A,3;A;5;A,7;A$(A):.05|L,A:A 110 ,0;6;0;"GROUP TWO" mA=9 16:5;A+2,3;A-8;4;A+2,7;A$(A):.05|L,A:A N21,0;7;"WHICH GROUP ARE YOU TO COACH?":8000@:GR=A "GR<1GR>2720 GR=10:0:5:CLR:F=((*8)+1)+8:V$=A$(F):B=18:B*2,6;B;B*2,9 ;A$(B):.05|L,25:B GR=20:0:5:CLR:F=(*8)+1:V$=A$(F):B=9 16:B*2-16,6;B-8;B*2-16,9 ;A$(B):.05|L,25:B P21,0;7;"WHICH TEAM DO YOU WISH TO COACH?":8000@:C=A  C<1C>8760 IGR=1B$=A$(1):A$(1)=A$(C):A$(C)=B$:B$=A$(1)  VGR=2C=C+8:B$=A$(9 ):A$(9 )=A$(C):A$(C)=B$:B$=A$(9 ) H*0:0:7:1:CLR RwA=3183:A,0;7;" ":A \wA=2203:A,0;2;" ":A fMA=210 2:A,0;1;7;"* * * * * * *":A pIA=39 2:A,0;1;7;" * * * * * * " zA 21,0;2;0;"":a=1200:a:0,16-Z$/2;Z$ 2:7:1:13 ,2;"YOUR SEASON AS COACH TO THE";16,6;B$;19,6;"IS ABOUT TO BEGIN" L=125 G(L)=(*10 )+1 H(L)=(*10 )+1 &I(L)=G(L)*15000:+H(L)*100d F(L)=(*6)+1 L 7T=0:R=111 :ENG1=T+H(R):T=ENG1:R 5T=0:R=111 :SK1=T+G(R):T=SK1:R 1T=0:R=111 :U=T+I(R):T=U:R  0 *0:CLR:0:0:0 $0:0,0;"********************************":F=120:F,0;"*":F,31;"*":F:21,0;"********************************" .G7:1;2,4;"OPTION";2,22;"ENTER" 0M32 ,151:480,0:176,151:40(,0 8?5,4;"TRANSFER MARKET.......1":.05|L,5 B@7,4;"CHANGE PLAYERS' NAMES.2":.05|L,10 L@9 ,4;"CHANGE TEAM NAMES.....3":.05|L,15 VA11 ,4;"OBTAIN/PAYBACK LOAN...4":.05|L,20 jA13 ,4;"PLAY NEXT GAME........5":.05|L,25 ~A15,4;"YOUR RATING...........6":.05|L,30 =19,10 ;2;7;1;"SELECT NOW:" COL ="1"1260 ="2"1440 ="3"1680 ="4"1860D ="5"2220 ="6"9500% 1:ROT:1180 TM=1CLR:8,0;"YOU HAVE ALREADY BEEN IN THE "''"TRANSFER MARKET THIS WEEK"''"I'M SORRY BUT YOU CANNOT MAKE"''"ANY MORE TRANSACTIONS":F=1400:F:1040 MON300000uCLR:10 ,0;"YOU HAVE TO GET SOME MONEY BEFORE YOU CAN BUY ANY PLAYERS":F=1250:F:1040 #CLR:2:2:7:  9610% 71:0,67C:248,0:0 (Y20,0;"ENTER NO. OF THE RESERVE YOU WISH TO SELL OR ~0~ TO CONTINUE":SE 2SE<12 SE>020,0;"NO. ";SE;" IS A PLAYING MEMBER NOT A RESERVE ":F=1200:F:1320( <SE=01040 FSE>161320( KMON=MON+I(SE) PtV(26)=V(SE):E$(26)=E$(SE):G(26)=G(SE):H(26)=H(SE):I(26)=I(SE):F(26)=F(SE) Z1:0,4;"PLAYER SK EN FO VALUE" dF=1726:F-15,0;F;F-15,3;E$(F);F-15,16;G(F);F-15,19;H(F);F-15,22;F(F);F-15,25;I(F):V(F)>0F-15,14;"I" nF:15,0;"ENTER THE NUMBER OF THE PLAYER YOU WISH TO BUY ":BU:BU<17BU>271390n xMON251510 F=01040 L19,0,,,,,,19,0;"PRESENT NAME IS ";E$(F);" " 120,0;" " 321,0;"ENTER NEW NAME (MAX 10 CHARS)" O$ VO$>10 21,0;1;" TOO MANY LETTERS. TRY AGAIN":1550 "19,0;" ":21,0;" ":19,0;"NEW NAME IS ";O$ , E$(F)=O$ 6F>13 1620T @F+1,4;E$(F) J 1630^ TF-12 ,18;E$(F) ^.21,0;"ANY MORE CHANGES ? (Y/N)" hO$ rO$="N"1040 |O$="Y"1440  1040 ,0:CLR:4:0:4: 6A=116:A,0;A;A,4;A$(A):A J18,0;"ENTER THE NUMBER OF THE TEAM YOU WISH TO CHANGE. ":F "F<1F>161710 -F,4;7;1;2;A$(F) 18,0,,,, ,18,0;"PRESENT TEAM IS ";A$(F) ,20,0;"ENTER NEW NAME OF TEAM" &C$:20,0,,,,:A$(F)="" `C$>2020,0;"NAME IS TOO LONG (MAX 20 CHARS) PLEASE TRY AGAIN":1760 dA=116:A$(A)(̱C$)=C$20,0;"NAME ALREADY EXISTS,TRY AGAIN.":1760 A 20,0,,,, %20,0;"NEW NAME IS ";C$ 4W$="":Q$=" ":G=120-C$:W$=W$+Q$:G A$(F)=B$B$=C$+W$ A$(F)B$A$(F)=C$ F,4;A$(F) 221,0;"ANY MORE CHANGES (Y/N) ":C$ &C$="N"1040 0C$="Y"1680 : 1040 N#CLR:5:5:0: XL0,0;"DO YOU WISH TO OBTAIN A LOAN OR"''"PAY SOME MONEY BACK?" b.03{u\,10 l7''" ENTER (1) FOR A LOAN OR"''" (2) TO PAYBACK" v.03{u\,15 8000@:D=A D=11960 D=22090*  1920 .:2,6;"FINANCIAL STATEMENT" "4,8;"BALANCE $";MON (6,1;"LOAN AVAILABLE $";LA %8,4;"AMOUNT OWED $";LO qLA014,0;"YOUR CREDIT LIMIT IS $1,000,000"''"YOU CANNOT BORROW ANY MORE MONEY":2050 414,0;"HOW MUCH DO YOU WISH TO BORROW" "$";E:E<02010 E>LA14,0;" ":14,0;"$";E;" IS TOO MUCH."::"YOU MAY HAVE $";LA::"PLEASE TRY AGAIN":E=0:2010 GA=10 12 :A,0;" ":A <14,0;"THE BANK HAS GRANTED YOUR LOAN OF $";E #A=010 :.1}L,A:A  MON=MON+E:LO=LO+E:LA=LA-E F=1100d:F  1040 *.:0,6;"FINANCIAL STATEMENT" 4"4,8;"BALANCE $";MON >%6,4;"AMOUNT OWED $";LO ?{MON014,4;"YOU HAVE NOT GOT ANY MONEY TO REPAY YOUR LOAN":F=1250:F:1040 CFLO014,4;"YOU DO NOT OWE ANY MONEY":2180 H314,0;"HOW MUCH DO YOU WISH TO REPAY" R0"$";D$:D$<480ůD$>5792130R SE=D$ \3E>LO14,0;"YOU DONT OWE THAT MUCH", fbE>LOF=1250:F:14,0;"PLEASE TRY AGAIN ":E=0:2130R pMON=MON-E:LA=LA+E:LO=LO-E zY18,0;"OK YOU HAVE PAYED BACK $";E;20,0;"AND YOU NOW OWE $";LO $F=1150:F:1040  80:0:9 :CLR:GR=2S=8 X,Y 1,7,8,2,5,3,6,4,1,5,3,7,2,6,4,8,1,2,3,4,5,6,7,8,1,3,6,8,2,4,5,7,1,6,8,3,5,2,7,4,1,8,5,4,7,2,6,3,1,4,7,6,3,2,8,5 1,5,6,2,7,3,8,4,1,6,2,5,3,8,4,7,1,7,2,8,3,5,4,6,1,4,6,7,5,8,2,3,1,8,3,6,4,5,2,7,1,3,7,5,8,6,4,2,1,2,6,5,8,7,4,3 MOR2=((*502)+10 *LEV):SK2=((*502)+10 *LEV):ENG2=((*502)+10 *LEV):RA2=((MOR2+SK2+ENG2)/3) 7T=0:R=111 :ENG1=T+H(R):T=ENG1:R 5T=0:R=111 :SK1=T+G(R):T=SK1:R 1T=0:R=111 :U=T+I(R):T=U:R RA1=((MOR1+SK1+ENG1)/3):5,7;"MORALE.....";MOR1:6,7;"SKILL......";SK1;7,7;"ENERGY.....";ENG1;9 ,7;"RATING.....";1;RA1 =3,4;1;A$(X+S);12 ,4;A$(Y+S) 8.1}L,5:.2~L,10 :.3,15 ,1,9 ;1;"MATCH NO. ";GAM 14,7;"MORALE.....";MOR2;15,7;"SKILL......";SK2;16,7;"ENERGY.....";ENG2;18,7;"RATING.....";1;RA2 .<21,5;"ANY KEY TO CONTINUE":10 :0 /$TI=1TI=0:2470 8CLR = TM=0 B}4,0;"DO YOU WISH TO"''" (1) PLAY YOUR MATCH"''" (2) CHANGE YOUR TEAM, OR"''" (3) SEE YOUR TEAMS STATISTICS" LH.1}L,30:8000@:DE=A:DE<1DE>32380L VDE=12470 `DE=22430~ jDE=3CLR:2300 tCLR:2370B ~CLR:9610% 71:0,67C:248,0:0 Y20,0;"ENTER NO. OF THE RESERVE YOU WISH TO PLAY OR ~0~ TO CONTINUE":SE SE=0CLR:2370B SE<12 SE>020,0;"NO. ";SE;" IS A PLAYING MEMBER NOT A RESERVE ":F=1200:F:2442 SE>162442 Z20,0;"WHAT NO. PLAYER DO YOU WANT TO DROP FROM THE TEAM ":DR DR<1DR>11 20,0;"NUMBER ";DR;" IS NOT A PLAYING MEMBER. ":F=1200:F:2445 3G(26)=G(DR):G(DR)=G(SE):G(SE)=G(26) 3H(26)=H(DR):H(DR)=H(SE):H(SE)=H(26) V(26)=V(DR):V(DR)=V(SE):V(SE)=V(26):I(26)=I(DR):I(DR)=I(SE):I(SE)=I(26):F(26)=F(DR):F(DR)=F(SE):F(SE)=F(26) 9E$(26)=E$(DR):E$(DR)=E$(SE):E$(SE)=E$(26) CLR:9610% 71:0,67C:248,0:0 O20,0;"PRESS ~C~ TO CONTINE":="C"TI=1:CLR:2300 2455 CLR:2370B W=111 :V(W)>0CLR:10 ,0;1;E$(W);" IS INJURED AND YOU CANNOT PLAY WITH HIM.":Z=1200:Z:2430~ W:CLR `2,10 ;"MATCH NO.";GAM;0,0;1;"THE BALL GAME IS ABOUT TO BEGIN " 1 %.5,10 :.5,5 #FIN=(*RA1+RA2)/20+4 $SP=1A$(Y+S)=V$:A$(X+S)=B$ A=(*RA2/4) B=(*RA1/4) A>B2503 B>A4000 2480 o0:6:CLR:10 ,8;"GO FOR TOUCHDOWN":FGH=((*6)+1):10 :100d @FGH=1SEQ,2:K9=QES:SC1=SC1+7:2599' /FGH=2SEQ,3:K9=QES:2599' @FGH=3SEQ,2:K9=QES:SC1=SC1+7:2599' /FGH=4SEQ,3:K9=QES:2599' @FGH=5SEQ,2:K9=QES:SC1=SC1+7:2599' #FGH=6SEQ,3:K9=QES '\100d::8,3;7;0;A$(X+S);11 ,3;1;A$(Y+S) (n5,7;"THE SCORE SO FAR":8,25;7;0;SC1;11 ,25;1;SC2 ) 100d -)PLAY=PLAY+1:PLAYFIN4200h | 2480 THE ELO Y:10 ,8;"DEFEND THAT PLAY":FGL=((*5)+1):10 :100d  @FGL=1SEQ,0:k9=QES:sc2=sc2+7:4112  /FGL=2SEQ,1:k9=QES:4112  @FGL=3SEQ,0:k9=QES:sc2=sc2+7:4112  /FGL=4SEQ,1:k9=QES:4112 @FGL=5SEQ,0:k9=QES:sc2=sc2+7:4112 /FGL=6SEQ,1:k9=QES:4112 O8,3;7;0;A$(X+S);11 ,3;1;A$(Y+S) n5,7;"THE SCORE SO FAR":8,25;7;0;SC1;11 ,25;1;SC2 @4100d:PLAY=PLAY+1:PLAYFIN4200h E 2480 hSC1SC24205m iCLR:8,4;1;7;1;"OVERTIME WILL BE PLAYED";12 ,0;"THE FIRST TEAM TO SCORE WILL WIN" jTP=14:N=17:.03{u\,5:.03{u\,5+P:N:P k 2480 mSP=16000p p*0:0:4:1:CLR q&1,12 ;1;"RESULTS" ra24,16:0,128:208,0:0,-128:-208,0 s&24,480:208,0 t&24,80P:208,0 u'24,112p:208,0 v'200,16:0,128 wa20,12 :0,136:216,0:0,-136:-216,0 xF=5184 |=F,4;7;" ";F,26;" " }MF+1,4;0;" ";F+1,26;" " ~F SC2>SC14240 FCOR=COR+1:MOR1=MOR1+(SC1-SC2):MOR1100dMOR1=100d K(X)=K(X)+3  4250 1MOR1=MOR1+(SC1-SC2):MOR10MOR1=0 K(Y)=K(Y)+3 L(X)=L(X)+SC1:L(Y)=L(Y)+SC2 M(X)=M(X)+SC2:M(Y)=M(Y)+SC1  N(X)=L(X)-M(X):N(Y)=L(Y)-M(Y) 2.03{u\,15:O(X)=L(X)/GAM:O(Y)=L(Y)/GAM 4GM=(100d+(N(X)*K(X))*10 )*(LEV/2) K5,4;7;0;A$(X+S);5,26;0;SC1 K6,4;0;7;A$(Y+S);6,26;7;SC2 F=9 184 X,Y SF,4;7;0;A$(X+S);F+1,4;0;7;A$(Y+S) &SC2=(*35#):SC1=(*35#) SC1<3SC1=4SC1=5SC1=8SC1=11 SC2<3SC2=4SC2=5SC2=8SC2=11 SC1=SC2SC1=1SC1=2SC1=4SC1=5SC1=8SC2=1SC2=2SC2=4SC2=84505 ?.05|L,30:F+1,26;0;7;SC2 SC1>SC2K(X)=K(X)+3 SC2>SC1K(Y)=K(Y)+3 L(X)=L(X)+SC1:L(Y)=L(Y)+SC2 M(X)=M(X)+SC2:M(Y)=M(Y)+SC1  N(X)=L(X)-M(X):N(Y)=L(Y)-M(Y) O(X)=L(X)/GAM:O(Y)=O(Y)/GAM MF,26;7;0;SC1;F+1,26;0;7;SC2 F 221,2;"PRESS ANY KEY FOR THE LEAGUE" 0:CLR  J=8  Q=0 R=1J-1 K(R)0V(Z)=V(Z)-1  Z  21,7;"ANY KEY TO CONTINUE":0:CLR:Z=(*(ENG1/10 )):Z1,0;1;"*********END OF SEASON**********" 54,3;"YOU FINISHED IN ";POS;" POSITION" `16,152:224,0:0,-24:-224,0:0,24 `20,148:216,0:0,-16:-216,0:0,16 POS=15550 U8,0;"UNFORTUNATELY YOU DO NOT QUALIFY"''" FOR THE SUPER-BOWL FINAL" SMON-LO<250000t$13 ,4;"YOU LOST ";250000t$-MON-LO;" DOLLARS" <250000t$-MON-LO013 ,4;"YOU LOST " SMON-LO>250000t$13 ,4;"YOU MADE ";MON-250000t$-LO;" DOLLARS" T16,0;1;"YOUR RATING AS A COACH IS ";:COR0COR=0 1;COR;"%" 521,1;"WOULD YOU LIKE A NEW GAME (Y/N)"   ="Y" ="N"0  5535 DU=-502502:GR;245,60<:GR;-222,-U:U {GR:20,10 :0,100d:255,60<:-240,557:0,-110n:240,557 >F=5118v3:15,F:-4,0:F 7:GR: T13 ,3;B$;14,10 ;"ARE";15,5;"LEAGUE CHAMPIONS" 1F=1100d:.02{# =,(*30):F  150 *1:0:0:7:CLR !3,10 ;"THIS IS THE"  1 "4,9 ;"" 25,0;" " 26,0;" " 27,0;" " 58,0;" " .2:10 ,7;" " %11 ,7;" " 012 ,3;" " 013 ,3;" " a16,2;5;B$;18,5;0;"VERSUS";20,8;2;V$ 20:COR=COR+25:SP=1:300, F=210-1 W0:F,0;1;ٺ(F/3+1);"THE SUPERBOWL IS ABOUT TO BEGIN " F:2474 p!0:0:6:CLR z)1,4;B$;3,4;V$ -1,26;SC1;3,26;SC2 #SC1>SC2COR=COR+(SC1-SC2):S$=B$ SC2>SC1S$=V$  6 -5,4;" " -6,4;" " -7,4;" " +8,5;" " +9 ,5;" " *10 ,6;" " (11 ,7;" " &12 ,8;" " $13 ,9 ;" " ,18,5;" " (17,7;" " $16,9 ;" " !15,11 ;" " 14,13 ;" " 6:0 &568,32 :148,0 &72H,40(:116t,0 %88X,480:84T,0 &104h,568:546,0 &104h,63?:47/,0 &72H,71G:112p,0 &64@,79O:128,0 &568,87W:144,0 &480,95_:160,0 '40(,111o:176,0 5,6;S$ 27,6;1;"SUPER-BOWL CHAMPIONS" .3,2:.3,5:.3,5:.3,9 :.5,12 :.3,12 :1,9 /20,3;"PRESS ANY KEY TO CONTINUE" 0:0:0,0;"* * * * * * * * * * * * * * * *":F=2202:F,0;"*";F-1,31;"*":F: 621,0;" * * * * * * * * * * * * * * * *" 5:COL !1:ROT:=""6064 CLR:5525 @!Q$=:Q$<"0"Q$>"9"8000@ A.03{u\,15:A=Q$: %*0:0:0:7:CLR %>1,0;1;"NAME: ";2,0;"TEAM: " %& 2 %0$4,0;" LEVEL" %5 3 %:$6,0;" BALANCE $" %;$7,0;" LOAN OWED $" %? 4 %D%9 ,0;" VALUE OF SQUAD " %E&10 ,0;" MORALE " %F&11 ,0;" SKILL " %G&12 ,0;" ENERGY " %N&13 ,0;" LGE POSITION " %O&14,0;" TEAM RATING " %P 5 %X&17,0;" YOUR RATING IS " %]7:1 %b1,6;1;Z$ %c2,6;1;B$ %d4,16;LEV %e6,16;MON %f7,16;LO %g7T=0:F=116:TVAL=T+I(F):T=TVAL:F %h9 ,16;TVAL %i10 ,16;MOR1 %j11 ,16;SK1 %k113 ,16;POS:12 ,16;ENG1 %l/14,16;((MOR1+SK1+ENG1)/3) %mCOR>100dCOR=100d %nCOR<0COR=0 %v17,16;COR %w/21,3;"PRESS ANY KEY TO CONTINUE" %x10 :0 %yNSP=121,0;" ":5534 %{ 1040 %/0,4;"PLAYER SK EN FO VALUE" %PO=1:Q=1SM:Q+PO,0;Q;Q+PO,3;E$(Q);" ";Q+PO,16;G(Q);" ";Q+PO,19;H(Q);Q+PO,22;F(Q);Q+PO,25;I(Q):V(Q)>0Q+PO,14;"I" %Q11 PO=2 %Q: &"gridmain"1 &"master complete."''"phew!": ~