DEFINITION MODULE myscreen;



FROM Intuition IMPORT ScreenPtr;
FROM Rasters IMPORT RastPortPtr ;
FROM Intuition IMPORT Window, Gadget,GadgetPtr, StringInfo, Border,
                      IntuitionText;
FROM SYSTEM IMPORT WORD;
FROM Strings IMPORT String;


VAR
  RP: RastPortPtr;
  ourscreen: ScreenPtr;
  ourwindow: POINTER TO Window;
  ColourTable: ARRAY [0..31] OF CARDINAL;
  strborder : Border;
  strpairs, boolpairs : ARRAY[0..11] OF WORD;
  stadrtextintui, enadrtextintui  : IntuitionText;
  stadrgadg, enadrgadg, errnogadg,loopergadg : Gadget;
  windowtitle,screentitle,sttext,entext, tempstring,
      stadrresult,enadrresult, errresult, looperresult : String;
  stgadgstring, engadgstring, errgadgstring, loopergadgstring : StringInfo;

PROCEDURE InitScreen(width, height, depth: CARDINAL): BOOLEAN;
  (* initialise a new screen.

     width, height: the raster size in pixels.
     depth: number of bit planes to allocate.
     returns: TRUE => all VARS in this module are vaild for the requested
                raster.
              FALSE => no graphics library or not enough memory. *)

PROCEDURE Refresh;

PROCEDURE EndMake;
  (* Cleans up the screen after demo *)


END myscreen.

