TestAdapter.bas

'*************** Start Video Adapter Testing ****************'
' Dirty little hack to check which video card we're running on
' because the way to disable text blinking is different on CGA
' from EGA/VGA+ from MDA/Hercules
DIM Adapter AS INTEGER

' Checks if card is EGA compatible
ON ERROR GOTO NotEGA
Adapter = 2: SCREEN 7: GOTO TestCGA        ' If this doesn't error we're EGA+
NotEGA: Adapter = 1: RESUME NEXT           ' Not EGA, maybe CGA?
TestCGA: IF Adapter = 2 THEN GOTO DoneTest ' If we're EGA+ don't test CGA

' Checks if card is CGA compatible
ON ERROR GOTO NotCGA
SCREEN 1: GOTO DoneTest                    ' If this works for sure CGA
NotCGA: Adapter = 0: RESUME NEXT           ' Not CGA, must be MDA/Hercules
DoneTest: ON ERROR GOTO 0                  ' Done testing
'*************** End of Video Adapter Testing ****************'