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.