Robotrontechnik-Forum

Registrieren || Einloggen || Hilfe/FAQ || Suche || Mitglieder || Home || Statistik || Kalender || Admins

Willkommen Gast!

Robotrontechnik-Forum » Technische Diskussionen » DIR über alle User? » Themenansicht

Autor

Thread - Seiten: -1-

000
10.04.2016, 20:42 Uhr
holm

Avatar von holm

..gibts ein CP/M Programm das ein Directory über alle Userbereiche ausgibt?
Ich habe irgend so ein Diskettenkatalogding in Erinnerung, aber das wollte immer
auf den Drucker ausgeben.

Ich will nur mal eine schnelle Übersicht über Mandfred Krzkallas Disketten bekommen
und er hat fleißig die Userbereiche benutzt.

Jedes mal user xx <et> und dir <et> ist aufwändig...

Gruß,

Holm
--
float R,y=1.5,x,r,A,P,B;int u,h=80,n=80,s;main(c,v)int c;char **v;
{s=(c>1?(h=atoi(v[1])):h)*h/2;for(R=6./h;s%h||(y-=R,x=-2),s;4<(P=B*B)+
(r=A*A)|++u==n&&putchar(*(((--s%h)?(u<n?--u%6:6):7)+"World! \n"))&&
(A=B=P=u=r=0,x+=R/2))A=B*2*A+y,B=P+x-r;}

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

001
10.04.2016, 20:51 Uhr
maleuma

Falls Du ein Z-System unter CP/M nutzt, kenne es diese zwei Programme:

Quellcode:


D        Z-Version 2.1
Usage:
    D {dir:}{{afn}.aft} {{/}options}
Options:
 A  archived files only        Q  no display (quiet)
 B  include system files       R  reset disk system
 C  include FCB information    S  system files only
 F  suppress file size         U  include all user areas
 L  output to printer          W  read/write files only
 M  matches to reg 18/19       X  do not sort
 O  read-only files only       Z  non-archived files only
 P  no paging, form feeds

oder:

Quellcode:


SDZ132B -- 06/12/88, ZCPR34/ARC/ARK Version

  Available Options (after '$' or '/' or 'Ä' character):

  A - all user areas               N - no page pause (more)
  C - file sizes in records        Q - show non-archived files
  D - all drives                   T - order by file type
  H - current area to highest      V - show version number
  L - list LBR/ARC/ARK members     X - toggle horiz/vert format

  Example - to list all drives and user areas, no pauses:

                     B0>SD /DAN<cr>

  * * * Special SYSOP Options (WHEEL SET) * * *

  F - file output (DISK.DIR)       R - reset disk system
  O - show only SYS files          S - include SYS files
  P - printer output

Das sind die Hilfetexte, die in den Kommandos integriert sind...
--
Mario.

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

002
10.04.2016, 21:34 Uhr
holm

Avatar von holm

...nein, habe kein Z-System sondern den Standard-CCP.
Das mütßte also ein externes Programm sein.

Gruß,

Holm
--
float R,y=1.5,x,r,A,P,B;int u,h=80,n=80,s;main(c,v)int c;char **v;
{s=(c>1?(h=atoi(v[1])):h)*h/2;for(R=6./h;s%h||(y-=R,x=-2),s;4<(P=B*B)+
(r=A*A)|++u==n&&putchar(*(((--s%h)?(u<n?--u%6:6):7)+"World! \n"))&&
(A=B=P=u=r=0,x+=R/2))A=B*2*A+y,B=P+x-r;}

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

003
10.04.2016, 21:42 Uhr
maleuma

Das sind beides externe Programme.
Ich habe sie gerade getestet. D.COM scheint auch unter normalem CP/M zu funktionieren.
Du hast eMail...
--
Mario.

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

004
10.04.2016, 21:49 Uhr
holm

Avatar von holm

Ok danke, werds morgen mal testen, die Mail habe ich gesehen.

Gruß,

Holm
--
float R,y=1.5,x,r,A,P,B;int u,h=80,n=80,s;main(c,v)int c;char **v;
{s=(c>1?(h=atoi(v[1])):h)*h/2;for(R=6./h;s%h||(y-=R,x=-2),s;4<(P=B*B)+
(r=A*A)|++u==n&&putchar(*(((--s%h)?(u<n?--u%6:6):7)+"World! \n"))&&
(A=B=P=u=r=0,x+=R/2))A=B*2*A+y,B=P+x-r;}

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

005
11.04.2016, 07:26 Uhr
volkerp
Default Group and Edit

oder mit power.com
und DIR [U] ...
--
VolkerP

http://hc-ddr.hucki.net
(Z9001, Z1013, LC-80, ...)

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

006
11.04.2016, 09:05 Uhr
holm

Avatar von holm

Ok danke, es funktioniert Beides.

Gruß,
Holm
--
float R,y=1.5,x,r,A,P,B;int u,h=80,n=80,s;main(c,v)int c;char **v;
{s=(c>1?(h=atoi(v[1])):h)*h/2;for(R=6./h;s%h||(y-=R,x=-2),s;4<(P=B*B)+
(r=A*A)|++u==n&&putchar(*(((--s%h)?(u<n?--u%6:6):7)+"World! \n"))&&
(A=B=P=u=r=0,x+=R/2))A=B*2*A+y,B=P+x-r;}

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

007
19.02.2017, 11:43 Uhr
Bert

Ich hab da auch grad noch ein Programm gefunden:

Quellcode:


C0>ZXD /H
ZXD  Ver 2.0       19 Feb 2017  11:39:00

Syntax:         (17 Jul 93 Ver)
        ZXD                                - List per Defaults
        ZXD //                             - Print this message
        ZXD /o[o..]                        - List per options
        ZXD [dir:][fn[.ft]] [/][o[o..]]    - List selected w/opts
Options:
        Oo - Toggle Output Control Options
                o=F for Form Feed,  o=H for Horiz/Vert Format
        S  - Toggle Sort (Name/Type or Type/Name)
        N  - Toggle No-Date/Date display
        W  - Wide display with both Create/Modify Dates
        D  - Display Date in alternate form
        T  - Use alternate (P2Dos/DateStamper) Stamps
        Aa - Set and Display of file attributes
                a=S for System,  a=N for Non-System
                a=A for All Files (System and Non-System)
        U  - Toggle User select (Current or All)
        P  - Send display to Printer
        PF - Same as POF

Also: ZXD /U
Wie es sich unter einem reinen CPM-System verhält, kann ich gerade nicht testen.

Grüße,
Bert

P.S.: Zu finden ist das Progrämmchen hier:
https://www.iee.et.tu-dresden.de/~kc-club/09/RUBRIK16.HTM
Auspacken mit: UGET ZXD20.LBR *.*
und UNCRLZH ZXD20.ZY0

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

008
19.02.2017, 14:07 Uhr
Alwin

Avatar von Alwin

Danke für die Tips, sowas hatte ich auch gesucht. Mit Power funzt das super.
--
...Z1013, KC87, KC85/5, KC Compact, C64

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

009
24.02.2017, 22:33 Uhr
Bert

einen hab ich noch, einen hab ich noch:
SDIR.COM

Quellcode:


...
sdir [drive = all]              (search all logged in drives)
sdir [drive = (a,b,p)]          (search specified drives, 'disk' is synonym)
sdir [user = all]               (find files with any user number)
sdir [user = (0,1,15)]          (find files with specified user number)
...
sdir [help]                     (show this message)

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

Seiten: -1- [ Technische Diskussionen ]