mode 1,12
PRINT "BLACK           ";: parts(RGB(BLACK))
PRINT "BLUE            ";: parts(RGB(BLUE))
PRINT "GREEN           ";: parts(RGB(GREEN))
PRINT "CYAN            ";: parts(RGB(CYAN))
PRINT "RED             ";: parts(RGB(RED))
PRINT "MAGENTA         ";: parts(RGB(MAGENTA))
PRINT "YELLOW          ";: parts(RGB(YELLOW))
PRINT "BROWN           ";: parts(RGB(BROWN))
PRINT "GRAY            ";: parts(RGB(GRAY))
PRINT "LIGHTGRAY       ";: parts(RGB(LIGHTGRAY))
PRINT "WHITE           ";: parts(RGB(WHITE))
PRINT "ORANGE          ";: parts(RGB(ORANGE))
PRINT "PINK           ";: parts(RGB(PINK))
PRINT "GOLD           ";: parts(RGB(GOLD))
PRINT "SALMON         ";: parts(RGB(SALMON))
PRINT "BEIGE           ";: parts(RGB(BEIGE))
PRINT "NOTBLACK        ";: parts(RGB(NOTBLACK))

do:loop until inkey$<>""

SUB parts(COL AS INTEGER)
PRINT STR$((col >> 16) AND &hFF,5);STR$((col >> 8) AND &hFF,5);STR$(col AND &hFF,5);STR$((col >> 24) AND &hF,5);
pixel 400,100,col
colx=pixel(400,100)
print "  =";STR$((colx >> 16) AND &hFF,5);STR$((colx >> 8) AND &hFF,5);STR$(colx AND &hFF,5);STR$((colx >> 24) AND &hF,5)
print
END SUB