[Control]
AuthorName=Robert Sheahan
CompanyName=Prolink Software
DateCreated=07/27/98
Description=Metronics QC-1000 and QC-1100
BaudRate=600
Parity=0
BitsPerByte=8
StopBits=2
FlowControl=2
NoOfChannels=1
Port=COM1
Phone=
E-Mail=
GetString=
DelayTime=
InitString=
Parse=16
ParseLines 1=*{MoveFirst} {MovePast,0,2, } {StartRead} {MoveLast} {StopRead} ~{*
ParseLines 2=*If, {Var,MoveWarn}, {SetVar,Units,} {SetVar,Action,1}, {ReadVar,U*
ParseLines 3=*nits}}~{SetVar,User0,0}~{If,{Compare,=,{Var,Units},dms}, {SetVar,*
ParseLines 4=*User0,-1},}~{If,{Compare,=,{Var,Units},mm},  {SetVar,User0,-1},}~*
ParseLines 5=*{If,{Compare,=,{Var,Units},inch}, {SetVar,User0,-1},}~{If,{Compar*
ParseLines 6=*e,=,{Var,Units},deg}, {SetVar,User0,-1},}~{If,{Var,User0},~  {Mov*
ParseLines 7=*eFirst} {MovePast,0,1, } {StartRead} ~  {if,{Compare,=,{Var,Units*
ParseLines 8=*},dms},~     {MoveTo,0,1,.} {StopRead} {ReadVar,Actual} ~     {Mo*
ParseLines 9=*veRel,1} {StartRead} {MoveTo,0,1,.} {StopRead} {ReadVar,User0}~  *
ParseLines 10=*   {SetVar,User0,{Div, {Var,User0}, {If,{Compare,#<,{Var,Actual},*
ParseLines 11=*0},-,+}60}}~     {SetVar,Actual,{Add, {Var,Actual}, {Var,User0}}}*
ParseLines 12=*~     {MoveRel,1} {StartRead} {MoveTo,0,1, } {StopRead} {ReadVar,*
ParseLines 13=*User0}~     {SetVar,User0,{Div, {Var,User0}, {If,{Compare,#<,{Var*
ParseLines 14=*,Actual},0},-,+}3600}}~     {SetVar,Actual,{Add, {Var,Actual}, {V*
ParseLines 15=*ar,User0}}}~  ,~     {MoveTo,0,1, } {StopRead} {ReadVar,Actual}~ *
ParseLines 16=* }~,}*
Notes=1
NoteLines 1=*4 acceptable units - inch, mm, deg, and dms. Handles dms < 0 now.*