externalintegerfnspec  nwfilead(string (15) s, integer  pgs)
systemroutinespec  move(integer  a,f,t)

externalroutine  copyit(string (255) s)
integer  fad
   fad=nwfilead("itpage",2)
   return  if  fad=0
   move(4096, x'28'<<18, fad+4096)
end 
endoffile