This is a simple program that tests out your graphics card. Has color coding! Any comments, email me at thoth_onegan@hotmail.com

This is a simple program that tests out your graphics card. Has color coding!
It will color code good things blue, non existing things red, and green is other data (like max lights). Any comments, email me at thoth_onegan@hotmail.com

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    cls
print "Video Card Tester : Created by Thoth Onegan"
print "Press Enter to start Video Tests"
wait key
cls
for x=1 to 20
   if x=1 then num=alphablending available()
   if x=2 then num=alpha available()
   if x=3 then num=alphacomparison available()
   if x=4 then num=anistropicfiltering available()
   if x=5 then num=antialias available()
   if x=6 then num=blitsystolocal available()
   if x=7 then num=calibrategamma available()
   if x=8 then num=clipandscalepoints available()
   if x=9 then num=cliptlverts available()
   if x=10 then num=colorperspective available()
   if x=11 then num=colorwriteenable available()
   if x=12 then num=cubemap available()
   if x=13 then num=cullccw available()
   if x=14 then num=cullcw available()
   if x=15 then num=dither available()
   if x=16 then num=filtering available()
   if x=17 then num=fogrange available()
   if x=18 then num=fogtable available()
   if x=19 then num=fogvertex available()
   if x=20 then num=fog available()

   if num=1
      string$="yes"
      ink rgb(0,0,255),rgb(0,0,0)
   endif
   if num=0
      string$="no"
      ink rgb(255,0,0),rgb(0,0,0)
   endif

   if x=1 then print "Alpha Blending : "; string$
   if x=2 then print "Alpha : "; string$
   if x=3 then print "Alpha Comparison : "; string$
   if x=4 then print "Anistrophic Filtering : "; string$
   if x=5 then print "Antialias : "; string$
   if x=6 then print "Blit Sys To Local : "; string$
   if x=7 then print "Calibrate Gamma : ";  string$
   if x=8 then print "Clip and Scale Points : "; string$
   if x=9 then print "Clip TL Verts : "; string$
   if x=10 then print "Color Perspective : "; string$
   if x=11 then print "Color Write Enable : "; string$
   if x=12 then print "Cube Map : "; string$
   if x=13 then print "Cull CCW : "; string$
   if x=14 then print "Cull CW : "; string$
   if x=15 then print "Dither : "; string$
   if x=16 then print "Filtering : "; string$
   if x=17 then print "Fog Range : "; string$
   if x=18 then print "Fog Table : "; string$
   if x=19 then print "Fog Vertex : "; string$
   if x=20 then print "Fog Available : "; string$

next x
wait key
cls
for x=1 to 20
   if x=1 then num=fullscreengamma available()
   if x=2 then num=mipcubemap available()
   if x=3 then num=mipmap available()
   if x=4 then num=mipmaplodbias available()
   if x=5 then num=mipmapvolume available()
   if x=6 then num=nonpowtextures available()
   if x=7 then num=perspectivetextures available()
   if x=8 then num=projectedtextures available()
   if x=9 then num=renderafterflip available()
   if x=10 then num=renderwindowed available()
   if x=11 then num=seperatetexturememories available()
   if x=12 then num=onlysquaretextures available()
   if x=13 then num=tnl available()
   if x=14 then num=tlvertexsystemmemory available()
   if x=15 then num=tlvertexvideomemory available()
   if x=16 then num=nonlocalvideomemory available()
   if x=17 then num=texturesystemmemory available()
   if x=18 then num=texturevideomemory available()
   if x=19 then num=volumemap available()
   if x=20 then num=wbuffer available()

   if num=1
      string$="yes"
      ink rgb(0,0,255),rgb(0,0,0)
      if x=12 then ink rgb(255,0,0), rgb(0,0,0)
   endif

   if num=0
      string$="no"
      ink rgb(255,0,0),rgb(0,0,0)
      if x=12 then ink rgb(0,0,255), rgb(0,0,0)
   endif

   if x=1 then print "Full Screen Gamma : "; string$
   if x=2 then print "Mip Cube Map : "; string$
   if x=3 then print "Mip Map : "; string$
   if x=4 then print "Mip Map Lod Bias : "; string$
   if x=5 then print "Mip Map Volume : "; string$
   if x=6 then print "Non Pow Textures : "; string$
   if x=7 then print "Perspective Textures : ";  string$
   if x=8 then print "Projected Textures : "; string$
   if x=9 then print "Render After Flip : "; string$
   if x=10 then print "Render Windowed : "; string$
   if x=11 then print "Seperate Texture Memories : "; string$
   if x=12 then print "Only Square Textures Available : "; string$
   if x=13 then print "TNL Available : "; string$
   if x=14 then print "TL Vertex System Memory : "; string$
   if x=15 then print "TL Vertex Video Memory : "; string$
   if x=16 then print "Non Local Video Memory : "; string$
   if x=17 then print "Texture System Memory : "; string$
   if x=18 then print "Texture Video Memory : "; string$
   if x=19 then print "Volume Map : "; string$
   if x=20 then print "W Buffer : "; string$

next x
wait key
cls

for x=1 to 3
   if x=1 then num=wfog available()
   if x=2 then num=zbuffer available()
   if x=3 then num=zfog available()

   if num=1
      string$="yes"
      ink rgb(0,0,255),rgb(0,0,0)
   endif
   if num=0
      string$="no"
      ink rgb(255,0,0),rgb(0,0,0)
   endif

   if x=1 then print "Alpha Blending : "; string$
   if x=2 then print "Alpha : "; string$
   if x=3 then print "Alpha Comparison : "; string$
next x
wait key
cls
ink rgb(0,255,0), rgb(0,0,0)
for x=1 to 8
   if x=1 then num=get maximum lights()
   if x=2 then num=get maximum pixel shader value()
   if x=3 then num=get maximum texture height()
   if x=4 then num=get maximum texture width()
   if x=5 then num=get maximum vertex shader constants()
   if x=6 then num=get maximum volume extent()
   if x=7 then num=get maximum pixel shader version()
   if x=8 then num=get maximum vertex shader version()

   if x=1 then print "Maximum Lights in Scene : "; num
   if x=2 then print "Maximum Pixel Shader : "; num
   if x=3 then print "Maximum Texture Height : "; num
   if x=4 then print "Maximum Texture Width : "; num
   if x=5 then print "Maximum Vertex Shader Constants : "; num
   if x=6 then print "Maximum Volume Extent : "; num
   if x=7 then print "Maximum Pixel Shader Version : "; num
   if x=8 then print "Maximum Vertex Shader Version : "; num

next x
wait key
cls