8 lines
425 B
Rexx
8 lines
425 B
Rexx
/*REXX program to copy (polymorphically) one variable's value into another variable. */
|
|
b= 'old value.'
|
|
a= 123.45
|
|
b= a /*copy a variable's value into another.*/
|
|
if a==b then say "copy did work."
|
|
else say "copy didn't work." /*didn't work, maybe ran out of storage*/
|
|
/*stick a fork in it, we're all done. */
|