5 IFPEEK(49152)<>160THENLOAD"ALPHA.ML",8,1
15 PRINT"[147]"TAB(11)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
20 PRINTTAB(11)"[221]A - ALPHABETIZE[221]":PRINTTAB(11)"[221]D - DIRECTORY  [221]"
25 PRINTTAB(11)"[221]Q - QUIT       [221]":PRINTTAB(11)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
27 POKE56,142:CLR:DIMFP$(144),SP$(144),SS%(144)
30 GETA$:IFA$="A"THEN80
40 IFA$="D"THENSYS49411:GOTO680
60 IFA$<>"Q"THEN30
70 PRINT"[147]";:END
80 PRINT"READING DIRECTORY";:OPEN1,8,15,"I":GOSUB660:CLOSE1
90 SYS49152:I1=PEEK(7):PRINTI1"FILES"
230 PRINT"ALPHABETIZING":FORT=1TOI1:SP$(T)=SP$(T)+FP$(T):NEXT
240 N=I1:LI=1:B(LI)=N+1:M=1
250 J=B(LI):I=M-1:IFJ-M<3THEN360
260 MI=INT((I+J)/2)
270 I=I+1:IFI=JTHEN320
280 IFSP$(I)<=SP$(MI)THEN270
290 J=J-1:IFI=JTHEN320
300 IFSP$(J)>=SP$(MI)THEN290
310 SP$=SP$(I):SP$(I)=SP$(J):SP$(J)=SP$:GOTO270
320 IFI>=MITHENI=I-1
330 IFJ=MITHEN350
340 SP$=SP$(I):SP$(I)=SP$(MI):SP$(MI)=SP$
350 LI=LI+1:B(LI)=I:GOTO250
360 IFJ-M<2THEN390
370 IFSP$(M)<SP$(M+1)THEN390
380 SP$=SP$(M):SP$(M)=SP$(M+1):SP$(M+1)=SP$
390 M=B(LI)+1:LI=LI-1:IFLI>0THEN250
400 FORT=1TOI1:FP$(T)=RIGHT$(SP$(T),5):SP$(T)=LEFT$(SP$(T),27):NEXT
410 OPEN1,8,15,"I":GOSUB660:OPEN8,8,8,"#":I2=1:PRINT"WRITING DIRECTORY"
420 PRINT#1,"B-P";8;0
430 C=0:READS:IFI1-I2<8THENPRINT#8,CHR$(0)CHR$(255);:GOTO450
440 PRINT#8,CHR$(18)CHR$(S);
450 PRINT#8,RIGHT$(FP$(I2),3);:GOTO470
460 PRINT#8,FP$(I2);
470 PRINT#8,SP$(I2);
480 IFI2=I1THEN510
490 I2=I2+1:C=C+1:IFC<8THEN460
500 READS:PRINT#1,"U2";8;0;18;S:GOTO420
510 A$="":FORT=1TO32:A$=A$+CHR$(0):NEXT
520 C=C+1:IFC=8THEN540
530 PRINT#8,A$;:GOTO520
540 READS:PRINT#1,"U2";8;0;18;S:CLOSE8:SYS49411:GOTO680
550 DATA 4,1,7,4,10,7,13,10,16,13,2,16,5,2,8,5,11,8,14,11,17,14,3,17,6,3,9,6
560 DATA 12,9,15,12,18,15,0,18
660 INPUT#1,A,B$,C,D:IFA=0THENRETURN
670 PRINTA;B$;C;D
680 CLOSE1:PRINT"PRESS RETURN"
690 GETA$:IFA$<>CHR$(13)THEN690
700 RUN