CALL LINEOUT iniloc,posx,1
CALL LINEOUT iniloc,posy
rc=stream(iniloc,'c','close')


