DEFINITION MODULE Args;

IMPORT Str;

TYPE
  LitStr = ARRAY [0..255] OF CHAR;

  Symbol = (
    symNull,
    symArg,
    symOpt,
    symEOA
  );

  SymSet = SET OF Symbol;


VAR
  cnt     : CARDINAL;
  idx     : CARDINAL;
  sym     : Symbol;
  lit     : LitStr;

  optChars : Str.CHARSET;

CONST
  defOptChars = Str.CHARSET{ '-', '/' };



PROCEDURE Reset();
PROCEDURE Read();

END Args.