10 OSCLI("DIR R"):PROCinfo:PROCload(0):kj%=kj:kj1%=kj1:MODE7:VDU23;8202;0;0;0;23,1,0;0;0;0;23;8,144,0;0;0;23;9,9,0;0;0;29;10,&69,0;0;0;23;11,9,0;0;0;:PROCtitle:PROCask1:PROCply:PROCselect:END
   20 DEFPROCtitle:PRINT"—ppppppppppppppppppppppppppppppppppppppp";:VDU134,157,141:PRINT"„5-s-side soccerby„s.s.shskoor'91":VDU134,157,141:PRINT"„5-A-SIDe SOCCerBY„A.S.SHAKOOr'91":PRINT"”```````````````````````````````````````":VDU28,0,24,39,4:ENDPROC
   30 DEFPROCinfo:DIM mo(8),pl$(40),sk%(40),st%(40),ctm$(6),tm$(8),tm2$(8),str%(8),str2(8),skil%(8),skil2(8),pts%(8),pts2(8),for%(8),for2(8),agst%(8),agst2(8),pld%(8),pld2(8),ENE(8),gd%(8),gd2(8),mor(8):OSCLI("FX210,1"):ENDPROC
   40 DEFPROCply:CLS
   50 PROCline2(1):VDU132,157:PRINT"†HOW MANY PLAYERS ARE PLAYING THIS ";CHR$(156):VDU132,157:PRINT"†GAME (1-4) ?                      ";CHR$(156):PROCline2(1):nm=VAL(GET$):IF nm<=0 OR nm>4 CLS:GOTO50
   60 IF nm=1 tm$(2)="":tm$(3)="":tm$(4)="" ELSE IF nm=2 tm$(3)="":tm$(4)="" ELSE IF nm=3 tm$(4)=""
   70 FOR K=1 TO nm:VDU132,157,141:PRINT"‡PLAYER†";K;"   ";CHR$(156):VDU132,157,141:PRINT"‡PLAYER†";K;"   ";CHR$(156)
   80 VDU132,157:PRINT"‡TEAM NAME : ";CHR$(156);:INPUT""tm$(K):IF tm$(K)="" GOTO80
   90 IF LEN(tm$(K))>9 PROCline2(1):VDU132,157:PRINT"‡NOTE :   ";CHR$(156)"‡THE NAME OF YOUR":PRINT"              TEAM HAS TO BE LESS":PRINT"              THAN9‡LETTERS":PROCline2(1):GOTO80 
  100 PROCline(1):NEXT:VDU132,157:PRINT"‡PRESS ANY KEY TO CONTINUE...";:GT$=GET$:CLS:ENDPROC
  110 DEFPROCline(X):VDU144+X:PRINT",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,":ENDPROC
  120 DEFPROCline2(X):PROCline(X):ENDPROC
  130 DEFPROCselect:CLS:VDU132,157,141:PRINT"‡sll the plsyers...   ";CHR$(156):VDU132,157,141:PRINT"‡All the plAyers...   ";CHR$(156):PROCline2(1):VDU132,157:PRINT"‡DO YOU WISH TO SELECT YOUR OWN   ";CHR$(156):VDU132,157:PRINT"‡SOCCER TEAM MEMBERS ? (Y/N)      ";CHR$(156):PROCline2(1):GT$=GET$
  140 IFGT$="Y" OR GT$="y" PROCyes ELSE IF GT$="N" OR GT$="n" PROCno ELSE GT$=GET$:GOTO140:ENDPROC
  150 DEFPROCyes:CLS:VDU132,157,141:PRINT"‡esch tesm is sllowed upto8‡plsyers":VDU132,157,141:PRINT"‡eACh teAM is AllOwed uptO8‡plAyers":PROCline(1)  
  160 VDU28,0,24,39,6:FOR T=1 TO nm:VDU132,157,141:PRINT"‡plsyer ";T;"‡choose team members  ";CHR$(156):VDU132,157,141:PRINT"‡plAyer ";T;"‡ChOOse teaM MeMbers  ";CHR$(156)
  170 PROCline(1):VDU132,157,141:PRINT"‡numberƒ  player's name":VDU132,157,141:PRINT"‡nUMberƒ  player's naMe":IF T=1 x1=1:x2=8:GOTO180 ELSE IF T=2 x1=9:x2=16:GOTO180 ELSE IF T=3 x1=17:x2=24:GOTO180 ELSE IF T=4 x1=25:x2=32
  180 x3=1:PROCline2(1):FOR L=x1 TO x2:VDU132,157:PRINT"   ‡";x3;TAB(10)"ƒ";:INPUT""pl$(L):x3=x3+1:NEXT:PROCline(1):VDU132,157:PRINT"‡PRESS ANY KEY TO CONTINUE..   ";CHR$(156):GT$=GET$:CLS:NEXTT:VDU26:CLS:PROCtitle:PROCrandom:ENDPROC
  190 DEFPROCno:CLS:VDU132,157,141:PRINT"‡esch tesm will hsve upto8‡plsyers ":VDU132,157,141:PRINT"‡eACh teAM will hAve uptO8‡plAyers "
  200 VDU28,0,24,39,6:FOR T=1 TO nm:PROCline2(1):VDU132,157,141:PRINT"‡plsyer ";T;"‡team : ";tm$(T);"   ";CHR$(156):VDU132,157,141:PRINT"‡plAyer ";T;"‡team : ";tm$(T);"   ";CHR$(156):PROCline(1)
  210 VDU132,157,141:PRINT"‡Numberƒ  player's name           ";CHR$(156):VDU132,157,141:PRINT"‡Numberƒ  player's name           ";CHR$(156):IF T=1 x1=1:x2=8:GOTO220 ELSE IF T=2 x1=9:x2=16:GOTO220 ELSE IF T=3 x1=17:x2=24:GOTO220 ELSE IF T=4 x1=25:x2=32 
  220 x3=1:PROCline(1):FORL=x1 TO x2:VDU132,157:PRINT"   ‡";x3;TAB(8);CHR$(156)"ƒ";pl$(L)::x3=x3+1:NEXT:PROCline(1):GT$=GET$:CLS:NEXTT   :VDU26:CLS:PROCtitle:PROCrandom:ENDPROC
  230 DEFPROCrandom:FOR T=1TO 40:sk%(T)=RND(20):st%(T)=RND(20):NEXT:FORA=5TO8:ENE(A)=RND(15)+5:str%(A)=RND(15)+5:skil%(A)=RND(10)+10:NEXT:fn=1:sn=8:PROCcal:PROCmenu:ENDPROC
  240 DEFPROCmenu:VDU26:CLS:PROCtitle:FORE%=1TO1000:NEXT
  250 OSCLI("FX21,0"):VDU132,157,141:PRINT"‡1   ";CHR$(156);"ƒsee lesgue tsble":VDU132,157,141:PRINT"‡1   ";CHR$(156);"ƒsee leAgue tAble"
  260 VDU132,157,141:PRINT"‡2   ";CHR$(156);"ƒplsy next mstch":VDU132,157,141:PRINT"‡2   ";CHR$(156);"ƒplAy next mAtch":VDU132,157,141:PRINT"‡3   ";CHR$(156);"ƒssve position":VDU132,157,141:PRINT"‡3   ";CHR$(156);"ƒsAVe pOsitiON"
  270 VDU132,157,141:PRINT"‡4   ";CHR$(156);"ƒlosd new gsme":VDU132,157,141:PRINT"‡4   ";CHR$(156);"ƒlOAd new gAMe":VDU132,157,141:PRINT"‡5   ";CHR$(156);"ƒsound is ";snd$:VDU132,157,141:PRINT"‡5   ";CHR$(156);"ƒsOuNd is ";snd$
  280 VDU132,157,141:PRINT"‡6   ";CHR$(156);"ƒchange name of computer teams":VDU132,157,141:PRINT"‡6   ";CHR$(156);"ƒChaNge NaMe Of COMputer teaMs":VDU132,157,141:PRINT"‡7   ";CHR$(156);"ƒpot luck":VDU132,157,141:PRINT"‡7   ";CHR$(156);"ƒpOt luCk"
  290 VDU132,157,141:PRINT"‡8   ";CHR$(156);"ƒstatus":VDU132,157,141:PRINT"‡8   ";CHR$(156);"ƒstatUs":IFnm=1 kj1=5
  300 HY$=GET$:IFHY$="6" OR HY$="&" PROCch ELSE IFHY$="1" OR HY$="!" PROCtable ELSE IFHY$="2" OR HY$=CHR$(34) PROCnext ELSE IFHY$="5" OR HY$="%" PROCsound:CLS:GOTO250 ELSE IFHY$="3" OR HY$="#" PROCsave ELSE IF HY$="4" OR HY$="$" PROCload(1)
  310 IF HY$="7" OR HY$="'" PROCpot ELSE IF HY$="8" OR HY$="(" PROCstatus(0) ELSE OSCLI("FX21,0"):GOTO300
  320 DEFPROCtable:CLS:VDU132,157:PRINT"‡PLEASE WAIT...    ";CHR$(156)'':VDU132,157:PRINT"‡THE POINTS SYSTEM IS BASED ON :   ";CHR$(156)''"ƒ3POINTS FOR AƒWIN"'"ƒ1POINT FOR AƒDRAW"'"ƒ0POINTS FOR AƒLOSS":FORE%=1TO8:PROCsort:NEXT:CLS
  330 CLS:VDU132,157:PRINT"‡TEAM   ";CHR$(156);TAB(10)"PL";TAB(15)"FOR";TAB(20)"AGS";TAB(25)"GD";TAB(30)"PTS":H=8:PROCline2(1)
  340 IFtm2$(H)="" AND H=0 AND check5=1:ENDPROC ELSE IFtm2$(H)="" AND H=0 PROCask ELSE IFtm2$(H)="" H=H-1:GOTO 340
  350 gd%(H)=for2(H)-agst2(H):VDU141:PRINT" ";tm2$(H);TAB(11);pld2(H);TAB(16);for2(H);TAB(21);agst2(H);TAB(26);gd%(H);TAB(31);pts2(H):VDU141:PRINT" ";tm2$(H);TAB(11);pld2(H);TAB(16);for2(H);TAB(21);agst2(H);TAB(26);gd%(H);TAB(31);pts2(H)  :H=H-1:GOTO340
  360 DEFPROCsort:h1%=1:h2%=2:FORj%=1TO8:gd2(j%)=gd%(j%):tm2$(j%)=tm$(j%):pts2(j%)=pts%(j%):str2(j%)=str%(j%):skil2(j%)=skil%(j%):for2(j%)=for%(j%):agst2(j%)=agst%(j%):pld2(j%)=pld%(j%):NEXT
  370 IF tm2$(h1%)="" GOTO390 
  380 IF pts2(h1%)>pts2(h2%) GOTO430
  390 IF h1%=8 GOTO410  
  400 h1%=h1%+1:GOTO370  
  410 IFh2%=8 check=1:ENDPROC 
  420 h2%=h2%+1:h1%=1:GOTO370 
  430 s$=tm2$(h2%):d=str2(h2%):e=skil2(h2%):f=pts2(h2%):zx=for2(h2%):xz=agst2(h2%):jh=pld2(h2%):pd=gd2(h2%):tm2$(h2%)=tm2$(h1%):str2(h2%)=str2(h1%):skil2(h2%)=skil2(h1%):pts2(h2%)=pts2(h1%):for2(h2%)=for2(h1%):agst2(h2%)=agst2(h1%):pld2(h2%)=pld2(h1%)
  440 gd2(h2%)=gd2(h1%):tm2$(h1%)=s$:str2(h1%)=d:skil2(h1%)=e:pts2(h1%)=f:for2(h1%)=zx:agst2(h1%)=xz:pld2(h1%)=jh:gd2(h1%)=pd:GOTO390
  450 DEFPROCask:PROCline2(1):VDU132,157:PRINT"‡PRESS ANY KEY TO CONTINUE....   ";CHR$(156):OSCLI("FX21,0"):GT$=GET$:CLS:PROCmenu:ENDPROC
  460 DEFPROCnext:CLS
  470 PROCline2(1)
  480 IF tm$(kj1%)="" kj1%=kj1%+1:GOTO480
  490 IF tm$(kj%)="" kj%=kj%+1:GOTO480 
  500 IF tm$(kj1%)="" kj1%=kj1%+1:GOTO480
  510 IF kj1%>8 kj%=kj%+1:kj1%=1
  520 IF kj%=8 AND kj1%>8 PROCendr
  530 IF kj%=kj1% kj1%=kj1%+1
  540 IF kj%=8 AND kj1%>8 PROCendr
  550 IF kj%>4 AND kj1%>4 AND kj%<=8 total1=str%(kj%)+skil%(kj%):total2=str%(kj1%)+skil%(kj1%):GOTO 670
  560 IFkj%<=4 OR kj1%<=4 PROCtselect(kj%,kj1%)
  570 IFgoal1>goal2 pts%(kj%)=pts%(kj%)+3:mo(kj%)=mo(kj%)+7500:mo(kj1%)=mo(kj1%)-5000
  580 IFgoal1=goal2 pts%(kj%)=pts%(kj%)+1:pts%(kj1%)=pts%(kj1%)+1:mo(kj%)=mo(kj%)+5000:mo(kj1%)=mo(kj1%)+5000  
  590 IFgoal1<goal2 pts%(kj1%)=pts%(kj1%)+3:mo(kj%)=mo(kj%)-5000:mo(kj1%)=mo(kj1%)+5000
  600 goal1=0:goal2=0:pld%(kj%)=pld%(kj%)+1:pld%(kj1%)=pld%(kj1%)+1:PRINT"…TYPEƒ*…TO RETURN TO MENU"'"…OR PRESS ANY KEY TO CONTINUE":GT$=GET$:IF GT$="*" OR GT$=":" kj1%=kj1%+1:goal1=0:goal2=0:VDU26:CLS:PROCmenu
  610 IF tm$(kj%)="" kj%=kj%+1:GOTO610 
  620 IF tm$(kj1%)="" kj1%=kj1%+1:GOTO620
  630 IF kj1%=8 kj%=kj%+1:kj1%=1:goal1=0:goal2=0:PROCtable
  640 IF kj%=8 AND kj1%>8 PROCendr
  650 CLS:VDU132,157,141:PRINT"‡next mstch...   ";CHR$(156):VDU132,157,141:PRINT"‡Next mAtCh...   ";CHR$(156):G$=INKEY$(200):IF kj1%=8:goal1=0:goal2=0:kj1%=1
  660 kj1%=kj1%+1:goal1=0:goal2=0:CLS:GOTO470:IF kj%=7 PROCmenu:ENDPROC
  670 FORX=1TO5:IF total1>total2 t1=RND(5):t2=RND(10) ELSE IF total1<total2 t1=RND(10):t2=RND(5) ELSE IF total1=total2 t1=RND(5):t2=RND(5)
  680 IF t1>t2 goal1=goal1+1:for%(kj%)=for%(kj%)+1:agst%(kj1%)=agst%(kj1%)+1 ELSE IF t1<t2 goal2=goal2+1:for%(kj1%)=for%(kj1%)+1:agst%(kj%)=agst%(kj%)+1 
  690 NEXT:check2=1:VDU141:PRINTtm$(kj%)"ƒ";goal1;TAB(15)"v‡";TAB(25);tm$(kj1%);"ƒ";goal2:VDU141:PRINTtm$(kj%)"ƒ";goal1;TAB(15)"v‡";TAB(25);tm$(kj1%);"ƒ";goal2:PROCline2(1):GOTO570:ENDPROC
  700 DEFPROCtselect(ft,sc):CLS  
  710 IF tm$(sc)="" sc=sc+1:kj1%=kj1%+1:GOTO710 ELSE IF tm$(ft)="" ft=ft+1:kj%=kj%+1:GOTO710
  720 VDU141:PRINT"‡  ";tm$(ft)"   ";CHR$(156)"‡v‡";"   "tm$(sc)"   ";CHR$(156):VDU132,157,141:PRINT"‡";tm$(ft)"   ";CHR$(156)"‡v‡";:VDU132,157:PRINT"‡"tm$(sc)"   ";CHR$(156):PROCline2(4):PRINTTAB(9);:VDU141:PRINT"‡"tm$(ft);TAB(26);tm$(sc):PRINTTAB(9);:VDU141:PRINT"‡"tm$(ft);TAB(26);tm$(sc):PROCcal
  740 IFskil%(ft)<=0 skil%(ft)=1 ELSE IF skil%(sc)<=0 skil%(sc)=1 ELSE IF skil%(ft)>20 skil%(ft)=20 ELSE IF skil%(sc)>20 skil%(sc)=20
  750 IFstr%(ft)<=0 str%(ft)=1 ELSE IF str%(sc)<=0 str%(sc)=1 ELSE IF str%(ft)>20 str%(ft)=20 ELSE IF str%(sc)>20 str%(sc)=20
  760 VDU141:PRINT"ƒSTRENGTH‡";TAB(13);str%(ft);TAB(28);str%(sc):VDU141:PRINT"ƒSTRENGTH‡";TAB(13);str%(ft);TAB(28);str%(sc):VDU141:PRINT"ƒSKILL‡";TAB(13);skil%(ft);TAB(28);skil%(sc):VDU141:PRINT"ƒSKILL‡";TAB(13);skil%(ft);TAB(28);skil%(sc)
  770 IFmor(ft)<=0 mor(ft)=1 ELSE IF mor(ft)>20 mor(ft)=20 ELSE IF mor(sc)<=0 mor(sc)=1 ELSE IF mor(sc)>20 mor(sc)=20
  780 VDU141:PRINT"ƒMORALE‡";TAB(13);mor(ft);TAB(28);mor(sc):VDU141:PRINT"ƒMORALE‡";TAB(13);mor(ft);TAB(28);mor(sc):VDU141:PRINT"ƒENERGY‡";TAB(13);ENE(ft);TAB(28);ENE(sc):VDU141:PRINT"ƒENERGY‡";TAB(13);ENE(ft);TAB(28);ENE(sc)
  790 Ove1=INT((str%(ft)+skil%(ft)+mor(ft)+ENE(ft))/4):Ove2=INT((str%(sc)+skil%(sc)+mor(sc)+ENE(sc))/4):VDU141:PRINT"ƒOVERALL‡";TAB(13);Ove1;TAB(28);Ove2:VDU141:PRINT"ƒOVERALL‡";TAB(13);Ove1;TAB(28);Ove2
  800 PROCline2(4):VDU141:PRINT"select”˙˙˙‡  ";CHR$(141)"A    ”  ˙˙  —  B   ” ˙˙":VDU141:PRINT"seleCt”˙˙˙‡  ";CHR$(141)"A    ”  ˙˙  —  B   ” ˙˙" :PROCline2(4):PRINT"       ‡PRESSS‡TO START MATCH":GT$=GET$
  810 IFGT$="A" OR GT$="a" PROCteam(ft):VDU26:CLS:PROCtitle:GOTO720 ELSE IFGT$="B" OR GT$="b" PROCteam(sc):VDU26:CLS:PROCtitle:GOTO720 ELSE IFGT$="S" OR GT$="s" PROCstart(ft,sc):ENDPROC
  820 GT$=GET$:GOTO810
  830 DEFPROCcal:fn=1:sn=8:FOR E%=1TOnm:FOR T%=fn TO sn-3:str%(E%)=str%(E%)+st%(T%):skil%(E%)=skil%(E%)+sk%(T%):NEXT:fn=sn+1:sn=sn+8:NEXT:FORE%=1TO4:str%(E%)=INT(str%(E%)/5):skil%(E%)=INT(skil%(E%)/5):ENE(E%)=INT((str%(E%)+skil%(E%))/2):NEXT:ENDPROC
  840 DEFPROCteam(def):VDU26:CLS:IF def>4 ENDPROC
  850 IFdef=1 fa=1:af=8 ELSE IF def=2 fa=9:af=16 ELSE IF def=3 fa=17:af=24 ELSE IF def=4 fa=25:af=32
  860 PRINTTAB(10);:VDU132,157,141:PRINT"‡";tm$(def)"   ";CHR$(156):PRINTTAB(10);:VDU132,157,141:PRINT"‡";tm$(def)"   ";CHR$(156) :VDU141:PRINT"    PLAYER";TAB(21)"SKILL";TAB(29)"STAMINA":VDU132,157,141:PRINT" ‡PLAYER";TAB(19)"SKILL";TAB(27)"STAMINA":PROCline2(1) 
  870 vb=1:FORhi=fa TO af-3:VDU141:PRINT"ƒ";hi;". ";pl$(hi);TAB(21)" ";sk%(hi);TAB(29)" ";st%(hi):VDU141:PRINT"ƒ";hi;". ";pl$(hi);TAB(21)" ";sk%(hi);TAB(29)" ";st%(hi):vb=vb+1:NEXT   
  880 FORhi=af-2 TO af:VDU141:PRINT"‡";hi;". ";pl$(hi);TAB(21)"‡";sk%(hi);TAB(29)"‡";st%(hi):VDU141:PRINT"‡";hi;". ";pl$(hi);TAB(21)"‡";sk%(hi);TAB(29)"‡";st%(hi):vb=vb+1:NEXT  :PROCline2(1):VDU132,157:PRINT" Firstƒ5‡PLAYERS PLAY IN THE MATCH  ";CHR$(156):INPUT"ƒNumber of†1stƒPLAYER‡:"fp
  890 IFfp=0 PROCcal:VDU26:CLS:PROCtitle:ENDPROC  
  900 IFfp<fa OR fp>af:PRINT'':GOTO850
  910 INPUT"ƒNumber of†2ndƒPLAYER‡:"sp:IFsp=0 PROCcal:VDU26:CLS:PROCtitle:ENDPROC
  920 IFsp<fa OR sp>af:PRINT'':GOTO850
  930 mx$=pl$(fp):mx=sk%(fp):mx1=st%(fp):pl$(fp)=pl$(sp):sk%(fp)=sk%(sp):st%(fp)=st%(sp):pl$(sp)=mx$:sk%(sp)=mx:st%(sp)=mx1:PROCcal:PRINT'':GOTO850:ENDPROC
  940 DEFPROCstart(ft,sc):VDU26:CLS:PROCtitle:L1=0:L2=0:SOUND &10,-15,0,10:SOUND &10,-15,10,10:SOUND &11,-15,200,10:SOUND &12,-15,200,10:SOUND &123,-15,200,10
  950 VDU141:PRINT"‡  ";tm$(ft)"   ";CHR$(156)"‡v‡";"   "tm$(sc)"   ";CHR$(156):VDU132,157,141:PRINT"‡";tm$(ft)"   ";CHR$(156)"‡v‡";:VDU132,157:PRINT"‡"tm$(sc)"   ";CHR$(156):IF str%(ft)>str%(sc) L1=L1+RND(2) ELSE IF str%(ft)<str%(sc) L2=L2+RND(2) ELSE IF str%(ft)=str%(sc) L1=L1+1:L2=L2+1
  970 IF skil%(ft)>skil%(sc) L1=L1+RND(2) ELSE IF skil%(ft)<skil%(sc) L2=L2+RND(2) ELSE IF skil%(ft)=skil%(sc) L1=L1+1:L2=L2+1
  980 IF ENE(ft)>ENE(sc) L1=L1+RND(2) ELSE IF ENE(ft)<ENE(sc) L2=L2+RND(2) ELSE IF ENE(ft)=ENE(sc) L1=L1+1:L2=L2+1
  990 IF mor(ft)>mor(sc) L1=L1+RND(4) ELSE IF mor(ft)<mor(sc) L2=L2+RND(4) ELSE IF mor(ft)=mor(sc) L1=L1+RND(2):L2=L2+RND(2)
 1000 Ove1=RND(INT(Ove1/5)):Ove2=RND(INT(Ove2/5)):L1=L1+Ove1:L2=L2+Ove2:IF L1<2 L1=2 ELSE IF L2<2 L2=2
 1010 L1=INT(L1*2):L2=INT(L2*2):SOUND0,-7,4,255:TIME=0:FORE=1TO15 STEP 0.5  :IF goal1=goal2+(RND(5)+1) PROCgoal(2) ELSE IF goal2=goal1+(RND(5)+1) PROCgoal(1)
 1020 r1=RND(L1):r2=RND(L2):IF r1 MOD r1^2=L2 PROCgoal(1) ELSE IF r2 MOD r2^2=L1 PROCgoal(2)
 1030 PRINTTAB(0,5);:PROCline2(4):VDU141:PRINT"ƒ"tm$(ft)"†";goal1;TAB(15)"v";TAB(20)"ƒ";tm$(sc);"†";goal2:VDU141:PRINT"ƒ"tm$(ft)"†";goal1;TAB(15)"v";TAB(20)"ƒ";tm$(sc);"†";goal2:PROCline2(4)
 1040 PRINTTAB(0,15);:VDU132,157,141:PRINT"‡tims :ƒ";INT(E);" minutss   ";CHR$(156):VDU132,157,141:PRINT"‡tiMe :ƒ";INT(E);"ƒMiNUtes   ";CHR$(156)
 1050 PRINT"”`````````````````````````````````````":VDU132,157,141:PRINT"‡15 minutes per match   ";CHR$(156):VDU132,157,141:PRINT"‡15 MiNUtes per MatCh   ";CHR$(156):FORD=1TO1000:NEXTD:NEXT
 1060 SOUND&10,0,0,0:PRINTTAB(0,5);:PROCline2(4):VDU141:PRINT"ƒ"tm$(ft)"†";goal1;TAB(15)"v";TAB(20)"ƒ";tm$(sc);"†";goal2:VDU141:PRINT"ƒ"tm$(ft)"†";goal1;TAB(15)"v";TAB(20)"ƒ";tm$(sc);"†";goal2:PROCline2(4)
 1070 for%(ft)=for%(ft)+goal1:agst%(ft)=agst%(ft)+goal2:for%(sc)=for%(sc)+goal2:agst%(sc)=agst%(sc)+goal1:PROCre(ft,sc):ENDPROC
 1080 DEFPROCgoal(wy):IF wy=1 goal1=goal1+1 ELSE IF wy=2 goal2=goal2+1
 1090 PRINTTAB(0,5);:PROCline2(4):VDU141:PRINT"ƒ"tm$(ft)"†";goal1;TAB(15)"v";TAB(20)"ƒ";tm$(sc);"†";goal2:VDU141:PRINT"ƒ"tm$(ft)"†";goal1;TAB(15)"v";TAB(20)"ƒ";tm$(sc);"†";goal2:PROCline2(4)
 1100 SOUND &10,-10,4,50:PROCline2(5):VDU141:PRINT"•  8989898989ƒˆGOAL!!!‰•89898989989‡":VDU141:PRINT"•  8989898989ˆGOAL!!!‰•89898989989‡":PROCline2(5):OSCLI("FX21,0"):G$=INKEY$(500):VDU11,11,11,11:PRINTSTRING$(160," "):SOUND0,-7,4,255:ENDPROC
 1110 DEFPROCre(ft,sc):IFft>4 AND goal1>goal2 str%(ft)=str%(ft)+1:skil%(ft)=skil%(ft)+1:mo(ft)=mo(ft)+10000 ELSE IFft>4 AND goal1<goal2 str%(ft)=str%(ft)-1:skil%(ft)=skil%(ft)-1:mo(ft)=mo(ft)-10000
 1120 IFsc>4 AND goal1>goal2 str%(sc)=str%(sc)+1:skil%(sc)=skil%(sc)+1:mo(sc)=mo(sc)+10000 ELSE IFsc>4 AND goal1<goal2 str%(sc)=str%(sc)-1:skil%(sc)=skil%(sc)-1:mo(sc)=mo(sc)-1
 1130 IF goal1>goal2 mor(ft)=mor(ft)+RND(3):mor(sc)=mor(sc)-RND(2) ELSE IF goal1<goal2 mor(sc)=mor(sc)+RND(3):mor(ft)=mor(ft)-RND(2)
 1140 IFsc>ft GOTO1180
 1150  IF ft=1 x1=1:x2=5 ELSE IF ft=2 x1=9:x2=13 ELSE IF ft=3 x1=17:x2=21 ELSE IF ft=4 x1=25:x2=29
 1160 FORe%=x1 TO x2:sk%(e%)=sk%(e%)+1:st%(e%)=st%(e%)-1:PROCr(e%):NEXT:FORe%=x2+1 TO x2+3:st%(e%)=st%(e%)+3:PROCr(e%):NEXT:IF sc=1 x1=1:x2=5 ELSE IF sc=2 x1=9:x2=13 ELSE IF sc=3 x1=17:x2=21 ELSE IF sc=4 x1=25:x2=29
 1170 FORe%=x1 TO x2:sk%(e%)=sk%(e%)-1:st%(e%)=st%(e%)-1:PROCr(e%):NEXT:FORe%=x2+1 TO x2+3:st%(e%)=st%(e%)+3:PROCr(e%):NEXT:ENDPROC
 1180 IF sc=1 x1=1:x2=5 ELSE IF sc=2 x1=9:x2=13 ELSE IF sc=3 x1=17:x2=21 ELSE IF sc=4 x1=25:x2=29
 1190 FORe%=x2+1 TO x2+3:st%(e%)=st%(e%)+3:PROCr(e%):NEXT:FORe%=x1 TO x2:sk%(e%)=sk%(e%)+1:st%(e%)=st%(e%)-1:PROCr(e%):NEXT:IF ft=1 x1=1:x2=5 ELSE IF ft=2 x1=9:x2=13 ELSE IF ft=3 x1=17:x2=21 ELSE IF ft=4 x1=25:x2=29
 1200 FORe%=x1 TO x2:sk%(e%)=sk%(e%)-1:st%(e%)=st%(e%)-1:PROCr(e%):NEXT:FORe%=x2+1 TO x2+3:st%(e%)=st%(e)+3:PROCr(e%):NEXT:FORy=1TO8:IF mor(y)>20 mor(sc)=20 ELSE IF mor(y)<=0 mor(y)=1
 1210 IF str%(y)>20 str%(y)=20 ELSE IF str%(y)<=0 str%(y)=1 
 1220 IF skil%(y)>20 skil%(y)=20 ELSE IF skil%(y)<=0 skil%(y)=1
 1230 NEXT:ENDPROC
 1240 DEFPROCendr:VDU26:CLS:PROCtitle:PRINTTAB(6,12);:VDU132,157,141:PRINT"‡snd of compstition   ";CHR$(156):PRINTTAB(6);:VDU132,157,141:PRINT"‡eNd Of COMpetitiON   ";CHR$(156):G$=INKEY$(200):check5=1:PROCtable:PROCline2(1):GT$=GET$:CLS
 1250 IFpts2(8)<>pts2(7) PROCwinner(8,0) ELSE IF gd2(8)>gd2(7) PROCwinner(8,0) ELSE IF gd2(8)<gd2(7) PROCwinner(7,0) ELSE IF gd2(8)=gd2(7) PROCwinner(8,7)
 1260 DEFPROCr(e):IF sk%(e)<=0 sk%(e)=1 ELSE IF sk%(e)>20 sk%(e)=20 ELSE IF st%(e)<=0 st%(e)=1 ELSE IF st%(e)>20 st%(e)=20
 1270 ENDPROC
 1280 DEFPROCsound:IF so=0 so=1:snd$="†ON":OSCLI("FX210,0"):ENDPROC ELSE IFso=1 so=0:snd$="OFF":OSCLI("FX210,1"):ENDPROC
 1290 DEFPROCwinner(x1,y1):PROCline2(1):IF y1=0 GOTO 1310
 1300 VDU141:PRINT"‚"tm2$(x1);"‡+‚";tm2$(y1):VDU141:PRINT"‚"tm2$(x1);"‡+‚";tm2$(y1):VDU141:PRINT"‡srs joint champions":VDU141:PRINT"‡Are jOiNt ChAMpiONs":PROCline2(1):GT$=GET$:PROCstatus(1):ENDPROC
 1310 VDU141:PRINT"‚"tm2$(x1);"‡srs champions !!":VDU141:PRINT"‚"tm2$(x1);"‡Are ChAMpiONs !!":PROCline2(1):GT$=GET$:PROCstatus(1):ENDPROC
 1320 DEFPROCsave:CLS:VDU132,157,141:PRINT"‡saving option   ";CHR$(156):VDU132,157,141:PRINT"‡saViNg OptiON   ";CHR$(156):VDU28,0,24,39,6:kj=kj%:kj1=kj1%
 1340 PROCline2(1):INPUT"‡NAME OF FILE :"nof$:IF LEN(nof$)>7 CLS:GOTO1340
 1350 PRINT':VDU132,157:PRINT"‡PLEASE WAIT...  ";CHR$(156):C%=OPENOUT(nof$):FORT%=1TO40:PRINT#C%,pl$(T%),sk%(T%),st%(T%):NEXT:FORT%=1TO6:PRINT#C%,ctm$(T%):NEXT
 1360 FORT%=1TO8:PRINT#C%,mo(T%),tm$(T%),tm2$(T%),str%(T%),str2(T%),skil%(T%),skil2(T%),pts%(T%),pts2(T%),for%(T%),for2(T%),agst%(T%),agst2(T%),pld%(T%),pld2(T%),ENE(T%),gd%(T%),gd2(T%),mor(T%):NEXT
 1370 PRINT#C%,so,x1,x2,e,kj,kj1,goal1,goal2,check,check2,check3,check4,check5,snd$,nm:CLOSE#0:PROCline2(1):PRINT"‚FILEƒ";nof$;"‚HAS BEEN SAVED.":PROCline2(1):GT$=GET$:VDU26:CLS:PROCmenu:ENDPROC
 1380 DEFPROCload(d4):IF d4=0 nof$="DATA":GOTO1410 ELSE CLS:VDU132,157,141:PRINT"‡loading option   ";CHR$(156):VDU132,157,141:PRINT"‡lOadiNg OptiON   ";CHR$(156):VDU28,0,24,39,6
 1390 PROCline2(1):INPUT"‡NAME OF FILE :"nof$:IF LEN(nof$)>7 CLS:GOTO1390
 1400 PRINT':VDU132,157:PRINT"‡PLEASE WAIT...  ";CHR$(156)
 1410 C%=OPENIN(nof$):FORT%=1TO40:INPUT#C%,pl$(T%),sk%(T%),st%(T%):NEXT:FORT%=1TO6:INPUT#C%,ctm$(T%):NEXT:FORT%=1TO8:INPUT#C%,mo(T%),tm$(T%),tm2$(T%),str%(T%),str2(T%),skil%(T%),skil2(T%),pts%(T%),pts2(T%),for%(T%),for2(T%),agst%(T%),agst2(T%),pld%(T%),pld2(T%)
 1420 INPUT#C%,ENE(T%),gd%(T%),gd2(T%),mor(T%):NEXT:INPUT#C%,so,x1,x2,e,kj,kj1,goal1,goal2,check,check2,check3,check4,check5,snd$,nm:IF d4=0 CLOSE#0:ENDPROC
 1430 CLOSE#0:PROCline2(1):PRINT"‚FILEƒ";nof$;"‚HAS BEEN LOADED.":PROCline2(1):GT$=GET$:VDU26:CLS:PROCmenu:ENDPROC
 1440 DEFPROCask1:PRINTTAB(0,9);:VDU141:PRINT"‚Do you wish to load from disk,":VDU141:PRINT"‚DO yOu wish tO lOad frOM disk,":VDU141:PRINT"‚aƒprevious‚game ?":VDU141:PRINT"‚aƒpreViOus‚gaMe ?"
 1450 GT$=GET$:IF GT$="Y" OR GT$="y" CLS:PROCload(1) ELSE IF GT$="N" OR GT$="n" CLS:ENDPROC ELSE IF GT$<>"" GOTO1450:ENDPROC
 1460 DEFPROCch:CLS:VDU132,157,141:PRINT"‡name of computer teams   ";CHR$(156):VDU132,157,141:PRINT"‡naMe Of COMputer teaMs   ";CHR$(156):PROCline2(1):FORy=5TO8:VDU141:PRINT"";y;"ƒ";tm$(y):VDU141:PRINT"";y;"ƒ";tm$(y):NEXT:PROCline2(1)
 1470 INPUT"†ENTER APPROPRIATE NO.:"nh:IF nh<5 OR nh>8 GOTO 1470 ELSE PROCline(2):INPUT"…NEW NAME OF TEAM :"tm$(nh):PROCline(2):OSCLI("FX21,0"):PRINT"‡PRESS ANY KEY TO CONTINUE...":GT$=GET$:CLS:PROCmenu:ENDPROC
 1480 DEFPROCpot
 1490 CLS:VDU132,157:PRINT"‡WHICH PLAYER CHOSE THIS OPTION":VDU132,157:INPUT"‡PLAYER'S No.:‚"gt:IF gt<=0 OR gt>nm GOTO1490
 1500 q=RND(31):C%=OPENIN("QUES"):FORT=1TOq:INPUT#C%,a$,b$,c$,d$,x,y,z:NEXT:CLOSE#0:PROCline(2):PRINTa$:PROCline(2):VDU141:PRINT"Option one :":VDU141:PRINT"Option one :":PRINTb$:PROCline(2):VDU141:PRINT"Option two :":VDU141:PRINT"Option two :":PRINTc$:PROCline(2):VDU141:PRINT"Option Three :":VDU141:PRINT"Option Three :":PRINTd$:PROCline(2)
 1510 GT$=GET$:IF GT$="1" OR GT$="!" on=x ELSE IF GT$="2" OR GT$=CHR$(34) on=y ELSE IF GT$="3" OR GT$="#" on=z ELSE GOTO 1510
 1520 IF gt=1 fn=1:sn=8 ELSE IF gt=2 fn=9:sn=16 ELSE IF gt=3 fn=17:sn=24 ELSE IF gt=4 fn=25:sn=32
 1530 R%=RND(5000)+5000:IF on=-1 PROCdecrease:PRINT"†You lose `";R%:mo(gt)=mo(gt)-R% ELSE IF on=1 PROCincrease:PRINT"†You gain `";R%:mo(gt)=mo(gt)+R%
 1540 PRINT"…PRESS ANY KEY TO CONTINUE...":GT$=GET$:VDU26:CLS:PROCmenu:ENDPROC
 1550 DEFPROCdecrease:R=RND(3):FOR T=fn TO sn-3:st%(T)=st%(T)-R:sk%(T)=sk%(T)-R:PROCr(T):NEXT:mor(gt)=mor(gt)-R:ENDPROC
 1560 DEFPROCincrease:R=RND(3):FOR T=fn TO sn-3:st%(T)=st%(T)+R:sk%(T)=sk%(T)+R:PROCr(T):NEXT:mor(gt)=mor(gt)+R:ENDPROC
 1570 DEFPROCstatus(m):CLS:PROCline(4):FOR T=1TO8:IF tm$(T)="" NEXT ELSE VDU141:PRINT"ƒ";T;")";tm$(T):VDU141:PRINT"ƒ";T;")";tm$(T):NEXT:PROCline(4):PRINT"…PRESS APPROPRIATE NUMBER FOR TEAM":PROCline(4)
 1580 GT$=GET$:GT=VAL(GT$):IF GT$="1" AND tm$(GT)<>"" PROCsta(1) ELSE IF GT$="2" AND tm$(GT)<>"" PROCsta(2) ELSE IF GT$="3" AND tm$(GT)<>"" PROCsta(3) ELSE IF GT$="4" AND tm$(GT)<>"" PROCsta(4)
 1590 IFtm$(GT)="" GOTO1580 ELSE IFGT<1 OR GT>8 GOTO1580 ELSE PROCsta(GT):ENDPROC
 1600 DEFPROCsta(x):CLS:VDU132,157,141:PRINT"‡";tm$(x)"   ";CHR$(156):VDU132,157,141:PRINT"‡";tm$(x)"   ";CHR$(156):PROCline(1)
 1610 PRINT"ƒINFORMATION ABOUT THE TEAM :":PROCline(1):VDU131,141:PRINT"strength :‡";str%(x):VDU131,141:PRINT"streNgth :‡";str%(x):VDU131,141:PRINT"skill    :‡";skil%(x):VDU131,141:PRINT"skill    :‡";skil%(x)
 1620 VDU131,141:PRINT"morale   :‡";mor(x):VDU131,141:PRINT"MOrale   :‡";mor(x):VDU131,141:PRINT"energy   :‡";ENE(x):VDU131,141:PRINT"eNergy   :‡";ENE(x):VDU131,141:PRINT"money    :‡`";mo(x):VDU131,141:PRINT"MONey    :‡`";mo(x):PROCline(1):GT$=GET$:IF m<>0 END ELSE VDU26:CLS:PROCmenu:ENDPROC