set tty3 uascii
set tty3 start
d a 311
+;d a 310
d p 1000
d ss1 0
d ss2 1
EOF
h316 $name.go > /dev/null
-rm -f $name.par
-rm -f $name.go
if cat $name.lst | egrep "[*]{36,40}">/dev/null 2>&1; then
cat $name.lst
if [ ! $2 ]; then
rm $name.lst
+ rm -f $name.go
+ rm -f $name.par
+
fi
echo "FORTRAN IV compilation successfull."
exit 0