" <------------------------- sam094.txt ---------------------------->
" <--- Branching and labels in user functions. --------------------->
a # 1 40 R 'a compare b                             '
a # a,[1]  '$(a < b) / lessthan                     '
a # a,[1]  '$(a > b) / grtrthan                     '
a # a,[1]  '''a = b''                                 '
a # a,[1]  '$0                                      '
a # a,[1]  'lessthan:''a < b''                        '
a # a,[1]  '$0                                      '
a # a,[1]  'grtrthan:''a > b''                        '
a # a,[1]  '$0                                      '
Lfx a
1 compare 2
2 compare 1
3 compare 3
)off