DEFINITION MODULE DiskIO ;

(*
   An extremely simple lexical analyser
*)

EXPORT QUALIFIED GetNextSymbol,
                 CurrentSymbol,
                 NextSymbol,
                 LastSymbol,
                 OpenSourceFile,
                 OpenSource,
                 CloseSourceFile ;

VAR
   CurrentSymbol,
   NextSymbol,
   LastSymbol   : ARRAY [0..255] OF CHAR ;


PROCEDURE OpenSourceFile ;


PROCEDURE OpenSource (a: ARRAY OF CHAR) ;


PROCEDURE CloseSourceFile ;


PROCEDURE GetNextSymbol ;


END DiskIO.