2 # FORTRAN IV simple executor
9 name
=`basename $1 .obj`
11 echo "rest $H316/sys/super2.sys" > $name.go
12 echo "at ptr $name.obj" >> $name.go
15 echo "at ptr $H316/lib/fortran/original/flib1" >> $name.go
17 echo "at ptr $H316/lib/fortran/original/flib2" >> $name.go
19 echo "at ptr $H316/lib/fortran/original/flib3" >> $name.go
21 if [ -e $H316/lib
/iolib
/io.lib
]; then
22 echo "at ptr $H316/lib/iolib/io.lib" >> $name.go
24 echo "io.lib nicht gefunden!"
29 echo "! echo -e \"\\n************************\"" >> $name.go
30 echo "run 1000" >> $name.go
31 echo "! echo -e \"************************\"" >> $name.go
32 echo "quit" >> $name.go