--- /dev/null
+use strict;
+use warnings;
+
+# 1.10.0 200410151900 - actions sto/?/rcl to copy/assign/recall variable
+
+my %var;
+
+# "sto" => [ 1, sub { $var{a} = $_[0] }], # copy
+# '?' => [ 1, sub { $var{a} = $_[0] }], # assign
+$action{sto} = [ 1, sub { $var{a} = $_[0] }]; # copy
+$action{rcl} = [ 0, sub { $var{a} }]; # recall
+
+return {
+ author => "Shiar",
+ title => "user variables",
+ version => "1.10",
+};
+