Declare Function Pen(byVal i As Integer=-1) As Integer
Declare Function Paper(byVal i As Integer=-1) As Integer

Print "Background is ";Paper
Print "TextColor  is ";Pen
Print "Test"

Paper(7)
Pen(0)

Print "Background is ";Paper
Print "TextColor  is ";Pen
Print "Test";
Print "Tested with FB 0.17f using FBIde 0.4.6"
GetKey
End

Function Paper(byVal i As Integer=-1) As Integer
  IF i>=0 Then Color , i
  Return HIWORD(Color)
End Function

Function Pen(byVal i As Integer=-1) As Integer
  IF i>=0 Then Color i
  Return LOWORD(Color)
End Function