10#8,X$$ST0FL10FL1@X$(13)SA$(I)A$(I)X$Z2k 15,8,15,"I"s I1A$(500)"FILENAME TO READ INPUT";IN$"FILENAME TO WRITE OUTPUT";OUT$OUT$"0:"OUT$",S,W"8,8,8,IN$ 1000:(147) X$"":2 II1F " ...EADING NTRY #";IT FL121` #VAI:8p (9,8,9,OUT$z -1000 P"AIT...":"LPHABETIZING ZA1VA1 _"*"; dBA1VA nA$(B)A$(A)SM$A$(B):A$(B)A$(A):A$(A)SM$ x  "INISHED ALPHABETIZING", A1VA23: BAA22E A$(B)R 9,A$(B)Y B_ f 9l + 15,A1,B$,C1,D1 A1,B$,C1,D1 A10