Colour bars/Display: Difference between revisions

m
→‎{{header|FreeBASIC}}: removed inner For-Next (printed text 5 times)
(Added FreeBASIC)
m (→‎{{header|FreeBASIC}}: removed inner For-Next (printed text 5 times))
Line 532:
Color 0, clr
For row As Integer = 1 to 25
ForLocate colrow, Asclr UInteger* =5 + 1 To 5
Print Space(5);
Locate row, clr * 5 + 1
Print Space(5);
Next col
Next row
Next clr
Line 542 ⟶ 540:
' restore default settings
Locate ,, 1 '' turn cursor on
Color 7, 0 '' white text on black background </lang>
 
=={{header|Haskell}}==
457

edits