/*
   Besorgt die Namen aller PublicScreens

   Version 0.2

   © 1992 Helmut Kindler
*/

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <Intuition/IntuitionBase.h>
#include <Intuition/screens.h>
#include <clib/intuition_protos.h>


char *ver;

main (int argc, char **argv)
{
    extern struct IntuitionBase *InutuitionBase;

    APTR NameBuf, Name;
    struct screen *screen;
    short dummy;

    ver = "$VER: PubScreenLister V0.2";
    dummy = 0;

    puts("PublicScreenLister    © 1992 Helmut Kindler");
    NameBuf = malloc(MAXPUBSCREENNAME);
    Name = NULL;
    Name = NextPubScreen (NULL, NameBuf);
    do {
        dummy += 1;
        printf("%d. \"%s\"\n", dummy, Name);
        screen = LockPubScreen (Name);
        Name = NextPubScreen (screen, NameBuf);
        UnlockPubScreen (NULL, screen);
    } while ((Name != NULL) && !(strcmp (Name,"Workbench")==0));
    free (NameBuf);
}