10 REM NIKOLAUS HEUSLER - ZWENGAUERWEG 18 - 81479 MUENCHEN - 6.93
20 N$=CHR$(0):Q$=CHR$(34)
30 L$="                                  "
100 PRINT"[147]** MINI-DIR             NIKOLAUS HEUSLER
102 [153]"DRUCKT ZWEISPALTIGE DIRECTORIES AUF EP-
104 PRINT"SON-KOMPATIBLEN DRUCKERN
110 [153]"SCHRIFT STAUCHEN?      [J/N] ";
112 [161]S$:[139]S$[179][177]"J"[175]S$[179][177]"N"[167]112
114 [153]S$
120 [153]"FORMFEED NACH DRUCK?   [J/N] ";
122 [161]FF$:[139]FF$[179][177]"J"[175]FF$[179][177]"N"[167]122
124 [153]FF$
127 [153]"GROSS- & KLEINBUCHST.? [J/N] ";
128 [161]SA$:[139]SA$[179][177]"J"[175]SA$[179][177]"N"[167]128
129 [153]SA$
130 [153]"BITTE DISKETTE EINLEGEN, DRUCKER
132 PRINT"BEREITMACHEN UND TASTE DRUECKEN!
140 [151]198,.:[146]198,1:[161]A$
150 SA[178]1:[139]SA$[178]"J"[167]SA[178]2
200 [159]4,4,SA:[159]5,4,1:[152]5,[199](27)[199](64)[199](15);:[159]2,8,0,"$
205 IFS$="J"THENPRINT#5,CHR$(27)CHR$(83)CHR$(0)CHR$(27)"3"CHR$(12);
210 GET#2,A$,A$
220 GET#2,A$,A$
230 GET#2,A$,B$:N=256*ASC(B$+N$)+ASC(A$+N$)
235 G$=""
240 GET#2,A$:IFA$=""ORST<>0ORA$=N$THEN500
250 G$=G$+A$:IFA$<>Q$THEN240
260 F$=""
270 GET#2,A$:IFST<>0THEN500
280 IFA$<>Q$THENF$=F$+A$:GOTO270
290 Z$=""
300 GET#2,A$
310 IFA$<>""ANDA$<>N$THENZ$=Z$+A$:GOTO300
320 GOSUB600:V$=E$
400 IFF=1THEN450
405 V$=LEFT$(V$+L$,16)
410 F=1:PRINT#5,"     DIRECTORY DER DISK ";:PRINT#4,Q$V$Q$;:PRINT#5,"  ID: "Q$;
412 F$=Z$:GOSUB600:IFMID$(E$,4,1)=" "THENE$=LEFT$(E$,3)
414 PRINT#4,MID$(E$,2)Q$
416 PRINT#5,"-------------------------------------------------------------
420 [137]500
450 [139][198](Z$[170]N$)[178]32[176][198](Z$[170]N$)[178]42[167]Z$[178][201](Z$,[195](Z$)[171]1):[137]450
451 F$[178]Z$:[141]600
452 W$[178]W$[170][201](L$[170][196](N),5)[170]" "[170]Q$[170][200](V$[170]Q$[170]L$,18)[170][200](E$[170]L$,5):DZ[178]DZ[170]1
455 [139]M[178]0[167]W$[178]W$[170]"!
460 M=1-M:IFM=0THENPRINT#4,W$:W$=""
500 IFLEFT$(G$,1)="B"THENG$="BLOCKS FREI.":GOTO505
503 IFST=0THEN220
505 IFW$>""THENPRINT#4,W$
506 PRINT#5,"-------------------------------------------------------------
507 [152]5,[201](L$[170][196](N),5)[170]" "[170]G$[170][201](L$[170][196](DZ),18)" DATEI";
508 [139]DZ[179][177]1[167][152]5,"EN";
509 [152]5:[152]5:[152]5
510 [139]FF$[178]"J"[167][152]5,[199](12)
520 [160]4:[160]5:[160]2:[153]"VORGANG BEENDET.":[128]
600 E$[178]""
610 [129]I[178]1[164][195](F$)
620 H[178][198]([202](F$,I,1)[170]N$):[139](H[177]31[175]H[179]127)[176](H[177]159[175]H[179]255)[167]640
630 H[178]32
640 E$[178]E$[170][199](H):[130]:[142]