DOPPEL-DIRECTORY
FILE INFORMATION
FILENAME(S): DOPPEL-DIRECTORY
FILE TYPE(S): PRG
FILE SIZE: 2K
FIRST SEEN: 2025-11-30 18:06:06
APPEARS ON: 1 disk(s)
FILE HASH
840e5496a480ad2d1211ab9b6a72201f5b3dd61b17b1f6c6d0eb546909179703
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TIGER DISK 22A | DOPPEL-DIRECTORY | PRG | Xii | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 33 08 0A 00 86 20 46 4C 24 28 31 34 35 2C |..3.... FL$(145,|
00000010: 32 29 3A 97 35 33 32 38 30 2C 30 3A 97 35 33 32 |2):.53280,0:.532|
00000020: 38 31 2C 30 3A 97 36 34 36 2C 35 3A 97 37 38 38 |81,0:.646,5:.788|
00000030: 2C 35 32 00 5B 08 14 00 99 22 93 20 20 20 20 20 |,52.[....". |
00000040: 20 20 20 32 20 44 49 52 45 43 54 4F 52 59 53 20 | 2 DIRECTORYS |
00000050: 41 55 53 44 52 55 43 4B 45 4E 22 00 80 08 28 00 |AUSDRUCKEN"...(.|
00000060: 99 22 11 20 20 20 20 20 20 20 20 20 20 20 42 59 |.". BY|
00000070: 20 41 4C 46 20 41 4E 44 20 4D 41 52 54 49 4E 22 | ALF AND MARTIN"|
00000080: 00 98 08 2D 00 99 3A 81 49 B2 31 A4 34 30 3A 99 |...-..:.I.1.40:.|
00000090: 22 A2 22 3B 3A 82 3A 99 00 C8 08 32 00 99 22 11 |".";:.:....2..".|
000000A0: 42 49 54 54 45 20 44 49 45 20 56 4F 52 44 45 52 |BITTE DIE VORDER|
000000B0: 53 45 49 54 45 20 44 45 52 20 44 49 53 4B 45 54 |SEITE DER DISKET|
000000C0: 54 45 2C 20 44 49 45 22 00 0B 09 3C 00 99 22 53 |TE, DIE"...<.."S|
000000D0: 49 45 20 41 55 53 44 52 55 43 4B 45 4E 20 57 4F |IE AUSDRUCKEN WO|
000000E0: 4C 4C 45 4E 2C 20 45 49 4E 4C 45 47 45 4E 20 55 |LLEN, EINLEGEN U|
000000F0: 4E 44 20 3A 20 20 20 12 20 54 41 53 54 45 20 44 |ND : . TASTE D|
00000100: 52 55 45 43 4B 45 4E 20 21 20 22 00 24 09 50 00 |RUECKEN ! ".$.P.|
00000110: 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A 97 31 |.198,0:.198,1:.1|
00000120: 39 38 2C 30 00 5D 09 5A 00 99 22 11 12 4A 92 20 |98,0.].Z.."..J. |
00000130: 3D 20 4A 41 20 3A 20 12 4E 92 20 3D 20 4E 45 49 |= JA : .N. = NEI|
00000140: 4E 20 3A 20 12 41 92 20 3D 20 41 4C 4C 45 53 20 |N : .A. = ALLES |
00000150: 3A 20 12 51 92 20 3D 20 45 4E 44 45 22 00 7E 09 |: .Q. = ENDE".~.|
00000160: 64 00 99 22 11 49 43 48 20 4C 45 53 45 20 44 41 |d..".ICH LESE DA|
00000170: 53 20 44 49 52 45 43 54 4F 52 59 20 21 22 00 8C |S DIRECTORY !"..|
00000180: 09 6E 00 58 B2 31 3A 8D 31 30 30 30 00 D0 09 78 |.n.X.1:.1000...x|
00000190: 00 99 22 11 42 49 54 54 45 20 44 49 53 4B 45 54 |..".BITTE DISKET|
000001A0: 54 45 20 55 4D 44 52 45 48 45 4E 20 55 4E 44 20 |TE UMDREHEN UND |
000001B0: 45 49 4E 45 20 20 20 20 20 20 20 20 12 20 54 41 |EINE . TA|
000001C0: 53 54 45 20 44 52 55 45 43 4B 45 4E 20 21 20 22 |STE DRUECKEN ! "|
000001D0: 00 E9 09 8C 00 97 31 39 38 2C 30 3A 92 31 39 38 |......198,0:.198|
000001E0: 2C 31 3A 97 31 39 38 2C 30 00 22 0A 96 00 99 22 |,1:.198,0."...."|
000001F0: 11 12 4A 92 20 3D 20 4A 41 20 3A 20 12 4E 92 20 |..J. = JA : .N. |
00000200: 3D 20 4E 45 49 4E 20 3A 20 12 41 92 20 3D 20 41 |= NEIN : .A. = A|
00000210: 4C 4C 45 53 20 3A 20 12 51 92 20 3D 20 51 55 49 |LLES : .Q. = QUI|
00000220: 54 22 00 43 0A A0 00 99 22 11 49 43 48 20 4C 45 |T".C....".ICH LE|
00000230: 53 45 20 44 41 53 20 44 49 52 45 43 54 4F 52 59 |SE DAS DIRECTORY|
00000240: 20 21 22 00 57 0A AA 00 58 B2 32 3A 41 4C 4C B2 | !".W...X.2:ALL.|
00000250: 30 3A 8D 31 30 30 30 00 85 0A B4 00 99 22 11 42 |0:.1000......".B|
00000260: 49 54 54 45 20 53 43 48 41 4C 54 45 4E 20 53 49 |ITTE SCHALTEN SI|
00000270: 45 20 4A 45 54 5A 54 20 44 45 4E 20 44 52 55 43 |E JETZT DEN DRUC|
00000280: 4B 45 52 20 22 00 AA 0A BE 00 99 22 45 49 4E 20 |KER "......"EIN |
00000290: 55 4E 44 20 4A 55 53 54 49 45 52 45 4E 20 44 41 |UND JUSTIEREN DA|
000002A0: 53 20 50 41 50 49 45 52 2E 22 00 D9 0A C8 00 99 |S PAPIER."......|
000002B0: 22 11 45 49 4E 45 20 12 20 54 41 53 54 45 20 92 |".EINE . TASTE .|
000002C0: 20 5A 55 4D 20 53 54 41 52 54 20 12 20 44 52 55 | ZUM START . DRU|
000002D0: 45 43 4B 45 4E 20 21 20 22 00 F2 0A D2 00 97 31 |ECKEN ! "......1|
000002E0: 39 38 2C 30 3A 92 31 39 38 2C 31 3A 97 31 39 38 |98,0:.198,1:.198|
000002F0: 2C 30 00 FC 0A DC 00 8D 32 30 30 30 00 26 0B E6 |,0......2000.&..|
00000300: 00 99 22 11 4E 4F 43 48 20 45 49 4E 45 20 44 49 |..".NOCH EINE DI|
00000310: 53 4B 20 41 55 53 44 52 55 43 4B 45 4E 20 28 4A |SK AUSDRUCKEN (J|
00000320: 2F 4E 29 20 3F 22 00 39 0B F0 00 A1 41 24 3A 8B |/N) ?".9....A$:.|
00000330: 41 24 B2 22 22 A7 32 34 30 00 47 0B FA 00 8B 41 |A$."".240.G....A|
00000340: 24 B2 22 4A 22 A7 8A 00 5A 0B 04 01 8B 41 24 B2 |$."J"...Z....A$.|
00000350: 22 4E 22 A7 99 22 93 22 3A 80 00 63 0B 0E 01 89 |"N"..".":..c....|
00000360: 32 34 30 00 71 0B E8 03 8F 20 22 47 45 54 20 24 |240.q.... "GET $|
00000370: 21 00 7E 0B ED 03 97 36 35 30 2C 31 32 38 00 9A |!.~....650,128..|
00000380: 0B F2 03 9F 31 2C 38 2C 31 35 2C 22 49 30 22 3A |....1,8,15,"I0":|
00000390: 9F 32 2C 38 2C 32 2C 22 23 22 00 B6 0B FC 03 98 |.2,8,2,"#"......|
000003A0: 31 2C 22 4D 2D 52 22 C7 28 31 34 34 29 C7 28 37 |1,"M-R".(144).(7|
000003B0: 29 C7 28 32 33 29 00 C0 0B 06 04 84 31 2C 41 24 |).(23)......1,A$|
000003C0: 00 E0 0B 10 04 8B C6 28 C8 28 41 24 2C 31 29 29 |.......(.(A$,1))|
000003D0: B2 31 34 31 A7 41 24 B2 C9 28 41 24 2C 32 32 29 |.141.A$..(A$,22)|
000003E0: 00 F5 0B 1A 04 44 24 28 58 29 B2 22 20 20 20 20 |.....D$(X)." |
000003F0: 20 22 AA 41 24 00 13 0C 24 04 99 3A 97 32 31 32 | ".A$...$..:.212|
00000400: 2C 32 35 35 3A 99 44 24 28 58 29 3B 3A 99 22 20 |,255:.D$(X);:." |
00000410: 41 22 3B 00 29 0C 25 04 97 31 39 38 2C 30 3A 92 |A";.).%..198,0:.|
00000420: 31 39 38 2C 31 3A A1 41 24 00 49 0C 26 04 8B 41 |198,1:.A$.I.&..A|
00000430: 24 B2 22 41 22 A7 99 22 4C 4C 45 53 22 3A 41 4C |$."A".."LLES":AL|
00000440: 4C B2 31 3A 89 31 30 37 30 00 5B 0C 27 04 97 32 |L.1:.1070.[.'..2|
00000450: 31 31 2C 32 39 3A 99 22 20 20 22 00 69 0C 2E 04 |11,29:." ".i...|
00000460: 99 3A 53 B2 31 3A 46 B2 31 00 7E 0C 38 04 98 31 |.:S.1:F.1.~.8..1|
00000470: 2C 22 55 31 20 32 20 30 20 31 38 22 3B 53 00 89 |,"U1 2 0 18";S..|
00000480: 0C 42 04 81 49 B2 30 A4 37 00 9E 0C 4C 04 98 31 |.B..I.0.7...L..1|
00000490: 2C 22 42 2D 50 20 32 22 49 AC 33 32 AA 32 00 C4 |,"B-P 2"I.32.2..|
000004A0: 0C 56 04 A1 23 32 2C 41 24 3A 46 54 B2 C6 28 41 |.V..#2,A$:FT..(A|
000004B0: 24 AA C7 28 30 29 29 AF 37 3A 8B 46 54 B2 30 89 |$..(0)).7:.FT.0.|
000004C0: 31 32 30 30 00 D9 0C 60 04 98 31 2C 22 42 2D 50 |1200...`..1,"B-P|
000004D0: 20 32 22 49 AC 33 32 AA 35 00 FD 0C 6A 04 46 24 | 2"I.32.5...j.F$|
000004E0: B2 22 22 3A 81 4A B2 31 A4 31 36 3A A1 23 32 2C |."":.J.1.16:.#2,|
000004F0: 41 24 3A 46 24 B2 46 24 AA 41 24 3A 82 00 13 0D |A$:F$.F$.A$:....|
00000500: 74 04 98 31 2C 22 42 2D 50 20 32 22 49 AC 33 32 |t..1,"B-P 2"I.32|
00000510: AA 33 30 00 2C 0D 7E 04 A1 23 32 2C 41 24 3A 42 |.30.,.~..#2,A$:B|
00000520: 4C B2 C6 28 41 24 AA C7 28 30 29 29 00 45 0D 88 |L..(A$..(0)).E..|
00000530: 04 A1 23 32 2C 41 24 3A 42 48 B2 C6 28 41 24 AA |..#2,A$:BH..(A$.|
00000540: C7 28 30 29 29 00 67 0D 92 04 42 4C 24 B2 C8 28 |.(0)).g...BL$..(|
00000550: C4 28 42 4C AA 32 35 36 AC 42 48 29 AA 22 20 20 |.(BL.256.BH)." |
00000560: 20 20 20 22 2C 36 29 00 AA 0D 9C 04 46 4C 24 28 | ",6).....FL$(|
00000570: 46 2C 58 29 B2 42 4C 24 AA C7 28 33 34 29 AA 46 |F,X).BL$..(34).F|
00000580: 24 AA C7 28 33 34 29 AA 22 20 22 AA CA 28 22 53 |$..(34)." "..("S|
00000590: 45 51 50 52 47 55 53 52 52 45 4C 22 2C 28 46 54 |EQPRGUSRREL",(FT|
000005A0: AB 31 29 AC 33 AA 31 2C 33 29 00 CF 0D A1 04 8B |.1).3.1,3)......|
000005B0: 41 4C 4C B2 31 A7 99 46 4C 24 28 46 2C 58 29 3A |ALL.1..FL$(F,X):|
000005C0: 46 B2 46 AA 31 3A 50 B2 31 3A 89 31 32 30 30 00 |F.F.1:P.1:.1200.|
000005D0: E4 0D A2 04 99 46 4C 24 28 46 2C 58 29 3B 22 20 |.....FL$(F,X);" |
000005E0: 4E 9D 22 3B 00 F8 0D A3 04 A1 41 24 3A 8B 41 24 |N.";......A$:.A$|
000005F0: B2 22 22 A7 31 31 38 37 00 1B 0E A6 04 8B 20 41 |."".1187...... A|
00000600: 24 B2 22 4A 22 A7 99 22 4A 41 22 3A 46 B2 46 AA |$."J".."JA":F.F.|
00000610: 31 3A 50 B2 31 3A 89 31 32 30 30 00 2A 0E A9 04 |1:P.1:.1200.*...|
00000620: 8B 20 41 24 B2 22 51 22 A7 8A 00 3A 0E AB 04 99 |. A$."Q"...:....|
00000630: 22 4E 45 49 4E 22 3A 50 B2 30 00 41 0E B0 04 82 |"NEIN":P.0.A....|
00000640: 49 00 52 0E BA 04 98 31 2C 22 42 2D 50 20 32 20 |I.R....1,"B-P 2 |
00000650: 31 22 00 6A 0E C4 04 A1 23 32 2C 41 24 3A 53 B2 |1".j....#2,A$:S.|
00000660: C6 28 41 24 AA C7 28 30 29 29 00 79 0E CE 04 8B |.(A$..(0)).y....|
00000670: 53 B3 31 39 89 31 30 38 30 00 8E 0E D3 04 8B 50 |S.19.1080......P|
00000680: B2 30 A7 46 4C 24 28 46 2C 58 29 B2 22 22 00 A5 |.0.FL$(F,X).""..|
00000690: 0E D8 04 98 31 2C 22 4D 2D 52 22 C7 28 32 35 30 |....1,"M-R".(250|
000006A0: 29 C7 28 32 29 00 BE 0E E2 04 A1 23 31 2C 41 24 |).(2)......#1,A$|
000006B0: 3A 42 4C B2 C6 28 41 24 AA C7 28 30 29 29 00 D5 |:BL..(A$..(0))..|
000006C0: 0E E7 04 98 31 2C 22 4D 2D 52 22 C7 28 32 35 32 |....1,"M-R".(252|
000006D0: 29 C7 28 32 29 00 EE 0E EC 04 A1 23 31 2C 41 24 |).(2)......#1,A$|
000006E0: 3A 42 48 B2 C6 28 41 24 AA C7 28 30 29 29 00 18 |:BH..(A$..(0))..|
000006F0: 0F F6 04 46 4C 24 28 46 2C 58 29 B2 C4 28 42 4C |...FL$(F,X)..(BL|
00000700: AA 32 35 36 AC 42 48 29 AA 22 20 42 4C 4F 43 4B |.256.BH)." BLOCK|
00000710: 53 20 46 52 45 45 21 22 00 26 0F FB 04 99 46 4C |S FREE!".&....FL|
00000720: 24 28 46 2C 58 29 00 39 0F 00 05 A0 31 3A A0 32 |$(F,X).9....1:.2|
00000730: 3A 97 36 35 30 2C 30 3A 8E 00 50 0F D0 07 8F 22 |:.650,0:..P...."|
00000740: 50 52 49 4E 54 20 44 49 52 45 43 54 4F 52 59 53 |PRINT DIRECTORYS|
00000750: 00 5D 0F DA 07 9F 31 2C 34 3A 58 B2 31 00 7B 0F |.]....1,4:X.1.{.|
00000760: E4 07 98 31 2C 44 24 28 31 29 3B C7 28 31 36 29 |...1,D$(1);.(16)|
00000770: 3B 22 33 30 22 3B 44 24 28 32 29 00 82 0F EE 07 |;"30";D$(2).....|
00000780: 98 31 00 B2 0F F8 07 8B 46 4C 24 28 58 2C 31 29 |.1......FL$(X,1)|
00000790: B2 22 22 AF 46 4C 24 28 58 2C 32 29 B2 22 22 A7 |."".FL$(X,2)."".|
000007A0: 98 31 2C C7 28 31 33 29 C7 28 31 33 29 3A A0 31 |.1,.(13).(13):.1|
000007B0: 3A 8E 00 D6 0F 02 08 98 31 2C 46 4C 24 28 58 2C |:.......1,FL$(X,|
000007C0: 31 29 AA C7 28 31 36 29 AA 22 33 30 22 AA 46 4C |1)..(16)."30".FL|
000007D0: 24 28 58 2C 32 29 00 E6 0F 0C 08 58 B2 58 AA 31 |$(X,2).....X.X.1|
000007E0: 3A 89 32 30 34 30 00 00 00 |:.2040... |
..3.... FL$(145,2):.53280,0:.53281,0:.64
6,5:.788,52.[....". 2 DIRECTORYS
AUSDRUCKEN"...(..". BY ALF AND
MARTIN"...-..:.I.1.40:.".";:.:..H.2..".
BITTE DIE VORDERSEITE DER DISKETTE, DIE"
...<.."SIE AUSDRUCKEN WOLLEN, EINLEGEN U
ND : . TASTE DRUECKEN ! ".$.P..198,0:.
198,1:.198,0.].Z.."..J. = JA : .N. = NEI
N : .A. = ALLES : .Q. = ENDE".~.D..".ICH
LESE DAS DIRECTORY !"...N.X.1:.1000.P.X
..".BITTE DISKETTE UMDREHEN UND EINE
. TASTE DRUECKEN ! "......198,0:.198
,1:.198,0."...."..J. = JA : .N. = NEIN :
.A. = ALLES : .Q. = QUIT".C. ..".ICH LE
SE DAS DIRECTORY !".W...X.2:ALL.0:.1000.
.....".BITTE SCHALTEN SIE JETZT DEN DRUC
KER "......"EIN UND JUSTIEREN DAS PAPIER
.".Y.H..".EINE . TASTE . ZUM START . DRU
ECKEN ! "...R..198,0:.198,1:.198,0......
2000.&....".NOCH EINE DISK AUSDRUCKEN (J
/N) ?".9....A$:.A$."".240.G....A$."J"...
Z....A$."N"..".":..C....240.Q.... "GET $
!.~....650,128......1,8,15,"I0":.2,8,2,"
#"......1,"M-R"G(144)G(7)G(23)......1,A$
......F(H(A$,1)).141.A$.I(A$,22).....D$(
X)." ".A$...$..:.212,255:.D$(X);:."
A";.).%..198,0:.198,1:.A$.I.&..A$."A".."
LLES":ALL.1:.1070.[.'..211,29:." ".I...
.:S.1:F.1.~.8..1,"U1 2 0 18";S...B..I.0.
7...L..1,"B-P 2"I.32.2.D.V..#2,A$:FT.F(A
$.G(0)).7:.FT.0.1200.Y.`..1,"B-P 2"I.32.
5...J.F$."":.J.1.16:.#2,A$:F$.F$.A$:....
T..1,"B-P 2"I.32.30.,.~..#2,A$:BL.F(A$.G
(0)).E....#2,A$:BH.F(A$.G(0)).G...BL$.H(
D(BL.256.BH)." ",6).....FL$(F,X).BL$
.G(34).F$.G(34)." ".J("SEQPRGUSRREL",(FT
.1).3.1,3).O....ALL.1..FL$(F,X):F.F.1:P.
1:.1200......FL$(F,X);" N.";......A$:.A$
."".1187...... A$."J".."JA":F.F.1:P.1:.1
200.*.... A$."Q"...:...."NEIN":P.0.A....
I.R....1,"B-P 2 1".J.D..#2,A$:S.F(A$.G(0
)).Y.N..S.19.1080...S..P.0.FL$(F,X).""..
.X..1,"M-R"G(250)G(2)......#1,A$:BL.F(A$
.G(0)).U....1,"M-R"G(252)G(2)......#1,A$
:BH.F(A$.G(0)).....FL$(F,X).D(BL.256.BH)
." BLOCKS FREE!".&....FL$(F,X).9... 1: 2
:.650,0:..P.P.."PRINT DIRECTORYS.].Z..1,
4:X.1.{....1,D$(1);G(16);"30";D$(2).....
.1......FL$(X,1)."".FL$(X,2).""..1,G(13)
G(13): 1:..V....1,FL$(X,1).G(16)."30".FL
$(X,2).....X.X.1:.2040...
> CLICK IMAGE PREVIEW FOR FULL MODAL