1 DECLARE FUNCTION getcol! (r!, g!, b!)
\r
2 DECLARE SUB setupal ()
\r
4 FUNCTION getcol (r, g, b)
\r
8 IF r > 255 THEN r = 255
\r
9 IF g > 255 THEN g = 255
\r
10 IF b > 255 THEN b = 255
\r
11 getcol = INT(r / 43) * 36 + INT(g / 43) * 6 + INT(b / 43)
\r