#!/bin/bash
# FORTRAN IV simple executor

if [ ! $1 ] ; then
    echo "Argument fehlt!"
    exit 2
fi

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

exit 0