A few Prime programming questions

[toshk]

Try this: Avoiding making copy of the original
Pass By Value: do not affect originals
In prime programing try AVars(''S1"):=S1; at the end of subroutine; exporting S1 outside for later use;
in subsequent subroutines WITHOUT using AVars("S1"):=S1'; S1'(modified). The Original S1 is left intact.
To effect changes in S1; subsequent subroutines USE AVars("S1"):=S1'; == The Original is modified with S1'.

Code:


new_prog(Sg);
Sg;
EXPORT new_programd()
BEGIN
Sg:={0,0,0,0,48};
print(Sg);
AVars("Sg"):=Sg;
new_prog(Sg)
END;

new_prog(Sg)
BEGIN
Sg:=2*Sg
print(Sg)
END;

After executing Programe:
Sg type on command line shows the original Sg;