maybe my code below can be of help somehow .. dunno
Function print_debug_info() totalDrivers%=CountGfxDrivers() r_dec%=0 : g_dec%=0 : b_dec%=0 r_hex$=0 : g_hex$=0 : b_hex$=0 r_dec=ColorRed() : g_dec=ColorGreen() : b_dec=ColorBlue() r_hex=Hex$(r_dec) : g_Hex=Hex$(g_dec) : b_Hex=Hex$(b_dec) Cls Print "Date : " + CurrentDate() Print "Time : " + CurrentTime() Print "PlayField Width : " + GraphicsWidth() Print "PlayField Height : " + GraphicsHeight() Print "PlayField Depth : " + GraphicsDepth() Print "PlayField Memory : " + GraphicsBuffer() Print "PlayField Drawing Color (DEC) : " + r_dec + " " + g_dec + " " + b_dec Print "PlayField Drawing Color (HEX) : " + Right$(r_hex,2) + " " + Right$(g_hex,2) + " " + Right$(b_Hex,2) Select JoyType() Case 0 Print "Joystick : None" Case 1 Print "Joystick : Digital" Case 2 Print "Joystick : Analog" End Select For t = 1 To totalDrivers Print "Installed GFX driver(s) : " + GfxDriverName$(t) Next Print "Total GFX memory on card : " + TotalVidMem() + " " + "(Bytes)" + " " + (TotalVidMem() / 1024) + " " + "(Mb)" Print "Avail GFX memory : " + AvailVidMem() + " " + "(Bytes)" + " " + (AvailVidMem() / 1024) + " " + "(Mb)" Print "Operating system installed : " + SystemProperty("OS") Print "CPU installed : " + SystemProperty("CPU") End Function