home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / TURBOM2 / BOXDEMO.LBR / BOXLIBD.MOD < prev    next >
Text File  |  2000-06-30  |  768b  |  22 lines
  1. definition module boxlib;
  2. from terminal import clearscreen, gotoxy, writechar;
  3. (* This module is TVI950-specific *)
  4. type
  5.     boxtype = (WIDE, NARROW);    (* box with WIDE or NARROW lines *)
  6.     coordinate = record        (* upper left corner position *)
  7.         column : integer;
  8.         row : integer;
  9.         end;
  10.  
  11.     procedure Clear;        (* Clear Screen *)
  12.     procedure At            (* Position Cursor on Screen *)
  13.       (row, column : integer);
  14.  
  15.     procedure InitBox;        (* Initialize - call before others *)
  16.     procedure SetBox        (* Select Type of Box (WIDE, NARROW) *)
  17.       (selection : boxtype);
  18.     procedure DrawBox        (* Draw a Box *)
  19.       (length, width : integer; origin : coordinate);
  20. end boxlib.
  21.  
  22.