/* Try each of the REXX converters on an input string... */
parse arg input;signal on syntax
Numeric digits 32
 
  say 'D2X of' input 'is |'"D2X"(input)'|'
after_d2x:
  say 'X2D of' input 'is |'"X2D"(input)'|'
after_x2d:
  say 'C2D of' input 'is |'"C2D"(input)'|'
after_c2d:
  say 'D2C of' input 'is |'"D2C"(input)'|'
after_d2c:
  say 'C2X of' input 'is |'"C2X"(input)'|'
after_c2x:
  say 'X2C of' input 'is |'"X2C"(input)'|'
after_x2c:
exit
 
syntax:
 parse value('SOURCELINE'(sigl)) with . '"' func '"' .
 gotoline='AFTER_'||func
 say func 'failed'
 signal on syntax
 signal value gotoline