MODULE TestFromWB;

(* FS *)
FROM Arts	IMPORT Assert;
FROM FromWB	IMPORT StartFromWB;
FROM Intuition  IMPORT ScreenPtr,MoveScreen,OpenWorkBench;
FROM SYSTEM	IMPORT ADR;
FROM Terminal	IMPORT WriteString,WriteLn;

VAR SPtr : ScreenPtr;
    Ok   : BOOLEAN;
    i    : INTEGER;

BEGIN
 IF StartFromWB () THEN
   WriteString ("Start erfolgte von WorkBench ")
 ELSE
   WriteString ("Start erfolgte nicht von WorkBench ")
 END;
 WriteLn;
 
 SPtr := OpenWorkBench ();
 (* So bekommt man den ScreenPtr auf die Workbench *)
 Assert (SPtr # NIL,ADR("Wo ist die Workbench ?"));
  (* Workbench ließ sich nicht öffnen. Vermutlich Speichermangel. *)
 WriteString (" Don't Panic !");
 WriteLn;
 FOR i := 0 TO 255 DO      (* Nach unten ... *)
   MoveScreen (SPtr,0,1)
 END;
 FOR i := 0 TO 255 BY 2 DO (* Nach oben *)
   MoveScreen (SPtr,0,-2)
 END;
END TestFromWB.