10 MODE2:VDU23;8202;0;0;0; 20 PROCstand 30 PROCadverts 40 PROCpitch 50 PROCtext 60 END 70 DEFPROCpitch 80X=0:Y=0 90GCOL0,2 100MOVE X,Y:DRAW X+1280,Y:DRAW X+1280, Y+500:DRAW X,Y+500:DRAW X,Y:PLOT85,X+128 0,Y+500:PLOT85,X+1280,Y:GCOL0,7:MOVE X,Y +500:DRAW X+1280,Y+500 110 MOVE X+340,Y+700:DRAW X+940,Y+700 120 IF Y=-1 Y=0:GOTO 140 130 Y=Y-1:GOTO 110 140 MOVE X+340,Y+700:DRAW X+340,Y+500: MOVE X+940,Y+700:DRAW X+940,Y+500 150 IF X=-1 X=0:GOTO 170 160 X=X-1:GOTO 140 170 MOVE X+340,Y+500:DRAW X+240,Y+400: MOVE X+339,Y+500:DRAW X+239,Y+400 180 MOVE X+239,Y+400:DRAW X+1039,Y+400 :MOVE X+239,Y+399:DRAW X+1039,Y+399 190 DRAW X+939,Y+500:MOVE X+1040,Y+400 :DRAW X+940,Y+500 200MOVE X+140,Y+500:DRAW X,Y+400:MOVE X+141,Y+500:DRAW X+1,Y+400 210MOVE X+1140,Y+500:DRAW X+1280,Y+400 :MOVE X+1139,Y+500:DRAW X+1279,Y+400 220MOVE X,Y+200:DRAW X+1280,Y+200:MOVE X,Y+199:DRAW X+1280,Y+199 230 CHECK=0 240 MOVE X+340,Y+700:DRAW X+400,Y+550: DRAW X+880,Y+550:DRAW X+940,Y+700 250 MOVE X+880,Y+550:DRAW X+940,Y+500: MOVE X+400,Y+550:DRAW X+340,Y+500 260 IF CHECK=0:CHECK=1:X=X-1:Y=Y-1:GOT O 240 280 X=0:Y=0:ENDPROC 320 DEFPROCadverts 330 X=0:Y=0: 340 GCOL0,4:MOVE X,Y+550:DRAW X+1280,Y +550:DRAW X+1280,Y+650:DRAW X,Y+650:DRAW X,Y+550:PLOT85,X+1280,Y+650:PLOT85,X+12 80,Y+550 350 GCOL0,7:MOVE X,Y+650:DRAW X+1280,Y +650:MOVE X+1280,Y+649:DRAW X,Y+649 360 ENDPROC 370 DEFPROCstand 380 X=0:Y=0:GCOL0,6:MOVE X,Y+600:DRAW X+1280,Y+600:DRAW X+1280,Y+1023:DRAW X,1 023:DRAW 0,600:PLOT85,X+1280,Y+1023:PLOT 85,X+1280,Y+600 390 X=0:Y=0:GCOL0,0 400 MOVE X,Y+650:DRAW X+125,Y+900:DRAW X+1155,Y+900:DRAW X+1280,Y+650:DRAW X,Y +650 410 PLOT85,X+1155,Y+900:PLOT85,X+125,Y +900 420 GCOL0,1 430 MOVE X+125,Y+900:DRAW X+100,Y+950: DRAW X+1175,Y+950 440 DRAW X+1150,Y+900:DRAW X+125,Y+900 :PLOT85,X+1175,Y+950:PLOT85,X+100,Y+950 450 GCOL0,4 460 MOVE X+100,Y+950:DRAW X,Y+850:MOVE X+99,Y+950:DRAW X-1,Y+850 470 DRAW X+1280,Y+850:MOVE X+1280,Y+84 9:DRAW X,Y+849 480 GOTO 530 490 X=0 500 GCOL0,3:Y=825:MOVE X,Y:DRAW X+50,Y :DRAW X+50,Y+30:DRAW X,Y+30:DRAW X,Y:PLO T85,X+50,Y+30:PLOT85,X+50,Y 510 IF X>=1280 X=0:Y=0:RETURN 520 X=X+75:GOTO 500 530 GCOL0,4:E=1280:L=1175:D=50 540 MOVE X+E,Y+849:DRAW X+L,Y+950 550 E=E-D:L=L-D 560 IF E<=200 GOTO 580 570 GOTO 540 580 E=0:L=100 590 MOVE X+E,Y+849:DRAW X+L,Y+950 600 E=E+D:L=L+D 610 IF E>=1075 PROClights:GOSUB490:END PROC 620 GOTO 590 630 ENDPROC 640 DEFPROClights 650 GCOL0,4 660 MOVE X,Y+850:DRAW X,Y+825:DRAW X+1 280,Y+825:DRAW X+1280,Y+850:DRAWX,Y+850 670 PLOT85,X+1280,Y+825:PLOT85,X,Y+825 680 ENDPROC 690 DEFPROCtext:VDU5 700 X=0:Y=0:CHECK=0:GCOL0,1 710 MOVE X+100,Y+150:PRINT"LIVERPOOL M ANAGER" 720 MOVE X+625,Y+100:PRINT"BY" 730 IF CHECK=0 CHECK=1:GCOL0,7:X=X-5:Y =Y-5:GOTO710 740 FOR T=0 TO 275 STEP 50 750 IF CHECK=1:CHECK=0:H=7:U=1 760 GCOL0,H:MOVE T,Y+50:PRINT"A.S.SHAK OOR":GCOL0,U:MOVE T-5,Y+45:PRINT"A.S.SHA KOOR" 770 IF CHECK=0:CHECK=1:H=2:U=2:GOTO 76 0 780 NEXT 790 H=9:U=14:GCOL0,H:MOVE T,Y+50:PRINT "A.S.SHAKOOR":GCOL0,U:MOVE T-5,Y+45:PRIN T"A.S.SHAKOOR" 800 VDU4 810 DF$=GET$:CLEAR:MODE7 820 VDU 132,157,141:PRINT" Ljvespool m anages by A.S.Sbakoos":VDU 132,157,141:P RINT" LlVerpOOl MAnAger bg A.>.>hAkOOr": VDU28,0,24,39,2 821 PRINT"  ,,,,,,,,,,," 830 PRINT"HERE'S A CHANCE TO MANAGE ON E OF THE" 840PRINT"BIGGEST SOCCER CLUBS IN THE W ORLD." 850PRINT"THERE ARE A NUMBER OF OPTIONS SUCH AS " 860PRINT"A TRANSFER MARKET,TEAM SELECT ION AND " 870PRINT"MORE....BUT I'LL LET YOU DISC OVER THEM." 880PRINT"THE AIM OF THE GAME IS TO STA Y AS LONG" 890PRINT"AS YOU CAN AS THE MANAGER - L OSE MORE" 900PRINT"THAN 20 MATCHES - AND YOU'RE SACKED..." 910PRINT"THAT'S LIFE !! - YOUR STATUS WILL BE" 920PRINT"SHOWN.THE FURTHEST I'VE GOT I S SEASON 2" 930PRINT"BUT I KNOW YOU CAN DO BETTER. .BUT AS " 940PRINT"THEY SAY....SOCCER CAN BE A F UNNY OLD " 950PRINT"GAME !! (I WONDER WHO SAID TH AT " 960PRINT"BEFORE ?!)" 961 PRINT"  ,,,,,,,,,,," 970GE$=GET$ 980CHAIN"LPOOL" 990 ENDPROC