| <? | |
| set i 1 | |
| hputs "<table>" | |
| while { $i <= 8 } { | |
| hputs "<tr>" | |
| for {set j 1} {$j <= 8} {incr j} { | |
| set num [ expr {$i * $j * 4 - 1} ] | |
| hputs [ format "<td bgcolor=%2x%2x%2x > $num $num $num </td>" \ | |
| $num $num $num ] | |
| } | |
| incr i | |
| hputs "</tr>" | |
| } | |
| hputs "</table>" | |
| ?> |