Mode:
Duration:
1
2
3
4
5
6
7
8
9
10
11
12
# modula3/double.m3
MODULE DoubleFunc;
IMPORT IO;
PROCEDURE Double(x: INTEGER): INTEGER;
BEGIN
RETURN 2*x;
END Double;
BEGIN
IO.Put(Double(5));
IO.PutChar('\n');
END DoubleFunc.Coding works best on desktop or with an external keyboard.