Raw fileBack to index
1 2 3 4 5 6 7 8 9 10 11 12 13 14
PACKET bool DEFINES XOR, true, false : BOOL CONST true := TRUE , false:= FALSE ; BOOL OP XOR (BOOL CONST left, right) : IF left THEN NOT right ELSE right FI ENDOP XOR ; ENDPACKET bool ;