zOs/REXX/@

$#:
abc = xyz  * k1 ?
* kommentar ?
$@ say 'abc='$abc
proc $@/eins/ say 'eins abc='$abc $/eins/
$@ say 'call eins'
@eins
$#end
say '@' symbol('@') @
@ = 'v=@'
say '@' symbol('@') @
say 'abc@efg' symbol('abc@efg') abc@efg
abc@efg = 'v=abc@efg'
say 'abc@efg' symbol('abc@efg') abc@efg
say '@123' symbol('@123') @123
@123 = 'v=@123'
say '@123' symbol('@123') @123
say '@abc@123@' symbol('@abc@123@') @abc@123@
@abc@123@ = 'v=@abc@123@'
say '@abc@123@' symbol('@abc@123@') @abc@123@
say 1@ 1a 'but are no variables |'
if 0 then
    1@=1a
drop @ abc@efg @123 @abc@123@
say 'm.@' symbol('m.@') m.@
m.@ = 'v=m.@'
say 'm.@' symbol('m.@') m.@
say 'm.abc@efg' symbol('m.abc@efg') m.abc@efg
m.abc@efg = 'v=m.abc@efg'
say 'm.abc@efg' symbol('m.abc@efg') m.abc@efg
say 'm.@123' symbol('m.@123') m.@123
m.@123 = 'v=m.@123'
say 'm.@123' symbol('m.@123') m.@123
say 'm.@abc.@123@' symbol('m.@abc@123@') m.@abc@123@
m.@abc@123@ = 'v=m.@abc@123@'
say 'm.@abc@123@' symbol('m.@abc@123@') m.@abc@123@
a = vPut()
$#out                                              20150316 11:43:08
$#out                                              20150316 11:39:59
$#out                                              20150316 11:39:37
$#out