Sorry your browser is not supported!

OPEN TO READ 1,"Data\Info"
MAKE MEMBLOCK FROM FILE 1,1
CLOSE FILE 1

Initi = MEMBLOCK BYTE(1,1)

IF Initi = 0
DELETE FILE "Data\Info"
Comp()
ENDIF

Initcheck:

SET WINDOW LAYOUT 1,1,1
SET WINDOW TITLE "DRDBMS Main Window"

DO
GUI()
LOOP
ender:
END

FUNCTION GUI()

LOAD BITMAP "Menus\Images\main.bmp",1
Buff = 0
COPY BITMAP 1,0,0,223,24,0,0,0,223,24
back:

   ctrl = CONTROLKEY()
   esc = ESCAPEKEY()

   IF ctlr = 1 AND esc = 1 THEN GOTO ender

   mx = mousex()
   my = mousey()
   mc = mouseclick()

   IF mx < 32 AND my < 25
   LOAD BITMAP "Menus\Images\fbh.bmp",2
   COPY BITMAP 2,0,0,31,24,0,0,0,31,24
   DELETE BITMAP 2
   Buff = 1
   WHILE my < 25 AND mx < 32
   mx = mousex()
   my = mousey()
   mc = mouseclick()
   IF mc = 1 THEN FilMen()
   ENDWHILE
   ENDIF

   IF Buff = 1
   LOAD BITMAP "Menus\Images\fb.bmp",2
   COPY BITMAP 2,0,0,31,24,0,0,0,31,24
   DELETE BITMAP 2
   Buff = 0
   ENDIF

   IF mx < 63 AND my < 25
   LOAD BITMAP "Menus\Images\vbh.bmp",2
   COPY BITMAP 2,0,0,31,24,0,32,0,62,24
   DELETE BITMAP 2
   Buff = 2
   WHILE my < 63 AND mx < 25
   mx = mousex()
   my = mousey()
   mc = mouseclick()
   IF mc = 1 THEN VieMen()
   ENDWHILE
   ENDIF

   IF Buff = 2
   LOAD BITMAP "Menus\Images\vb.bmp",2
   COPY BITMAP 2,0,0,31,24,0,32,0,62,24
   DELETE BITMAP 2
   Buff = 0
   ENDIF

GOTO back
ENDFUNCTION


   FUNCTION FilMen()
   ` File Menu

   LOAD BITMAP "Menus\Images\1.bmp",2
   COPY BITMAP 2,0,0,183,160,0,0,25,183,185
   DELETE BITMAP 2
   DO

   mx = mousex()
   my = mousey()
   mc = mouseclick()

   IF mx > 183 OR my > 185
   CLS
   COPY BITMAP 1,0,0,223,24,0,0,0,223,24
   GOTO back
   ENDIF

   IF my < 25 AND mc = 1
   CLS
   COPY BITMAP 1,0,0,223,24,0,0,0,223,24
   mc = 0
   GOTO back
   ENDIF

   LOOP
   ENDFUNCTION

   FUNCTION Viemen()
 ` View Menu

   LOAD BITMAP "Menus\Images\2.bmp",2
   COPY BITMAP 2,0,0,183,160,0,0,25,183,185
   DELETE BITMAP 2
   DO

   mx = mousex()
   my = mousey()
   mc = mouseclick()

   IF mx > 183 OR my > 185
   CLS
   COPY BITMAP 1,0,0,223,24,0,0,0,223,24
   GOTO back
   ENDIF

   IF my < 25 AND mc = 1
   CLS
   COPY BITMAP 1,0,0,223,24,0,0,0,223,24
   mc = 0
   GOTO back
   ENDIF

   LOOP
   ENDFUNCTION

   FUNCTION Comp()
` System Info

DIM Init(1,52)
OPEN TO WRITE 1,"Data\Info"
Init(1,1)  = 1
Init(1,2)  = ALPHABLENDING AVAILABLE()
Init(1,3)  = ALPHA AVAILABLE()
Init(1,4)  = ALPHACOMPARISON AVAILABLE()
Init(1,5)  = ANISTROPICFILTERING AVAILABLE()
Init(1,6)  = ANTIALIAS AVAILABLE()
Init(1,7)  = BLITSYSTOLOCAL AVAILABLE()
Init(1,8)  = CALIBRATEGAMMA AVAILABLE()
Init(1,9)  = CLIPANDSCALEPOINTS AVAILABLE()
Init(1,10)  = CLIPTLVERTS AVAILABLE()
Init(1,11) = COLORPERSPECTIVE AVAILABLE()
Init(1,12) = COLORWRITEENABLE AVAILABLE()
Init(1,13) = CUBEMAP AVAILABLE()
Init(1,14) = CULLCCW AVAILABLE()
Init(1,15) = CULLCW AVAILABLE()
Init(1,16) = DITHER AVAILABLE()
Init(1,17) = FILTERING AVAILABLE()
Init(1,18) = FOGRANGE AVAILABLE()
Init(1,19) = FOGTABLE AVAILABLE()
Init(1,20) = FOGVERTEX AVAILABLE()
Init(1,21) = FOG AVAILABLE()
Init(1,22) = FULLSCREENGAMMA AVAILABLE()
Init(1,23) = GET MAXIMUM LIGHTS()
Init(1,24) = GET MAXIMUM PIXEL SHADER VALUE()
Init(1,25) = GET MAXIMUM TEXTURE HEIGHT()
Init(1,26) = GET MAXIMUM TEXTURE WIDTH()
Init(1,27) = GET MAXIMUM VERTEX SHADER CONSTANTS()
Init(1,28) = GET MAXIMUM VOLUME EXTENT()
Init(1,29) = MIPCUBEMAP AVAILABLE()
Init(1,30) = MIPMAP AVAILABLE()
Init(1,31) = MIPMAPLODBIAS AVAILABLE()
Init(1,32) = MIPMAPVOLUME AVAILABLE()
Init(1,33) = NONPOWTEXTURES AVAILABLE()
Init(1,34) = PERSPECTIVETEXTURES AVAILABLE()
Init(1,35) = GET MAXIMUM PIXEL SHADER VERSION()
Init(1,36) = PROJECTEDTEXTURES AVAILABLE()
Init(1,37) = RENDERAFTERFLIP AVAILABLE()
Init(1,38) = RENDERWINDOWED AVAILABLE()
Init(1,39) = SEPERATETEXTUREMEMORIES AVAILABLE()
Init(1,40) = ONLYSQUARETEXTURES AVAILABLE()
Init(1,41) = TNL AVAILABLE()
Init(1,42) = TLVERTEXSYSTEMMEMORY AVAILABLE()
Init(1,43) = TLVERTEXVIDEOMEMORY AVAILABLE()
Init(1,44) = NONLOCALVIDEOMEMORY AVAILABLE()
Init(1,45) = TEXTURESYSTEMMEMORY AVAILABLE()
Init(1,46) = TEXTUREVIDEOMEMORY AVAILABLE()
Init(1,47) = GET MAXIMUM VERTEX SHADER VERSION()
Init(1,48) = VOLUMEMAP AVAILABLE()
Init(1,49) = WBUFFER AVAILABLE()
Init(1,50) = WFOG AVAILABLE()
Init(1,51) = ZBUFFER AVAILABLE()
Init(1,52) = ZFOG AVAILABLE()

TT = 1

For T = 1 TO 52
WRITE MEMBLOCK WORD 1,TT,Init(1,TT)
INC TT
NEXT T

UNDIM Init(1,52)
WRITE MEMBLOCK 1,1
CLOSE FILE 1

GOTO Initcheck
ENDFUNCTION