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