!   Ether monitoring code version 2.0 
!   simple analysis of command string, packet usgae, size.
!   Code inserted to record ether net usage   see include file im_mon:trans

%ownstring(63)MonV ="Ether Monitoring  Version 29/01/85"    {??????}
@16_10B0 %integer ether reads
@16_10b4 %integer ether writes
%string(12) file date="ZAP"
%integer re total
%integer wr total
%integer command counter=-1
%integer control
%recordformat rec (%integer time,%short re,wr,%string(255)line)
%record (rec) %array comms(0:11)

open input(3,"im_pub:control")
read (control)
close input
select input(0)