00000000: 01 10 25 10 32 00 8F 20 20 44 49 52 45 43 54 4F |..%.2.. DIRECTO|
00000010: 52 59 20 50 52 49 4E 54 20 2A 20 42 41 53 49 43 |RY PRINT * BASIC|
00000020: 20 56 33 2E 35 00 49 10 3C 00 8F 20 20 31 39 38 | V3.5.I.<.. 198|
00000030: 36 20 42 59 20 53 56 45 4E 20 47 49 45 52 4F 2C |6 BY SVEN GIERO,|
00000040: 20 42 55 52 47 44 4F 52 46 00 4F 10 46 00 3A 00 | BURGDORF.O.F.:.|
00000050: 66 10 50 00 E7 34 2C 31 3A E7 30 2C 31 3A E7 31 |f.P..4,1:.0,1:.1|
00000060: 2C 36 2C 37 3A E8 00 7A 10 5A 00 54 B2 31 38 3A |,6,7:..z.Z.T.18:|
00000070: 53 B2 31 3A 99 C7 28 31 34 29 00 8E 10 64 00 81 |S.1:..(14)...d..|
00000080: 49 B2 31 A4 34 3A 87 46 24 28 49 29 3A 82 00 A4 |I.1.4:.F$(I):...|
00000090: 10 6E 00 83 20 53 45 51 2C 50 52 47 2C 55 53 52 |.n.. SEQ,PRG,USR|
000000A0: 2C 52 45 4C 00 D6 10 96 00 99 22 12 20 20 20 20 |,REL......". |
000000B0: 20 20 20 20 20 20 20 20 C4 C9 D2 C5 C3 D4 CF D2 | ........|
000000C0: D9 A0 D0 D2 C9 CE D4 20 20 20 20 20 20 20 20 20 |....... |
000000D0: 20 20 20 20 11 22 00 03 11 A0 00 99 22 C4 49 45 | ."......".IE|
000000E0: 53 45 53 20 D0 52 4F 47 52 41 4D 4D 20 44 52 55 |SES .ROGRAMM DRU|
000000F0: 43 4B 54 20 44 41 53 20 C4 49 52 45 43 54 4F 52 |CKT DAS .IRECTOR|
00000100: 59 11 22 00 33 11 AA 00 99 22 45 49 4E 45 52 20 |Y.".3...."EINER |
00000110: C4 49 53 4B 45 54 54 45 20 4D 49 54 20 41 4C 4C |.ISKETTE MIT ALL|
00000120: 45 4E 20 44 41 5A 55 47 45 48 4F 45 52 49 47 45 |EN DAZUGEHOERIGE|
00000130: 4E 11 22 00 62 11 B4 00 99 22 C4 41 54 45 4E 20 |N.".b....".ATEN |
00000140: 28 D3 50 55 52 2C 20 D3 45 4B 54 4F 52 2C D3 54 |(.PUR, .EKTOR,.T|
00000150: 41 52 54 41 44 52 45 53 53 45 20 55 53 57 2E 29 |ARTADRESSE USW.)|
00000160: 11 22 00 93 11 BE 00 99 22 44 45 52 20 45 49 4E |."......"DER EIN|
00000170: 5A 45 4C 4E 45 4E 20 C6 49 4C 45 53 20 41 55 46 |ZELNEN .ILES AUF|
00000180: 20 44 45 4D 20 C4 52 55 43 4B 45 52 20 41 55 53 | DEM .RUCKER AUS|
00000190: 2E 11 22 00 BE 11 C8 00 99 22 C2 49 54 54 45 20 |.."......".ITTE |
000001A0: 53 43 48 41 4C 54 45 4E 20 53 49 45 20 44 45 4E |SCHALTEN SIE DEN|
000001B0: 20 C4 52 55 43 4B 45 52 20 41 4E 2C 11 22 00 EF | .RUCKER AN,."..|
000001C0: 11 D2 00 99 22 4C 45 47 45 4E 20 53 49 45 20 44 |...."LEGEN SIE D|
000001D0: 49 45 20 45 4E 54 53 50 52 45 43 48 45 4E 44 45 |IE ENTSPRECHENDE|
000001E0: 20 C4 49 53 4B 45 54 54 45 20 49 4E 53 11 22 00 | .ISKETTE INS.".|
000001F0: 1E 12 DC 00 99 22 91 CC 41 55 46 57 45 52 4B 20 |....."..AUFWERK |
00000200: 55 4E 44 20 44 52 55 45 43 4B 45 4E 20 53 49 45 |UND DRUECKEN SIE|
00000210: 20 45 49 4E 45 20 D4 41 53 54 45 2E 11 22 00 29 | EINE .ASTE..".)|
00000220: 12 E6 00 A1 F9 41 24 3A E8 00 41 12 F0 00 97 36 |.....A$:..A....6|
00000230: 35 32 38 36 2C C2 28 36 35 32 38 36 29 AF 32 33 |5286,.(65286).23|
00000240: 39 00 5D 12 22 01 9F 20 31 2C 38 2C 31 35 2C 22 |9.].".. 1,8,15,"|
00000250: 49 30 22 3A 8B 20 44 53 20 A7 37 39 30 00 6D 12 |I0":. DS .790.m.|
00000260: 2C 01 9F 20 32 2C 38 2C 32 2C 22 23 22 00 7C 12 |,.. 2,8,2,"#".|.|
00000270: 36 01 9F 20 34 2C 34 2C 37 3A 98 34 00 91 12 40 |6.. 4,4,7:.4...@|
00000280: 01 98 31 2C 22 55 31 20 32 20 30 20 31 38 20 30 |..1,"U1 2 0 18 0|
00000290: 22 00 A4 12 4A 01 98 31 2C 22 42 2D 50 20 32 20 |"...J..1,"B-P 2 |
000002A0: 31 34 34 22 00 B0 12 54 01 81 49 B2 31 A4 31 36 |144"...T..I.1.16|
000002B0: 00 C4 12 5E 01 A1 23 32 2C 41 24 3A 4E 24 B2 4E |...^..#2,A$:N$.N|
000002C0: 24 AA 41 24 00 CA 12 68 01 82 00 E7 12 72 01 A1 |$.A$...h.....r..|
000002D0: 23 32 2C 41 24 2C 41 24 2C 41 24 2C 42 24 3A 49 |#2,A$,A$,A$,B$:I|
000002E0: 24 B2 41 24 AA 42 24 00 01 13 7C 01 A1 23 32 2C |$.A$.B$...|..#2,|
000002F0: 41 24 2C 41 24 2C 42 24 3A 46 24 B2 41 24 AA 42 |A$,A$,B$:F$.A$.B|
00000300: 24 00 2E 13 86 01 98 34 2C 22 CE 41 4D 45 3A 12 |$......4,".AME:.|
00000310: 22 4E 24 22 92 20 C9 C4 3A 12 22 49 24 22 92 20 |"N$". ..:."I$". |
00000320: C6 4F 52 4D 41 54 3A 12 22 46 24 3A 98 34 00 58 |.ORMAT:."F$:.4.X|
00000330: 13 90 01 98 34 2C 22 C6 49 4C 45 4E 41 4D 45 3A |....4,".ILENAME:|
00000340: 22 A6 39 29 22 C6 49 4C 45 54 59 50 3A 20 C2 4C |".9)".ILETYP: .L|
00000350: 4F 45 43 4B 45 3A 22 3B 00 87 13 9A 01 98 34 2C |OECKE:";......4,|
00000360: 22 D3 54 41 52 54 41 44 52 45 53 53 45 3A 20 D3 |".TARTADRESSE: .|
00000370: 50 55 52 3A 20 D3 45 4B 54 4F 52 3A 20 C4 49 52 |PUR: .EKTOR: .IR|
00000380: 42 4C 4F 43 4B 3A 22 00 A0 13 A4 01 81 49 B2 31 |BLOCK:"......I.1|
00000390: A4 38 30 3A 98 34 2C 22 3D 22 3B 3A 82 3A 98 34 |.80:.4,"=";:.:.4|
000003A0: 00 AD 13 D6 01 8B 54 B2 30 A7 37 36 30 00 C1 13 |......T.0.760...|
000003B0: E0 01 98 31 2C 22 55 31 20 32 20 30 22 3B 54 3B |...1,"U1 2 0";T;|
000003C0: 53 00 D3 13 EA 01 5A B2 32 3A 54 31 B2 54 3A 53 |S.....Z.2:T1.T:S|
000003D0: 31 B2 53 00 F1 13 F4 01 A1 23 32 2C 41 24 2C 42 |1.S......#2,A$,B|
000003E0: 24 3A 54 B2 C6 28 41 24 29 3A 53 B2 C6 28 42 24 |$:T..(A$):S..(B$|
000003F0: 29 00 01 14 FE 01 8B 5A B1 B2 32 35 36 A7 34 37 |)......Z..256.47|
00000400: 30 00 18 14 08 02 98 31 2C 22 42 2D 50 20 32 22 |0......1,"B-P 2"|
00000410: 3B 5A 3A 4E 24 B2 22 22 00 29 14 12 02 A1 23 32 |;Z:N$."".)....#2|
00000420: 2C 41 24 2C 42 24 2C 43 24 00 4A 14 1C 02 46 54 |,A$,B$,C$.J...FT|
00000430: B2 C6 28 41 24 29 AF 37 3A 45 54 B2 C6 28 42 24 |..(A$).7:ET..(B$|
00000440: 29 3A 45 53 B2 C6 28 43 24 29 00 56 14 26 02 81 |):ES..(C$).V.&..|
00000450: 49 B2 31 A4 31 36 00 6A 14 30 02 A1 23 32 2C 41 |I.1.16.j.0..#2,A|
00000460: 24 3A 4E 24 B2 4E 24 AA 41 24 00 70 14 3A 02 82 |$:N$.N$.A$.p.:..|
00000470: 00 8C 14 44 02 8B 4E 24 B2 22 22 A7 37 36 30 3A |...D..N$."".760:|
00000480: D5 20 8B 20 46 54 B2 30 A7 37 35 30 00 AA 14 4E |. . FT.0.750...N|
00000490: 02 9F 33 2C 38 2C 33 2C 4E 24 AA C8 28 46 24 28 |..3,8,3,N$..(F$(|
000004A0: 46 54 29 2C 31 29 AA 22 52 22 00 BB 14 58 02 A1 |FT),1)."R"...X..|
000004B0: 23 33 2C 41 24 2C 42 24 3A A0 33 00 D2 14 62 02 |#3,A$,B$:.3...b.|
000004C0: 53 41 B2 C6 28 42 24 29 AC 32 35 36 AA C6 28 41 |SA..(B$).256..(A|
000004D0: 24 29 00 E6 14 6C 02 81 49 B2 31 A4 39 3A A1 23 |$)...l..I.1.9:.#|
000004E0: 32 2C 41 24 3A 82 00 06 15 76 02 A1 23 32 2C 41 |2,A$:....v..#2,A|
000004F0: 24 2C 42 24 3A 42 B2 C6 28 42 24 29 AC 32 35 36 |$,B$:B..(B$).256|
00000500: AA C6 28 41 24 29 00 12 15 80 02 42 42 B2 42 42 |..(A$).....BB.BB|
00000510: AA 42 00 28 15 A8 02 98 34 2C 4E 24 A6 34 29 46 |.B.(....4,N$.4)F|
00000520: 24 28 46 54 29 A6 36 29 00 39 15 B2 02 98 34 2C |$(FT).6).9....4,|
00000530: FB 22 23 23 23 22 3B 42 3B 00 50 15 BC 02 98 34 |."###";B;.P....4|
00000540: 2C A6 35 29 22 24 22 D2 28 53 41 29 22 2F 22 3B |,.5)"$".(SA)"/";|
00000550: 00 63 15 C6 02 98 34 2C FB 22 23 23 23 23 22 3B |.c....4,."####";|
00000560: 53 41 3B 00 77 15 D0 02 98 34 2C FB 22 20 20 20 |SA;.w....4,." |
00000570: 23 23 22 3B 45 54 3B 00 8B 15 DA 02 98 34 2C FB |##";ET;......4,.|
00000580: 22 20 20 20 23 23 22 3B 45 53 3B 00 9D 15 E4 02 |" ##";ES;.....|
00000590: 98 34 2C A6 34 29 54 31 22 20 22 53 31 00 AD 15 |.4,.4)T1" "S1...|
000005A0: EE 02 5A B2 5A AA 33 32 3A 89 35 31 30 00 C6 15 |..Z.Z.32:.510...|
000005B0: F8 02 81 49 B2 31 A4 38 30 3A 98 34 2C 22 2D 22 |...I.1.80:.4,"-"|
000005C0: 3B 3A 82 3A 98 34 00 FD 15 02 03 98 34 2C 22 C2 |;:.:.4......4,".|
000005D0: 4C 4F 45 43 4B 45 3A 22 A6 35 29 22 49 4E 53 47 |LOECKE:".5)"INSG|
000005E0: 45 53 41 4D 54 20 3D 20 36 36 34 22 A6 35 29 22 |ESAMT = 664".5)"|
000005F0: 42 45 4C 45 47 54 20 3D 20 22 42 42 3B 00 1A 16 |BELEGT = "BB;...|
00000600: 0C 03 98 34 2C A6 34 29 22 46 52 45 49 20 3D 20 |...4,.4)"FREI = |
00000610: 22 36 36 34 AB 42 42 3A 98 34 00 27 16 16 03 A0 |"664.BB:.4.'....|
00000620: 34 3A A0 32 3A A0 31 00 3E 16 20 03 97 36 35 32 |4:.2:.1.>. ..652|
00000630: 38 36 2C C2 28 36 35 32 38 36 29 B0 31 36 00 49 |86,.(65286).16.I|
00000640: 16 2A 03 99 44 53 24 3A 80 00 00 00 |.*..DS$:.... |
..%.2.. DIRECTORY PRINT * BASIC V3.5.I.
<.. 1986 BY SVEN GIERO, BURGDORF.O.F.:.
F.P..4,1:.0,1:.1,6,7:..Z.Z.T.18:S.1:.G(1
4)...D..I.1.4:.F$(I):....N.. SEQ,PRG,USR
,REL.V....". DIRECTORY PRINT
."... .."DIESES PROGRAMM DRU
CKT DAS DIRECTORY.".3...."EINER DISKETTE
MIT ALLEN DAZUGEHOERIGEN.".B...."DATEN
(SPUR, SEKTOR,STARTADRESSE USW.)."......
"DER EINZELNEN FILES AUF DEM DRUCKER AUS
.."...H.."BITTE SCHALTEN SIE DEN DRUCKER
AN,."...R.."LEGEN SIE DIE ENTSPRECHENDE
DISKETTE INS."......".LAUFWERK UND DRUE
CKEN SIE EINE TASTE..".).....A$:..A....6
5286,B(65286).239.].".. 1,8,15,"I0":. DS
.790.M.,.. 2,8,2,"#".|.6.. 4,4,7:.4...@
..1,"U1 2 0 18 0"...J..1,"B-P 2 144"...T
..I.1.16.D.^..#2,A$:N$.N$.A$.J.H.....R..
#2,A$,A$,A$,B$:I$.A$.B$...|..#2,A$,A$,B$
:F$.A$.B$......4,"NAME:."N$". ID:."I$".
FORMAT:."F$:.4.X....4,"FILENAME:".9)"FIL
ETYP: BLOECKE:";......4,"STARTADRESSE: S
PUR: SEKTOR: DIRBLOCK:". ....I.1.80:.4,"
=";:.:.4...V..T.0.760.A....1,"U1 2 0";T;
S.S...Z.2:T1.T:S1.S......#2,A$,B$:T.F(A$
):S.F(B$)......Z..256.470......1,"B-P 2"
;Z:N$."".)....#2,A$,B$,C$.J...FT.F(A$).7
:ET.F(B$):ES.F(C$).V.&..I.1.16.J.0..#2,A
$:N$.N$.A$.P.:.....D..N$."".760:U . FT.0
.750...N..3,8,3,N$.H(F$(FT),1)."R"...X..
#3,A$,B$: 3.R.B.SA.F(B$).256.F(A$)...L..
I.1.9:.#2,A$:....V..#2,A$,B$:B.F(B$).256
.F(A$).....BB.BB.B.(....4,N$.4)F$(FT).6)
.9....4,."###";B;.P....4,.5)"$"R(SA)"/";
.C.F..4,."####";SA;.W.P..4,." ##";ET;.
..Z..4,." ##";ES;......4,.4)T1" "S1...
..Z.Z.32:.510.F....I.1.80:.4,"-";:.:.4..
....4,"BLOECKE:".5)"INSGESAMT = 664".5)"
BELEGT = "BB;......4,.4)"FREI = "664.BB:
.4.'... 4: 2: 1.>. ..65286,B(65286).16.I
.*..DS$:....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL