10 MODE7:VDU23;8202;0;0;0;:PROCinf:PROCload(0):END 20 DEFPROCTITLE:VDU 132,157,141:PRINT"‡Ljvespool managesƒbyA.S.Sbakoos":VDU 132,157,141:PRINT"‡LlVerpOOl MAnAgerƒbgA.>.>hAkOOr":VDU28,0,24,39,2:ENDPROC 30 DEFPROCinf:DIM TM$(7),TN$(40),SK(40),PL$(40),SK1(40),ST(40),PR(40),R(3),R$(1),L$(5),JU(3):WIN1=0:STAN$="":sn$="ON ":WON=0:DRW=0:LOST=0:*FX210,0 150 WAGES=100000:A$="LIVERPOOL":WEEK=1:MONEY=200000:SPENT=0:GAIN=0:CAP=25000:FLOOD=CAP*3:PRICE=3:MONEY=MONEY+(CAP*PRICE)-FLOOD-WAGES+(GAIN-SPENT):SEASON=1:REPLAY=0:FA=1:FAIN=5:FA$="":IN=1:HT=0 160 SKILL=INT(SK1(1)+SK1(2)+SK1(3)+SK1(4)+SK1(5)+SK1(6)+SK1(7)+SK1(8)+SK1(9)+SK1(10)+SK(11))/11:STAMINA=INT(ST(1)+ST(2)+ST(3)+ST(4)+ST(5)+ST(6)+ST(7)+ST(8)+ST(9)+ST(10)+ST(11))/11 170 STAN=(SKILL+STAMINA)/2:L=2:PROCTAN(STAN):MORE=0:ENDPROC 180 DEFPROCsee(s):PROCDG 190 CLS:PROCline:PRINT" † PLAYER ƒ SKILL‚STRENGTH PRICE":PROCline:PROCDG:IF PL$(12)="" AND PL$(13)="" AND PL$(14)="" GOTO 280 200 TE=33 210 IF PL$(TE)<>"" GOTO 240 220 IF PL$(TE)="" AND TE=40 :GOTO 260 230 IF PL$(TE)="" AND TE=40 :GOTO 260 240 IF TE=40 GOTO 260 250 TE=TE+1:GOTO 210 260 IF s=1 OR PL$(12)="" AND PL$(13)="" AND PL$(14)="" GOTO 280 270 DE=RND(10):IF DE=1 OR DE=10 PROCfree:ENDPROC 280 Z=0:B=1 290 IF B<9 Z=1 300 IF B>9 Z=0 310 PRINTTAB(0);B;" ";SPC(Z);PL$(B);TAB(18);SK1(B);TAB(25);ST(B);TAB(31)"`";PR(B) 320 IF B=11 GOTO 340 330 B=B+1:GOTO290 340 PROCline:Z=0:B=12 350 PRINTTAB(0);B;" ";PL$(B);TAB(18);SK1(B);TAB(25);ST(B);TAB(31)"`";PR(B):IF B=14 GOTO 370 360 B=B+1:GOTO 350 370 PROCline:PRINT"‡PRESS†RETURN‡TO EXIT BACK TO MENU":PROCline:INPUT"†NUMBER OFƒ1st PLAYER‡:"NM1:IF NM1=0 AND HT=1 CLS:ENDPROC 380 IF NM1=0 AND HT=0:VDU26:CLS:PROCTITLE:PROCMENU:ENDPROC 390 IF NM1=0 OR NM1>14 CLS:PROCMENU:ENDPROC 400 INPUT"†NUMBER OFƒ2nd PLAYER‡:"NM2 410 IF NM2=0 AND HT=0:VDU26:CLS:PROCTITLE:PROCMENU:ENDPROC 420 IF NM2=0 AND HT=1 CLS:ENDPROC 430 IF NM2=0 OR NM2>14 CLS:PROCMENU:ENDPROC 440 s=1:R$(1)=PL$(NM1):R(1)=SK1(NM1):R(2)=ST(NM1):R(3)=PR(NM1):PL$(NM1)=PL$(NM2):SK1(NM1)=SK1(NM2):ST(NM1)=ST(NM2):PR(NM1)=PR(NM2):PL$(NM2)=R$(1):SK1(NM2)=R(1):ST(NM2)=R(2):PR(NM2)=R(3):GOTO 190 450 DEFPROCMENU:PROCDG:IF MONEY<=0 OR WAGES>MONEY PROCsack:ENDPROC 470 SKILL=INT(SK1(1)+SK1(2)+SK1(3)+SK1(4)+SK1(5)+SK1(6)+SK1(7)+SK1(8)+SK1(9)+SK1(10)+SK(11))/11:STAMINA=INT(ST(1)+ST(2)+ST(3)+ST(4)+ST(5)+ST(6)+ST(7)+ST(8)+ST(9)+ST(10)+ST(11))/11:STAN=INT((SKILL+STAMINA)/2):PROCTAN(STAN) 480 PROCline:VDU129,157:PRINT"‡";A$;"‡FOOTBALL CLUB †WEEK‡";WEEK;TAB(37);CHR$(156);:PROCline:PRINT"ƒMONEY IN BANK ‡ ‡:`";MONEY;'"ƒCAPACITY OF ANFIELD ‡:";CAP;'"ƒBILL FOR FLOODLIGHTS‡ :`";FLOOD;'"ƒATTENDANCE MONEY ‡ :`";CAP*PRICE 490 PRINT"ƒWAGES FOR SEASON ";SEASON;"‡ :`";WAGES:PROCline:PRINT':PROCline 500 VDU132,157:PRINT"‡TRANSFER MARKET ";CHR$(156);TAB(22);CHR$(132);CHR$(157)"‡TEAM ";CHR$(156):PROCline:PRINT"ƒMONEY SPENT ‡:`";ABS(SPENT);TAB(24)"ƒSKILL‡ ‡:";INT(SKILL);'"ƒMONEY GAINED ‡:`";GAIN;TAB(24)"ƒSTRENGTH‡:";INT(STAMINA):PROCline 510 VDU 28,0,24,39,20:PRINT"‡*†-SAVE GAME ‡ ?†-LOAD GAME"'"‡T†-SEE TEAM SQUAD ‡B†-BUY A PLAYER"'"‡P†-PLAY NEXT MATCH ‡C†-SELL A PLAYER"'"‡N†-SOUND†";sn$;TAB(21)"‡S†-STATUS" 520 IN$=GET$:IF IN$="B" OR IN$="b" PROCin:PROCbuy:ENDPROC ELSE IF IN$="C" OR IN$="c" PROCin:PROCsell:ENDPROC ELSE IF IN$="n" OR IN$="N" PROCsound ELSE IF IN$="T" OR IN$="t" PROCin:PROCsee(2):ENDPROC ELSE IF IN$="P" OR IN$="p" PROCin:PROCplay:ENDPROC 530 IF IN$="S" OR IN$="s" PROCin:PROCstatus(2):ENDPROC ELSE IF IN$="*" OR IN$=":" PROCsave ELSE IF IN$="?" OR IN$="/" PROCload(1) 540 GOTO520:ENDPROC 550 DEFPROCplay:CLS:PRINT:IF WEEK=FAIN AND IN=1 AND REPLAY=1 GOTO 570 560 IF WEEK=FAIN AND IN=1 PROCFA 570 PRINTTAB(5);CHR$(132);CHR$(157);CHR$(141)"‡MATCH OF THE DAY - LIVE ";CHR$(156):PRINTTAB(5);CHR$(132);CHR$(157);CHR$(141)"‡MATCH OF THE DAY - LIVE ";CHR$(156):PROCline:VDU 13,129,141:PRINT"LIVERPOOL ‡v ";TN$(L) 580 VDU129,141:PRINT"LIVERPOOL ‡v ";TN$(L):PROCline:VDU 28,0,24,39,9:PROCp(L):ENDPROC 590 DEFPROCp(LX):PROCgl:PRINT"LIVERPOOL ";CHR$(156):PROCgl:PRINT"ƒSKILL OF TEAM ‡:";INT(SKILL)'"ƒSTRENGTH OF TEAM ‡:";INT(STAMINA)'"ƒSTANDARD ‡:";STAN$:PROCgl 600 PROCTAN(SK(LX)):PRINTTN$(LX);" ";CHR$(156):PROCgl:PRINT"ƒSKILL OF TEAM ‡:";SK(LX)'"ƒSTANDARD ‡:";STAN$:PROCgl 610 VDU13,13,132,157:PRINT"‡PRESS ANY KEY TO CONTINUE":WE$=GET$:VDU28,0,24,39,6:CLS:GOAL1=0:GOAL2=0:TIME=0:T=2:PROCwhis 620 PRINTTAB(0,1)"";A$;"‡(";GOAL1;")";TAB(19)"‡v";TAB(23);TN$(LX);"‡(";GOAL2;")":SOUND &10,-7,7,5 630 PRINTTAB(0,15);INT(TIME/100);" MINUTES PLAYED (UNTIL 90 MINUTES)":X2=0:Y1=0:Y=0 640 JK=RND(200):IF JK<150 GOTO 700 650 X1=RND(30) 660 IF STAN=SK(LX) AND X1=STAN:GOSUB 750 670 IF X1=STAN GOAL1=GOAL1+1:PROCscore(0):GOTO700 680 IF X1=SK(LX) GOAL2=GOAL2+1:SOUND &10,-9,4,20:PROCscore(1) 690 IF TIME>=9000 PROCwhis 700 TIME=TIME+25:IF TIME>=9000 AND WEEK=FAIN AND IN=1 AND GOAL1=GOAL2:CLS:PRINTTAB(0,12);CHR$(132);CHR$(157);CHR$(141)"‡REPLAY ";CHR$(156):VDU132,157,141:PRINT"‡REPLAY ";CHR$(156):GL$=GET$:CLS:HT=1:REPLAY=1:VDU26:CLS:PROCTITLE:PROCsee(1) 710 IF TIME>=9000 AND WEEK=FAIN AND IN=1 AND GOAL1=GOAL2 MONEY=MONEY+(SK(LX)*10000):CLS:PRINT:PRINTTAB(1);CHR$(132);CHR$(157);CHR$(141)"‡FA CUP MATCH OF THE DAY - LIVE ";CHR$(156); 720 IF TIME>=9000 AND WEEK=FAIN AND IN=1 AND GOAL1=GOAL2 PRINTTAB(1);CHR$(132);CHR$(157);CHR$(141)"‡FA CUP MATCH OF THE DAY - LIVE ";CHR$(156):PROCp(ER):ENDPROC 730 IF TIME>=9000 PROCresult:ENDPROC 740 GOTO620 750 R=RND(20):IF R=1 GOAL1=GOAL1+1:PROCscore(0):RETURN 760 IF R=20 GOAL2=GOAL2+1:SOUND &10,-9,4,20:PROCscore(1):RETURN 770 IF R=10 GOAL1=GOAL1+1:PROCscore(0):GOAL2=GOAL2+1:PROCscore(1):RETURN 780 RETURN 790 ENDPROC 800 DEFPROCTAN(STAN):IF STAN=1 STAN$="RUBBISH" ELSE IF STAN=2 STAN$="PATHETIC" ELSE IF STAN=3 STAN$="VERY BAD" ELSE IF STAN=4 STAN$="NOT BAD" ELSE IF STAN=5 STAN$="AVERAGE" ELSE IF STAN=6 STAN$="OK" ELSE IF STAN=7 STAN$="GOOD" 810 IF STAN=8 STAN$="V.GOOD" ELSE IF STAN=9 STAN$="EXCELLENT" ELSE IF STAN=10 STAN$="BRILLIANT" 820 ENDPROC 830 DEFPROCscore(KL):W=RND(10)+1:IF KL=1 GOTO 850 840 PRINTTAB(0,T)"‡";PL$(W):T=T+1:SK1(W)=SK1(W)+1: 850 SOUND &10,-12,4,30:PRINTTAB(0,1)"";A$;"‡(";GOAL1;")";TAB(19)"‡v";TAB(23);TN$(LX);"‡(";GOAL2;")" 860 PRINTTAB(0,17);CHR$(132);CHR$(157)"‡PRESS ANY KEY TO CARRY ON":OP$=GET$:PRINTTAB(0,17)" " 870 ENDPROC 880 DEFPROCresult:SOUND 4,0,0,10:MORE=0:HT=0:REPLAY=0:PRINTTAB(0,17);CHR$(132);CHR$(157)"‡PRESS ANY KEY TO CARRY ON":OP$=GET$ 890 IF L=1 L=2 900 IF WEEK=FAIN GOTO 920 910 L=L+1 920 IF GOAL1>GOAL2 PROCwin:WON=WON+1:GOTO 950 930 IF GOAL1=10 SK1(E)=10 ELSE IF ST(E)>=10 ST(E)=10 ELSE IF ST(E)<=0 ST(E)=0 970 IF E=14 GOTO 990 980 E=E+1:GOTO 960 990 FOR GH=12 TO 14 1000 IF PL$(GH)<>"" ST(GH)=ST(GH)+3 1010 NEXT 1020 GAIN=0:SPENT=0 1030 IF MONEY>=250000 AND MONEY<300000:PRICE=3.1:GOTO1090 1040 IF MONEY>=300000 AND MONEY<500000:PRICE=3.2:GOTO1090 1050 IF MONEY>=500000 AND MONEY<750000:PRICE=3.3:GOTO1090 1060 IF MONEY>=1000000 AND MONEY<1500000:PRICE=3.4:GOTO1090 1070 IF MONEY>=1500000 AND MONEY<3000000:PRICE=3.5:GOTO1090 1080 IF MONEY>=3000000 PRICE=3.6 1090 WEEK=WEEK+1:FLOOD=CAP*2:MONEY=(MONEY+(CAP*PRICE)-FLOOD)+(GAIN-SPENT) 1100 IF L>=31:PROCseas:L=2 1110 VDU 26:CLS:PROCTITLE:PROCMENU:ENDPROC 1120 DEFPROCwin:E=1 1130 IF WEEK=FAIN AND FA=7 MONEY=MONEY+(SK(LX)*20000):PROCWINNER:GOTO 1170 1140 IF WEEK=FAIN MONEY=MONEY+(SK(LX)*10000):FA=FA+1:FAIN=FAIN+4:IN=1:PROCNEXT:GOTO 1170 1150 WIN1=WIN1+1 1160 IF WIN1=10 WIN1=0:CLS:PROCline:VDU132,157:PRINT"‡YOU HAVE WON THE MANAGER OF THE ":VDU 132,157:PRINT"‡MONTH AWARD.YOU GAIN `100000.":PROCline:VDU 132,157:PRINT"‡PRESS ANY KEY TO CONTINUE":DZ$=GET$:MONEY=MONEY+100000 1170 ST(E)=ST(E)-1:PR(E)=PR(E)+5000 1180 IF E=11 GOTO 1200 1190 E=E+1:GOTO 1170 1200 IF WEEK=FAIN AND IN=1 TM$(FA)=TN$(FA) 1210 E=1 1220 W=RND(11):SK1(W)=SK1(W)+1 1230 IF E>11 GOTO 1250 1240 E=E+1:GOTO 1220 1250 ENDPROC 1260 DEFPROClose 1270 IF WEEK=FAIN MONEY=MONEY+(SK(LX)*10000):IN=0:E=1:PROCOUT:GOTO 1300 1280 E=1:LOST=LOST+1 1290 IF LOST=20 PROCsack:ENDPROC 1300 ST(E)=ST(E)-1:PR(E)=PR(E)-6000 1310 IF E=11 GOTO 1330 1320 E=E+1:GOTO 1300 1330 E=1 1340 W=RND(11):SK1(W)=SK1(W)-1 1350 IF E>11 GOTO 1370 1360 E=E+1:GOTO 1340 1370 IF SKILL<=0 SKILL=0 1380 IF STAMINA<=0 STAMINA=0 1390 ENDPROC 1400 DEFPROCsound:IF sn$="ON " sn$="OFF":OSCLI("FX210,1"):GOTO 1420 1410 IF sn$="OFF" sn$="ON ":OSCLI("FX210,0") 1420 VDU26:CLS:PROCTITLE:PROCMENU:ENDPROC 1430 DEFPROCseas:SEASON=SEASON+1:FA=1:FAIN=5:IN=1 1440 WAGES=INT((PR(1)+PR(2)+PR(3)+PR(4)+PR(5)+PR(6)+PR(7)+PR(8)+PR(9)+PR(10)+PR(11)+PR(12)+PR(13)+PR(14)/14)*3) 1450 MONEY=MONEY+(CAP*PRICE)-FLOOD-WAGES+(GAIN-SPENT):CAP=CAP+15000 1460 FOR G=1 TO 7:TM$(G)="":NEXT:G=1 1470 UI=RND(2):IF UI=1 SK1(G)=SK(G)+2:ST(G)=SK(G)+2:PR(G)=PR(G)+50000 1480 SK1(G)=SK(G)-2:ST(G)=SK(G)-2:PR(G)=PR(G)-30000 1490 IF G=32 ENDPROC 1500 G=G+1:GOTO 1470 1510 ENDPROC 1520 DEFPROCfree:LE=0:IF PL$(12)="" AND PL$(13)="" LE=14:GOTO 1600 1530 IF PL$(12)="" AND PL$(14)="" LE=13:GOTO 1600 1540 IF PL$(13)="" AND PL$(14)="" LE=12:GOTO 1600 1550 IF PL$(12)="" AND PL$(13)<>"" AND PL$(14)<>"" LE=RND(2)+12:GOTO 1600 1560 IF PL$(13)="" AND PL$(12)<>"" AND PL$(14)<>"" LE=RND(2):GOTO 1580 1570 IF PL$(14)="" AND PL$(12)<>"" AND PL$(13)<>"" LE=RND(2) 1580 IF LE=1 LE=14 GOTO 1600 ELSE LE=15 1590 LE=RND(2)+11 1600 PRINTTAB(0);LE;" ";SPC(0);PL$(LE);TAB(18);SK1(LE);TAB(25);ST(LE);TAB(31)"`";PR(LE) 1610 PRINT:PROCline:PRINT"ƒ.....WANTS TO LEAVE BECAUSE HE IS A"'"ƒSUBSTITUTE !!":PROCline 1620 RE=RND(30)+1:RL=INT(PR(LE)+(SK1(LE)+ST(LE)*(10000+RND(500)))) 1630 PRINT'TN$(LE);"‡HAVE OFFERED `";RL:PRINTTAB(0,12)"…PRESSƒY…ORƒN":GR$=GET$:IF GR$="N" OR GR$="n" PROCno:ENDPROC 1640 IF GR$="Y" OR GR$="y" PROCyes(LE):ENDPROC 1650 GOTO 1630:ENDPROC 1660 DEFPROCyes(NM) 1670 TE=15:GAIN=GAIN+RL:MONEY=MONEY+RL 1680 IF PL$(TE)="" PL$(TE)=PL$(NM):SK1(TE)=SK1(NM):ST(TE)=ST(NM):PR(TE)=RL:SK1(TE)=SK1(TE)+1:ST(TE)=ST(TE)+1:PL$(NM)="":SK1(NM)=0:ST(NM)=0:PR(NM)=0:VDU26:CLS:PROCTITLE:PROCMENU:ENDPROC 1690 IF TE=40 ENDPROC 1700 TE=TE+1:GOTO 1680 1710 DEFPROCno:ST(LE)=ST(LE)-1:IF ST(LE)<=0 ST(LE)=0 1720 PR(LE)=PR(LE)-10000 1730 IF PR(LE)<=0 PR(LE)=5000 1740 PROCin:PROCMENU:ENDPROC 1750 DEFPROCsack:VDU26:CLS:PROCTITLE 1760 PRINT':VDU 132,157:PRINT"‡OH WELL....EVERYONE LOSES THEIR JOB":VDU 132,157:PRINT"‡SOONER OR LATER !!" 1770 PRINT':VDU 132,157:PRINT"‡HOPE YOU ENJOYED THE GAME!!"''"†PRESS ANY KEY TO SEE YOUR STATUS":FG$=GET$:PROCstatus(1):END:ENDPROC 1780 DEFPROCstatus(s):CLS 1790 PRINTTAB(13);CHR$(132);CHR$(157);CHR$(141)"‡STATUS ";CHR$(156):PRINTTAB(13);CHR$(132);CHR$(157);CHR$(141)"‡STATUS ";CHR$(156) 1800 VDU 28,0,24,39,5 1810 PROCline:VDU 132,157:PRINT"‡TEAM :";A$;" ";CHR$(156):PROCline:VDU 132,157:PRINT"‡SEASON : ";SEASON;" ";CHR$(156);TAB(16);CHR$(132);CHR$(157)"‡WEEK : ";WEEK;" ";CHR$(156):PROCline 1820 VDU132,157:PRINT"‡CAPACITY :";CAP;" ";CHR$(156);TAB(18);CHR$(132);CHR$(157)"‡PRICE : `";PRICE;" ";CHR$(156):PROCline:VDU132,157:PRINT"‡NEXT LEAGUE TEAM : ";CHR$(156);TN$(L);" (";SK(L);")" 1830 PROCline:VDU 132,157:PRINT"‡MONEY IN BANK :`";MONEY;" ";CHR$(156):PROCline 1840 IF IN=1 PROCCH 1850 IF IN=0 FA$="OUT" 1860 VDU132,157:PRINT"‡MATCHES†LOST‡:";LOST;" (MAX = 20) ";CHR$(156):PROCline:VDU132,157:PRINT"‡MATCHES†DRAWN‡:";DRW;" ";CHR$(156);" ";CHR$(132);CHR$(157)"†WON‡:";WON;" ";CHR$(156):PROCline 1870 SQU=PR(1)+PR(2)+PR(3)+PR(4)+PR(5)+PR(6)+PR(7)+PR(8)+PR(9)+PR(10)+PR(11)+PR(12)+PR(13) 1880 VDU 132,157:PRINT"‡VALUE OF SQUAD :`";SQU;" ";CHR$(156):PROCline 1890 VDU 132,157:PRINT"‡THE FA CUP :‡";FA$;" ";CHR$(156):PROCline 1900 IF s=1 UJ$=GET$:END 1910 UJ$=GET$:VDU26:CLS:PROCTITLE:PROCMENU:ENDPROC 1920 DEFPROCline:PRINT"•,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,":ENDPROC 1930 DEFPROCbuy:IF MORE=0 MORE=1:GOTO 1950 1940 IF MORE=1:PROCmore(1):ENDPROC 1950 PROCmore(2) 1960 E=1 1970 IF PL$(E)<>"" GOTO 1990 1980 IF PL$(E)="" GOTO 2010 1990 IF E>14 PROCfull:ENDPROC 2000 E=E+1:GOTO 1970 2010 WE=RND(3):WR=1:YU=0 2020 WX=14+RND(18) 2030 JU(WR)=WX 2040 IF WX=YU GOTO 2020 2050 IF PL$(WX)="" GOTO 2020 2060 IF SK1(WX)>10 SK1(WX)=10 ELSE IF SK1(WX)<0 SK1(WX)=0 2070 IF ST(WX)>10 ST(WX)=10 ELSE IF ST(WX)<0 ST(WX)=0 2080 PROCline:PRINT" † PLAYER ƒ SKILL‚STRENGTH PRICE" 2090 PRINTTAB(0);WX;" ";SPC(0);PL$(WX);TAB(18);SK1(WX);TAB(25);ST(WX);TAB(31)"`";PR(WX) 2100 PROCline:PRINT 2110 IF WR=WE GOTO 2130 2120 WR=WR+1:YU=WX:GOTO 2020 2130 INPUTTAB(0,18)"†ENTER NUMBER FOR PLAYER ?‡"JH 2140 IF JH=0 VDU26:CLS:PROCTITLE:PROCMENU:ENDPROC 2150 IF JH=JU(1) OR JH=JU(2) OR JH=JU(3) GOTO 2170 2160 PRINTTAB(27,18)" ":GOTO2130 2170 IF MONEY14 GOTO 2270 2260 E=E+1:GOTO 2240 2270 IF LM>2 PROCsmall:VDU26:CLS:PROCTITLE:PROCMENU:ENDPROC 2280 CLS:PROCline:PRINT" † PLAYER ƒ SKILL‚STRENGTH PRICE":PROCline:TE=33 2290 Z=0:B=1 2300 IF B<9 Z=1 2310 IF B>9 Z=0 2320 PRINTTAB(0);B;" ";SPC(Z);PL$(B);TAB(18);SK1(B);TAB(25);ST(B);TAB(31)"`";PR(B) 2330 IF B=11 GOTO 2350 2340 B=B+1:GOTO 2300 2350 PROCline:Z=0:B=12 2360 PRINTTAB(0);B;" ";PL$(B);TAB(18);SK1(B);TAB(25);ST(B);TAB(31)"`";PR(B) 2370 IF B=14 GOTO 2390 2380 B=B+1:GOTO 2360 2390 PROCline:INPUT"ƒWHICH PLAYER DO YOU WANT TO SELL ?"HG:IF HG=0 OR HG>14 VDU26:CLS:PROCTITLE:PROCMENU:ENDPROC 2400 IF PL$(HG)="" VDU26:CLS:PROCTITLE:PROCMENU:ENDPROC 2410 CLS:PROCline:RE=RND(30)+1:RL=INT(PR(HG)+(SK1(HG)+ST(HG)*(10000+RND(500)-RND(500)))) 2420 PRINT'TN$(RE);"‡HAVE OFFERED `";RL:PRINT"‡FORƒ";PL$(HG) 2430 PRINTTAB(0,10)"…PRESSƒY…ORƒN":GR$=GET$ 2440 IF GR$="N" OR GR$="n" VDU26:CLS:PROCTITLE:PROCMENU:ENDPROC 2450 IF GR$="Y" OR GR$="y" PROCyes(HG):ENDPROC 2460 GOTO2430 2470 DEFPROCsmall:CLS:PROCline:VDU132,157:PRINT"‡SORRY,YOU CAN'T SELL ANY MORE":VDU132,157:PRINT"‡PLAYERS.":PROCline:PRINT:VDU 132,157:PRINT"‡PRESS ANY KEY TO CONTINUE":DFG$=GET$:ENDPROC 2480 DEFPROCin:VDU26:CLS:PROCTITLE:ENDPROC 2490 DEFPROCmore(RF) 2500 IF RF=1 GOTO 2520 2510 RF=RND(5):IF RF=1 GOTO2520 ELSE ENDPROC 2520 PROCline:VDU 132,157:PRINT"‡THERE ARE NO PLAYERS FOR SALE !!";TAB(37);CHR$(156);:PROCline:GT$=GET$:VDU26:CLS:PROCTITLE:PROCMENU:ENDPROC 2530 DEFPROCFA:CLS:PRINT:PROCCH 2540 PRINTTAB(1);CHR$(132);CHR$(157);CHR$(141)"‡FA CUP MATCH OF THE DAY - LIVE ";CHR$(156);:PRINTTAB(1);CHR$(132);CHR$(157);CHR$(141)"‡FA CUP MATCH OF THE DAY - LIVE ";CHR$(156) 2550 ER=RND(30)+1:F=1 2560 IF TN$(ER)=TM$(F):GOTO 2550 2570 IF F=7 GOTO 2590 2580 F=F+1:GOTO 2560 2590 PRINT:VDU129,157,141:PRINTCHR$(131);FA$;" ";CHR$(156);CHR$(135);TN$(ER):VDU129,157,141:PRINTCHR$(131);FA$;" ";CHR$(156);CHR$(135);TN$(ER) 2600 PROCp(ER):HT=1:ENDPROC 2610 DEFPROCWINNER:MONEY=MONEY+100000:R=128:CLS:FA$="HOLDERS" 2620 R=R+1: 2630 SOUND &10,-15,4,5 2640 PRINTTAB(0,3);CHR$(132);CHR$(157);CHR$(141);CHR$(R)"YOU HAVE WON THE FA CUP !!!!!!!!!":PRINTCHR$(132);CHR$(157);CHR$(141);CHR$(R)"YOU HAVE WON THE FA CUP !!!!!!!!!":PRINT'"…PRESS†S…TO CARRY ON" 2650 GT$=INKEY$(5) 2660 IF GT$="S" OR GT$="s" ENDPROC 2670 IF R=135 R=128 2680 QH=1:GOTO 2620 2690 DEFPROCNEXT:CLS 2700 PRINTTAB(0,3);CHR$(132);CHR$(157);CHR$(141)"‡YOU ARE THROUGH TO THE NEXT ROUND":PRINTCHR$(132);CHR$(157);CHR$(141)"‡YOU ARE THROUGH TO THE NEXT ROUND":PRINT'"…PRESS†S…TO CARRY ON" 2710 GT$=GET$:IF GT$="S" OR GT$="s" ENDPROC 2720 GOTO 2700:ENDPROC 2730 DEFPROCOUT:CLS 2740 PRINTTAB(0,3);CHR$(132);CHR$(157);CHR$(141)"‡YOU'RE OUT OF THE CUP!! NEXT YEAR..":PRINTCHR$(132);CHR$(157);CHR$(141)"‡YOU'RE OUT OF THE CUP!! NEXT YEAR..":PRINT'"…PRESS†S…TO CARRY ON" 2750 GT$=GET$:IF GT$="S" OR GT$="s" ENDPROC 2760 GOTO 2740:ENDPROC 2770 DEFPROCCH:IF FA=1 FA$="1st ROUND" ELSE IF FA=2 FA$="2nd ROUND" ELSE IF FA=3 FA$="3rd ROUND" ELSE IF FA=4 FA$="4th ROUND" ELSE IF FA=5 FA$="QUARTER FINALS" 2780 IF FA=6 FA$="SEMI-FINALS" ELSE IF FA=7 FA$="FINAL" 2790 ENDPROC 2800 DEFPROCsave:VDU 26:CLS:PROCTITLE 2810 PRINTTAB(11);CHR$(132);CHR$(157);CHR$(141)"‡SAVING OPTION ";CHR$(156);TAB(11);CHR$(132);CHR$(157);CHR$(141)"‡SAVING OPTION ";CHR$(156) 2820 PRINT:PROCline:PRINTTAB(0,5);:PROCline:PRINTTAB(0,4);CHR$(132);CHR$(157)"‡NAME OF FILE : ";CHR$(156);:PRINTTAB(19,4);CHR$(132);CHR$(157);CHR$(135);TAB(36);CHR$(156);:INPUTTAB(22,4)""SAT$ 2830 A=OPENOUT(SAT$) 2840 FOR YU=1 TO 40:PRINT#A,TN$(YU),SK(YU),PL$(YU),SK1(YU),ST(YU),PR(YU):NEXT 2850 FOR YU=1 TO 3:PRINT#A,R(YU),JU(YU):NEXT 2860 FOR YU=1 TO 7:PRINT#A,TM$(YU):NEXT 2870 PRINT #A,R$(1),L,REPLAY:FOR YU=1 TO5:PRINT#A,L$(YU):NEXT 2880 PRINT #A,WIN1,STAN$,sn$,WON,DRW,LOST,FA,FAIN,FA$,IN,HT,WAGES,A$,WEEK,MONEY,SPENT,GAIN,CAP,FLOOD,PRICE,SEASON,SKILL,STAMINA,STAN 2890 CLOSE#0:OSCLI("ACCESS "+SAT$+" L"):VDU26:CLS:PROCTITLE:PROCMENU:ENDPROC 2900 ENDPROC 2910 DEFPROCload(V):VDU26:CLS:PROCTITLE 2911 IF V=0 GY$="DATA":V=1:GOTO2940 2920 PRINTTAB(10);CHR$(132);CHR$(157);CHR$(141)"‡LOADING OPTION ";CHR$(156);TAB(10);CHR$(132);CHR$(157);CHR$(141)"‡LOADING OPTION ";CHR$(156) 2930 PRINT:PROCline:PRINTTAB(0,5);:PROCline:PRINTTAB(0,4);CHR$(132);CHR$(157)"‡NAME OF FILE : ";CHR$(156);:PRINTTAB(19,4);CHR$(132);CHR$(157);CHR$(135);TAB(36);CHR$(156);:INPUTTAB(22,4)""GY$ 2940 A=OPENIN(GY$) 2950 FOR YU=1 TO 40:INPUT#A,TN$(YU),SK(YU),PL$(YU),SK1(YU),ST(YU),PR(YU):NEXT 2960 FOR YU=1 TO 3:INPUT#A,R(YU),JU(YU):NEXT 2970 FOR YU=1 TO 7:INPUT#A,TM$(YU):NEXT 2980 INPUT #A,R$(1),L,REPLAY:FOR YU=1 TO5:INPUT#A,L$(YU):NEXT 2990 INPUT #A,WIN1,STAN$,sn$,WON,DRW,LOST,FA,FAIN,FA$,IN,HT,WAGES,A$,WEEK,MONEY,SPENT,GAIN,CAP,FLOOD,PRICE,SEASON,SKILL,STAMINA,STAN 3000 CLOSE#0:OSCLI("ACCESS "+GY$+" "):VDU26:CLS:PROCTITLE:PROCMENU:ENDPROC 3010 DEFPROCwhis 3020 SOUND &10,-15,0,10:SOUND &11,-15,200,10:SOUND &12,-15,200,10:SOUND &123,-15,200,10:FOR TT=1 TO 1000:NEXT:ENDPROC 3030 DEFPROCDG:DG=1 3040 IF ST(DG)<=0 ST(DG)=0 ELSE IF ST(DG)>=10 ST(DG)=10 3050 IF SK1(DG)<=0 SK1(DG)=0 ELSE IF SK1(DG)>=10 SK1(DG)=10 3060 IF PL$(DG)="" AND PL$(12)<>"" PL$(DG)=PL$(12):SK1(DG)=SK1(12):ST(DG)=SK1(12):PR(DG)=PR(12):PL$(12)="":SK1(12)=0:ST(12)=0:PR(12)=0:GOTO3090 3070 IF PL$(DG)="" AND PL$(13)<>"" PL$(DG)=PL$(13):SK1(DG)=SK1(13):ST(DG)=SK1(13):PR(DG)=PR(13):PL$(13)="":SK1(13)=0:ST(13)=0:PR(13)=0:GOTO 3090 3080 IF PL$(DG)="" AND PL$(14)<>"" PL$(DG)=PL$(14):SK1(DG)=SK1(14):ST(DG)=SK1(14):PR(DG)=PR(14):PL$(14)="":SK1(14)=0:ST(14)=0:PR(14)=0 3090 IF DG=14 ENDPROC 3100 DG=DG+1:GOTO 3040 3110 DEFPROCgl:PRINT"’,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,":ENDPROC