20 lines
343 B
Plaintext
20 lines
343 B
Plaintext
emptybit: MODULE
|
|
|
|
SYNMODE b8 = BOOLS(8);
|
|
SYN bit8 b8 = B'00000000';
|
|
|
|
SYNMODE char_m = CHARS(40) VARYING;
|
|
|
|
SYNMODE stru_m = STRUCT (c char_m, b b8, boo BOOL);
|
|
DCL xx stru_m;
|
|
|
|
SYNMODE m_stru = STRUCT (c char_m, i LONG, boo BOOL);
|
|
DCL yy m_stru;
|
|
|
|
SYNMODE m_arr = ARRAY (1:10) LONG;
|
|
DCL zz m_arr;
|
|
|
|
WRITETEXT (stdout, "%C%/", bit8);
|
|
|
|
END emptybit;
|