Web Colors

#000000 #000033 #000066 #000099 #0000CC #0000FF
#003300 #003333 #003366 #003399 #0033CC #0033FF
#006600 #006633 #006666 #006699 #0066CC #0066FF
#009900 #009933 #009966 #009999 #0099CC #0099FF
#00CC00 #00CC33 #00CC66 #00CC99 #00CCCC #00CCFF
#00FF00 #00FF33 #00FF66 #00FF99 #00FFCC #00FFFF
#330000 #330033 #330066 #330099 #3300CC #3300FF
#333300 #333333 #333366 #333399 #3333CC #3333FF
#336600 #336633 #336666 #336699 #3366CC #3366FF
#339900 #339933 #339966 #339999 #3399CC #3399FF
#33CC00 #33CC33 #33CC66 #33CC99 #33CCCC #33CCFF
#33FF00 #33FF33 #33FF66 #33FF99 #33FFCC #33FFFF
#660000 #660033 #660066 #660099 #6600CC #6600FF
#663300 #663333 #663366 #663399 #6633CC #6633FF
#666600 #666633 #666666 #666699 #6666CC #6666FF
#669900 #669933 #669966 #669999 #6699CC #6699FF
#66CC00 #66CC33 #66CC66 #66CC99 #66CCCC #66CCFF
#66FF00 #66FF33 #66FF66 #66FF99 #66FFCC #66FFFF
#990000 #990033 #990066 #990099 #9900CC #9900FF
#993300 #993333 #993366 #993399 #9933CC #9933FF
#996600 #996633 #996666 #996699 #9966CC #9966FF
#999900 #999933 #999966 #999999 #9999CC #9999FF
#99CC00 #99CC33 #99CC66 #99CC99 #99CCCC #99CCFF
#99FF00 #99FF33 #99FF66 #99FF99 #99FFCC #99FFFF
#CC0000 #CC0033 #CC0066 #CC0099 #CC00CC #CC00FF
#CC3300 #CC3333 #CC3366 #CC3399 #CC33CC #CC33FF
#CC6600 #CC6633 #CC6666 #CC6699 #CC66CC #CC66FF
#CC9900 #CC9933 #CC9966 #CC9999 #CC99CC #CC99FF
#CCCC00 #CCCC33 #CCCC66 #CCCC99 #CCCCCC #CCCCFF
#CCFF00 #CCFF33 #CCFF66 #CCFF99 #CCFFCC #CCFFFF
#FF0000 #FF0033 #FF0066 #FF0099 #FF00CC #FF00FF
#FF3300 #FF3333 #FF3366 #FF3399 #FF33CC #FF33FF
#FF6600 #FF6633 #FF6666 #FF6699 #FF66CC #FF66FF
#FF9900 #FF9933 #FF9966 #FF9999 #FF99CC #FF99FF
#FFCC00 #FFCC33 #FFCC66 #FFCC99 #FFCCCC #FFCCFF
#FFFF00 #FFFF33 #FFFF66 #FFFF99 #FFFFCC #FFFFFF
This table was written using FORTRAN77. Here is the code I wrote.

PROGRAM colors
C23456789012345678901234567890123456789012345678901234567890123456789012
C        1         2         3         4         5         6         7
C23456789012345678901234567890123456789012345678901234567890123456789012

INTEGER i, j, k, z(3)

OPEN (UNIT=999, FILE='webcolors.php')

WRITE (999,100)
100   FORMAT ('<HTML>'/'<HEAD>'/'<TITLE>Colors</TITLE>'/'</HEAD>'/
+'<BODY>'/'<CENTER><H1>Web Colors</H1>'/
+'<TABLE BORDER=0>'/'<TR>'/'<TD valign=top>'/'<TABLE BORDER=0>'/)

DO i=0,255,51
z(1)=255
z(2)=255
z(3)=255
DO j=0,255,51
WRITE (999,*) '<TR>'
DO k=0,255,51
IF (j .GE. 153) THEN
z(1)=0
z(2)=0
z(3)=0
END IF
WRITE (999,200) i,j,k,z(1),z(2),z(3),i,j,k
200         FORMAT (1x,'<TD bgcolor=#',Z2.2,Z2.2,Z2.2,'><font color=#',
+      Z2.2,Z2.2,Z2.2,'>#',Z2.2,Z2.2,Z2.2,'</font></TD>')
END DO
WRITE (999,*) '</TR>'
END DO
END DO

WRITE (999,400)
400   FORMAT ('</TABLE>'/'</TD>'/
+'<TD valign=top>This table was written using FORTRAN77.'
+'  Here is the code I wrote.'/'<BR>'/'<PRE>'/
+'<?php include("webcolors.txt"); ?>'/'</PRE>'/'<BR>'/
+'</TD>'/'<TR>'/'</TABLE>'/'</CENTER>'/'</BODY>'/'</HTML>')

CLOSE (UNIT=999, STATUS='KEEP')

C23456789012345678901234567890123456789012345678901234567890123456789012

END

Last modified: November 13 2009 22:33:15.