home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
17 Bit Software 1: Collection A
/
17Bit_Collection_A.iso
/
files
/
1065.dms
/
1065.adf
/
Cross
/
txt
/
CPCGlobal.def
< prev
next >
Wrap
Text File
|
1987-06-04
|
838b
|
43 lines
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.