7bd0cd3d978bd01ba872186ca009a833aef7f90d
[vlp.git] / examp / classes / ansi.inc
1 unit ANSI: IIUWGRAPH class;
2 var res:array_of char;
3
4   unit GotoXY:procedure(x,y:integer);
5     begin
6       res:=hfont8(10,x,y,0,"",0,0,0);
7     end GotoXY;
8   unit SetColor:procedure(col:integer);
9      begin
10        res:=hfont8(11,col,0,0,"",0,0,0);
11      end SetColor;
12   unit SetBackground:procedure(col:integer);
13      begin
14         res:=hfont8(12,col,0,0,"",0,0,0);
15      end SetBackground;
16   unit Bold:procedure;
17      begin
18        res:=hfont8(13,0,0,0,"",0,0,0);
19      end Bold;
20   unit Normal:procedure;
21      begin
22        res:=hfont8(15,0,0,0,"",0,0,0);
23      end Normal;
24   unit Clear:procedure;
25      begin
26        res:=hfont8(16,0,0,0,"",0,0,0);
27      end Clear;
28 begin
29 end ANSI;
30 \0\0