mirror of
https://github.com/vishapoberon/oberonbyexample.git
synced 2026-04-05 21:02:25 +00:00
22 lines
447 B
Modula-2
22 lines
447 B
Modula-2
MODULE varparam;
|
|
|
|
IMPORT Out;
|
|
|
|
VAR
|
|
a, b : INTEGER;
|
|
|
|
PROCEDURE swapVals(VAR x, y : INTEGER);
|
|
VAR tmp : INTEGER;
|
|
BEGIN
|
|
tmp := x; x := y; y := tmp;
|
|
END swapVals;
|
|
|
|
|
|
BEGIN
|
|
a := 6; b := 9;
|
|
Out.String("initial "); Out.Ln;
|
|
Out.String("a : "); Out.Int(a, 0); Out.String("; b : "); Out.Int(b, 0); Out.Ln;
|
|
swapVals(a, b);
|
|
Out.String("after swap"); Out.Ln;
|
|
Out.String("a : "); Out.Int(a, 0); Out.String("; b : "); Out.Int(b, 0); Out.Ln;
|
|
END varparam.
|