DECLARE SUB DQBclearLayer (BYVAL Layer)
Layer - Layer to clear
none
Clears the contents of a given layer: all the pixels are set to color 0. This function is automatically called for all the allocated layers when calling DQBinit.
None
*****************************************************************************
' All integers for speed
DEFINT A-Z
'$INCLUDE:'DIRECTQB.BI'
' Let's initialize the library with no extra layers nor sounds nor EMS
IF DQBinit(0, 0, 0) THEN DQBclose: PRINT DQBerror$: END
DQBinitVGA
PRINT "Press a key to clear the screen!"
WHILE INKEY$="":WEND
' Clears the screen
DQBclearLayer VIDEO
' Ends the program
DQBclose
*****************************************************************************