DECLARE FUNCTION getcol! (r!, g!, b!) DECLARE SUB setupal () FUNCTION getcol (r, g, b) IF r < 0 THEN r = 0 IF g < 0 THEN g = 0 IF b < 0 THEN b = 0 IF r > 255 THEN r = 255 IF g > 255 THEN g = 255 IF b > 255 THEN b = 255 getcol = INT(r / 43) * 36 + INT(g / 43) * 6 + INT(b / 43) END FUNCTION DEFINT A-Y SUB setupal c = 0 FOR r = 0 TO 5 FOR g = 0 TO 5 FOR b = 0 TO 5 OUT &H3C8, c c = c + 1 OUT &H3C9, r * 12 OUT &H3C9, g * 12 OUT &H3C9, b * 12 NEXT b NEXT g NEXT r END SUB