10 DIM FL$(145,2):POKE53280,0:POKE53281,0:POKE646,5:POKE788,52
20 PRINT"[147]        2 DIRECTORYS AUSDRUCKEN"
40 PRINT"           BY ALF AND MARTIN"
45 PRINT:FORI=1TO40:PRINT"[162]";:NEXT:PRINT
50 PRINT"BITTE DIE VORDERSEITE DER DISKETTE, DIE"
60 PRINT"SIE AUSDRUCKEN WOLLEN, EINLEGEN UND :    TASTE DRUECKEN ! "
80 POKE198,0:WAIT198,1:POKE198,0
90 PRINT"J[146] = JA : N[146] = NEIN : A[146] = ALLES : Q[146] = ENDE"
100 PRINT"ICH LESE DAS DIRECTORY !"
110 X=1:GOSUB1000
120 PRINT"BITTE DISKETTE UMDREHEN UND EINE         TASTE DRUECKEN ! "
140 POKE198,0:WAIT198,1:POKE198,0
150 PRINT"J[146] = JA : N[146] = NEIN : A[146] = ALLES : Q[146] = QUIT"
160 PRINT"ICH LESE DAS DIRECTORY !"
170 X=2:ALL=0:GOSUB1000
180 PRINT"BITTE SCHALTEN SIE JETZT DEN DRUCKER "
190 PRINT"EIN UND JUSTIEREN DAS PAPIER."
200 PRINT"EINE  TASTE [146] ZUM START  DRUECKEN ! "
210 POKE198,0:WAIT198,1:POKE198,0
220 GOSUB2000
230 PRINT"NOCH EINE DISK AUSDRUCKEN (J/N) ?"
240 GETA$:IFA$=""THEN240
250 IFA$="J"THENRUN
260 IFA$="N"THENPRINT"[147]":END
270 GOTO240
1000 REM "GET $!
1005 [151]650,128
1010 [159]1,8,15,"I0":[159]2,8,2,"#"
1020 [152]1,"M-R"[199](144)[199](7)[199](23)
1030 [132]1,A$
1040 [139][198]([200](A$,1))[178]141[167]A$[178][201](A$,22)
1050 D$(X)[178]"     "[170]A$
1060 [153]:[151]212,255:[153]D$(X);:[153]" A";
1061 [151]198,0:[146]198,1:[161]A$
1062 [139]A$[178]"A"[167][153]"LLES":ALL[178]1:[137]1070
1063 [151]211,29:[153]"  "
1070 [153]:S[178]1:F[178]1
1080 [152]1,"U1 2 0 18";S
1090 [129]I[178]0[164]7
1100 [152]1,"B-P 2"I[172]32[170]2
1110 [161]#2,A$:FT[178][198](A$[170][199](0))[175]7:[139]FT[178]0[137]1200
1120 [152]1,"B-P 2"I[172]32[170]5
1130 F$[178]"":[129]J[178]1[164]16:[161]#2,A$:F$[178]F$[170]A$:[130]
1140 [152]1,"B-P 2"I[172]32[170]30
1150 [161]#2,A$:BL[178][198](A$[170][199](0))
1160 [161]#2,A$:BH[178][198](A$[170][199](0))
1170 BL$[178][200]([196](BL[170]256[172]BH)[170]"     ",6)
1180 FL$(F,X)[178]BL$[170][199](34)[170]F$[170][199](34)[170]" "[170][202]("SEQPRGUSRREL",(FT[171]1)[172]3[170]1,3)
1185 [139]ALL[178]1[167][153]FL$(F,X):F[178]F[170]1:P[178]1:[137]1200
1186 [153]FL$(F,X);" NCMD";
1187 [161]A$:[139]A$[178]""[167]1187
1190 [139] A$[178]"J"[167][153]"JA":F[178]F[170]1:P[178]1:[137]1200
1193 [139] A$[178]"Q"[167][138]
1195 [153]"NEIN":P[178]0
1200 [130]I
1210 [152]1,"B-P 2 1"
1220 [161]#2,A$:S[178][198](A$[170][199](0))
1230 [139]S[179]19[137]1080
1235 [139]P[178]0[167]FL$(F,X)[178]""
1240 [152]1,"M-R"[199](250)[199](2)
1250 [161]#1,A$:BL[178][198](A$[170][199](0))
1255 [152]1,"M-R"[199](252)[199](2)
1260 [161]#1,A$:BH[178][198](A$[170][199](0))
1270 FL$(F,X)[178][196](BL[170]256[172]BH)[170]" BLOCKS FREE!"
1275 [153]FL$(F,X)
1280 [160]1:[160]2:[151]650,0:[142]
2000 [143]"PRINT DIRECTORYS
2010 OPEN1,4:X=1
2020 PRINT#1,D$(1);CHR$(16);"30";D$(2)
2030 PRINT#1
2040 IFFL$(X,1)=""ANDFL$(X,2)=""THENPRINT#1,CHR$(13)CHR$(13):CLOSE1:RETURN
2050 PRINT#1,FL$(X,1)+CHR$(16)+"30"+FL$(X,2)
2060 X=X+1:GOTO2040