2 # FORTRAN IV compiler wrapper for simh h316
12 cat $1 | tab | paron
> $name.par
16 echo "rest $H316/sys/frtn.sys" > $name.go
20 echo "at ptr $name.par" >> $name.go
21 echo "at ptp $name.obj" >> $name.go
22 echo "at tty3 $listfile" >> $name.go
23 echo "set tty3 uascii" >> $name.go
24 echo "set tty3 start" >> $name.go
26 echo "d a 311" >> $name.go
27 echo "d p 1000" >> $name.go
30 echo "quit" >> $name.go
31 h316
$name.go
> /dev
/null
36 if cat $name.lst |
egrep "[*]{36,40}">/dev
/null
2>&1; then
38 echo -e "\n\nFORTRAN IV compilation FAILED!"
46 echo "FORTRAN IV compilation successfull."