ScriptName "Calculate "
ScriptAuthor "(dA) GL"
ScriptVersion "V 1.0"

// ab Script Rev xy

Var l:Long;
Var b:Buffer[10];
Var w:Word;
Var WConst1:Word;
Var LConst1:Long;
Var LConstFF:Long;

MoveConst(b, "1234");
MoveConst(WConst1, 1);
MoveConst(LConst1, 1);
MoveConst(LConstFF, 0xFFFFFFFF);


CalculateWord ( w , WConst1 , add , w ) ;
// =  Ink(w)

MoveConst(l, 0x12345678);
CalculateLong ( l , LConst1 , add , l ) ;
CalculateLong ( l , LConstFF , xor , l ) ;