Category : Modula II Source Code
Archive   : BLOCKIO.ZIP
Filename : BLOCKIO.DEF

 
Output of file : BLOCKIO.DEF contained in archive : BLOCKIO.ZIP


DEFINITION MODULE blockio;

EXPORT QUALIFIED
(* proc *) openinput, resetinput, backupinput,
getnextchar, openoutput, closeoutput,
putchar, backupoutput;


PROCEDURE openinput
( filename : ARRAY OF CHAR );
(* Opens filename for reading. File is set to beginning.
*)


PROCEDURE resetinput;
(* Sets the input file to the beginning. *)


PROCEDURE backupinput;
(* Moves the input file pointer back one character. When
used after a getnextchar the pointer is moved back so
that the character just read will be read again in the
next getnextchar. Consecutive calls to backupinput
move the position of the input file back. *)


PROCEDURE getnextchar
( VAR c : CHAR );
(* Assigns the next character in the input file to c. *)


PROCEDURE openoutput
( filename : ARRAY OF CHAR );
(* Opens filename for writing. If filename exists it is
deleted. *)


PROCEDURE closeoutput();
(* Closes the output file, filename. This must be called
after all writing to a file has been completed, or else
the file will be truncated. *)


PROCEDURE putchar
( c : CHAR );
(* Sends character, c, to the output file. *)


PROCEDURE backupoutput;
(* Backs the output file up one character. When used
after a putchar it "unputs" the character just written,
or moves the output file position to the previous
character. *)


END blockio.

  3 Responses to “Category : Modula II Source Code
Archive   : BLOCKIO.ZIP
Filename : BLOCKIO.DEF

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/