0 REM--AHOY!--MAY ISSUE--ARRAYS--PROG PAGE 69
5 N=4
10 FOR I=1 TO N:READ N$(I),A(I):NEXT I
20 DATA AMY,25,ABE,12,ARTHUR,30,ANNE,5
30 REM - SORT BY NAME -
40 FOR I=1 TO N
50 FOR J=I TO N
60 IF N$(I)>N$(J) THEN GOSUB 1000
70 NEXT J
80 NEXT I
90 FOR I=1 TO N:PRINT N$(I),A(I):NEXT
100 END
990 REM - SWAP NAMES AND AGES -
1000 T$=N$(I):N$(I)=N$(J):N$(J)=T$
1010 T=A(I):A(I)=A(J):A(J)=T
1020 RETURN