2 # FORTRAN IV simple executor
9 name
=`basename $1 .obj`
11 LIBS
="$H316/lib/fortran/lib/flib1.lib\
12 $H316/lib/fortran/lib/flib2.lib\
13 $H316/lib/fortran/lib/flib3.lib\
14 $H316/lib/iolib/io.lib\
17 echo "rest $H316/sys/super2.sys" > $name.go
18 echo "at ptr $name.obj" >> $name.go
22 for library
in $LIBS; do
23 if [ ! -e "$library" ]; then
24 echo "Error: $library not found!"
27 echo "at ptr $library" >> $name.go
31 echo "! echo -e \"\\n************************\"" >> $name.go
32 echo "run 1000" >> $name.go
33 echo "! echo -e \"************************\"" >> $name.go
34 #echo "quit" >> $name.go