flag echo off setdef 200 60 vdefine jupwidth $0 vdefine jupheight $1 window status hide window cursor hide print "Place cursor between stars" vdefine xpnt 512 vdefine ypnt 512 sysget point if pos.okpixel vdefine xpnt pos.xpnt vdefine ypnt pos.ypnt endif vdefine newleftx @topleft vdefine newtopy @topleft vdefine left @newleftx+@xpnt-int(@jupwidth/2) vdefine top @newtopy+@ypnt-int(@jupheight/2) iremove initialdisplay image exist jupiter if lvalue==1 iremove jupiter endif ccdfmt @left @top @jupwidth @jupheight 1 1 icreate jupiter @jupwidth @jupheight ci jupiter window image display window image move 0 0 print "Top Left corner of area" print "x @left y @top" vkill left top vkill newleftx newtopy