Ausam/sys/sysd/dumps/put

Find at most related files.
including files from this version of Unix.

if $1x = x goto bad
if $2x = x goto bad
goto ok
: bad
echo "put corefile_suffix count_of_files_already_on_tape"
exit
: ok
if ! { ask Is the archive tape mounted } goto ok
: start
if ! { ask "The core file is exactly 1281 records long" } goto start
.skip $2
dd if=../cores/core.$1 of=/dev/rht0 bs=21b count=61
date >> log
echo core.$1 archived to file $2+1 >> log
echo done!