1 (* --------------------------------------------------------- *)
2 (* HERCULES 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 NOCARD(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 procedure CIRB(consts ix,iy,ir: integer; consts alfa, beta: real;
54 consts cbord, bcint: integer;
55 consts p, q: integer); external;
56 procedure RCIRB(consts ix,iy,ir: real; consts alfa, beta: real;
57 consts cbord, bcint: integer;
58 consts p, q: integer); external;
60 (* --------------------------------------------------------- *)