10  MODE2:VDU23;8202;0;0;0;
   20  PROCstand
   30  PROCadverts
   40  PROCpitch
   50  PROCtext
   60  END
   70  DEFPROCpitch  
   80 X=0:Y=0
   90 GCOL0,2
  100 MOVE X,Y:DRAW X+1280,Y:DRAW X+1280,Y+500:DRAW X,Y+500:DRAW X,Y:PLOT85,X+1280,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
  200 MOVE X+140,Y+500:DRAW X,Y+400:MOVE X+141,Y+500:DRAW X+1,Y+400
  210 MOVE X+1140,Y+500:DRAW X+1280,Y+400:MOVE X+1139,Y+500:DRAW X+1279,Y+400
  220 MOVE 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:GOTO 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+1280,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,1023:DRAW 0,600:PLOT85,X+1280,Y+1023:PLOT85,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+849: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:PLOT85,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:ENDPROC
  620  GOTO 590
  630  ENDPROC
  640  DEFPROClights
  650  GCOL0,4
  660  MOVE X,Y+850:DRAW X,Y+825:DRAW X+1280,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 MANAGER"
  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.SHAKOOR":GCOL0,U:MOVE T-5,Y+45:PRINT"A.S.SHAKOOR"
  770  IF CHECK=0:CHECK=1:H=2:U=2:GOTO 760
  780  NEXT
  790  H=9:U=14:GCOL0,H:MOVE T,Y+50:PRINT"A.S.SHAKOOR":GCOL0,U:MOVE T-5,Y+45:PRINT"A.S.SHAKOOR" 
  800  VDU4
  810  DF$=GET$:CLEAR:MODE7 
  820  VDU 132,157,141:PRINT"‡Ljvespool managesƒby�A.S.Sbakoos":VDU 132,157,141:PRINT"‡LlVerpOOl MAnAgerƒbg�A.>.>hAkOOr":VDU28,0,24,39,2
  821  PRINT"–,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,"
  830  PRINT"HERE'S A CHANCE TO MANAGE ONE OF THE"  
  840 PRINT"BIGGEST SOCCER CLUBS IN THE WORLD."  
  850 PRINT"THERE ARE A NUMBER OF OPTIONS SUCH AS "
  860 PRINT"A TRANSFER MARKET,TEAM SELECTION AND "
  870 PRINT"MORE....BUT I'LL LET YOU DISCOVER THEM."
  880 PRINT"THE AIM OF THE GAME IS TO STAY AS LONG"
  890 PRINT"AS YOU CAN AS THE MANAGER - LOSE MORE"
  900 PRINT"THAN 20 MATCHES - AND YOU'RE SACKED..."
  910 PRINT"THAT'S LIFE !! - YOUR STATUS WILL BE"
  920 PRINT"SHOWN.THE FURTHEST I'VE GOT IS SEASON 2"
  930 PRINT"BUT I KNOW YOU CAN DO BETTER..BUT AS "
  940 PRINT"THEY SAY....SOCCER CAN BE A FUNNY OLD "
  950 PRINT"GAME !! (I WONDER WHO SAID THAT "
  960 PRINT"BEFORE ?!)"
  961  PRINT"–,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,," 
  970 GE$=GET$
  980 CHAIN"LPOOL"
  990  ENDPROC