home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / modula2 / library / fst / qvideo / qvideo.def next >
Text File  |  1987-11-20  |  1KB  |  54 lines
  1.  
  2. DEFINITION MODULE QVideo;        (* Alan Steed, 10/87 *)
  3.  
  4. FROM SYSTEM  IMPORT ASSEMBLER, OFS, SEG, ADDRESS, ADR;
  5. FROM Storage IMPORT ALLOCATE;
  6. FROM Strings IMPORT Length;
  7.  
  8. PROCEDURE ClrScr (attrib : CARDINAL);
  9. (* clear the whole screen *)
  10.  
  11. PROCEDURE ClrEOL;
  12. (* clear line from cursor to end of line keeping attribute the same *)
  13.  
  14. PROCEDURE SetAttrib (attrib, row, col : CARDINAL);
  15.  
  16. PROCEDURE GetAttrib (VAR attrib : CARDINAL; col, row : CARDINAL);
  17.  
  18. PROCEDURE GotoXY (col, row : CARDINAL);
  19. (* locate cursor - column and row start at 1, not 0 *)
  20.  
  21. PROCEDURE GetXY ( VAR curcol, currow : CARDINAL);
  22. (* get current cursor location *)
  23.  
  24. PROCEDURE QWrite (ch : CHAR; attrib, col, row : CARDINAL);
  25.  
  26. PROCEDURE QWriteString (String : ARRAY OF CHAR);
  27. (* fast! string writing (mono, CGA, EGA) doesn't move cursor *)
  28. (* use Gotoxy() to locate for printing *)
  29.  
  30. PROCEDURE KeyScan (VAR KeyValue : CARDINAL) : CARDINAL;
  31.  
  32. PROCEDURE ScreenBuffer (VAR ScreenArray : ARRAY OF CHAR;
  33.                             direction : CARDINAL);
  34.  
  35. PROCEDURE WriteBuffer (String : ARRAY OF CHAR;
  36.                    VAR Buffer : ARRAY OF CHAR;
  37.                     Col, Row  : CARDINAL);
  38.  
  39. PROCEDURE ScrollUp (NumLines, Width, Height, ULC, ULR : CARDINAL);
  40.  
  41. PROCEDURE ScrollDn (NumLines, Width, Height, ULC, ULR : CARDINAL);
  42.  
  43. PROCEDURE CursorOn (startline, endline : CARDINAL);
  44.  
  45. PROCEDURE CursorOff;
  46.  
  47. PROCEDURE Frame (Method, Width, Height, ULC, ULR : CARDINAL);
  48.  
  49. END QVideo.
  50. 
  51.  
  52. 
  53.  
  54.