'This FN will center a PICT hande in the middle of the current
'window. Made By Chris Parrott, President of Para-Sights Software


LOCAL FN CenterPICT (PICT&)
  LONG IF PICT&
    DIM rect.8
    rect;8 = [PICT&]+_picFrame
    h = rect.right% - rect.left%
    v = rect.bottom% - rect.top%
    wh = WINDOW(_width)
    wv = WINDOW(_height)
    ph = wh - h
    pv = wv - v
    ph2 = ph/2
    pv2 = pv/2
    PICTURE (ph2,pv2), PICT&
  END IF
END FN