1 (* --------------------------------------------------------- *)
2 (* IIUWGRAF GRAPHICS FOR MICROSOFT PASCAL *)
4 (* External subprograms header *)
6 type ads_of_byte = ads of byte;
8 procedure GRON(consts imode: integer); external;
9 procedure GROFF; external;
10 procedure CLS; external;
11 procedure POINT(consts ix,iy: integer); external;
12 procedure MOVE(consts ix,iy: integer); external;
13 procedure DRAW(consts ix,iy: integer); external;
14 procedure HFILL(consts maxx: integer); external;
15 procedure VFILL(consts maxy: integer); external;
16 procedure COLOR(consts c: integer); external;
17 procedure STYLE(consts s: integer); external;
18 procedure PATERN(consts p1, p2, p3, p4 : integer); external;
19 procedure INTENS(consts i: integer); external;
20 procedure PALLET(consts p: integer); external;
21 procedure BORDER(consts b: integer); external;
22 procedure VIDEO(ads_of_buffer: ads_of_byte); external;
23 procedure HPAGE(consts page, mode, clear: integer); external;
24 function SCREEN(consts idummy: integer): integer; external;
25 procedure PUSHXY; external;
26 procedure POPXY; external;
27 function INXPOS(consts idummy: integer): integer; external;
28 function INYPOS(consts idummy: integer): integer; external;
29 function INPIX(consts x,y: integer): integer; external;
30 procedure GETMAP(consts x,y: integer; ads_of_array: ads_of_byte); external;
31 procedure PUTMAP(ads_of_array: ads_of_byte); external;
32 procedure ORMAP(ads_of_array: ads_of_byte); external;
33 procedure XORMAP(ads_of_array: ads_of_byte); external;
34 procedure TRACK(consts x,y: integer); external;
35 function INKEY(consts idummy: integer): integer; external;
36 procedure HASCII(consts ic: integer); external;
37 procedure HFONT(consts seg, offs: integer); external;
38 procedure HFONT8(vars seg, offs: integer); external;
39 procedure OUTHLI(consts n:integer; ads_of_buffer: ads_of_byte); external;
40 procedure INHLIN(vars n:integer;ads_of_buffer: ads_of_byte); external;
41 procedure MKWNDW(consts x,y,icols,ilines: integer; ads_of_window: ads_of_byte;
42 consts iwndwsize,iborder: integer); external;
43 procedure BURY(ads_of_window: ads_of_byte); external;
44 procedure EXPOSE(ads_of_window: ads_of_byte; consts x,y: integer); external;
45 procedure OUTWLI(ads_of_window: ads_of_byte; consts n: integer;
46 ads_of_buffer: ads_of_byte); external;
47 procedure INWLIN(ads_of_window: ads_of_byte; vars n: integer;
48 ads_of_buffer: ads_of_byte); external;
49 procedure SWINDO(rw, iw: ads_of_byte; consts scale: integer); external;
50 procedure RWINDO(rw: ads_of_byte; consts scale: integer); external;
51 procedure RMOVE(consts rx,ry: real); external;
52 procedure RDRAW(consts rx,ry: real); external;
53 function RINXPO(consts dummy: real): real; external;
54 function RINYPO(consts dummy: real): real; external;
55 procedure CIRB(consts ix,iy,ir: integer; consts alfa, beta: real;
56 consts cbord, bcint: integer;
57 consts p, q: integer); external;
58 procedure RCIRB(consts ix,iy,ir: real; consts alfa, beta: real;
59 consts cbord, bcint: integer;
60 consts p, q: integer); external;
61 procedure PRTSCR; external;
63 (* --------------------------------------------------------- *)