Directory of image this file is from
This file as a plain text file

5 Z=1\INPUT N
10 LPRINT "THE NUMBER OF PLAYERS=";N\LPRINT 
15 T=(N)*(N-1)/2
20 LPRINT "THE NUMBER OF TEAMS=";T
25 LPRINT\LPRINT "THE TEAMS ARE:" 
30 FOR I= 1 TO N
35 FOR J=(I+1) TO N 
40 X=I*10\Y=J 
45 R=X+Y
50 LPRINT R;
55 NEXT J\NEXT I\LPRINT 
60 PRINT "NO. OF TEAMS=";T
65 LPRINT 
70 LPRINT TAB(0);"GAME";TAB(5);"TEAM";TAB(10);"TEAM"
75 FOR A=1 TO N 
80 FOR B=1 TO N 
85 FOR C=1 TO N 
90 FOR D =1 TO N
95 IF A<>B GO TO 105
100 GO TO 190
105 IF A<>C GO TO 115
110 GO TO 190
115 IF A<>D GO TO 125
120 GO TO 190
125 IF B<>C GO TO 135
130 GO TO 190
135 IF B<>D GO TO 145
140 GO TO 190
145 IF C<>D GO TO 155
150 GO TO 190
155 IF A>= B GO TO 190 
160 IF C>=D GO TO 190
165 IFA>=C GO TO 190 
170 IF A>=D GO TO 190
175 T1=(10*A)+B\T2=(10*C)+D
180 LPRINT TAB(0);Z;TAB(6);T1;TAB(11);T2 
185 Z=Z+1
190 NEXT D 
195 NEXT C 
200 NEXT B 
205 NEXT A 
210 END