require"hlfton.rel"load!module; external procedure hlfton( integer array image; integer first!row,last!row, first!column,last!column,sampling; string title; real x0,y0; integer dmin,dmax; real scaling; integer npict; reference integer row!cross,column!cross ;string terminal);