DEFINITION MODULE CPCGlobal;

FROM FileReq IMPORT FileString;

FROM Graphics IMPORT RastPortPtr,ViewPortPtr,TextFontPtr;

FROM IntuiIO IMPORT WINDOW,SCREEN;

CONST
 stringlen=40;
 lstringlen=stringlen*2;
 maxmsg=100;
 stat=44;
 maxwords=4000;
 puzzlewords=300;
 maxgrid=50;
 blankC="@";
 yoff=16;

TYPE
 string=ARRAY [0..stringlen] OF CHAR;
 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 string;
 puzzlewordfield=ARRAY [0..puzzlewords] OF string;

VAR
 search,show: switch;
 window: WINDOW;
 screen: SCREEN;
 msg: ARRAY [1..maxmsg] OF lstring;
 rastport: RastPortPtr;
 viewport: ViewPortPtr;
 text: field;
 kwr: puzzlewordfield;
 words: wordfield;
 hori,vert,xmax,ymax: INTEGER;
 topaz: TextFontPtr;

END CPCGlobal.