RosettaCodeData/Task/Colour-bars-Display/BASIC/colour-bars-display-8.basic
2019-09-12 10:33:56 -07:00

6 lines
230 B
Text

colors$ = "black,red,green,blue,magenta,cyan,yellow,white"
html "<TABLE BORDER=1 CELLPADDING=0 CELLSPACING=4><tr height=70>"
for i = 1 to 8
html "<td width=20 bgcolor='";word$(colors$,i,",");"'</td>"
next i
html "</tr></table>"