*DECK LIT                                                               000290
      FUNC LIT ((SL), STR, (VL), VAL) I ;                               000300
*CALL COMLIT                                                            000310
