home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 001-099 / ff024.lzh / Modula-2 / m2 / TerminalBase.DEF < prev    next >
Text File  |  1986-05-11  |  940b  |  33 lines
  1. (********************************************************************************
  2.  
  3. Name         : TerminalBase.DEF
  4. Version      : 1.0
  5. Purpose      : Possibility to redirect Terminal  
  6. Authors      : ms
  7. Modified     : 13.3.86  10:16  ms
  8. State        : should be ok
  9. Requirements : 
  10.  
  11. ********************************************************************************)
  12.  
  13. DEFINITION MODULE TerminalBase;
  14.  
  15. FROM SYSTEM IMPORT ADDRESS;
  16.  
  17. TYPE BusyReadProc = PROCEDURE(VAR CHAR);
  18.      WriteProc    = PROCEDURE(ADDRESS, LONGINT);
  19.  
  20. (* assignement of new procedures *)
  21. PROCEDURE AssignBusyRead(rp: BusyReadProc; VAR ok: BOOLEAN);
  22. PROCEDURE AssignWrite(wp: WriteProc; VAR ok: BOOLEAN);
  23.  
  24. (* currently assigned procedures *)
  25. PROCEDURE BusyRead(VAR ch: CHAR);
  26. PROCEDURE Write(buffer: ADDRESS; length: LONGINT);
  27.  
  28. (* Modula program window *)
  29. PROCEDURE StandardBusyRead(VAR ch: CHAR);
  30. PROCEDURE StandardWrite(buffer: ADDRESS; length: LONGINT);
  31.  
  32. END TerminalBase.
  33.