DEFINITION MODULE CPCGlobal;



IMPORT GraphicsD;
IMPORT IntuiIO;
IMPORT SYSTEM;



CONST
 stringLen=31;
 lStringLen=stringLen*2;
 maxmsg=93;
 stat=44;
 maxwords=3400;
 puzzlewords=300;
 maxgrid=39;
 blankC="@";
 yoff=16;



TYPE
 String=ARRAY [0..stringLen] OF CHAR;
 StringPtr=POINTER TO String;
 LString=ARRAY [0..lStringLen] OF CHAR;
 Switch=(on,off);
 Column=ARRAY [0..maxgrid+1] OF CHAR;
 Field=ARRAY [0..maxgrid+1] OF Column;
 WordField=ARRAY [0..maxwords] OF StringPtr;
 PuzzleWordField=ARRAY [0..puzzlewords] OF String;



VAR
 search,show: Switch;
 window: IntuiIO.WINDOW;
 screen: IntuiIO.SCREEN;
 msg: ARRAY [1..maxmsg] OF LString;
 rastport: GraphicsD.RastPortPtr;
 viewport: GraphicsD.ViewPortPtr;
 text: Field;
 kwr: PuzzleWordField;
 words: WordField;    (* words[0] is not used as a pointer but contains the *)
                      (* size of the memchunk that was allocated for the words *)
 hori,vert,xmax,ymax: INTEGER;
 topaz: GraphicsD.TextFontPtr;



PROCEDURE myAssert(flag: BOOLEAN; txt1Ptr,txt2Ptr: SYSTEM.ADDRESS);



END CPCGlobal.
