10 lines
131 B
Plaintext
10 lines
131 B
Plaintext
Sub SetColor (c As Integer)
|
|
ScreenColor = c
|
|
Color c
|
|
End Sub
|
|
|
|
Function GetColor ()
|
|
GetColor = ScreenColor
|
|
End Function
|
|
|