divert(-1)
define(SETROT,``SETROT'ifelse($1,,0,$2,,1,$3,,2,$4,,3,$5,,4,$6,,5,,$7,6,err) ifelse($1,,(),$2,,($1),$3,,($1,$2),$4,,($1,$2,$3),$5,,($1,$2,$3,$4),$6,,($1,$2,$3,$4,$5),$7,,($1,$2,$3,$4,$5,$6),err)')

define(setrot,``setrot'ifelse($1,,0,$2,,1,$3,,2,$4,,3,$5,,4,$6,,5,,$7,6,err) ifelse($1,,(),$2,,($1),$3,,($1,$2),$4,,($1,$2,$3),$5,,($1,$2,$3,$4),$6,,($1,$2,$3,$4,$5),$7,,($1,$2,$3,$4,$5,$6),err)')

define(SETAFF,``SETAFF'ifelse($1,,0,$2,,1,$3,,2,$4,,3,$5,,4,$6,,5,,$7,6,err) ifelse($1,,(),$2,,($1),$3,,($1,$2),$4,,($1,$2,$3),$5,,($1,$2,$3,$4),$6,,($1,$2,$3,$4,$5),$7,,($1,$2,$3,$4,$5,$6),err)')

define(setaff,``setaff'ifelse($1,,0,$2,,1,$3,,2,$4,,3,$5,,4,$6,,5,,$7,6,err) ifelse($1,,(),$2,,($1),$3,,($1,$2),$4,,($1,$2,$3),$5,,($1,$2,$3,$4),$6,,($1,$2,$3,$4,$5),$7,,($1,$2,$3,$4,$5,$6),err)')

define(SETPLO,``SETPLO'ifelse($1,,0,$2,,1,$3,,2,$4,,3,$5,,4,$6,,5,,$7,6,err) ifelse($1,,(),$2,,($1),$3,,($1,$2),$4,,($1,$2,$3),$5,,($1,$2,$3,$4),$6,,($1,$2,$3,$4,$5),$7,,($1,$2,$3,$4,$5,$6),err)')

define(setplo,``setplo'ifelse($1,,0,$2,,1,$3,,2,$4,,3,$5,,4,$6,,5,,$7,6,err) ifelse($1,,(),$2,,($1),$3,,($1,$2),$4,,($1,$2,$3),$5,,($1,$2,$3,$4),$6,,($1,$2,$3,$4,$5),$7,,($1,$2,$3,$4,$5,$6),err)')

define(BEGPLT,``BEGPLT'ifelse($1,,0,$2,,1,$3,,2,err) ifelse($1,,(),$2,,($1),$3,,($1,$2),err)')

define(begplt,``begplt'ifelse($1,,0,$2,,1,$3,,2,err) ifelse($1,,(),$2,,($1),$3,,($1,$2),err)')

define(ENDPLT,``ENDPLT'ifelse($1,,0,$2,,1,$3,,2,$4,,3,err) ifelse($1,,(),$2,,($1),$3,,($1,$2),$4,,($1,$2,$3),err)')

define(endplt,``endplt'ifelse($1,,0,$2,,1,$3,,2,$4,,3,err) ifelse($1,,(),$2,,($1),$3,,($1,$2),$4,,($1,$2,$3),err)')


define(SETUSR,``SETUSR'ifelse($1,,0,$2,,1,$3,,2,$4,,3,$5,,4,err) ifelse($1,,(),$2,,($1),$3,,($1,$2),$4,,($1,$2,$3),$5,,($1,$2,$3,$4),err)')

define(setusr,``seturs'ifelse($1,,0,$2,,1,$3,,2,$4,,3,$5,,4,err) ifelse($1,,(),$2,,($1),$3,,($1,$2),$4,,($1,$2,$3),$5,,($1,$2,$3,$4),err)')

define(symcon,``symcon' ifelse($1,,error,$2,,error,$3,,($1,$2),error)')

define(SYMCON,``SYMCON' ifelse($1,,error,$2,,error,$3,,($1,$2),error)')

define(SYMBOL,``SYMBOL' ifelse($1,,error,$2,,error,$3,,error,$4,,error,$5,,error,$6,,error,$7,,($1,$2,$3,$4,$5,$6),error)')

define(symbol,``symbol' ifelse($1,,error,$2,,error,$3,,error,$4,,error,$5,,error,$6,,error,$7,,($1,$2,$3,$4,$5,$6),error)')

define(SYMRIT,``SYMRIT' ifelse($1,,error,$2,,error,$3,,error,$4,,error,$5,,error,$6,,error,$7,,($1,$2,$3,$4,$5,$6),error)')

define(symrit,``symrit' ifelse($1,,error,$2,,error,$3,,error,$4,,error,$5,,error,$6,,error,$7,,($1,$2,$3,$4,$5,$6),error)')

define(SYMCEN,``$0' ifelse($1,,error,$2,,error,$3,,error,$4,,error,$5,,error,$6,,error,$7,,($1,$2,$3,$4,$5,$6),error)')

define(symcen,``$0' ifelse($1,,error,$2,,error,$3,,error,$4,,error,$5,,error,$6,,error,$7,,($1,$2,$3,$4,$5,$6),error)')

define(NUPAGE,``NUPAGE'ifelse($1,,0,$2,,1,$3,,2,$4,,3,$5,,4,$6,,5,$7,,6,err) ifelse($1,,(),$2,,($1),$3,,($1,$2),$4,,($1,$2,$3),$5,,($1,$2,$3,$4),$6,($1,$2,$3,$4,$5),$7,,($1,$2,$3,$4,$5,$6),err)')

define(nupage,``nupage'ifelse($1,,0,$2,,1,$3,,2,$4,,3,$5,,4,$6,,5,$7,,6,err) ifelse($1,,(),$2,,($1),$3,,($1,$2),$4,,($1,$2,$3),$5,,($1,$2,$3,$4),$6,($1,$2,$3,$4,$5),$7,,($1,$2,$3,$4,$5,$6),err)')

define(SETPAN,``SETPAN'ifelse($1,,0,$2,,1,$3,,2,$4,,3,$5,,4,err) ifelse($1,,(),$2,,err ,$3,,err,$4,,err,$5,,($1,$2,$3,$4),,err)')

define(setpan,``setpan'ifelse($1,,0,$2,,1,$3,,2,$4,,3,$5,,4,err) ifelse($1,,(),$2,,err ,$3,,err,$4,,err,$5,,($1,$2,$3,$4),,err)')

define(DATCON,``DATCON'ifelse($1,,0,$2,,1,$3,,2,$4,,3,$5,,4,$6,,5,,$7,,6,$8,,7,$8,,7,err) ifelse($1,,(),$2,,($1),$3,,($1,$2),$4,,($1,$2,$3),$5,,($1,$2,$3,$4),$6,,($1,$2,$3,$4,$5),$7,,($1,$2,$3,$4,$5,$6),$8,($1,$2,$3,$4,$5,$6,$7),err)')

define(datcon,``datcon'ifelse($1,,0,$2,,1,$3,,2,$4,,3,$5,,4,$6,,5,,$7,,6,$8,,7,$8,,7,err) ifelse($1,,(),$2,,($1),$3,,($1,$2),$4,,($1,$2,$3),$5,,($1,$2,$3,$4),$6,,($1,$2,$3,$4,$5),$7,,($1,$2,$3,$4,$5,$6),$8,($1,$2,$3,$4,$5,$6,$7),err)')

define(OURLYN,``OURLYN'ifelse($1,,0,$2,,1,$3,,2,$4,,3,$5,,4,$6,,5,,$7,,6,$8,,7,err) ifelse($1,,(),$2,,($1),$3,,($1,$2),$4,,($1,$2,$3),$5,,($1,$2,$3,$4),$6,,($1,$2,$3,$4,$5),$7,,($1,$2,$3,$4,$5,$6),$8,,($1,$2,$3,$4,$5,$6,$7),err)')

define(ourlyn,``ourlyn'ifelse($1,,0,$2,,1,$3,,2,$4,,3,$5,,4,$6,,5,,$7,,6,$8,,7,err) ifelse($1,,(),$2,,($1),$3,,($1,$2),$4,,($1,$2,$3),$5,,($1,$2,$3,$4),$6,,($1,$2,$3,$4,$5),$7,,($1,$2,$3,$4,$5,$6),$8,,($1,$2,$3,$4,$5,$6,$7),err)')

define(LABEL,``LABEL'ifelse($1,,0,$2,,1,$3,,2,$4,,3,$5,,4,$6,,5,,$7,,6,err) ifelse($1,,(),$2,,($1),$3,,($1,$2),$4,,($1,$2,$3),$5,,($1,$2,$3,$4),$6,,($1,$2,$3,$4,$5),$7,,($1,$2,$3,$4,$5,$6),err)')


define(label,``label'ifelse($1,,0,$2,,1,$3,,2,$4,,3,$5,,4,$6,,5,,$7,,6,err) ifelse($1,,(),$2,,($1),$3,,($1,$2),$4,,($1,$2,$3),$5,,($1,$2,$3,$4),$6,,($1,$2,$3,$4,$5),$7,,($1,$2,$3,$4,$5,$6),err)')

define(SETXAX,``SETXAX'ifelse($1,,0,$2,,1,$3,,2,$4,,3,$5,,4,$6,,5,$7,,6,$8,,7,$8,,7,$9,,8,9) ifelse($1,,(),$2,,($1),$3,,($1,$2),$4,,($1,$2,$3),$5,,($1,$2,$3,$4),$6,,($1,$2,$3,$4,$5),$7,,($1,$2,$3,$4,$5,$6),$8,($1,$2,$3,$4,$5,$6,$7),$9,,($1,$2,$3,$4,$5,$6,$7,$8),($1,$2,$3,$4,$5,$6,$7,$8,$9) )')


define(setxax,``setxax'ifelse($1,,0,$2,,1,$3,,2,$4,,3,$5,,4,$6,,5,$7,,6,$8,,7,$8,,7,$9,,8,9) ifelse($1,,(),$2,,($1),$3,,($1,$2),$4,,($1,$2,$3),$5,,($1,$2,$3,$4),$6,,($1,$2,$3,$4,$5),$7,,($1,$2,$3,$4,$5,$6),$8,($1,$2,$3,$4,$5,$6,$7),$9,,($1,$2,$3,$4,$5,$6,$7,$8),($1,$2,$3,$4,$5,$6,$7,$8,$9) )')

define(SETYAX,``SETYAX'ifelse($1,,0,$2,,1,$3,,2,$4,,3,$5,,4,$6,,5,$7,,6,$8,,7,$8,,7,$9,,8,9) ifelse($1,,(),$2,,($1),$3,,($1,$2),$4,,($1,$2,$3),$5,,($1,$2,$3,$4),$6,,($1,$2,$3,$4,$5),$7,,($1,$2,$3,$4,$5,$6),$8,($1,$2,$3,$4,$5,$6,$7),$9,,($1,$2,$3,$4,$5,$6,$7,$8),($1,$2,$3,$4,$5,$6,$7,$8,$9) )')

define(setyax,``setyax'ifelse($1,,0,$2,,1,$3,,2,$4,,3,$5,,4,$6,,5,$7,,6,$8,,7,$8,,7,$9,,8,9) ifelse($1,,(),$2,,($1),$3,,($1,$2),$4,,($1,$2,$3),$5,,($1,$2,$3,$4),$6,,($1,$2,$3,$4,$5),$7,,($1,$2,$3,$4,$5,$6),$8,($1,$2,$3,$4,$5,$6,$7),$9,,($1,$2,$3,$4,$5,$6,$7,$8),($1,$2,$3,$4,$5,$6,$7,$8,$9) )')

define(GRFSYZ,``GRFSYZ'ifelse($1,,0,$2,,1,$3,,2,$4,,3,$5,,4,$6,,5,$7,,6,err) ifelse($1,,(),$2,,($1),$3,,($1,$2),$4,,($1,$2,$3),$5,,($1,$2,$3,$4),$6,($1,$2,$3,$4,$5),$7,,($1,$2,$3,$4,$5,$6),err)')

define(grfsyz,``grfsyz'ifelse($1,,0,$2,,1,$3,,2,$4,,3,$5,,4,$6,,5,$7,,6,err) ifelse($1,,(),$2,,($1),$3,,($1,$2),$4,,($1,$2,$3),$5,,($1,$2,$3,$4),$6,($1,$2,$3,$4,$5),$7,,($1,$2,$3,$4,$5,$6),err)')


define(SETDAT,``SETDAT'ifelse($1,,0,$2,,1,$3,,2,$4,,3,$5,,4,$6,,5,,$7,,6,$8,,7,$8,,7,$9,,8,err) ifelse($1,,(),$2,,($1),$3,,($1,$2),$4,,($1,$2,$3),$5,,($1,$2,$3,$4),$6,,($1,$2,$3,$4,$5),$7,,($1,$2,$3,$4,$5,$6),$8,,($1,$2,$3,$4,$5,$6,$7),$9,,($1,$2,$3,$4,$5,$6,$7,$8),err)')

define(setdat,``setdat'ifelse($1,,0,$2,,1,$3,,2,$4,,3,$5,,4,$6,,5,,$7,,6,$8,,7,$8,,7,$9,,8,err) ifelse($1,,(),$2,,($1),$3,,($1,$2),$4,,($1,$2,$3),$5,,($1,$2,$3,$4),$6,,($1,$2,$3,$4,$5),$7,,($1,$2,$3,$4,$5,$6),$8,,($1,$2,$3,$4,$5,$6,$7),$9,,($1,$2,$3,$4,$5,$6,$7,$8),err)')

define(SETPLT,``SETPLT'ifelse($1,,0,$2,,1,$3,,2,$4,,3,$5,,4,$6,,5,$7,,6,err) ifelse($1,,(),$2,,($1),$3,,($1,$2),$4,,($1,$2,$3),$5,,($1,$2,$3,$4),$6,,($1,$2,$3,$4,$5),$7,,($1,$2,$3,$4,$5,$6),err)')

define(PLTDAT,``PLTDAT'ifelse($1,,0,$2,,1,$3,,2,$4,,3,$5,,4,err) ifelse($1,,(),$2,,($1),$3,,($1,$2),$4,,($1,$2,$3),$5,,($1,$2,$3,$4),err)')

define(pltdat,``pltdat'ifelse($1,,0,$2,,1,$3,,2,$4,,3,$5,,4,err) ifelse($1,,(),$2,,($1),$3,,($1,$2),$4,,($1,$2,$3),$5,,($1,$2,$3,$4),err)')

define(PLTOBJ,``PLTOBJ'ifelse($1,,0,$2,,1,$3,,2,$4,,3,$5,,4,err) ifelse($1,,(),$2,,($1),$3,,($1,$2),$4,,($1,$2,$3),$5,,($1,$2,$3,$4),err)')

define(pltobj,``pltobj'ifelse($1,,0,$2,,1,$3,,2,$4,,3,$5,,4,err) ifelse($1,,(),$2,,($1),$3,,($1,$2),$4,,($1,$2,$3),$5,,($1,$2,$3,$4),err)')

define(setplt,``setplt'ifelse($1,,0,$2,,1,$3,,2,$4,,3,$5,,4,$6,,5,$7,,6,err) ifelse($1,,(),$2,,($1),$3,,($1,$2),$4,,($1,$2,$3),$5,,($1,$2,$3,$4),$6,($1,$2,$3,$4,$5),$7,,($1,$2,$3,$4,$5,$6),err)')

define(GLTRAN,``GLTRAN'ifelse($1,,0,$2,,1,$3,,2,$4,,3,$5,,4,$6,,5,$7,,6,err) ifelse($1,,(),$2,,($1),$3,,($1,$2),$4,,($1,$2,$3),$5,,($1,$2,$3,$4),$6,,($1,$2,$3,$4,$5),$7,,($1,$2,$3,$4,$5,$6),err)')

define(gltran,``gltran'ifelse($1,,0,$2,,1,$3,,2,$4,,3,$5,,4,$6,,5,$7,,6,err) ifelse($1,,(),$2,,($1),$3,,($1,$2),$4,,($1,$2,$3),$5,,($1,$2,$3,$4),$6,,($1,$2,$3,$4,$5),$7,,($1,$2,$3,$4,$5,$6),err)')

define(SETGLT,``SETGLT'ifelse($1,,0,$2,,1,$3,,2,$4,,3,$5,,4,err) ifelse($1,,(),$2,,($1),$3,,($1,$2),$4,,($1,$2,$3),$5,,($1,$2,$3,$4),err)')

define(setglt,``setglt'ifelse($1,,0,$2,,1,$3,,2,$4,,3,$5,,4,err) ifelse($1,,(),$2,,($1),$3,,($1,$2),$4,,($1,$2,$3),$5,,($1,$2,$3,$4),err)')

define(HISTRA,``HISTRA'ifelse($1,,0,$2,,1,$3,,2,$4,,3,$5,,4,$6,,5,,$7,,6,$8,,7,$8,,7,err) ifelse($1,,(),$2,,($1),$3,,($1,$2),$4,,($1,$2,$3),$5,,($1,$2,$3,$4),$6,,($1,$2,$3,$4,$5),$7,,($1,$2,$3,$4,$5,$6),$8,($1,$2,$3,$4,$5,$6,$7),err)')

define(histra,``histra'ifelse($1,,0,$2,,1,$3,,2,$4,,3,$5,,4,$6,,5,,$7,,6,$8,,7,$8,,7,err) ifelse($1,,(),$2,,($1),$3,,($1,$2),$4,,($1,$2,$3),$5,,($1,$2,$3,$4),$6,,($1,$2,$3,$4,$5),$7,,($1,$2,$3,$4,$5,$6),$8,($1,$2,$3,$4,$5,$6,$7),err)')

define(SYMRAY,``SYMRAY'ifelse($1,,0,$2,,1,$3,,2,$4,,3,$5,,4,$6,,5,$7,,6,$8,,7,$8,,7,$9,,8,9) ifelse($1,,(),$2,,($1),$3,,($1,$2),$4,,($1,$2,$3),$5,,($1,$2,$3,$4),$6,,($1,$2,$3,$4,$5),$7,,($1,$2,$3,$4,$5,$6),$8,($1,$2,$3,$4,$5,$6,$7),$9,,($1,$2,$3,$4,$5,$6,$7,$8),($1,$2,$3,$4,$5,$6,$7,$8,$9) )')

define(symray,``symray'ifelse($1,,0,$2,,1,$3,,2,$4,,3,$5,,4,$6,,5,$7,,6,$8,,7,$8,,7,$9,,8,9) ifelse($1,,(),$2,,($1),$3,,($1,$2),$4,,($1,$2,$3),$5,,($1,$2,$3,$4),$6,,($1,$2,$3,$4,$5),$7,,($1,$2,$3,$4,$5,$6),$8,($1,$2,$3,$4,$5,$6,$7),$9,,($1,$2,$3,$4,$5,$6,$7,$8),($1,$2,$3,$4,$5,$6,$7,$8,$9) )')

divert