Current Help System: PC-DMIS BASIC (View Core Help)

#### Example:

Sub Main

Dim I as integer

For I = 1 to 10

Print GetColor2(I)

Next I

End Sub

Function GetColor2( c% ) As Long

GetColor2 = c% * 25

If c% > 2 Then

GetColor2 = 255 ' 0x0000FF - Red

End If

If c% > 5 Then

GetColor2 = 65280 ' 0x00FF00 - Green

End If

If c% > 8 Then

GetColor2 = 16711680 ' 0xFF0000 - Blue

End If

End Function