DIR

FILE INFORMATION

FILENAME(S): DIR

FILE TYPE(S): PRG

FILE SIZE: 1.7K

FIRST SEEN: 2025-11-02 16:39:22

APPEARS ON: 1 disk(s)

FILE HASH

54bc01579952391ec08daf67d1f6b58fdb279521775ee7ae9597e4f585c1e34c

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
RUN O THEK 1 88	DIR	PRG	Treasure Chest - Plattfuss	19	11	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 20 20 20 20 20 20 20  20 2A 2A 2A 2A 20 20 20  |.        ****   |
00000010: 20 44 49 52 45 43 54 4F  52 59 20 20 20 20 2A 2A  | DIRECTORY    **|
00000020: 2A 2A 00 01 20 20 20 20  20 20 20 20 20 20 20 20  |**..            |
00000030: 20 20 20 20 20 2E 4C 42  4C 24 00 01 00 01 00 5A  |     .LBL$.....Z|
00000040: 45 49 4C 45 C0 24 44 36  00 53 50 41 4C 54 45 C0  |EILE.$D6.SPALTE.|
00000050: 24 44 33 00 43 4C 52 4C  49 4E 45 C0 24 45 39 46  |$D3.CLRLINE.$E9F|
00000060: 46 00 4F 50 45 4E C0 24  46 46 43 30 00 43 4C 4F  |F.OPEN.$FFC0.CLO|
00000070: 53 45 C0 24 46 46 43 33  00 43 48 4B 49 4E C0 24  |SE.$FFC3.CHKIN.$|
00000080: 46 46 43 36 00 3E 53 45  54 4E 41 4D C0 24 46 46  |FFC6.>SETNAM.$FF|
00000090: 42 44 00 3E 53 45 54 4C  46 53 C0 24 46 46 42 41  |BD.>SETLFS.$FFBA|
000000A0: 00 43 4C 52 43 48 4E C0  24 46 46 43 43 00 47 45  |.CLRCHN.$FFCC.GE|
000000B0: 54 C0 24 46 46 45 34 00  4F 55 54 41 44 52 45 53  |T.$FFE4.OUTADRES|
000000C0: 53 C0 24 42 44 43 44 00  01 00 01 00 01 00 53 54  |S.$BDCD.......ST|
000000D0: 41 52 54 B3 48 41 55 50  54 01 47 45 48 45 20 48  |ART.HAUPT.GEHE H|
000000E0: 41 55 50 54 50 52 4F 47  52 41 4D 4D 00 01 00 46  |AUPTPROGRAMM...F|
000000F0: 49 4C 45 4E 41 4D 45 C5  22 24 22 00 43 4F 55 4E  |ILENAME."$".COUN|
00000100: 54 C2 30 2C 30 01 42 59  54 45 20 41 4C 53 20 5A  |T.0,0.BYTE ALS Z|
00000110: 41 45 4C 45 52 20 52 45  53 45 52 56 49 45 52 45  |AELER RESERVIERE|
00000120: 4E 00 01 00 01 00 01 20  20 20 20 20 2A 2A 2A 2A  |N......     ****|
00000130: 20 20 20 20 20 53 50 41  43 45 20 20 20 20 2A 2A  |     SPACE    **|
00000140: 2A 2A 00 01 00 53 50 41  43 45 95 23 37 01 37 20  |**...SPACE.#7.7 |
00000150: 4C 45 45 52 5A 45 49 43  48 45 4E 20 41 55 53 47  |LEERZEICHEN AUSG|
00000160: 45 42 45 4E 00 8D 23 22  20 22 01 53 50 41 43 45  |EBEN..#" ".SPACE|
00000170: 20 28 41 53 43 29 20 49  4E 20 41 4B 4B 55 00 4C  | (ASC) IN AKKU.L|
00000180: 4F 4F 50 B1 43 48 52 4F  55 54 01 5A 45 49 43 48  |OOP.CHROUT.ZEICH|
00000190: 45 4E 20 49 4E 20 41 4B  4B 55 20 41 55 53 47 45  |EN IN AKKU AUSGE|
000001A0: 42 45 4E 00 BD 01 58 3D  58 2D 31 00 A6 4C 4F 4F  |BEN...X=X-1..LOO|
000001B0: 50 01 57 45 4E 4E 20 58  20 3C 3E 20 30 20 47 45  |P.WENN X <> 0 GE|
000001C0: 48 45 20 4C 4F 4F 50 00  83 00 01 00 01 20 20 20  |HE LOOP......   |
000001D0: 20 20 2A 2A 2A 2A 20 20  20 20 20 57 41 49 54 20  |  ****     WAIT |
000001E0: 20 20 20 20 2A 2A 2A 2A  00 01 00 57 41 49 54 B1  |    ****...WAIT.|
000001F0: 43 4C 52 43 48 4E 01 45  49 4E 47 41 42 45 20 2D  |CLRCHN.EINGABE -|
00000200: 3E 20 54 41 53 54 41 54  55 52 00 57 45 49 54 45  |> TASTATUR.WEITE|
00000210: 52 B1 47 45 54 01 48 4F  48 4C 45 20 5A 45 49 43  |R.GET.HOHLE ZEIC|
00000220: 48 45 4E 20 49 4E 20 41  4B 4B 55 00 8E 23 22 20  |HEN IN AKKU..#" |
00000230: 22 01 56 45 52 47 4C 45  49 43 48 45 20 2D 3E 20  |".VERGLEICHE -> |
00000240: 52 45 54 55 52 4E 00 A7  4D 41 52 4B 45 01 57 45  |RETURN..MARKE.WE|
00000250: 4E 4E 20 52 45 54 55 52  4E 20 47 45 48 45 20 4D  |NN RETURN GEHE M|
00000260: 41 52 4B 45 00 8E 23 22  5F 22 01 56 45 52 47 4C  |ARKE..#"_".VERGL|
00000270: 45 49 43 48 45 20 2D 3E  20 58 00 A7 45 4E 44 45  |EICHE -> X..ENDE|
00000280: 01 57 45 4E 4E 20 52 49  43 48 54 49 47 20 47 45  |.WENN RICHTIG GE|
00000290: 48 45 20 45 4E 44 00 A6  57 45 49 54 45 52 01 4B  |HE END..WEITER.K|
000002A0: 45 49 4E 45 20 54 41 53  54 45 20 2D 3E 20 57 45  |EINE TASTE -> WE|
000002B0: 49 54 45 52 00 45 4E 44  45 B3 45 4E 44 00 4D 41  |ITER.ENDE.END.MA|
000002C0: 52 4B 45 B1 43 4C 45 41  52 00 95 23 31 00 B1 43  |RKE.CLEAR..#1..C|
000002D0: 48 4B 49 4E 01 45 49 4E  47 41 42 45 20 2D 3E 20  |HKIN.EINGABE -> |
000002E0: 46 4C 4F 50 50 59 00 B3  4E 45 58 54 50 41 47 45  |FLOPPY..NEXTPAGE|
000002F0: 00 01 00 01 20 20 20 20  20 2A 2A 2A 2A 20 5A 45  |....     **** ZE|
00000300: 49 4C 45 4E 4C 4F 45 53  43 48 52 4F 55 54 49 4E  |ILENLOESCHROUTIN|
00000310: 45 20 2A 2A 2A 2A 00 01  00 43 4C 45 41 52 95 23  |E ****...CLEAR.#|
00000320: 37 01 37 2E 20 5A 45 49  4C 45 20 4C 4F 45 53 43  |7.7. ZEILE LOESC|
00000330: 48 45 4E 00 43 4C 52 B1  43 4C 52 4C 49 4E 45 01  |HEN.CLR.CLRLINE.|
00000340: 4C 4F 45 53 43 48 54 20  5A 45 49 4C 45 20 49 4E  |LOESCHT ZEILE IN|
00000350: 20 58 2D 52 45 47 49 53  54 45 52 00 9F 01 20 20  | X-REGISTER...  |
00000360: 20 20 58 3D 58 2B 31 00  87 23 32 31 01 32 31 2E  |  X=X+1..#21.21.|
00000370: 20 5A 45 49 4C 45 20 45  52 52 45 49 43 48 54 20  | ZEILE ERREICHT |
00000380: 3F 00 A6 43 4C 52 01 57  45 4E 4E 20 4E 45 49 4E  |?..CLR.WENN NEIN|
00000390: 20 47 45 48 45 20 43 4C  52 00 B1 43 55 52 53 4F  | GEHE CLR..CURSO|
000003A0: 52 00 83 00 01 00 01 20  20 20 20 20 2A 2A 2A 2A  |R......     ****|
000003B0: 20 20 20 53 45 54 2D 43  55 52 53 4F 52 20 20 20  |   SET-CURSOR   |
000003C0: 2A 2A 2A 2A 00 01 00 43  55 52 53 4F 52 8D 23 37  |****...CURSOR.#7|
000003D0: 01 43 55 52 53 4F 52 20  2D 3E 20 5A 45 49 4C 45  |.CURSOR -> ZEILE|
000003E0: 20 37 00 8C 5A 45 49 4C  45 00 8D 23 30 01 43 55  | 7..ZEILE..#0.CU|
000003F0: 52 53 4F 52 20 2D 3E 20  53 50 41 4C 54 45 20 30  |RSOR -> SPALTE 0|
00000400: 00 8C 53 50 41 4C 54 45  00 B3 50 4C 4F 54 52 01  |..SPALTE..PLOTR.|
00000410: 53 45 54 5A 54 20 43 55  52 53 4F 52 00 01 00 01  |SETZT CURSOR....|
00000420: 20 20 20 20 20 2A 2A 2A  2A 20 20 48 41 55 50 54  |     ****  HAUPT|
00000430: 50 52 4F 47 52 41 4D 4D  20 20 20 2A 2A 2A 2A 00  |PROGRAMM   ****.|
00000440: 01 00 48 41 55 50 54 B1  43 4C 45 41 52 00 8D 23  |..HAUPT.CLEAR..#|
00000450: 31 01 4C 41 45 4E 47 45  20 2D 3E 20 46 49 4C 45  |1.LAENGE -> FILE|
00000460: 4E 41 4D 45 00 95 23 3C  46 49 4C 45 4E 41 4D 45  |NAME..#<FILENAME|
00000470: 01 4C 4F 2D 42 59 54 45  20 20 20 20 20 20 22 00  |.LO-BYTE      ".|
00000480: 85 23 3E 46 49 4C 45 4E  41 4D 45 01 48 49 2D 42  |.#>FILENAME.HI-B|
00000490: 59 54 45 20 20 20 20 20  20 32 00 B1 53 45 54 4E  |YTE      2..SETN|
000004A0: 41 4D 01 46 49 4C 45 4E  41 4D 45 20 53 45 54 5A  |AM.FILENAME SETZ|
000004B0: 45 4E 00 8D 23 31 01 4C  4F 47 49 53 43 48 45 20  |EN..#1.LOGISCHE |
000004C0: 46 49 4C 45 4E 55 4D 4D  45 52 00 95 23 38 01 47  |FILENUMMER..#8.G|
000004D0: 45 52 41 45 54 45 41 44  52 45 53 53 45 00 85 23  |ERAETEADRESSE..#|
000004E0: 30 01 53 45 4B 55 4E 44  41 45 52 41 44 52 45 53  |0.SEKUNDAERADRES|
000004F0: 53 45 00 B1 53 45 54 4C  46 53 01 46 49 4C 45 50  |SE..SETLFS.FILEP|
00000500: 41 52 41 4D 45 54 45 52  20 53 45 54 5A 45 4E 00  |ARAMETER SETZEN.|
00000510: B1 4F 50 45 4E 01 46 49  4C 45 20 4F 45 46 46 4E  |.OPEN.FILE OEFFN|
00000520: 45 4E 00 95 23 31 00 B1  43 48 4B 49 4E 01 2D 3E  |EN..#1..CHKIN.->|
00000530: 20 43 4D 44 31 00 B1 47  45 54 00 B1 47 45 54 01  | CMD1..GET..GET.|
00000540: 33 20 5A 45 49 43 48 45  4E 20 55 45 42 45 52 4C  |3 ZEICHEN UEBERL|
00000550: 45 53 45 4E 00 B1 47 45  54 00 4E 45 58 54 50 41  |ESEN..GET.NEXTPA|
00000560: 47 45 8D 23 31 35 01 31  35 20 5A 45 49 4C 45 4E  |GE.#15.15 ZEILEN|
00000570: 20 41 55 53 47 45 42 45  4E 00 8C 43 4F 55 4E 54  | AUSGEBEN..COUNT|
00000580: 00 4E 45 58 54 4C 49 4E  45 96 43 4F 55 4E 54 00  |.NEXTLINE.COUNT.|
00000590: A7 57 41 49 54 01 57 45  4E 4E 20 31 35 20 5A 45  |.WAIT.WENN 15 ZE|
000005A0: 49 4C 45 4E 20 57 41 52  54 45 4E 00 B1 53 50 41  |ILEN WARTEN..SPA|
000005B0: 43 45 01 37 20 42 4C 41  4E 4B 53 20 41 55 53 47  |CE.7 BLANKS AUSG|
000005C0: 45 42 45 4E 00 B1 47 45  54 01 5A 45 49 43 48 45  |EBEN..GET.ZEICHE|
000005D0: 4E 20 55 45 42 45 52 4C  45 53 45 4E 00 B1 47 45  |N UEBERLESEN..GE|
000005E0: 54 01 42 4C 4F 43 4B 53  20 4C 4F 2D 42 59 54 45  |T.BLOCKS LO-BYTE|
000005F0: 00 9A 00 B1 47 45 54 01  42 4C 4F 43 4B 53 20 48  |....GET.BLOCKS H|
00000600: 49 2D 42 59 54 45 00 9D  01 41 4B 4B 55 20 2D 3E  |I-BYTE...AKKU ->|
00000610: 20 59 2D 52 45 47 2E 00  9B 01 4C 4F 2D 42 59 54  | Y-REG....LO-BYT|
00000620: 45 20 2D 3E 20 41 4B 4B  55 00 BB 01 41 4B 4B 55  |E -> AKKU...AKKU|
00000630: 20 2D 3E 20 58 2D 52 45  47 2E 00 AC 01 59 2D 52  | -> X-REG....Y-R|
00000640: 45 47 2E 20 2D 3E 20 41  4B 4B 55 00 B1 4F 55 54  |EG. -> AKKU..OUT|
00000650: 41 44 52 45 53 53 01 41  55 53 47 41 42 45 20 41  |ADRESS.AUSGABE A|
00000660: 44 52 2E 20 2D 3E 20 53  43 52 45 45 4E 00 4E 45  |DR. -> SCREEN.NE|
00000670: 58 54 43 48 41 52 B1 47  45 54 00 B1 43 48 52 4F  |XTCHAR.GET..CHRO|
00000680: 55 54 01 46 49 4C 45 4E  41 4D 45 20 48 4F 48 4C  |UT.FILENAME HOHL|
00000690: 45 4E 20 55 4E 44 20 41  55 53 47 45 42 45 4E 00  |EN UND AUSGEBEN.|
000006A0: 8E 23 30 00 A6 4E 45 58  54 43 48 41 52 00 8D 23  |.#0..NEXTCHAR..#|
000006B0: 31 33 01 28 52 45 54 55  52 4E 29 00 B1 43 48 52  |13.(RETURN)..CHR|
000006C0: 4F 55 54 00 B1 47 45 54  00 8E 23 30 00 A6 4E 45  |OUT..GET..#0..NE|
000006D0: 58 54 4C 49 4E 45 00 B1  43 4C 52 43 48 4E 00 45  |XTLINE..CLRCHN.E|
000006E0: 4E 44 8D 23 31 00 B1 43  4C 4F 53 45 00 83 00     |ND.#1..CLOSE... |

.        ****    DIRECTORY    ****..    
             .LBL$.....ZEILE.$D6.SPALTE.
$D3.CLRLINE.$E9FF.OPEN.$FFC0.CLOSE.$FFC3
.CHKIN.$FFC6.>SETNAM.$FFBD.>SETLFS.$FFBA
.CLRCHN.$FFCC.GET.$FFE4.OUTADRESS.$BDCD.
......START.HAUPT.GEHE HAUPTPROGRAMM...F
ILENAMEE"$".COUNTB0,0.BYTE ALS ZAELER RE
SERVIEREN......     ****     SPACE    **
**...SPACE.#7.7 LEERZEICHEN AUSGEBEN..#"
 ".SPACE (ASC) IN AKKU.LOOP.CHROUT.ZEICH
EN IN AKKU AUSGEBEN...X=X-1..LOOP.WENN X
 <> 0 GEHE LOOP......     ****     WAIT 
    ****...WAIT.CLRCHN.EINGABE -> TASTAT
UR.WEITER.GET.HOHLE ZEICHEN IN AKKU..#" 
".VERGLEICHE -> RETURN..MARKE.WENN RETUR
N GEHE MARKE..#"_".VERGLEICHE -> X..ENDE
.WENN RICHTIG GEHE END..WEITER.KEINE TAS
TE -> WEITER.ENDE.END.MARKE.CLEAR..#1..C
HKIN.EINGABE -> FLOPPY..NEXTPAGE....    
 **** ZEILENLOESCHROUTINE ****...CLEAR.#
7.7. ZEILE LOESCHEN.CLR.CLRLINE.LOESCHT 
ZEILE IN X-REGISTER...    X=X+1..#21.21.
 ZEILE ERREICHT ?..CLR.WENN NEIN GEHE CL
R..CURSOR......     ****   SET-CURSOR   
****...CURSOR.#7.CURSOR -> ZEILE 7..ZEIL
E..#0.CURSOR -> SPALTE 0..SPALTE..PLOTR.
SETZT CURSOR....     ****  HAUPTPROGRAMM
   ****...HAUPT.CLEAR..#1.LAENGE -> FILE
NAME..#<FILENAME.LO-BYTE      "..#>FILEN
AME.HI-BYTE      2..SETNAM.FILENAME SETZ
EN..#1.LOGISCHE FILENUMMER..#8.GERAETEAD
RESSE..#0.SEKUNDAERADRESSE..SETLFS.FILEP
ARAMETER SETZEN..OPEN.FILE OEFFNEN..#1..
CHKIN.-> CMD1..GET..GET.3 ZEICHEN UEBERL
ESEN..GET.NEXTPAGE.#15.15 ZEILEN AUSGEBE
N..COUNT.NEXTLINE.COUNT..WAIT.WENN 15 ZE
ILEN WARTEN..SPACE.7 BLANKS AUSGEBEN..GE
T.ZEICHEN UEBERLESEN..GET.BLOCKS LO-BYTE
....GET.BLOCKS HI-BYTE...AKKU -> Y-REG..
..LO-BYTE -> AKKU...AKKU -> X-REG....Y-R
EG. -> AKKU..OUTADRESS.AUSGABE ADR. -> S
CREEN.NEXTCHAR.GET..CHROUT.FILENAME HOHL
EN UND AUSGEBEN..#0..NEXTCHAR..#13.(RETU
RN)..CHROUT..GET..#0..NEXTLINE..CLRCHN.E
ND.#1..CLOSE...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL