apl>" <------------------------- sam094.txt ---------------------------->


apl>" <--- Branching and labels in user functions. --------------------->


apl>a # 1 40 R 'a compare b                             '


apl>a # a,[1]  '$(a < b) / lessthan                     '


apl>a # a,[1]  '$(a > b) / grtrthan                     '


apl>a # a,[1]  '''a = b''                                 '


apl>a # a,[1]  '$0                                      '


apl>a # a,[1]  'lessthan:''a < b''                        '


apl>a # a,[1]  '$0                                      '


apl>a # a,[1]  'grtrthan:''a > b''                        '


apl>a # a,[1]  '$0                                      '


apl>Lfx a

compare

apl>1 compare 2

a < b

apl>2 compare 1

a > b

apl>3 compare 3

a = b

apl>)off