%  This sample shows how to
%  - create two String-Objects
%  - concatenate their values into a third object
%  - show the result of the addition "on the fly"
 
% Remark: first have a look at ../arithmetic/calculate.xwx !
 
Malloc(90);                              %Get memory
@xbwstart(("simple-project") ("bw"));    %Setup xbw system in "bw"/"color"
wdw(TEST 3 4 20 11 StandardWDW);
 
o(TEST1 S S 2 3 15 1 Standard);  bg(TEST1 . ("StringA") ); eg();
o(TEST2 S S 2 4 15 1 Standard);  bg(TEST2 . ("StringB") ); eg();
o(TEST3 S S 2 7 15 1 Standard);
  bg(TEST3 .   ("                                    ") ); eg();

?("First VAR-PARAMETER: ");                   ?(str)OBJ:TEST1.V;
?("Second VAR-PARAMETER:");                   ?(str)OBJ:TEST2.V;
?("Concatenate Result:");
  $a:=(str)OBJ:TEST1.V,(str)OBJ:TEST2.V;      ?($a); % creating a temp.variable
?("Now putting the result in object TEST3");  (str)OBJ:TEST3.V := ($a);

o(TEST4 S . 2 9 15 1 Secure);
bg(TEST4 . (" Exit"));
  cn(raK("@xbwstop();"));
  eg();
Message(("Project Complete."));     %That's it!
End();

