signal on syntax

parse var xy ImageX ImageY

DataX=xa + xb*ImageX + xc*ImageY
DataY=Ya + yb*ImageX + yc*ImageY

FormatStatement = VpGetItemValue(CoordinateWindowId,'FORMATLIST')
FormatStatement = translate(FormatStatement,' ',',')
parse var FormatStatement FormatStatement ';' comment
parse var FormatStatement Before  After Expp Expt .
if Before='' then Before=0
if After ='' then After=0
if Expp  ='' then Expp=0
if Expt  ='' then Expt=0

DataX=format(DataX,Before,After,Expp,Expt)
DataY=format(DataY,Before,After,Expp,Expt)


CALL VpSetItemValue CoordinateWindowId,'DATA_XY',DataX DataY
   
/* Get button state SAVE_CHECKBOX Check Box */
if VpIsSelected(CoordinateWindowId,'SAVE_CHECKBOX') then do
   if PointListWindowID \= 0 then 
      CALL VpAddItem PointListWindowID, 'CURRENTLINE', 'END', DataX DataY '0a'x
   rc=lineout(out,DataX DataY)
   end
return 1

syntax:
if FormatSyntaxFlag = 'OFF' then do 
   Txt1 = 'I have a suggestion for you.'
   txt2 ='The syntax of your format statement is not correct.  You probably have not given enough precision for the integer part of the values.'
   response=VpMessageBox(window,Txt1,Txt2)
   FormatSyntaxFlag='ON'
   end
else do
   Txt1 = 'I have a suggestion for you.'
   txt2 ='RTFM'
   response=VpMessageBox(window,Txt1,Txt2)
   end
return


