bin/frun

   1 #!/bin/bash
   2 # FORTRAN IV simple executor
   3
   4 if [ ! $1 ] ; then
   5     echo "Argument fehlt!"
   6     exit 2
   7 fi
   8
   9 name=`basename $1 .obj`
  10
  11 echo "rest $H316/sys/super2.sys" > $name.go
  12 echo "at ptr $name.obj" >> $name.go
  13 echo "go" >> $name.go
  14 echo "go" >> $name.go
  15 echo "at ptr $H316/lib/fortran/original/flib1" >> $name.go
  16 echo "go" >> $name.go
  17 echo "at ptr $H316/lib/fortran/original/flib2" >> $name.go
  18 echo "go" >> $name.go
  19 echo "at ptr $H316/lib/fortran/original/flib3" >> $name.go
  20 echo "go" >> $name.go
  21 if [ -e $H316/lib/iolib/io.lib ]; then
  22     echo "at ptr $H316/lib/iolib/io.lib" >> $name.go
  23 else
  24     echo "io.lib nicht gefunden!"
  25     exit 3
  26 fi
  27 echo "go" >> $name.go
  28 echo "r" >> $name.go
  29 echo "! echo -e \"\\n************************\"" >> $name.go
  30 echo "run 1000" >> $name.go
  31 echo "! echo -e \"************************\"" >> $name.go
  32 echo "quit" >> $name.go
  33 #cat $name.go
  34 h316 $name.go
  35
  36 rm -f $name.par
  37 rm -f $name.go
  38
  39 exit 0
  40
  41
  42