Tree Programm zum anzeigen von Directory Strukturen

skern · July 17, 2025 at 6:47 PM 7 posts here Interesting post

Hallo ich habe hier ein, zwei Programme die die Baumstruktur von Subdirs anzeigen.

Das Erste ist von CMD und basiert auf Blockzugriff. Es Funktioniert auf allen Geräten von 2040 bis CMD HD. Auf diese Basis habe ich mein XCOPY gebaut. Es kopiert alle mir bekannten Fileformate inclusive DIR, REL VLIR . Leider arbeitet es nicht auf SD2IEC (auch nicht in den Images, wo es gehen müsste) oder IEC-ATA.

Gestern habe ich ein zweites für CMD Geräte gefunden. Es arbeitet aber vollkommen anders. Es verwendet den "$*=b" und das haben alle auch SD2IEC und IEC-ATA.

Nach leichten Umbauten klappte das.

Rob64 · July 20, 2025 at 4:23 PM 2 posts here

Wie kann kann man bei dem Programm "TreeB.prg" den Aufbau, bzw die Bildschirmausgabe vom Tree schneller hinbekommen?

Wenn möglich mit Basic. bei ML bin ich raus

Rob64 · July 20, 2025 at 5:52 PM 2 posts here

Soll ab Adresse $1000 - 20x mal schneller sein, lt. skern

Wo baut man das ein? Und vor allem was?

Code

100 d=peek(186)
110 dim mp$(20)
600 rem begin directory tree
605 hs=0:dn=0:print:
610 open15,d,15
620 open1,d,0,"$:*=b"
630 gosub 2000
640 n$="":nb$=""
650 get#1,nb$
655 ifst<>0thenclose1:goto3000
657 ifnb$<>chr$(34)then650
660 get#1,nb$:ifst<>0thenclose1goto3000
670 ifnb$<>chr$(34)thenn$=n$+nb$:goto660
830 ifdn=0thenprintn$:dn=1:goto640
831 rem skip parent?
832 if sk=0 then836
833 if sk=1 and mp$(sc)<>n$then640
834 if mp$(sc)=n$ and sk=1 then sk=0:goto640
835 rem header skip
836 ifhs=1thenhs=0:goto640
840 forv=-1tosc:print"";:next:print"";n$:close1:gosub4000:goto620
2000 rem error reader
2010 input#15,en$,et$
2020 ifen$<>"00"thenprint" ";et$;" ":close1:close15:end
2030 return
3000 rem check root/parent
3010 ifsc=0thenclose1:close15:end
3020 print#15,"cd:"
3030 gosub2000
3040 sc=sc-1:sk=1
3050 goto620
4000 rem goto subdir
4010 mp$(sc)=n$:sc=sc+1:hs=1
4020 print#15,"cd:"+n$
4030 gosub2000
4040 return

Display More

skern · July 21, 2025 at 4:46 PM 7 posts here

So die Version mit umgeleitetem Get

TD1334 · July 22, 2025 at 10:34 AM 1 post here

Quote from skern

So die Version mit umgeleitetem Get

Habe es mal gestartet

Please login to see this attachment.

Oben die normale Directory Ausgabe.

nach dem Run die Ausgabe deines Programms.

Wieso der Syntax Error?

skern · July 22, 2025 at 12:17 PM 7 posts here

Auf einer 1541 gibt es kein Kommando cd: das tree arbeitet auf cmd , sd2iec, iec-ata und alle die Verzeichnisse mit cd: cd Pfeil linke und $*=b unterstützen .

skern · July 26, 2025 at 4:29 PM 7 posts here

Hallo Leute , Neue Version mit Speicherung der höheren Dirs.

skern · July 26, 2025 at 6:05 PM 7 posts here

Ich habe noch was verbessert.

skern · July 27, 2025 at 7:58 AM 7 posts here

So nun werden auch die Strukturen von 1541 Subsytem angezeigt.Es wird geprüft ob eine 1541 oder 1571 verwendet wird.

skern · July 27, 2025 at 3:28 PM 7 posts here

Nun noch eine optimierte Version

Tree Programm zum anzeigen von Directory Strukturen

androSID July 17, 2025 at 8:39 PM

Post by skern (July 22, 2025 at 4:42 PM).

Post by Rob64 (July 22, 2025 at 4:56 PM).

Post by skern (July 22, 2025 at 5:00 PM).

Post by skern (July 22, 2025 at 6:23 PM).

Tags

3 users have written here

androSID July 17, 2025 at 8:39 PM

Post by skern (July 22, 2025 at 4:42 PM).

Post by Rob64 (July 22, 2025 at 4:56 PM).

Post by skern (July 22, 2025 at 5:00 PM).

Post by skern (July 22, 2025 at 6:23 PM).