->Public v1.0 by Sv/Procyon                                  ??/09-95
->
->Public v1.3 by Demonoid Productions/Procyon
->Added: Now the public screens stays until forever!
->due to MUCH! error while using SER: and CD32!!
->Program also now
->detatchable... thanks to SV's DETATCH.M!                   01/11-95

OPT OSVERSION=37
MODULE 'intuition/screens','detatch'
ENUM OKAY,NOSCREEN,NOSIG

PROC main()
  DEF s=NIL,sig=-1,name
  detatch('public')
  IF (s:=OpenScreenTagList(0,          /* get ourselves a public screen */
         [SA_DEPTH,4,
          SA_DISPLAYID,$8000,
          SA_PUBNAME,name:='Public',
          SA_TITLE,name,
          SA_PUBSIG,IF (sig:=AllocSignal(-1))=NIL THEN Raise(NOSIG) ELSE sig,
          SA_PUBTASK,NIL,
					SA_PENS,[-1]:INT,
          0,0]))=NIL THEN Raise(NOSCREEN)
  PubScreenStatus(s,0)                 /* make it available */
	SetDefaultPubScreen(name)   /* Setter DEFAULT public screenen her.. */
  SetPubScreenModes(SHANGHAI) /* "stjeler" WB vinduer... */
   Delay(50*5) /* Venter 5 sek...Enough to start progs and div..*/
	SetDefaultPubScreen(NIL)    /* Workbench er igjenn DEFAULT skjermen */
CleanUp(0)
ENDPROC