&uf('+1W400#1'),
(if v4000<>'' then 
  &uf('+1W400#*'),
  if v4000^a=&uf('+1R560') then 
  

  '<input type="hidden" name="1_R21NUM',&uf('+1R400'),'" value="4000">'#  
  '<input type="hidden" name="1_R21SUB',&uf('+1R400'),'_1" value="A">'#
  '<input type="hidden" name="1_R21VOL',&uf('+1R400'),'_1" value="[ID]">'#

  '<input type="hidden" name="1_R21SUB',&uf('+1R400'),'_2" value="B">'#
  '<input type="hidden" name="1_R21VOL',&uf('+1R400'),'_2" value="',v4000^B,'">'#

  '<input type="hidden" name="1_R21SUB',&uf('+1R400'),'_3" value="C">'#
  '<input class="inp1" size=10 value="1" name="1_R21VOL',&uf('+1R400'),'_3">'#
      
  else,

  '<input type="hidden" name="1_R21NUM',&uf('+1R400'),'" value="4000">'#
  '<input type="hidden" name="1_R21VOL',&uf('+1R400'),'_1" value="',v4000,'">'#

  fi,
fi),