2 # FORTRAN IV compiler wrapper for simh h316
4 if [ "$FRTN_ORIGINAL" ]; then
5 LOGNAME
="FORTRAN IV COMPILER (Original):"
7 LOGNAME
="FORTRAN IV COMPILER:"
11 echo "$LOGNAME Input file missing!"
16 if [ ! -f "$1" ]; then
17 echo "$LOGNAME Input file \"$name\" not found!"
24 cat $1 | tab | paron
> $name.par
28 echo -n "$LOGNAME Compiling \"$1\":"
30 if [ "$FRTN_ORIGINAL" ]; then
33 at ptr $H316/honeywell/slst/frtn_8k.slst
56 rest $H316/sys/frtn.sys
76 h316
$name.go
> /dev
/null
78 if cat $name.lst |
egrep "[*]{36,40}">/dev
/null
2>&1; then