$	set noverify
Wednesday,  7-MAR-1990 15:59:58
$!
$!  Define some symbols.
$!
$!
$	tape_drive = p2
$	if p2 .eqs. "" then tape_drive = "mua0:"
$	if p2 .nes. "" then define mua0 TAPE$2:
$!
$	set default disk$5:[swdist]
$!
$!
$	if p1 .eqs. "" then p1 = "tape.tap"
$	node = f$trnlnm("SYS$NODE") - "::"
$	RT == "$SYS$DISK:[]READTAPE "
$!
$!
$	mount/for/nowrite/block=10240 TAPE$2:
%MOUNT-I-MOUNTED,  mounted on _A$MUA2:
$	RT DISK$2:[SWDIST_ULTRIX]UWS_RISC_022.TAP
1 records
1 records
1 records
34 records
339 records
24 records
331 records
37 records
283 records
355 records
122 records
25 records
10 records
10 records
145 records
679 records
5 records
45 records
19 records
12 records
405 records
28 records
63 records
57 records
2 records
713 records
63 records
6 records
0 records
%DCL-W-SKPDAT, image data (records not beginning with "$") ignored
$	dismount/nounload TAPE$2:
$	mail/subj="first read of DISK$2:[SWDIST_ULTRIX]UWS_RISC_022.TAP on AGL finished" sys$input -
		operator,cctlinscomb

  The first read of the TK50 tape has completed.  Please check the
free space on the disk shown above with the command:
	$ SHOW DEV DISK$n
If there is no free space remaining, immediately contact Jan or Thomas

--READTAPE.COM
$	mount/for/nowrite/block=10240 TAPE$2:
%MOUNT-I-MOUNTED,  mounted on _A$MUA2:
$	RT DISK$2:[SWDIST_ULTRIX]UWS_RISC_022.TAP
1 records
1 records
1 records
34 records
339 records
24 records
331 records
37 records
283 records
355 records
122 records
25 records
10 records
10 records
145 records
679 records
5 records
45 records
19 records
12 records
405 records
28 records
63 records
57 records
2 records
713 records
63 records
6 records
0 records
%DCL-W-SKPDAT, image data (records not beginning with "$") ignored
$	dismount/nounload TAPE$2:
$	mail/subj="DISK$2:[SWDIST_ULTRIX]UWS_RISC_022.TAP on AGL finished" sys$input -
		operator,cctlinscomb

  Please remove the tape from the VAXstation shown in the "Subject:" line
above, it has finished.  The tape should be returned to Jan.

--READTAPE.COM
$	request "Finished reading the tape on AGL."
$	differ/mode=hex DISK$2:[SWDIST_ULTRIX]UWS_RISC_022.TAP,DISK$2:[SWDIST_ULTRIX]UWS_RISC_022.TAP;-1
Number of difference sections found: 0
Number of difference records found: 0

DIFFERENCES /IGNORE=()/MERGED=1/MODE=(HEXADECIMAL)-
    DISK$2:[SWDIST_ULTRIX]UWS_RISC_022.TAP;2-
    DISK$2:[SWDIST_ULTRIX]UWS_RISC_022.TAP;1
$	exit
  SYSTEM       job terminated at  7-MAR-1990 17:30:40.09

  Accounting information:
  Buffered I/O count:         4960      Peak working set size:  1310
  Direct I/O count:          36374      Peak page file size:    4520
  Page faults:                4385      Mounted volumes:           2
  Charged CPU time:     0 00:11:54.40   Elapsed time:     0 01:31:02.51