Index: mttroot/mtt/bin/trans/make_stdin
==================================================================
--- mttroot/mtt/bin/trans/make_stdin
+++ mttroot/mtt/bin/trans/make_stdin
@@ -19,21 +19,21 @@
 
 ## Pascal code
 make_p()
 {
 cat <<EOF > $outfile
-PROCEDURE $1_input(VAR mttu : InputVector;
+PROCEDURE $Sys_input(VAR mttu : InputVector;
                        mttx : StateVector;
                        mtty : OutputVector;
                        mttt : REAL;
                        par  : ParameterVector);
 
 {Created by MTT on $date for standard input to simulation}
 
 VAR t : REAL; Start:BOOLEAN;
 
-BEGIN{$1_input}
+BEGIN{$Sys_input}
   {Zap comments}
   IF (input^ = chr("#")) THEN
   BEGIN
     readln;
     WHILE (input^ = chr("#")) DO readln;
@@ -43,11 +43,11 @@
   FOR mtti:=1 TO $Nu DO {Read the inputs}
     read(mttu[mtti]);
   readln; {Next line}
 
 
-END{$1_input};
+END{$Sys_input};
 EOF
 }
 
 make_m() {
 mtt_header $Sys input m stdin > $outfile
@@ -154,11 +154,11 @@
 EOF
 }
 
 case $lang in
     p)
-	make_p
+	make_p 
 	;;
     m)
 	make_m
 	;;
     cc)