Rosetta Code

Colour bars/Display: Difference between revisions

Page Discussion

Colour bars/Display (view source)

Revision as of 14:52, 23 May 2011

71 bytes added ,  13 years ago
→‎{{header|ZX Spectrum Basic}}
m (→‎{{header|Tcl}}: no abbreviations!)
Line 22:
20 FOR r=0 TO 20: REM There are 21 rows
30 FOR c=0 TO 7: REM We use the native colour sequence here
40 PAPER c: REM set the background colour for the spaces to be printed
4050 PRINT " ";: REM four spaces, the semicolon prevents newline
5060 NEXT c
6070 REM at this point the cursor has wrapped, so we don't need a newline
7080 NEXT r</lang>
 
[[Category:Test card]]
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/182282"