home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 06 / praxis / listing1.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-03-12  |  1.7 KB  |  54 lines
  1. (* ------------------------------------------------------ *)
  2. (*                     LISTING.1                          *)
  3. (*             (c) 1991 Borland International             *)
  4. (* ------------------------------------------------------ *)
  5. UNIT WinCrt;
  6.  
  7. {$S-}
  8.  
  9. INTERFACE
  10.  
  11. USES WinTypes, WinProcs, WinDos;
  12.  
  13. CONST
  14.   WindowOrg: TPoint =                       { CRT window origin }
  15.     (X: cw_UseDefault; Y: cw_UseDefault);
  16.   WindowSize: TPoint =                      { CRT window size }
  17.     (X: cw_UseDefault; Y: cw_UseDefault);
  18.   ScreenSize: TPoint = (X: 80; Y: 25);      { Screen buffer dimensions }
  19.   Cursor: TPoint = (X: 0; Y: 0);            { Cursor location }
  20.   Origin: TPoint = (X: 0; Y: 0);            { Client area origin }
  21.   InactiveTitle: PChar = '(Inactive %s)';   { Inactive window title }
  22.   AutoTracking: BOOLEAN = TRUE;             { Track cursor on Write? }
  23.   CheckEoF: BOOLEAN = FALSE;                { Allow Ctrl-Z for EOF? }
  24.   CheckBreak: BOOLEAN = TRUE;               { Allow Ctrl-C for break? }
  25.  
  26. VAR
  27.   WindowTitle: ARRAY[0..79] OF CHAR;        { CRT window title }
  28.  
  29. PROCEDURE InitWinCrt;
  30. PROCEDURE DoneWinCrt;
  31.  
  32. PROCEDURE WriteBuf(Buffer: PChar; Count: WORD);
  33. PROCEDURE WriteChar(CH: CHAR);
  34.  
  35. FUNCTION KeyPressed: BOOLEAN;
  36. FUNCTION ReadKey: CHAR;
  37. FUNCTION ReadBuf(Buffer: PChar; Count: WORD): WORD;
  38.  
  39. PROCEDURE GotoXY(X, Y: INTEGER);
  40. FUNCTION WhereX: INTEGER;
  41. FUNCTION WhereY: INTEGER;
  42. PROCEDURE ClrScr;
  43. PROCEDURE ClrEol;
  44.  
  45. PROCEDURE CursorTo(X, Y: INTEGER);
  46. PROCEDURE ScrollTo(X, Y: INTEGER);
  47. PROCEDURE TrackCursor;
  48.  
  49. PROCEDURE AssignCrt(VAR F: Text);
  50.  
  51. (* ------------------------------------------------------ *)
  52. (*               Ende von LISTING.1                       *)
  53.  
  54.