Array colortab --> "" "" "Black" "Red" "Green" "Yellow" "Blue" "Magenta" "Cyan" "White"; [ TestColor val fg bg claim; val = $0->1; if (val & 1) { print "Interpreter claims that colored text IS available.^"; claim = 1; } else { print "Interpreter claims that colored text IS NOT available.^"; claim = 0; } if (claim) print "^In the square below, you should see"; else print "^If it was, in the square below, you would see"; print " vertical stripes of background color (matching the column headers) and horizontal rows of foreground color (that is, all # marks in a row the same color.)^"; font off; new_line; print "Bk Rd Gr Yl Bl Mg Cy Wh^"; for (fg=2:fg<10:fg++) { for (bg=2:bg<10:bg++) { @set_colour fg bg; print "## "; } @set_colour 1 1; print ": ", (string)colortab-->fg, "^"; } font on; ];