/* REXX INTERPRET Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
a = "NORD"
INTERPRET a "= OST"     /* a (NORD) wird der Wert "OST" zugeteilt */
SAY nord                /* Ausgabe: OST                           */
  /* */
  /* */
b1 = "SAY"
b2 = "LEFT("
b3 = ",6)"
INTERPRET b1 b2!!a!!nord!!b3   /* SAY LEFT("NORDOST",6)           */
                               /* Ausgabe: NORDOS                 */