4.3BSD-Tahoe/usr/src/ucb/dbx/tests/pc/bool.p

program booltest (input, output);
var b : boolean;
begin
    b := true;
    b := false;
end.