Atari 8-bit Source code

5 REM ***** BUILD A POWERHOUSE *****
10 DIM TEAM1$(10),​TEAM2$(10),​TEAM3$(10),​TEAM4$(10),​TEAM5$(10)
20 DIM I$(40),​KOUNT(4),​MT(7,​6),​T(4),​TEMP(20)
30 DIM TPTS(5),​SCLD(40),​PERM(5),​PTS(5),​AT(5),​HT(5)
40 DIM WIN(5),​LOSS(5),​SCORE(10,​13)
50 DIM A$(20),​B$(20),​PL$(1210),​P(100),​R(100),​CL(100),​CL$(2),​CO$(220)
60 DIM DURATION(6),​PITCH(6)
70 FOR Z=1 TO 6:​READ X:​DURATION(Z)=X:​NEXT Z
75 FOR Z=1 TO 6:​READ X:​PITCH(Z)=X:​NEXT Z
78 DATA 1,​1,​1,​2,​1,​3
79 DATA 182,​162,​121,​96,​121,​96
100 YEAR=0:​I=1:​L=10:​Y=0
110 FOR X=1 TO 20
130 IF X<6 THEN PTS(X)=0:​WIN(X)=0:​PERM(X)=0:​PTS(X)=0
140 NEXT X
160 GOSUB 8000:​PTS(5)=18
200 REM **** ENTER TEAM NAMES ******
210 GRAPHICS O:​A=INT(16*RND(0)):​SETCOLOR 2,​A,​4:​COLOR 3:​X=0
220 X=X+1:​POSITION 10,​10:​? "ENTER TEAM ";X;" NAME":​POSITION 12,​12:​? " ":​POSITION 12,​12
230 ON X GOTO 240,​250,​260,​270,​280
240 INPUT TEAM1$:​GOTO 220
250 INPUT TEAM2$:​GOTO 220
260 INPUT TEAM3$:​GOTO 220
270 INPUT TEAM4$:​GOTO 220
280 ? "OF ";:​INPUT TEAM5$
285 GOSUB 9000:​GOSUB 700:​GOSUB 3000:​GOSUB 4000:​GOSUB 800
290 FOR X=1 TO 4:​FOR W=(10*X)-9 TO X*10
295 R(W)=X:​P(W)=INT(4*RND(1)+1):​CL(W)=INT(4*RND(1)+1)
300 NEXT W:​NEXT X
305 Y=Y+30:​GOTO 330
310 GOSUB 1000
320 GOSUB 2000
330 GOSUB 5000
340 L=8:​GOSUB 2220:​L=10
350 GOSUB 6000
360 GOSUB 7000
370 GOSUB 9999
375 YEAR=YEAR+1
380 ? " YEAR = ";YEAR
400 ?:​? TEAM1$;" ",​PERM(1)
410 ?:​? TEAM2$;" ",​PERM(2)
420 ?:​? TEAM3$;" ",​PERM(3)
430 ?:​? TEAM4$;" ",​PERM(4)
440 ?:​? TEAM5$;" ",​PERM(5)
450 IF YEAR=7 THEN GOSUB 4500:​?:​?:​? "":​END
460 Y=Y+10:​GOSUB 3500
470 FOR X=1 TO Y
480 IF CL(X)>4 THEN R(X)=0
490 NEXT X
495 ?:​?:​?:​? "PUSH  TO BEGIN NEXT SEASON"
500 IF PEEK(53279)=6 THEN 520
510 GOTO 500
520 ?:​? "":​FOR X=1 TO 500:​NEXT X:​GOSUB 5000:​GOTO 310
530 GOTO 500
700 GRAPHICS 0:​?:​? " ":​?
710 FOR X=1 TO 14
720 READ I$:​PRINT I$
730 NEXT X:​RETURN
800 REM **** SCHEDULE PRINT-OUT ****
810 ?:​? "DO YOU WANT A HARD-COPY PRINTOUT OF THE REGULAR SEASON SCHEDULE /";:​INPUT A$
820 IF A$<>"Y" THEN RETURN
830 TRAP 900:​LPRINT "BUILD A POWERHOUSE":​LPRINT "REGULAR SEASON SCHEDULE"
840 FOR X=1 TO 39 STEP 2
850 LPRINT (X+1)/2
860 ON SCLD(X) GOTO 861,​862,​863,​864,​865
861 LPRINT TEAM1$;" VS ":​GOTO 870
862 LPRINT TEAM2$;" VS ":​GOTO 870
863 LPRINT TEAM3$;" VS ":​GOTO 870
864 LPRINT TEAM4$;" VS ":​GOTO 870
865 LPRINT TEAM5$;" VS "
870 ON SCLD(X+1) GOTO 871,​872,​873,​874,​875
871 LPRINT " ";TEAM1$:​GOTO 880
872 LPRINT " ";TEAM2$:​GOTO 880
873 LPRINT " ";TEAM3$:​GOTO 880
874 LPRINT " ";TEAM4$:​GOTO 880
875 LPRINT " ";TEAM5$
880 NEXT X:​RETURN
900 ? "":​? "TURN ON PRINTER":​GOTO 800
910 ? "":​? "MAKE ANOTHER CHOICE":​FOR W=1 TO 200:​NEXT W:​GOTO 2040
920 GOSUB 5400:​POSITION 2,​22:​? "";:​? "RE-ENTER CHOICE":​FOR W=1 TO 200:​NEXT W:​GOTO 2640
930 GOSUB 5400:​? "";:​? "RE-ENTER CHOICE":​FOR W=1 TO 200:​NEXT W:​GOTO 5260
940 GOSUB 5400:​? "";:​? "RE-ENTER CHOICE":​FOR W=1 TO 200:​NEXT W:​GOTO 5300
950 GOSUB 5400:​? "";:​? "RE-ENTER CHOICE":​FOR W=1 TO 200:​NEXT W:​GOTO 5310
960 GOSUB 5400:​? "";:​? "RE-ENTER CHOICE":​FOR W=1 TO 200:​NEXT W:​GOTO 5330
970 GOSUB 5400:​? "";:​? "RE-ENTER CHOICE":​FOR W=1 TO 200:​NEXT W:​GOTO 5340
999 END
1000 REM ****** THE DRAFT *********
1010 GRAPHICS 2+16:​? #6;" NOW TIME FOR:​"
1020 FOR X=1 TO 11
1030 SOUND 0,​200-6*X,​6,​6:​SOUND 1,​250-20*X,​10,​6
1040 FOR C=1 TO 240-X*20:​NEXT C
1050 NEXT X
1070 FOR X=0 TO 200 STEP 5
1080 GRAPHICS 2+16:​POKE 53277,​0
1090 POSITION 5,​5:​? #6;"THE DRAFT!"
1100 SOUND 3,​X,​10,​8:​NEXT X
1110 FOR C=1 TO 400:​NEXT C
1120 FOR X=0 TO 3:​SOUND X,​0,​0,​0:​NEXT X
1130 GRAPHICS 1+16:​? #6;"THE ORDER OF CHOICE:​"
1135 FOR X=1 TO 4:​T(X)=0:​NEXT X
1140 FOR X=1 TO 4
1150 CH=INT(4*RND(1))+1
1160 FOR C=1 TO 4
1170 IF CH=T(C) THEN 1150
1180 NEXT C
1190 T(X)=CH
1200 NEXT X
1210 FOR X=1 TO 4
1215 POSITION 5,​(X*2)+1
1220 IF T(X)=1 THEN ? #6;TEAM1$
1230 IF T(X)=2 THEN ? #6;TEAM2$
1240 IF T(X)=3 THEN ? #6;TEAM3$
1250 IF T(X)=4 THEN ? #6;TEAM4$
1260 NEXT X
1270 FOR C=1 TO 500:​NEXT C:​RETURN
2000 REM **** PLAYER SELECTION *****
2010 K=0:​FOR X=1 TO 10:​TEMP(X)=0:​NEXT X
2020 FOR A=1 TO 3
2030 FOR C=1 TO 4
2035 IF A=3 AND C>2 THEN 2200
2040 GOSUB 9999:​?:​? ""
2050 ?:​? "PLAYERNO RATING POS NAME"
2060 FOR X=1 TO 10
2065 PLNO=X+Y
2070 Z=0
2075 Z=Z+1:​IF PLNO=TEMP(Z) THEN 2100
2080 IF Z<K THEN 2075
2085 A$=PL$((PLNO*11)-10,​(PLNO*11)-10):​B$=PL$((PLNO*11)-9,​PLNO*11)
2090 ? " ";PLNO;" ";P(PLNO);" ";A$;" ";B$
2100 NEXT X:​?:​?
2110 IF T(C)=1 THEN ? TEAM1$;
2120 IF T(C)=2 THEN ? TEAM2$;
2130 IF T(C)=3 THEN ? TEAM3$;
2140 IF T(C)=4 THEN ? TEAM4$;
2145 TRAP 910
2150 ? "  ";:​INPUT CHOICE
2160 IF R(CHOICE)<>0 THEN 910
2170 IF CHOICE<=Y THEN 910
2175 IF CHOICE>Y+10 THEN 910
2180 K=K+1:​TEMP(K)=CHOICE
2190 R(CHOICE)=T(C)
2200 NEXT C:​NEXT A
2210 ? "ONE MOMENT PLEASE...."
2220 FOR X=1 TO 4:​KOUNT(X)=0:​NEXT X
2230 FOR X=1 TO Y+10
2240 FOR Z=1 TO 4
2250 IF R(X)=Z THEN KOUNT(Z)=KOUNT(Z)+1
2260 NEXT Z:​NEXT X
2270 FOR Z=1 TO 4
2280 IF KOUNT(Z)>L THEN GOSUB 2500
2290 NEXT Z
2300 RETURN
2500 REM ***** LIST TEAM *********
2510 FOR X=1 TO 2:​GRAPHICS 2+16
2520 SETCOLOR 4,​YEAR*2,​4:​COLOR 5
2530 POSITION 2,​2:​? #6;"TOO MANY PLAYERS"
2540 POSITION 6,​4:​? #6;"LIMIT = ";L
2545 POSITION 5,​8
2550 ON Z GOTO 2560,​2570,​2580,​2590
2560 ? #6;TEAM1$:​GOTO 2600
2570 ? #6;TEAM2$:​GOTO 2600
2580 ? #6;TEAM3$:​GOTO 2600
2590 ? #6;TEAM4$
2600 FOR C=1 TO 90:​SOUND 0,​100,​10,​8:​NEXT C
2610 GRAPHICS 2+16:​SETCOLOR 4,​0,​10:​COLOR 5:​SOUND 0,​0,​0,​0
2620 FOR C=1 TO 90:​NEXT C
2630 NEXT X
2640 GOSUB 9999:​?:​?
2650 ON Z GOTO 2660,​2670,​2680,​2690
2660 ? TEAM1$:​GOTO 2700
2670 ? TEAM2$:​GOTO 2700
2680 ? TEAM3$:​GOTO 2700
2690 ? TEAM4$
2700 ?:​? " # CLASS PTS POS NAME"
2705 ?:​FOR X=1 TO Y+10
2710 A$=PL$((X*11)-10,​(X*11)-10):​B$=PL$((X*11)-9,​X*11)
2715 IF Z<>R(X) THEN 2730
2720 ON CL(X) GOTO 2721,​2722,​2723,​2724
2721 CL$="FR":​GOTO 2725
2722 CL$="SO":​GOTO 2725
2723 CL$="JR":​GOTO 2725
2724 CL$="SR"
2725 ? " ";X;" ";CL$;" ";P(X);" ";A$;" ";B$
2730 NEXT X
2740 ?:​?:​? "ENTER  OF THE PLAYER TO BE CUT"
2750 INPUT A$:​TRAP 920:​CHOICE=VAL(A$):​IF R(CHOICE)<>Z THEN 920
2760 R(CHOICE)=0
2770 KOUNT(Z)=KOUNT(Z)-1:​IF KOUNT(Z)>L THEN 2750
2780 RETURN
3000 REM **** MATURING PLAYERS *****
3010 FOR X=1 TO 7
3020 FOR Z=1 TO 6
3030 READ M
3040 MT(X,​Z)=M
3050 NEXT Z:​NEXT X
3060 RETURN
3500 FOR X=1 TO Y
3510 GOSUB 3999:​P(X)=P(X)+MT(P(X),​CH)
3520 CL(X)=CL(X)+1
3530 NEXT X
3540 RETURN
3999 CH=INT(6*RND(1)+1):​RETURN
4000 REM ***** SCHEDULE & SCORES *****
4020 FOR X=1 TO 40
4030 READ GAME:​SCLD(X)=GAME
4040 NEXT X
4050 FOR X=1 TO 10
4060 FOR Z=1 TO 13
4070 READ GAME
4080 SCORE(X,​Z)=GAME
4090 NEXT Z:​NEXT X
4100 RETURN
4500 REM **** PLAY FANFARE *****
4510 FOR X=1 TO 3
4520 FOR Z=1 TO 6
4530 FOR W=1 TO 6*DURATION(Z)
4540 SOUND 0,​PITCH(Z),​10,​7+DURATION(Z)
4550 NEXT W:​SOUND 0,​0,​0,​0:​NEXT Z:​NEXT X
4590 SOUND 0,​81,​10,​10:​FOR X=1 TO 80:​NEXT X:​SOUND 0,​0,​0,​0
4720 RETURN
5000 REM ***** TRADES & CUTS *****
5010 GOSUB 9999:​POKE 752,​1
5030 POSITION 1,​0:​? "=";TEAM1$
5040 POSITION 1,​11:​? "=";TEAM2$
5050 POSITION 21,​0:​? "=";TEAM3$
5060 POSITION 21,​11:​? "=";TEAM4$
5070 A=0:​B=11:​C=0:​D=11
5080 FOR X=1 TO Y+10
5090 I=(11*X)-10:​E=0:​IF X>99 THEN E=1
5100 IF R(X)=0 THEN 5210
5105 ON CL(X) GOTO 5110,​5120,​5130,​5140
5110 CL$="FR":​GOTO 5150
5120 CL$="SO":​GOTO 5150
5130 CL$="JR":​GOTO 5150
5140 CL$="SR"
5150 ON R(X) GOTO 5160,​5170,​5180,​5190
5160 A=A+1:​POSITION 1,​A:​GOTO 5200
5170 B=B+1:​POSITION 1,​B:​GOTO 5200
5180 C=C+1:​POSITION 20,​C:​GOTO 5200
5190 D=D+1:​POSITION 20,​D
5200 ? X;" ";CL$;" ";P(X);PL$(I,​I);" ";PL$(I+1,​I+10-E);
5210 NEXT X
5220 POSITION 2,​22:​? "=TRADE =CUT =DONE"
5225 IF PEEK(53279)=3 THEN GOSUB 5400:​GOTO 5300
5230 IF PEEK(53279)=5 THEN GOSUB 5400:​GOTO 5260
5240 IF PEEK(53279)=6 THEN ? "ONE MOMENT PLEASE .....":​RETURN
5250 GOTO 5220
5260 TRAP 930:​POSITION 2,​22:​? "ENTER  OF PLAYER TO BE CUT";:​INPUT A$
5270 GOSUB 5400:​A=VAL(A$):​R(A)=0:​GOTO 5000
5300 POSITION 2,​22:​? "ENTER  OF PLAYER TRADED";:​TRAP 940:​INPUT A:​GOSUB 5400
5310 POSITION 2,​22:​? "ENTER  OF HIS NEW TEAM";:​INPUT B:​TRAP 950:​GOSUB 5400
5320 POSITION 2,​22:​? "WAS THERE A PLAYER EXCHANGED /";:​INPUT A$:​GOSUB 5400
5325 IF A$="N" THEN R(A)=B:​? "ONE MOMENT PLEASE....":​GOSUB 2220:​GOTO 5000
5330 POSITION 2,​22:​TRAP 960:​? "ENTER  OF PLAYER TRADED FOR";:​INPUT C:​GOSUB 5400
5340 POSITION 2,​22:​TRAP 970:​? "ENTER  OF HIS NEW TEAM";:​INPUT D
5350 R(A)=B:​R(C)=D:​GOTO 5000
5400 POSITION 2,​22:​? " ":​POSITION 2,​22:​RETURN
6000 REM ***** COUNT POINTS *****
6005 GRAPHICS 17:​? #6;" COUNTING TEAM PTS"
6010 FOR Z=1 TO 4
6030 B1=0:​B2=0:​R1=0:​R2=0:​Q1=0:​Q2=0
6040 FOR X=1 TO Y+10
6050 IF R(X)<>Z THEN 6160
6060 I=(X*11)-10
6070 IF PL$(I,​I)<>"B" THEN 6100
6075 IF P(X)>B1 THEN TEMP=B1:​B1=P(X):​GOTO 6090
6080 IF P(X)>B2 THEN B2=P(X):​GOTO 6160
6090 IF TEMP>B2 THEN B2=TEMP:​GOTO 6160
6100 IF PL$(I,​I)<>"R" THEN 6130
6105 IF P(X)>R1 THEN TEMP=R1:​R1=P(X):​GOTO 6120
6110 IF P(X)>R2 THEN R2=P(X):​GOTO 6160
6120 IF TEMP>R2 THEN R2=TEMP:​GOTO 6160
6130 IF PL$(I,​I)<>"Q" THEN 6160
6135 IF P(X)>Q1 THEN TEMP=Q1:​Q1=P(X):​GOTO 6150
6140 IF P(X)>Q2 THEN Q2=P(X):​GOTO 6160
6150 IF TEMP>Q2 THEN Q2=TEMP
6160 NEXT X
6170 PTS(Z)=B1+B2+R1+R2+Q1+Q2
6180 IF Z=1 THEN POSITION 1,​4:​? #6;TEAM1$:​POSITION 15,​4:​? #6;PTS(1)
6190 IF Z=2 THEN POSITION 1,​6:​? #6;TEAM2$:​POSITION 15,​6:​? #6;PTS(2)
6200 IF Z=3 THEN POSITION 1,​8:​? #6;TEAM3$:​POSITION 15,​8:​? #6;PTS(3)
6210 IF Z=4 THEN POSITION 1,​10:​? #6;TEAM4$:​POSITION 15,​10:​? #6;PTS(4)
6220 NEXT Z
6230 CH=INT(7*RND(1))
6240 PTS(5)=PTS(5)+CH-2
6250 POSITION 1,​12:​? #6;TEAM5$:​POSITION 15,​12:​? #6;PTS(5)
6280 POSITION 0,​16:​? #6;"PUSH  TO BEGIN"
6290 IF PEEK(53279)=6 THEN RETURN
6300 GOTO 6290
7000 REM **** SEASON'S PLAY ****
7010 GAME=0:​K=0
7020 GAME=GAME+1:​GRAPHICS 2+16:​SETCOLOR 4,​YEAR*2,​4:​COLOR 5
7030 ? #6,​(GAME+1)/2:​? #6:​? #6
7040 AT(SCLD(GAME))=PTS(SCLD(GAME))
7050 ON SCLD(GAME) GOSUB 7901,​7902,​7903,​7904,​7905
7060 ? #6;" ";"VS":​GAME=GAME+1
7070 HT(SCLD(GAME))=PTS(SCLD(GAME))
7080 ON SCLD(GAME) GOSUB 7901,​7902,​7903,​7904,​7905
7090 FOR W=1 TO 20:​SOUND 0,​GAME*6,​10,​8:​NEXT W
7100 SOUND 0,​0,​0,​0:​FOR W=1 TO 100:​NEXT W
7110 A=AT(SCLD(GAME-1))-HT(SCLD(GAME))+7
7120 B=HT(SCLD(GAME))-AT(SCLD(GAME-1))+7
7130 IF A>13 THEN A=13:​B=1
7140 IF A<1 THEN A=1:​B=13
7150 CH=INT(10*RND(1)+1):​C=SCORE(CH,​A)
7160 CH=INT(10*RND(1)+1):​D=SCORE(CH,​B)
7170 IF C=D THEN D=D+1
7180 IF C>D THEN WIN(SCLD(GAME-1))=WIN(SCLD(GAME-1))+1:​LOSS(SCLD(GAME))=LOSS(SCLD(GAME))+1
7190 IF D>C THEN WIN(SCLD(GAME))=WIN(SCLD(GAME))+1:​LOSS(SCLD(GAME-1))=LOSS(SCLD(GAME-1))+1
7200 SETCOLOR 0,​0,​10:​COLOR 1:​POSITION 12,​3:​? #6;C:​POSITION 12,​5:​? #6;D
7210 ? #6:​? #6:​FOR W=1 TO 200:​NEXT W
7220 IF C>D+44 THEN GOSUB 8500
7230 IF D>C+44 THEN GOSUB 8500
7240 K=K+1:​IF K>4 THEN GOSUB 7500:​K=0
7250 IF GAME<39 THEN 7020
7300 GRAPHICS 17:​SETCOLOR 4,​YEAR*2,​4:​COLOR 1:​? #6;" THE champion IS:​"
7310 GOSUB 4500:​A=0
7320 FOR X=8 TO 0 STEP -1
7330 IF X=WIN(1) THEN WIN(1)=WIN(1)+2:​POSITION 6,​4:​? #6;TEAM1$:​A=1
7340 IF X=WIN(2) THEN WIN(2)=WIN(2)+2:​POSITION 6,​6:​? #6;TEAM2$:​A=1
7350 IF X=WIN(3) THEN WIN(3)=WIN(3)+2:​POSITION 6,​8:​? #6;TEAM3$:​A=1
7360 IF X=WIN(4) THEN WIN(4)=WIN(4)+2:​POSITION 6,​10:​? #6;TEAM4$:​A=1
7370 IF X=WIN(5) THEN WIN(5)=WIN(5)+2:​POSITION 6,​12:​? #6;TEAM5$:​A=1
7390 IF A=1 THEN 7420
7410 NEXT X
7420 FOR X=1 TO 5:​PERM(X)=PERM(X)+WIN(X)
7430 LOSS(X)=0:​WIN(X)=0:​NEXT X
7440 FOR W=1 TO 300:​NEXT W:​RETURN
7500 REM ****** STANDINGS ******
7510 GRAPHICS 17:​SETCOLOR 4,​2*YEAR,​2:​SETCOLOR 2,​0,​10:​COLOR 3:​COLOR 5
7520 ? #6:​? #6;" "
7525 P=4:​? #6
7530 FOR X=8 TO -8 STEP -1
7540 IF WIN(1)-LOSS(1)=X THEN ? #6:​? #6;" ";TEAM1$:​POSITION 13,​P:​? #6;WIN(1);" ";LOSS(1):​P=P+2
7550 IF WIN(2)-LOSS(2)=X THEN ? #6:​? #6;" ";TEAM2$:​POSITION 13,​P:​? #6;WIN(2);" ";LOSS(2):​P=P+2
7560 IF WIN(3)-LOSS(3)=X THEN ? #6:​? #6;" ";TEAM3$:​POSITION 13,​P:​? #6;WIN(3);" ";LOSS(3):​P=P+2
7570 IF WIN(4)-LOSS(4)=X THEN ? #6:​? #6;" ";TEAM4$:​POSITION 13,​P:​? #6;WIN(4);" ";LOSS(4):​P=P+2
7580 IF WIN(5)-LOSS(5)=X THEN ? #6:​? #6;" ";TEAM5$:​POSITION 13,​P:​? #6;WIN(5);" ";LOSS(5):​P=P+2
7590 NEXT X
7600 POSITION 0,​P+4:​? #6:​? #6;"PRESS  TO CONT"
7610 IF PEEK(53279)=6 THEN RETURN
7620 GOTO 7610
7901 ? #6;" ";TEAM1$:​RETURN
7902 ? #6;" ";TEAM2$:​RETURN
7903 ? #6;" ";TEAM3$:​RETURN
7904 ? #6;" ";TEAM4$:​RETURN
7905 ? #6;" ";TEAM5$:​RETURN
8000 REM **** LOAD COMMENTS ****
8010 FOR X=1 TO 20
8020 READ A$:​C=X*11
8030 B$=" ":​A$(LEN(A$)+1)=B$
8040 CO$(C-10,​C)=A$
8050 NEXT X:​RETURN
8500 REM ***** CHOICE COMMENTS *****
8510 CH=INT(20*RND(0)+1)
8520 IF CH=0 THEN 8510
8525 Z=CH*11
8530 ? #6;" ";CO$(Z-10,​Z)
8535 FOR W=1 TO 200:​NEXT W
8540 RETURN
8900 REM **** COMMENT DATA ******
8910 DATA STOMPED,​CREAMED,​CRUSHED,​SMASHED,​HUMILIATED,​HUMBLED,​DESTROYED,​EMBARASSED,​TROUNCED,​ROMPED
8920 DATA WHIPPED,​RIDDLED,​MASSACRED,​BLASTED,​ANNIHILATED,​WASTED,​SMOKED,​BLOW-OUT,​OVERWHELMED,​SWAMPED
9000 REM **** ENTER PLAYER LIST ****
9005 GRAPHICS 1+16:​POSITION 1,​8:​PRINT #6;"RECRUITING PLAYERS"
9010 FOR X=1 TO 100
9020 READ A$
9030 B$=" ":​A$(LEN(A$)+1)=B$
9040 PL$(I,​I+10)=A$
9050 I=I+11:​POSITION 9,​12:​? #6;X
9060 CH=INT(4*RND(1)+1):​P(X)=CH:​R(X)=0:​CL(X)=1
9070 CH=RND(1):​IF CH<0.2 THEN P(X)=P(X)+1
9080 NEXT X:​RETURN
9100 DATA BG.PRUITT,​BB.MAREK,​BCAPPELETTI,​BC.WARNER,​RT.GATEWOOD
9105 DATA RG.HAMMOND,​RD.GUNN,​QJ.MONTANA,​QT.CLEMENTS,​QJ.THEISMAN
9110 DATA BA.ROBERTS,​BE.ALLEN,​BK.SMITH,​BC.BAES,​RI.FRYAR
9115 DATA RWEDEMEYER,​RR.VATAHA,​QJ.PLUNKETT,​QB.CLARK,​QE.SMITH
9120 DATA BG.BELL,​BH.HUCKLEBY,​BR.LYTLE,​BB.WOOLFOLK,​RR.CLAYTON
9125 DATA RC.KAY,​RK.HERBERT,​QR.LEACH,​QJ.WANGLER,​QM.WILSON
9130 DATA BOJ SIMPSON,​BL.KEYES,​BL.ROOKS,​BD.BEVERLY,​RJ.CHADWICK
9135 DATA RD.WILLIAMS,​RT.BREWSTER,​QJ.TRUDEAU,​QM.PHIPPS,​QDANIELSON
9140 DATA BS.DIERKING,​BC.MUNCIE,​BARMSTRONG,​RJK MCKAY,​RL.JONES
9145 DATA RG.DENNISON,​QS.YOUNG,​QP.SULLIVAN,​QJ.THOMPSON,​QW.PEACE
9150 DATA BP.JOHNSON,​BA.GRIFFIN,​BR.SPRINGS,​BE.CAMPBELL,​RBASCHNAGEL
9155 DATA RHASSELBECK,​RHAWTHORNE,​QM.HERRMAN,​QC.GREENE,​QN.LOMAX
9160 DATA BB.SIMS,​BT.DORSETT,​BM.SUHAY,​BJ.REDWINE,​RF.BYRD
9165 DATA RM.BRAMMER,​RK.GIBSON,​QBLACKLEDGE,​QS.CAMPBELL,​QSCHLICTER
9170 DATA BL.RICKS,​BB.JACKSON,​BC.WHITE,​RD.HUGHES,​RT.HUNTER
9175 DATA RD.DONLEY,​RA.CARTER,​QT.EASON,​QJ.ELWAY,​QD.MARINO
9180 DATA BH.WALKER,​BV.BROADNAX,​BT.SPENCER,​RJ.FRANK,​RB.BRENNAN
9185 DATA RC.DUNAWAY,​RV.BEAN,​QM.TOMCZAK,​QHOSTETLER,​QS.SMITH
9190 DATA BR.ROGERS,​BM.DUPREE,​BK.BYAR,​BM.ROZIER,​RT.MARKRAY
9195 DATA RD.TURNER,​RS.NELSON,​QB.KIEL,​QT.GILL,​QD.FLUTIE
9281 DATA 7 SEASONS - 8 GAMES PER SEASON
9282 DATA 10-PLAYER ROSTER DURING TRADING
9283 DATA 8-PLAYER ROSTER WHEN SEASON STARTS
9284 DATA TEAM STRENGTH DETERMINED BY:​
9285 DATA 2 HIGHEST-RATED ACKS
9286 DATA 2 HIGHEST-RATED ECEIVERS
9287 DATA 2 HIGHEST-RATED UARTERBACKS
9288 DATA THE RATINGS ARE ADDED TOGETHER AND
9289 DATA COMPARED AGAINST EACH TEAM PLAYED.
9290 DATA ,​THE  WINNER IS DETERMINED BY:​
9291 DATA MOST CREDIT POINTS---
9292 DATA 1 FOR EACH VICTORY
9293 DATA 2 FOR EACH SEASON CHAMPIONSHIP
9300 REM **** MATURITY TABLE ****
9310 DATA 0,​0,​1,​1,​2,​2
9320 DATA 0,​0,​0,​1,​1,​2
9330 DATA -1,​0,​0,​1,​1,​1
9340 DATA -1,​0,​0,​0,​1,​1
9350 DATA -1,​0,​0,​0,​1,​1
9360 DATA -1,​0,​0,​0,​0,​1
9370 DATA -1,​0,​0,​0,​0,​0
9400 REM ****** SCHEDULE ******
9405 DATA 1,​2,​4,​3,​4,​5,​2,​5,​1,​3
9410 DATA 1,​5,​1,​4,​2,​4,​2,​3,​5,​3
9415 DATA 3,​1,​4,​1,​4,​2,​5,​2,​3,​5
9420 DATA 5,​1,​5,​4,​3,​2,​3,​4,​2,​1
9430 REM ****** GAME SCORES ******
9435 DATA 0,​0,​0,​0,​3,​7,​7,​10,​14,​14,​17,​20,​23
9440 DATA 0,​0,​3,​3,​7,​9,​10,​14,​17,​20,​20,​22,​27
9445 DATA 3,​6,​7,​7,​10,​13,​14,​17,​20,​21,​24,​27,​35
9450 DATA 6,​7,​9,​10,​14,​16,​17,​20,​24,​27,​28,​30,​38
9455 DATA 9,​10,​14,​17,​18,​18,​20,​21,​28,​31,​33,​38,​45
9460 DATA 10,​13,​21,​22,​23,​23,​23,​24,​30,​37,​38,​42,​49
9465 DATA 14,​17,​23,​24,​26,​27,​27,​29,​35,​45,​45,​48,​53
9470 DATA 17,​21,​24,​28,​29,​31,​32,​35,​41,​49,​52,​54,​60
9475 DATA 20,​27,​30,​31,​34,​35,​37,​38,​45,​52,​55,​56,​63
9480 DATA 28,​31,​34,​40,​42,​44,​45,​48,​49,​54,​61,​62,​70
9999 GRAPHICS 0:​SETCOLOR 2,​YEAR*2,​2:​COLOR 3:​POKE 752,​1:​SOUND 0,​30,​10,​8:​FOR W=1 TO 10:​NEXT W:​SOUND 0,​0,​0,​0
10000 II=PEEK(16):​IF II>127 THEN II=II-128:​POKE 16,​II:​POKE 53774,​II:​RETURN	

• Download link 1

• Download link 1
• Download link 2