%
% set customer record
%
% stack: cust-rec
%
  _Install.Stamp &"_" &_Install.Random &".vrp" ofsrvc
  dup tuck
  write
  dup ".vrq" reextend copyfile