The following program is used for the examples in this section. This program has several procedures, and redeclares some of its identifiers.

00001000 $SET XREFFILES
00001100 BEGIN
00001200 REAL B, C, MEAN, STRG;
00001300 INTEGER I;
00001400 ARRAY R[1:3];
00001500 DEFINE ONEE =  1 #,
00001600   TWOO =     2 #,
00001700   THREE =    3 #,
00001800   MORE =     FOURR #,
00001900   FOURR =    4 #,
00002000   EQUATION= R[ONEE] + R[TWOO] * R[THREE] - R[MORE]/R[ONEE];
00002200 PROCEDURE ONE;
00002300    BEGIN
00002400    MEAN:=2;
00002500    FOR I:= 0 STEP 1 UNTIL 5 DO
00002600       MEAN:= MEAN * B;
00002700       C:= C * MEAN;
00002800       STRG:= EQUATION;
00002900    END ONE;
00003100 PROCEDURE TWO;
00003200    BEGIN
00003300    INTEGER B;
00003500    PROCEDURE THREE;
00003600      BEGIN
00003700      INTEGER C;
00003800      C:= 5;
00003900      MEAN:= MEAN + C;
00004000      END THREE;
00004200    MEAN:= MEAN / 3;
00004300    R[1]:= 1;
00004400    R[2]:= 2;
00004500    R[3]:= R[ONEE] + R[TWOO];
00004600    B:= 28;
00004700    I:= 5;
00004800    C:= 43;
00004900    THREE;
00005000    END TWO;
00005400   B:= 3;
00005500   C:= 25;
00005600   ONE;
00005700  TWO;
00005800  B:=5;
00005900  ONE;
00006000 END.