Can anyone optimise this code chunk?

; *****************************
; ONLY FOR DEBUGGING PURPOSES
; *****************************

Function print_debug_info()
r=0 : g=0 : b=0
r=ColorRed()
g=ColorGreen()
b=ColorBlue()
Cls
Print "PlayField Width " + GraphicsWidth()
Print "PlayField Height " + GraphicsHeight()
Print "PlayField Depth " + GraphicsDepth()
Print "PlayField Memory " + GraphicsBuffer()
Print "PlayField Drawing Color (DEC) " + ColorRed() + " " + ColorGreen() + " " + ColorBlue()
Print "PlayField Drawing Color (HEX) " + Hex$(r) + " " + Hex$(g) + " " + Hex$(b)
End Function