FILE5 

10  FILES TEST.M000,TEST
20  DIM N$[255],N[50]
30  N=0
40  S=R=1
50  GOTO TYP(1) OF 140,70,200
60  GOTO TYP(2) OF 140,70,200
70  IF N=1 THEN 110
80  READ #S;N$
90  PRINT N$;
100  GOTO S OF 50,60
110  READ #1;N$
120  PRINT #2;N$
130  GOTO 50
140  IF N=1 THEN 180
150  READ #S;N[R]
160  PRINT N[R];
170  GOTO S OF 50,60
180  PRINT #2;N[R]
190  GOTO 50
200  IF N=1 THEN 330
210  IF N=2 THEN 370
220  PRINT 
230  FOR X=1 TO R-2
240  FOR Y=X TO R-1
250  IF N[X] <= N[Y] THEN 270
260  N[X]=N[Y]
270  NEXT Y
280  NEXT X
290  N=N+1
300  R=1
310  READ #1,1
320  GOTO 50
330  S=N=2
340  R=1
350  READ #2,1
360  GOTO 60
370  END 
