100 CALL CLEAR
110 CALL SCREEN(16)
120 DIM A$(12,10),DUR(10),NO1(10),NO2(10),N03(10),CH$(11),GR$(10)
130 CALL CHAR(156,"000000FFFF")
140 CALL CHAR(96,"3C4299A1A199423C")
150 DATA 200,392,600,523,200,784,600,698,200,523,200,622,200,698,300,587,100,466,800,523
160 DATA 40000,40000,196,311,40000,40000,220,262,40000,40000,208,262,40000,40000,175,294,40000,40000,196,311
170 DATA FF818181FF818181,81C1A19189858381,FE818181818181FE,FF8181FF88848281,FF818181818181FF,81C3A59981818181
180 DATA FF8080FE808080FF,FF8180FF010181FF,FF808080FE808080,FF10101010101010,8181818199A5C381
190 DATA 101038387C7CFEFE,0101030307070E0E,EFEFC78383010000,00008080C0C1EFEF,0000001C78F0F8FC,1C1BBBB76060C080
200 DATA 1FFFFFFC00000000,77B7BB180C0C0602,FFFEF00000000000
210 DATA 81667E3C3C7E6681
220 DATA 128,129,130,131,132,133,134,130,128
230 DATA 136,140,137,138,139,141,142,143
240 FOR X=1 TO 10
250 READ DUR(X),NO1(X)
260 NEXT X
270 FOR X=1 TO 10
280 READ NO2(X),NO3(X)
290 NEXT X
300 FOR X=1 TO 11
310 READ CH$(X)
320 NEXT X
330 FOR X=1 TO 10
340 READ GR$(X)
350 NEXT X
360 FOR X=1 TO 9
370 CALL CHAR(X+143,GR$(X))
380 NEXT X
390 CALL CHAR(126,GR$(10))
400 FOR X=1 TO 9
410 READ AN(X)
420 NEXT X
430 FOR X=1 TO 8
440 READ SO(X)
450 NEXT X
460 FOR X=1 TO 7
470 CALL CHAR(X+127,CH$(X))
480 NEXT X
490 FOR X=8 TO 11
500 CALL CHAR(X+128,CH$(X))
510 NEXT X
520 CALL CHAR(140,CH$(5))
530 CALL CHAR(141,CH$(1))
540 CALL CHAR(142,CH$(4))
550 CALL CHAR(143,CH$(7))
560 FOR X=1 TO 16
570 CALL COLOR(X,1,1)
580 NEXT X
590 PRINT "       p r e s e n t s"
600 PRINT :::
610 PRINT " S O C C E R   S U P R E M O"
620 PRINT ::
630 PRINT :::::
640 PRINT "        `  MCMLXXXIII"
650 CALL HCHAR(16,4,156,27)
660 FOR X=1 TO 9
670 CALL HCHAR(6,7+X,AN(X))
680 NEXT X
690 FOR X=1 TO 8
700 CALL HCHAR(6,18+X,SO(X))
710 NEXT X
720 CALL HCHAR(1,17,144)
730 FOR X=2 TO 5
740 CALL HCHAR(2,14+X,143+X)
750 NEXT X
760 FOR X=6 TO 9
770 CALL HCHAR(3,10+X,143+X)
780 NEXT X
790 CALL HCHAR(3,15,126)
800 FOR X=1 TO 11
810 CALL COLOR(X,2,16)
820 NEXT X
830 CALL COLOR(12,11,16)
840 CALL COLOR(13,7,16)
850 CALL COLOR(14,5,16)
860 CALL COLOR(15,7,16)
870 CALL COLOR(16,7,16)
880 FOR X=1 TO 10
890 CALL SOUND(DUR(X),NO1(X),0,NO2(X),0,NO3(X),0)
900 NEXT X
910 FOR X=1 TO 2000
920 NEXT X
930 CALL CLEAR
940 GOTO 950
950 GOSUB 2340
960 FOR P=1 TO 12
970 CALL CLEAR
980 FOR X=1 TO 16
990 CALL COLOR(X,1,1)
1000 NEXT X
1010 PRINT " S O C C E R   S U P R E M O"
1020 PRINT 
1030 PRINT "        INSTRUCTIONS"
1040 FOR L=1 TO 10
1050 PRINT 
1060 PRINT A$(P,L)
1070 NEXT L
1080 CALL HCHAR(2,4,156,27)
1090 CALL HCHAR(4,11,156,12)
1100 FOR X=1 TO 12
1110 CALL COLOR(X,7,16)
1120 NEXT X
1130 CALL COLOR(16,5,16)
1140 GOSUB 2400
1150 NEXT P
1160 GOTO 2470
1170 DATA "SOCCER SUPREMO puts you in"
1180 DATA "charge of your own football"
1190 DATA "team. You have control over"
1200 DATA "team selection, the buying &"
1210 DATA "selling of players, and the"
1220 DATA "day to day running of your"
1230 DATA "club. 32 teams & 18 players"
1240 DATA "are listed in data and may"
1250 DATA "be changed as you wish."
1260 DATA "  HIT ANY KEY TO TURN PAGE"
1270 DATA "The game is governed by a"
1280 DATA "MENU,which gives you access"
1290 DATA "to 5 displays as follows:-"
1300 DATA " "
1310 DATA "   1. CURRENT STANDINGS"
1320 DATA "   2. OBTAIN LOAN"
1330 DATA "   3. SELECT TEAM"
1340 DATA "   4. SELL PLAYER"
1350 DATA "   5. PLAY MATCH"
1360 DATA " "
1370 DATA " CURRENT STANDINGS - This "
1380 DATA "display gives details of "
1390 DATA "your bank balance,rent,wage"
1400 DATA "bill,gate money and loan"
1410 DATA "repayment and balance. You"
1420 DATA "start with 100,000 Pounds at"
1430 DATA "your disposal with which to"
1440 DATA "run the club. The game will"
1450 DATA "end if you stay in the red,"
1460 DATA "so watch your resources."
1470 DATA "OBTAIN LOAN- At any time you"
1480 DATA "can obtain a loan, with a"
1490 DATA "weekly interest payable of"
1500 DATA "1%. The loan MUST be repayed"
1510 DATA "by the end of the season."
1520 DATA " "
1530 DATA "SELECT TEAM - This display"
1540 DATA "begins by giving ratings for"
1550 DATA "your own team and your"
1560 DATA "opponents in your next game."
1570 DATA "These ratings appear under"
1580 DATA "five headings:-   DEFENCE "
1590 DATA "MIDFIELD,ATTACK,PERFORMANCE"
1600 DATA "and TEAM SPIRIT. They are"
1610 DATA "calculated as follows. Each"
1620 DATA "player in your squad has a"
1630 DATA "strength between 1 and 5."
1640 DATA "If, for example, your team"
1650 DATA "includes 4 defenders with"
1660 DATA "ratings of 5,4,2 and 1, then"
1670 DATA "the DEFENCE rating of your"
1680 DATA "team will be 12. It is the"
1690 DATA "same for your MIDFIELD and"
1700 DATA "ATTACK rating. By making "
1710 DATA "direct comparisons with the"
1720 DATA "ratings of your opponents,"
1730 DATA "you can affect the chances"
1740 DATA "of goals being scored."
1750 DATA "Players have monetary values"
1760 DATA "based on their skill level."
1770 DATA "The fitness of each player"
1780 DATA "can vary between 1 and 20,"
1790 DATA "and decreases by 1 for each"
1800 DATA "match in which he plays. If"
1810 DATA "a player is rested, he will"
1820 DATA "return to the team with an"
1830 DATA "increase of 10 to his"
1840 DATA "fitness level. The teams"
1850 DATA "PERFORMANCE rating is"
1860 DATA "calculated by averaging the"
1870 DATA "the combined total of all"
1880 DATA "the teams' fitness levels."
1890 DATA "At any time a player may be"
1900 DATA "unavailable for selection "
1910 DATA "due to injury, but will"
1920 DATA "return fully fit."
1930 DATA "TEAM SPIRIT alters depending"
1940 DATA "on your results - win and it"
1950 DATA "increases, lose and it will"
1960 DATA "fall."
1970 DATA "SELL PLAYER - At any stage"
1980 DATA "you may decide to sell a"
1990 DATA "player.An offer will be made"
2000 DATA "by another club, which you"
2010 DATA "can either accept or refuse."
2020 DATA "The financial details of the"
2030 DATA "transaction are updated "
2040 DATA "automatically. "
2050 DATA "PLAY MATCH - Once you have"
2060 DATA "selected your team, the next"
2070 DATA "match can be played. As the"
2080 DATA "game progresses, the score"
2090 DATA "is displayed. Your result,"
2100 DATA "and the results of other"
2110 DATA "matches played, is followed"
2120 DATA "by an updated league table."
2130 DATA "After the game you are given"
2140 DATA "the chance of buying a"
2150 DATA "player, but your squad"
2160 DATA "cannot exceed 16."
2165 DATA " "
2170 DATA "Now you have all the details"
2175 DATA " "
2180 DATA "can you take your team from"
2185 DATA " "
2190 DATA "from the fourth to the first"
2195 DATA " "
2200 DATA "division, and win the"
2205 DATA " "
2210 DATA "Championship?!!!"
2240 DATA "BROUGHT TO YOU BY:-"
2250 DATA " "
2260 DATA "ANDROMEDA SOFTWARE"
2270 DATA "56 WELLS STREET,"
2280 DATA "HASLINGDEN,"
2290 DATA "ROSSENDALE,"
2300 DATA "LANCASHIRE   BB4 5LS."
2310 DATA " "
2320 DATA "SEND SAE FOR A COPY OF OUR"
2330 DATA "LATEST SOFTWARE CATALOGUE"
2340 FOR X=1 TO 12
2350 FOR Y=1 TO 10
2360 READ A$(X,Y)
2370 NEXT Y
2380 NEXT X
2390 RETURN 
2400 CALL KEY(0,K,S)
2410 IF S=0 THEN 2400
2420 RETURN 
2430 FOR X=1 TO 12
2440 CALL COLOR(X,5,12)
2450 NEXT X
2460 RETURN 
2470 END 
