home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 2 / fishmore-publicdomainlibraryvol.ii1991xetec.iso / dirs / cross_464.lzh / Cross / txt / CPCGlobal.def < prev    next >
Text File  |  1991-03-09  |  838b  |  43 lines
  1. DEFINITION MODULE CPCGlobal;
  2.  
  3. FROM FileReq IMPORT FileString;
  4.  
  5. FROM Graphics IMPORT RastPortPtr,ViewPortPtr,TextFontPtr;
  6.  
  7. FROM IntuiIO IMPORT WINDOW,SCREEN;
  8.  
  9. CONST
  10.  stringlen=40;
  11.  lstringlen=stringlen*2;
  12.  maxmsg=100;
  13.  stat=44;
  14.  maxwords=4000;
  15.  puzzlewords=300;
  16.  maxgrid=50;
  17.  blankC="@";
  18.  yoff=16;
  19.  
  20. TYPE
  21.  string=ARRAY [0..stringlen] OF CHAR;
  22.  lstring=ARRAY [0..lstringlen] OF CHAR;
  23.  switch=(on,off);
  24.  column=ARRAY [0..maxgrid+1] OF CHAR;
  25.  field=ARRAY [0..maxgrid+1] OF column;
  26.  wordfield=ARRAY [0..maxwords] OF string;
  27.  puzzlewordfield=ARRAY [0..puzzlewords] OF string;
  28.  
  29. VAR
  30.  search,show: switch;
  31.  window: WINDOW;
  32.  screen: SCREEN;
  33.  msg: ARRAY [1..maxmsg] OF lstring;
  34.  rastport: RastPortPtr;
  35.  viewport: ViewPortPtr;
  36.  text: field;
  37.  kwr: puzzlewordfield;
  38.  words: wordfield;
  39.  hori,vert,xmax,ymax: INTEGER;
  40.  topaz: TextFontPtr;
  41.  
  42. END CPCGlobal.
  43.