[ TestHeader val val2; val = $32->0; val2 = $32->1; if (val == 0 && val2 == 0) { print "Your interpreter does not claim to follow any particular version of the Z-Spec.^^"; } else { print "Your interpreter claims to follow revision ", val, ".", val2, " of the Z-Spec.^^"; } val = $0->1; if (val & 1) { print "Interpreter claims that colored text IS available.^"; } else { print "Interpreter claims that colored text IS NOT available.^"; } if (val & 4) { print "Interpreter claims that emphasized (bold) text IS available.^"; } else { print "Interpreter claims that emphasized (bold) text IS NOT available.^"; } if (val & 8) { print "Interpreter claims that italic (or underlined) text IS available.^"; } else { print "Interpreter claims that italic (or underlined) text IS NOT available.^"; } if (val & 16) { print "Interpreter claims that fixed-width text IS available.^"; } else { print "Interpreter claims that fixed-width text IS NOT available.^"; } if (val & 32) { print "Interpreter claims that sound effects ARE available.^"; } else { print "Interpreter claims that sound effects ARE NOT available.^"; } if (val & 128) { print "Interpreter claims that timed input IS available.^"; } else { print "Interpreter claims that timed input IS NOT available.^"; } new_line; val = $10->1; if (val & 16) { print "Interpreter claims that ~undo~ IS available.^"; } else { print "Interpreter claims that ~undo~ IS NOT available.^"; } ];