PROCEDURE $1_input(VAR mttu : InputVector;
                       mttt : REAL;
                       mttx : StateVector;
                       mtty : OutputVector);

{Created by MTT on $date for standard input to simulation}

VAR t : REAL; ch: char;

BEGIN{$1_input}

  {Zap comments}
  REPEAT
    read(ch);
    IF ch="#" THEN 
      readln;
  UNTIL NOT (ch="#");

  read(t); { Read, and discard, first column (time) }
  FOR mtti:=1 TO $Nu DO {Read the inputs}
    read(mttu[mtti]);
  readln; {Next line}

END{$1_input};
EOF