program defpub;

USES
	Exec, Intuition, DOS;
	
Var
	ScrName : String;
	
begin
	IntuitionBase := pIntuitionBase(OpenLibrary('intuition.library',37));
	if IntuitionBase <> NIL then begin
		ScrName := ParamStr(1) + #0;
		SetDefaultPubScreen(@ScrName[1]);
		CloseLibrary(pLibrary(IntuitionBase));
	end;
end.