rem Display Functionality
set gamma 255,128,128
center text 320,240,"GAMMA"
sleep 2000
set gamma 255,255,255
sleep 1000

cls
print "GRAPHICS CARDS"
print
perform checklist for graphics cards
for c=1 to checklist quantity()
 name$=checklist string$(c)
 print "found:";name$
next c
set graphics card name$
print "using:";current graphics card$()
sleep 2000

rem Screen Management
cls
print "DISPLAY MODES"
print
perform checklist for display modes
for c=1 to checklist quantity()
 width=checklist value a(c)
 height=checklist value b(c)
 depth=checklist value c(c)
 print "found:";checklist string$(c)
next c
set display mode width, height, depth
if check display mode(width, height, depth)=1
 print "using:";width;" ";height;" ";depth
endif

rem Screen Data Expressions
cls
print "SCREEN DATA"
print
print "type:";screen type()
print "width:";screen width()
print "height:";screen height()
print "depth:";screen depth()
print "invalid:";screen invalid()
print "fps:";screen fps()
sleep 2000

rem Window Management
set window on
set window title "Test Window"
set window layout 1,1,1
set window size 320,240
set window position 160,120 : sleep 2000
maximize window : sleep 2000
minimize window : sleep 2000
restore window : sleep 2000
hide window : sleep 1000
show window : sleep 2000
set window off
sleep 2000

rem Backbuffer Management
lock backbuffer
cls
print "BACKBUFFER DATA"
print
print "ptr:";get backbuffer ptr()
print "width:";get backbuffer width()
print "height:";get backbuffer height()
print "depth:";get backbuffer depth()
print "pitch:";get backbuffer pitch()
unlock backbuffer
sleep 2000

rem End program
end