100 CLS:c%=0
110 READ r%,g%,b%
120 PRINT"color num: ($";HEX$(c%);")";c%;":",r%,g%,b%
130 SETCOLOR 0,c%,r%,g%,b%:c%=c%+1
140 IF c% MOD 32 <> 0 THEN 110
150 PRINT"--------------------------------------------"
160 PRINT"PAGE:";INT(c%/32);"/8   HEX  DEC"," (R)"," (G)"," (B)"
170 IF c% = 256 THEN 200
180 PRINT:PRINT"Press a key for the next group"
190 GET a$:CLS:GOTO 110
200 END
20000 DATA 0,0,0,0,0,0,34,35,35,67,69,73,98,104,113,130,139,152
20010 DATA 166,174,186,200,200,200,98,93,84,133,117,101
20020 DATA 158,140,121,174,161,137,187,175,164,204,195,177,234,219,201
20030 DATA 255,243,214,088,49,38,115,61,59,136,80,65,154,98,76
20040 DATA 173,110,81,213,141,107,251,170,132,255,206,127,00,39,53
20050 DATA 0,56,80,0,77,94,11,102,127,0,111,137,50,140,167
20060 DATA 36,174,214,136,214,255,102,43,41,148,54,58,182,77,70
20070 DATA 205,94,70,227,120,64,249,155,78,255,188,78,255,233,73
20080 DATA 40,43,74,58,69,104,97,95,132,122,119,153,134,144,178
20090 DATA 150,178,217,199,214,255,198,236,255,000,34,25,0,50,33
20100 DATA 23,74,27,34,89,24,47,105,12,81,136,34,125,164,45
20110 DATA 166,204,52,024,31,47,35,50,77,37,70,107,54,107,138
20120 DATA 049,142,184,65,178,227,82,210,255,116,245,253,26,51,44
20130 DATA 47,63,56,56,81,64,50,92,64,65,116,85,73,137,96
20140 DATA 85,182,125,145,218,161,94,7,17,130,33,29,182,60,53
20150 DATA 228,92,95,255,118,118,255,155,168,255,187,199,255,219,255
20160 DATA 45,49,54,72,71,77,91,92,105,115,115,127,132,135,149
20170 DATA 171,174,190,186,199,219,235,240,246,59,48,60,90,60,69
20180 DATA 138,82,88,174,107,96,199,130,108,216,159,117,236,197,129
20190 DATA 255,250,171,49,34,42,74,53,60,94,70,70,114,90,81
20200 DATA 126,108,84,158,138,110,192,165,136,221,191,154,46,16,38
20210 DATA 73,40,61,102,54,89,151,84,117,185,109,145,193,120,170
20220 DATA 219,153,191,248,198,218,0,46,73,0,64,81,0,81,98
20230 DATA 0,107,109,0,130,121,0,160,135,0,191,163,0,222,218
20240 DATA 69,49,37,97,74,60,126,97,68,153,121,81,178,144,98
20250 DATA 204,169,110,232,203,130,251,234,163,95,9,38,110,36,52
20260 DATA 144,70,71,167,96,87,189,125,100,206,151,112,237,182,124
20270 DATA 237,212,147,50,53,88,74,82,128,100,101,157,120,119,193
20280 DATA 142,140,226,156,155,239,184,174,255,220,212,255,67,23,41
20290 DATA 113,43,59,159,59,82,217,74,105,248,93,128,255,125,175
20300 DATA 255,166,197,255,205,255,73,37,28,99,52,50,124,75,71
20310 DATA 152,89,90,172,111,110,193,126,122,210,141,122,229,154,124
20320 DATA 032,41,0,047,79,8,73,93,0,97,115,8,124,131,30
20330 DATA 150,154,38,180,170,51,208,204,50,98,42,0,117,59,9
20340 DATA 133,79,18,158,101,32,186,136,46,209,170,57,232,210,75
20350 DATA 255,246,79,38,35,61,59,56,85,86,80,111,117,104,110
20360 DATA 145,122,123,179,151,131,207,175,142,254,223,177,29,44,67
20370 DATA 46,61,71,57,77,60,76,95,51,88,113,44,107,132,45
20380 DATA 120,158,36,127,189,57,55,36,35,83,57,58,120,76,73
20390 DATA 148,93,79,169,109,88,191,126,99,215,147,116,244,163,128
20400 DATA 45,75,71,71,101,90,91,123,105,113,149,125,135,174,142
20410 DATA 138,193,150,169,209,193,224,250,235,0,27,64,3,49,95
20420 DATA 7,72,124,16,93,162,20,118,192,64,151,234,85,177,241
20430 DATA 109,204,255,85,71,105,118,93,115,151,116,136,185,140,147
20440 DATA 213,163,154,235,189,157,255,213,155,253,247,134,29,29,33
20450 DATA 60,49,81,88,74,127,121,100,186,149,133,241,169,150,236
20460 DATA 186,171,247,209,189,254,38,36,80,40,51,93,45,61,114
20470 DATA 61,80,131,81,101,174,82,116,197,108,130,196,131,147,195
20480 DATA 73,33,41,94,65,74,119,83,91,145,96,106,173,121,132
20490 DATA 181,139,148,212,174,170,255,226,207,114,28,3,156,51,39
20500 DATA 191,90,62,233,134,39,255,177,8,255,207,5,255,240,43
20510 DATA 255,255,255�