This procedure returns the current processor's machine id.

Example

BEGIN
$ INCLUDE INTL="SYMBOL/INTL/ALGOL/PROPERTIES." 10000000 - 59999999
 FILE OUT(KIND=PRINTER);
 INTEGER MACHINE_ID;
 MACHINE_ID := CURRENT_MACHINE_ID;
 WRITE(OUT,<"MACHINE_ID = ",J4>,MACHINE_ID);
END.