TERMINAL.LST 1.2 KB

123456789101112131415161718192021222324252627282930313233
  1. Listing:
  2. 1 (* Release 3.10 *)
  3. 2 (*-------------------------------------------------------------------------*
  4. 3 * *
  5. 4 * TERMINAL.DEF - Modula-2 core library *
  6. 5 * *
  7. 6 * COPYRIGHT (C) 1987..1992 Clarion Software Corporation. *
  8. 7 * All Rights Reserved *
  9. 8 * *
  10. 9 *--------------------------------------------------------------------------*)
  11. 10
  12. 11 DEFINITION MODULE Terminal ;
  13. 12
  14. 13 PROCEDURE Read ( VAR v : CHAR ) ;
  15. 14 PROCEDURE ReadAgain ;
  16. 15
  17. 16 PROCEDURE Write ( v : CHAR ) ;
  18. 17 PROCEDURE WriteLn ;
  19. 18 PROCEDURE WriteString ( s : ARRAY OF CHAR ) ;
  20. ***** ^ not supported yet
  21. 19
  22. 20 PROCEDURE ReadString ( VAR v : ARRAY OF CHAR ) ;
  23. ***** ^ not supported yet
  24. 21 VAR
  25. 22 termCH : CHAR ;
  26. 23 END Terminal.
  27. ***** ^ not supported yet
  28. 24
  29. 3 errors