The CDPD Public Domain Collection for CDTV 3/CDPDIII.bin/pd/programming/utils/toolbox/test/all/pl5.txt

Text File | 1993-03-14 | 336 b | 22 lines

CONST a = 13, b = 12;
CONST c=25;
VAR d,e : INTEGER;
VAR f : ARRAY 12 OF INTEGER;
VAR g,h,i : ARRAY 12 OF ARRAY 2 OF INTEGER;
TYPE j = INTEGER;
TYPE k = ARRAY 5 OF BOOLEAN;
TYPE l = ARRAY 2 OF k;
TYPE m = ARRAY 3 OF ARRAY 5 OF BOOLEAN;

PROCEDURE blubber(n,o:j;VAR p:BOOLEAN);

CONST a = 5;

BEGIN
  d := 5 * 3;
  ? d;
END;

BEGIN
END.