NAME PRO_ A$(200),A%(200):Q$(34):"*** BY CRAIG BRUCE **** 02 JUNE 1985 *"h""XX1:A$"":X"";:A$,A:A$"-"XX2:20A$"+"20XX1:A$""20A$"SAVE"100A$"LOAD"200 A$"LIST"300!A$"SORT"400"A$"PRINT"500+#A$"QUIT"L&I1(A$):(A$,I,1)" "i'A$(A$,I1)","(A$,I)(XX1:A$(X)A$:A%(X)A220d157,128:1,1,1,"NAMES":1,XnI1X:1,Q$;A$(I);Q$:1,A%(I)::1:15157,128:1,1:1,XI1X:1,A$(I):1,A%(I)::1:15.,I1X:A$(I);A%(I)A6A$:A$""310K@:15]I1X:JIXA$(I)A$(J)T$A$(J):TA%(J):A$(J)A$(I):A%(J)A%(I):A%(I)T:A$(I)T$::154,4,7:C11:N(X2):C2N1:X2NC2C21:NN1"I1N:4," "(" "(C1),3)". "(" "(A%(C1)),3);H4," "A$(C1);:A$(C2)""4:5504,(16)"40"(" "(C2),3)". "(" "(A%(C2)),3);4," "A$(C2)&C1C11:C2C21::4:4:15