#d" THIS PRINTS A DIRECTORY"Cn" IN ALPHABETICAL ORDER."lx" PRINT ON SCREEN OR PRINTER?"OD$: OD$"P"OD$""150130"**READING THE DIRECTORY**"F$(144):B6:C2:Q$(34):R$"":SP$" " 1,8,0,"$":#1,A$,B$! #1,A$,B$: LINKZ #1,A$,B$:NB(A$(0))256(B$(0)): # OF BLOCKSq #1,B$:ST0 290 B$(34)200 #1,B$:B$(34)S$S$B$:220 #1,B$:B$(32)230 C$"":A0C$" " C$C$B$:#1,B$:B$""2504 F$(A)(R$Q$S$Q$SP$,19)(C$,B)""((NB)SP$,2,C)R S$"":R$"":AA1:B3:C5` ST0180 "1:NA1:BF$((NB)" BLOCKS FREE, "(N)"FILES.",2) ,"** SORTING DIRECTORY **" 6MN @M(M2) JM0470 TJ1:KNM ^IJ hLIM rCMCM1 |F$(I)F$(L)440@ T$F$(I):F$(I)F$(L):F$(L)T$L SWSW1V IIMc I1440l 360v JJ1 JK320 350 OD$"P"4,4:" **PRINTING DIRECTORY **":4 OD$"P""" C2:I0N: (F$(I),C)(F$(I),(F$(I))C):C5 : BF$) OD$"P":::4:4a OD$"P"" USE 'GOTO 480' TO VIEW LISTING AGAIN"