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