BEGIN
  INTEGER SYM
  STRING(255)S
  S="ABCDE"
  WHILE S#"" CYCLE
    SYM=CHARNO(S,1)
    printstring("Before: S=""".S."""  Sym="); printsymbol(sym); newline
    printstring("""".S."""->(""")
    printsymbol(SYM)
    printstring(""").S"); newline
    S->(TOSTRING(SYM)).S
    printstring("After: S=""".S.""""); newline
  REPEAT
  NEWLINE
ENDOFPROGRAM