{$X+}                   { ignoriere Rckgabewert }
{
CLIPBRD stellt den Pfad auf das Verzeichnis, das in CLIPBRD.INF angegeben
ist. Auf Wunsch eines einzelnen Herrn, der seinen TT lieber ohne Harddisk
betreibt und lieber mit Diskette und Ramdisk arbeitet, weil die Harddisk
soviel L„rm macht. Wie recht er doch hat. ;-)
}

program clipbrd;

uses gem,tos;

const
  PATH_MAX = 128;
  
var
  f : text;
  path : string[PATH_MAX];

begin
	appl_init;
	{$I-}
	assign(f, 'CLIPBRD.INF');
	reset(f);
	if ioresult = 0 then begin
	  read(f,path);
	  close(f);
	  path[ord(path[0])+1] := char(0);
	  Dcreate(path);
	  scrp_write(path);
	end
	else
	  form_alert(1,'[3][|CLIPBRD.INF nicht gefunden!][  OK  ]');
	{$I+}
	appl_exit;
end.