(* ------------------------------------------------------------ *)

MODULE DosExeDemo;

(*
Author	 : R.Kappeler
Last Edit : 20.04.89
System	 : AM-Amiga
*)

FROM SYSTEM IMPORT
					 ADR, ADDRESS;
FROM Dos 	IMPORT
					 FileHandlePtr, Open, Close, oldFile, Execute;

(* ------------------------------------------------------------ *)

PROCEDURE DosExecute (	  Order : ADDRESS) : BOOLEAN;

VAR Handle : FileHandlePtr;
	 Error  : LONGINT;

BEGIN
  Handle := Open (ADR ('NIL:'), oldFile);
  IF Handle # NIL THEN
	 Error := Execute (Order, Handle, Handle);
	 Close (Handle);
	 RETURN Error # 0;		 (* ungleich 0 : ok! *)
  END;
  RETURN FALSE;
END DosExecute;

(* ------------------------------------------------------------ *)

CONST 							(* auszuführende DOS-Befehle *)
  SetMapOrder = 'SetMap f';
  NewCliOrder = 'NewCli';

BEGIN
  IF NOT DosExecute (ADR (SetMapOrder)) THEN
	 (* wieso hat denn das nicht geklappt...? *)
  END;
  IF NOT DosExecute (ADR (NewCliOrder)) THEN
	 (* gibt's nicht: schon wieder nicht...?! *)
  END;
END DosExeDemo.

(* ------------------------------------------------------------ *)