''HEAD, LOGT04A - EXTERNAL SUBS A
''TITLE, LOGT04A
''LIST
;;SUB1:: 'LBR'
      0-> [100],
      'RBR'
  SUB2:: (XA,XB,XC)'LBR'
      XA+XB -> XC,
      'RBR'
      ....
''END