TEST condition

TEST remembers its input condition, which must be TRUE or FALSE, so that it be used later by IFTRUE or IFFALSE instructions. The effect of TEST is local to the procedure in which it is used; any corresponding IFTRUE or IFFALSE must be in the same procedure or a subprocedure.

TO MYTEST :arg
  TEST 1 = :arg
  PRINT [Do this]
  PRINT [Do that]
  IFTRUE [PRINT [arg was the number one]]
  IFFALSE [PRINT [arg was NOT the number one]]
END

MYTEST 1
Do this
Do that
arg was the number one