home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / M2V11-1.LHA / modula / amiga / DosStdIO.mod < prev    next >
Encoding:
Modula Implementation  |  1993-11-22  |  909 b   |  36 lines
  1. (* @B- @P- *)
  2. IMPLEMENTATION MODULE DosStdIO ;
  3.  
  4. FROM SYSTEM IMPORT ADDRESS, STRING ;
  5. IMPORT Dos ;
  6.  
  7. PROCEDURE ReadChar( ) : LONGINT ;
  8. BEGIN RETURN Dos.FGetC( Dos.Input( ) )
  9. END ReadChar ;
  10.  
  11. PROCEDURE WriteChar( c : LONGINT ) : LONGINT ;
  12. BEGIN RETURN Dos.FPutC( Dos.Output( ) , c )
  13. END WriteChar ;
  14.  
  15. PROCEDURE UnReadChar( c : LONGINT ) : LONGINT ;
  16. BEGIN RETURN Dos.UnGetC( Dos.Input( ) , c )
  17. END UnReadChar ;
  18.  
  19. PROCEDURE ReadChars( buf : ADDRESS ; num : LONGINT ) : LONGINT ;
  20. BEGIN RETURN Dos.FRead( Dos.Input( ) , buf , 1 , num )
  21. END ReadChars ;
  22.  
  23. PROCEDURE ReadLn( buf : STRING ; len : LONGINT ) : STRING ;
  24. BEGIN RETURN Dos.FGets( Dos.Input( ) , buf , len )
  25. END ReadLn ;
  26.  
  27. PROCEDURE WriteStr( s : STRING ) : LONGINT ;
  28. BEGIN RETURN Dos.FPuts( Dos.Output( ) , s )
  29. END WriteStr ;
  30.  
  31. PROCEDURE VWritef( format : STRING ; argv : ADDRESS ) ;
  32. BEGIN Dos.VFWritef( Dos.Output() , format , argv )
  33. END VWritef ;
  34.  
  35. END DosStdIO.
  36.