Problem Statement

Pragmatic directives cause the language to operate in a specific manner,   allowing support for operational variances within the program code   (possibly by the loading of specific or alternative modules).

List any pragmatic directives supported by the language,   and demonstrate how to activate and deactivate the pragmatic directives and to describe or demonstrate the scope of effect that the pragmatic directives have within a program.

Let's start with the solution:

#!/usr/local/bin/a68g --script #

PRAGMAT portcheck PRAGMAT
PR portcheck PR

BEGIN PR heap=256M PR # algol68g pragma #
  ~
END;

PROC (REAL)REAL s = sin();

SKIP