0 REM "DIR-CHANGER"
10 POKE53281,0:PRINT"[147]";CHR$(14)
30 PRINT"       *** [196][201][210][197][195][212][207][210][217] [195][200][193][206][199][197][210] ***
40 [153]"       TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
245 PRINTCHR$(14)"   [194]ITTE WARTEN [211]IE EINEN [205]OMENT ..."
250 FORI=828TO922:READX:POKEI,X:NEXT:SYS828
260 DIMB(18),F$(144)
270 Z$=""
280 B(1)=1:B(2)=4:B(3)=7:B(4)=10:B(5)=13:B(6)=16:B(7)=2:B(8)=5:B(9)=8:B(10)=11
290 B(11)=14:B(12)=17:B(13)=3:B(14)=6:B(15)=9:B(16)=12:B(17)=15:B(18)=18
300 OPEN1,8,15:PRINT#1,"I"
310 OPEN2,8,2,"#"
320 N=1:Z=1:T=18:S=1:HI$="":K=1
330 FORI=1TO11:HI$=HI$+CHR$(0):NEXT
340 K$=CHR$(131)+CHR$(18)+CHR$(0)+"----------------"+HI$
350 GOSUB860:IFT>0THENZ=Z+1
360 BP=2
370 FORI=1TO8
380 GOSUB890:IFASC(LEFT$(A$,1))<>0THENF$(N)=A$:N=N+1:NEXT
390 IFASC(LEFT$(A$,1))=0THENNEXT
400 IFT<>0THENGOTO350
410 ZA=Z:NA=N:GOTO730
420 :
430 :REM INSERT EMPTY FILE
450 PRINTZ$;:INPUT"[153]UEBER WELCHEM EINTRAG";A
460 IFA=0ORA>NTHENGOTO450
470 FORI=NTOA+1STEP-1
480 F$(I)=F$(I-1):NEXT:N=N+1:F$(A)=""
490 FORI=1TO30:F$(A)=F$(A)+CHR$(0):NEXT
500 GOTO730
510 :
520 :REM SWAP ENTRIES
540 PRINTZ$;:INPUT"[153]WELCHE ZWEI NUMMERN VERTAUSCHEN";A,B
550 IFA=0ORA>N-1THEN540
560 IFB=0ORB>N-1THEN540
570 FH$=F$(A):F$(A)=F$(B):F$(B)=FH$
580 GOTO730
590 :
600 :REM ADD DASHES
620 PRINTZ$;:INPUT"[153]UEBER WELCHEM EINTRAG";A
630 IFA=0ORA>NTHENGOTO620
640 FORI=NTOA+1STEP-1
650 F$(I)=F$(I-1):NEXT:N=N+1:F$(A)=K$:GOTO730
660 :
670 :REM REMOVE EMPTY FILES
690 FORI=1TON-1:IF(ASC(LEFT$(F$(I),1)))=0THENGOTO720
700 NEXT
710 GOTO730
720 FORR=ITON-1:F$(R)=F$(R+1):NEXT:N=N-1:GOTO690
725 :
726 :REM DIRECTORY LISTING
730 PRINT"[147]       *** DIRECTORY CHANGER ***[146]"
740 FORI=KTOK+18
760 IFI<NTHENPRINT"[157]";I;MID$(F$(I),4,16)
770 IFI+19<NTHENPRINTTAB(19)"[145]";I+19;MID$(F$(I+19),4,16)
775 NEXT
781 PRINTZ$"F1[146] LEERRAUM EINSETZEN  CRSR-DN[146] VORWAERTS";
782 PRINT"F3[146] EINTRAEGE VERTAUSCHEN CRSR-UP[146] RUECKW.";
783 PRINT"F5[146] TRENNZEILE EINFUEGEN
784 [153]"F7WAIT LEERRAUM ENTFERNEN     RETURNWAIT FERITG";
789 [153][199](142);
790 [151]198,0:[146]198,1:[161]A$
800 :[143] F1
801 [139]A$[178]"INPUT"[167]420
802 :[143] F3
803 [139]A$[178]"DIM"[167]510
804 :[143] F5
805 [139]A$[178]"READ"[167]590
806 :[143] F7
807 [139]A$[178]"LET"[167]660
808 :[143] CRSR-UP
809 [139]A$[178]"ON"[167]K[178]K[171]10:[139]K[178][179]0[167]K[178]1
810 :[143] CRSR-DOWN
811 [139]A$[178]""[167]K[178]K[170]10:[139]K[177]N[167]K[178]N[171]38
812 :[143] WRITE DIRECTORY?
813 [139]A$[179][177][199](13)[137]730
818 [153][199](14)"LOAD(null)EUES DIRECTORY WIRD GESCHRIEBEN ...
820 PRINT"[194]ITTE WARTEN, BIS DIE ROTE [204]EUCHTDIODE
830 [153]"AM (null)AUFWERK AUS IST."
850 [137]1000
860 [152]1,"U1 2 0";T;S
870 [161]#2,T$,S$
880 T[178][198](T$[170][199](0)):S[178][198](S$[170][199](0)):[142]
890 [152]1,"B-P 2";BP
900 A$[178]"":[133][172]2,30,A$:[139]BP[179]226[167]BP[178]BP[170]32
910 [142]
920 [131]169,71,160,3,141,8,3,140,9,3,96,32
930 [131]115,0,201,133,240,6,32,121,0,76,231,167
940 [131]32,115,0,201,172,240,6,32,191,171,76,174
950 [131]167,32,155,183,32,30,225,32,253,174,32,158
960 [131]183,138,72,32,253,174,32,139,176,133,73,132
970 [131]74,32,163,182,104,32,117,180,160,2,185,97
980 [131]0,145,73,136,16,248,200,32,18,225,145,98
990 [131]200,196,97,208,246,32,204,255,76,174,167
1000 A$[178]""
1010 [129]I[178]1[164]30:A$[178]A$[170][199](0):[130]:N[178]N[171]1:NA[178]NA[171]1
1020 ZN[178][181](N[173]8):[139]N[173]8[177]ZN[167]ZN[178]ZN[170]1
1030 [139]ZN[178]ZA[167][137]1060
1040 [139]ZN[177]ZA[167][129]I[178]ZA[170]1[164]ZN:[152]1,"B-A 0";18;B(I):[130]
1050 [139]ZN[179]ZA[167][129]I[178]ZN[170]1[164]ZA:[152]1,"B-F 0";18;B(I):[130]
1060 NZ[178]0:BP[178]0:K[178]0:ZB[178]1
1070 [139]ZB[178]ZN[167]C$[178][199](0):B$[178][199](255):[137]1090
1080 C$[178][199](18):B$[178][199](B(ZB[170]1))
1090 [152]1,"B-P";2;BP:[152]2,C$;B$;
1100 BP[178]2
1110 NZ[178]NZ[170]1:K[178]K[170]1
1120 [152]1,"B-P";2;BP
1130 [152]2,F$(NZ);
1140 [139]K[178]8[176]NZ[178]N[167]1160
1150 BP[178]BP[170]32:[137]1110
1160 [139]K[178]8[167]1200
1170 BP[178]BP[170]32:[152]1,"B-P";2;BP
1180 [152]2,A$;
1190 K[178]K[170]1:[139]K[179]8[167]1170
1200 [152]1,"U2:2 0";18;B(ZB)
1210 [139]NZ[178]N[167]1230
1220 ZB[178]ZB[170]1:K[178]0:BP[178]0:[137]1070
1230 [139]ZA[178][179]ZN[167][137]1290
1240 [129]I[178]ZN[170]1[164]ZA
1250 [152]1,"B-P";2;0:[152]2,[199](75);
1260 [129]T[178]1[164]255:[152]2,[199](1);:[130]
1270 [152]1,"U2:2 0";18;B(I)
1280 [130]I
1290 [161]#1,A:[139]A[177]0[167][153]"ON(null)CHREIBFEH:ER, BITTE STR$ISKETTE PRUEFEN!"
1300 [160]1:[160]2:[128]