` FILE:     testif.x
` PURPOSE:  see if 'if' works; should do abs value

  if xin < 0.0 ? xa := -xin; :: xin >= 0.0 ? xa := xin; fi;