-#!/bin/sh
-# FORTRAN IV compiler wrapper for simh h316
-
-if [ ! $1 ] ; then
- echo "Argument missing!"
- exit 2
-fi
-
-echo "Compiling $1 with original FORTRAN 8K!"
-
-name=`basename $1 .f`
-listfile=$name.lst
-
-cat $1 | tab | paron > $name.par
-rm -f $name.lst
-rm -f $name.obj
-
-cat > $name.go <<EOF
-at ptr $H316/honeywell/slst/frtn_8k.slst
-boot ptr
-
-r
-at ptr $name.par
-at ptp $name.obj
-at tty3 $listfile
-set tty3 uascii
-set tty3 start
-d a 311
-;d a 310
-d p 1000
-d ss1 0
-d ss2 1
-d ss3 0
-d ss4 0
-go
-;quit
-EOF
-
-h316 $name.go
-#> /dev/null
-
-if cat $name.lst | egrep "[*]{36,40}">/dev/null 2>&1; then
- cat $name.lst
- echo -e "\n\nFORTRAN IV compilation FAILED!"
- rm -f $name.obj
- exit 77
-fi
-
-if [ ! $2 ]; then
- rm $name.lst
- rm -f $name.go
- rm -f $name.par
-
-fi
-echo "FORTRAN IV compilation successfull."
-exit 0
+#!/bin/bash
+export FRTN_ORIGINAL=1
+frtn $@
+exit $?