l($n101)
FIINIT(U1)=FLOLX*2  ; FIINIT(V1)=FLOLY