2016-12-05 23:44:36 +01:00
|
|
|
' FB 1.05.0 Win64
|
|
|
|
|
|
|
|
|
|
' Draw the color bars on an 80 x 25 console using the system palette of 16 colors
|
|
|
|
|
' i.e. 5 columns per color
|
|
|
|
|
Width 80, 25
|
|
|
|
|
Shell "cls"
|
|
|
|
|
Locate ,, 0 '' turn cursor off
|
|
|
|
|
For clr As UInteger = 0 To 15
|
|
|
|
|
Color 0, clr
|
|
|
|
|
For row As Integer = 1 to 25
|
2017-09-23 10:01:46 +02:00
|
|
|
Locate row, clr * 5 + 1
|
|
|
|
|
Print Space(5);
|
2016-12-05 23:44:36 +01:00
|
|
|
Next row
|
|
|
|
|
Next clr
|
|
|
|
|
|
|
|
|
|
Sleep
|
|
|
|
|
' restore default settings
|
|
|
|
|
Locate ,, 1 '' turn cursor on
|
|
|
|
|
Color 7, 0 '' white text on black background
|
