blob: aa5d789e8c449ce658441559bc3315178904e083 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
PROGRAM TEST;
TYPE
byteSet = SET OF 0..7;
booleanArray = ARRAY[0..HIGH(word) DIV 8] OF byteSet;
booleanArrayPointer = ^booleanArray;
PROCEDURE SetBooleanArray( CONST p : booleanArrayPointer;
CONST index : word );
BEGIN
INCLUDE(p^[index DIV 8],index MOD 8)
END;
BEGIN
END.
|
