:M1:F$(2000)+53280,1:53281,1;"": 1310K(""(142)]215,8,15,"I0"e<15rFC$(13)PP$(34)ZN$"":F$(0)"":DID$""d" LOADING DIRECTORY"n" --PLEASE WAIT--"xJ0 8,8,0,"$0" 4050 " FOR"S " ";F$(0);"":JM\ EF0e 405~ EF0JJ1:MJ:200 TJ1 8 "" J1 EF0 "DIRECTORY LOADED 6 h"FILE IS NOW ";T;" LONG 2500 ALLOWED" i"PUT NEW DISK IN DRIVE #0 AND"C j"PRESS RETURN KEY WHEN DONE"e k"PRESS F(1) KEY TO SORT l"PRESS F(7) TO SEE MENU qX$:X$""369 rX$(133)600 wX$(136) 1310 xX$(135)"PLEASE WAIT":(X):"PRESS RETURN";X$:360 |40 #8,A$% A$N$4050 #8,A$@ A$N$445K #8,A$[ A$N$445f #8,A$x A$N$EF1: A$P$415 #8,A$ A$P$470 F$(J)F$(J)A$ 450 J0 #8,A$ (A$" ")(J0)DID$DID$A$ A$" "470 #8,A$> (A$N$)(J0)(A$" ")DID$DID$A$ :485^ F$(J)F$(J)" <"DID$">":u  PRINTS TO SCREEN C0: J1T:CC1 "";J;"";F$(J) C20"PRESS RETURN TO CONT";X$:C0:" " J "PRESS RETURN TO CONT";X$ &1310J XTT1: ADDS 1 TO LIST FOR SORT TOGET LAST INPUTS b""[ lP0c vLTp L(L2)} L0850 PP1 "PASS=";P TS0L1 ITS KTSL SW0 F$(I)F$(K)780 SW1 B$F$(I) F$(I)F$(K) F$(K)B$ IKKKL2 ".";: KT720@*SW0830I4690Q>TSZH640tR"SORT DONE":TT1\"PRESS RETURN TO CONT "f"PRESS F1TO SEE MENU"pX$:X$""890zX$(133)1310310"PRINTOUT IN PROGRESS":4,4KJ1:PAD$"":4:4:C0: PRINTOUT PAD$ ADDS SPACES ALL FILES=40I1(40((F$(J)))):PAD$PAD$" "::CC1: C COUNTS# OF LINESJA$(J):JB$(J1):4,"(";(JA$,3);") ";F$(J)PAD$;F$(J1)""10604,"(";(JB$,3);") ";F$(J1)$JT21090*.C60X16:4:X:C0B8JJ2:PAD$"":1020rB4:4:"PRINTOUT COMPLETE HIT RET";X$:1310} MENU"PRESS RETURN TO ADD NEW DISK OR TO SEE MENU 2"#"PRESS F(1) TO SEE FILE ON SCREEN"("PRESS F(3) TO SEND FILE TO PRINTER"7-"PRESS F(5) TO SAVE FILE ON DISK"`2"PRESS F(7) TO READ FILE FROM DISK"y7"PRESS F(8) TO EXIT<X$:X$""1340AX$(133) 510FX$(134) 1000KX$(135) 1410PX$(136) 1500 UX$(140)"":15,8,15,"I0":15:Z"": 360L"SAVING CATALOG":5,8,5,"@0:CATALOG,S,W"U5,Tb J1 To5,F$(J)u:5:5"CATALOG SAVED ":"PRESS RETURN TO CONT";X$:1310"LOADING CATALOG FROM DISK"5,8,5,"0:CATALOG,S,R"5,T J1 T5,F$(J)#1MT1 :5k6"CATALOG LOADED":"PRESS RETURN TO CONT";X$:1310