MODULE Ster;
(* !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ZET JE NAAM HIER !!!!!!!!!!!!!!!!!!!!!!!!!!!!! *)
<* WOFF + *> <* NOOPTIMIZE + *>
   FROM IO IMPORT RdChar, WrChar, WrStr, RdStr, WrLn, RdLn, RdCard, WrCard, RdInt, WrInt, RdReal, WrReal, WrFixReal, RdBool, WrBool, RdKey, KeyPressed;
    FROM RealMath IMPORT sqrt, exp, sin, cos, tan, arcsin, arccos, arctan, power, round, pi;
    FROM Lib IMPORT Delay; (* Wait n milliseconds *)
    FROM Graph IMPORT Init, Line, Rectangle, Circle, Disc, Polygon, RawOutText, _clrBLACK, _clrBLUE, _clrGREEN, _clrCYAN, _clrRED, _clrMAGENTA;
    FROM Graph IMPORT _clrBROWN, _clrWHITE, _clrGRAY, _clrLIGHTBLUE, _clrLIGHTGREEN, _clrLIGHTCYAN, _clrLIGHTRED, _clrLIGHTMAGENTA, _clrLIGHTYELLOW, _clrBRIGHTWHITE;


    CONST K = 1000;
  (* Vraag 1 *)
  (*
	  Zet de procedure definities en oproep hier tussen commentaar
		
		
		
	*)
  (* Vraag 3 *)
  (* Vraag 4 *)
	(* Vraag 5 *)
		
     VAR k: CHAR;              (* variable-declarations *)

BEGIN
   (* Vraag 2 *)
	
  IF NOT Init(1, 1 , 800, 800) THEN
    WrStr("Sorry, graphics doesn't work");WrLn;
    RETURN;
  END;

  (* Vraag 3 *)
	
  (* Vraag 4 *)
	
	(* Vraag 5 *)

  (* Toon graphics tot de gebruiker een Enter drukt *)
  WrStr("Druk op een toets om het programma te stoppen");
  k:= RdKey(); WrLn;
END Ster.