-name=`basename $1 .obj`
-
-echo "rest $H316/sys/super2.sys" > $name.go
-echo "at ptr $name.obj" >> $name.go
-echo "go" >> $name.go
-echo "go" >> $name.go
-echo "at ptr $H316/lib/fortran/original/flib1" >> $name.go
-echo "go" >> $name.go
-echo "at ptr $H316/lib/fortran/original/flib2" >> $name.go
-echo "go" >> $name.go
-echo "at ptr $H316/lib/fortran/original/flib3" >> $name.go
-echo "go" >> $name.go
-if [ -e $H316/lib/iolib/io.lib ]; then
- echo "at ptr $H316/lib/iolib/io.lib" >> $name.go
-else
- echo "io.lib nicht gefunden!"
- exit 3
-fi
-echo "go" >> $name.go
-echo "r" >> $name.go
-echo "! echo -e \"\\n************************\"" >> $name.go
-echo "run 1000" >> $name.go
-echo "! echo -e \"************************\"" >> $name.go
-echo "quit" >> $name.go
-#cat $name.go
-h316 $name.go
-
-rm -f $name.par
-rm -f $name.go
+objname=$1
+locname=`basename $1 .obj`
+
+echo $locname
+echo $objname
+
+LIBS="$H316/lib/fortran/lib/flib1.lib\
+ $H316/lib/fortran/lib/flib2.lib\
+ $H316/lib/fortran/lib/flib3.lib\
+ $H316/lib/iolib/lib/io.lib\
+"
+
+cat > $locname.go <<EOF
+rest $H316/sys/super2.sys
+at ptr $objname
+go 36000
+go
+e p
+EOF
+
+for library in $LIBS; do
+ if [ ! -e "$library" ]; then
+ echo "Error: $library not found!"
+ exit 3;
+ fi
+ echo "at ptr $library" >> $locname.go
+ echo "go" >> $locname.go
+done
+
+cat >> $locname.go <<EOF
+r
+! echo -e "\n************************"
+run 1000
+! echo -e "************************"
+;quit
+EOF
+
+#cat $locname.go
+h316 $locname.go
+
+rm -f $locname.go