modules/upal.bas

   1 DECLARE FUNCTION getcol! (r!, g!, b!)\r
   2 DECLARE SUB setupal ()\r
   3 \r
   4 FUNCTION getcol (r, g, b)\r
   5 IF r < 0 THEN r = 0\r
   6 IF g < 0 THEN g = 0\r
   7 IF b < 0 THEN b = 0\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
  12 END FUNCTION\r
  13 \r
  14 DEFINT A-Y\r
  15 SUB setupal\r
  16 c = 0\r
  17 FOR r = 0 TO 5\r
  18 FOR g = 0 TO 5\r
  19 FOR b = 0 TO 5\r
  20 OUT &H3C8, c\r
  21 c = c + 1\r
  22 OUT &H3C9, r * 12\r
  23 OUT &H3C9, g * 12\r
  24 OUT &H3C9, b * 12\r
  25 NEXT b\r
  26 NEXT g\r
  27 NEXT r\r
  28 END SUB\r
  29 \r