REM VARIABLES
screen_width=1024
screen_height=768
screen_width2=screen_width/2
nob=3
dim status(nob)
now=5
dim active(now)
dim win(now,4)
flag=0
temp=0


`1-originx
`2-originy
`3-width
`4-height

REM MORE STUFF
set display mode screen_width,screen_height,16
sync on

`set window on
`set window title "CCÃ¥DB  v.0.2"


REM CURSOR
ink rgb(255,0,0),0
for y=1 to 16
  for x=1 to 16 
    read z
    if z=1 then dot x,y
  next x
next y 
get image 1,1,1,16,16,1
hide mouse

REM WINDOWZ INFO
for c=1 to now
  read z
  win(c,1)=z
  read z
  win(c,2)=z
  read z
  win(c,3)=z
  read z
  win(c,4)=z
next c

REM ============================= MAIN LOOP ===========================
do
cls

  sprite 1,mousex(),mousey(),1
  gosub _draw_screen
  box(10,19,28,14,"File",status(1)) 
  box(45,19,30,14,"Edit",status(2)) 
  box(82,19,35,14,"Help",status(3))
  ink rgb(0,0,250),0
  text screen_width-40,screen_height-17,formatted_time()
  if button_check(10,19,38,33) and mouseclick() : status(1)=0 : else : status(1)=1 : endif
  if button_check(45,19,75,33) and mouseclick() : status(2)=0 : else : status(2)=1 : endif
  if button_check(82,19,117,33) and mouseclick() : status(3)=0 : else : status(3)=1 : endif

  if mouseclick() and n=0 and thing=0
    for c=1 to now
      if mousex()>win(c,1) and mousex()<win(c,1)+win(c,3) and mousey()>win(c,2) and mousey()<win(c,2)+win(c,4)
       active(c)=1
       thing=1
       ra=c
      else
        active(c)=0
      endif  
   next c
  endif

  if mouseclick()=1 and n=0
    for c=1 to now
      if mousex()>win(c,1)+2 and mousex()<(win(c,1)+win(c,3))-2 and mousey()>win(c,2)+2 and mousey()<win(c,2)+17
        wdx=mousex()-win(c,1)
        wdy=mousey()-win(c,2)
        wdx2=win(c,3)-wdx
        wdy2=win(c,4)-wdy
        n=c
      endif
    next c
  endif

  if mouseclick()=0 then n=0:thing=0

  gosub _move_windowz
  gosub _resize_windowz

  for c=1 to now
    if active(c)=0
      windowz(win(c,1),win(c,2),win(c,3),win(c,4),"Windowz #"+str$(c),active(c))
    endif
  next c

  for c=1 to now
    if active(c)=1
      windowz(win(c,1),win(c,2),win(c,3),win(c,4),"Windowz #"+str$(c),active(c))
    endif
  next c


sync
loop

REM +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++


_draw_screen:
  ink rgb(212,208,200),0
  box 1,1,screen_width-1,35
  box 1,screen_height-20,screen_width-1,screen_height-1
  ink rgb(0,0,250),0
  box 1,1,screen_width-1,15
  ink rgb(128,128,128),0
  line 1,16,screen_width-1,16
  ink rgb(255,255,255),0
  line 1,17,screen_width-1,17
  ink rgb(128,128,128),0
  line 1,35,screen_width-1,35
  ink rgb(255,255,255),0
  line 1,screen_height-20,screen_width-1,screen_height-20
  box(screen_width-42,screen_height-17,40,14,"",0)
  ink rgb(0,0,0),0
  center text screen_width2+2,2,"CCÃ¥DB"
  ink rgb(255,0,0),0
  center text screen_width2,0,"CCÃ¥DB"

RETURN


function box(originx,originy,length,height,title$,upordown)
  if upordown=1 then ink rgb(255,255,255),0
  if upordown=0 then ink rgb(128,128,128),0
  line originx,originy,originx+length,originy
  line originx,originy,originx,originy+height
  if upordown=0 then ink rgb(255,255,255),0
  if upordown=1 then ink rgb(128,128,128),0
  line originx,originy+height,originx+length,originy+height
  line originx+length,originy,originx+length,originy+height
  ink 0,0
  text originx+2,originy-1,title$
endfunction

function formatted_time()
  hour$=left$(get time$(),2)
  if val(hour$)>12 then hour$=str$((val(hour$)-12))
  if val(hour$)=0 then hour$="12"
  minutes$=mid$(get time$(),4)+mid$(get time$(),5)
  ft$=hour$+":"+minutes$
endfunction ft$


function button_check(x1,y1,x2,y2)
  if mousex()>x1 and mousex()<x2 and mousey()>y1 and mousey()<y2
    value=1
  else
    value=0
  endif
endfunction value

function windowz(originx,originy,width,height,title$,active)
  ink rgb(150,150,150),0
  box originx,originy,originx+width,originy+height
  if active=0 then ink rgb(50,50,50),0 
  if active=1 then ink rgb(0,0,150),0 
  box originx+2,originy+2,originx+width-2,originy+16
  ink rgb(255,255,255),0 
  line originx,originy,originx,originy+height
  ink rgb(255,255,255),0 
  line originx,originy,originx+width,originy
  ink 0,0
  line originx+width,originy,originx+width,originy+height
  ink 0,0
  line originx,originy+height,originx+width,originy+height
  ink rgb(85,85,85),0 
  line originx+2,originy+18,originx+width-2,originy+18
  ink 0,0
  text originx+7,originy+3,title$
  if active=0 then ink rgb(150,150,150),0 
  if active=1 then ink rgb(250,250,250),0 
  text originx+5,originy+1,title$
endfunction

_move_windowz:
  if n<>0 and active(n)=1
`    if mousex()<win(n,1)+2 then position mouse win(n,1)+2,mousey(): wdx2=win(n,3)-wdx
`    if mousex()>(win(n,1)+win(n,3))-2 then position mouse (win(n,1)+win(n,3))-2,mousey(): wdx2=win(n,3)-wdx
`    if mousey()<win(n,2)+2 then position mouse mousex(),win(n,2)+2:wdy2=win(n,4)-wdy
`    if mousey()>win(n,2)+16 then position mouse mousex(),win(n,2)+16:wdy2=win(n,4)-wdy
    win(n,1)=mousex()-wdx
    win(n,2)=mousey()-wdy
    if mousex()<wdx+1 then win(n,1)=1:wdx=mousex()-win(n,1):wdx2=win(n,3)-wdx
    if mousey()<wdy+1 then win(n,2)=1:wdy=mousey()-win(n,2):wdy2=win(n,4)-wdy
    if mousex()>screen_width-(wdx2+1) then win(n,1)=(screen_width-2)-win(n,3):wdx=mousex()-win(n,1):wdx2=win(n,3)-wdx
    if mousey()>screen_height-(wdy2+1) then win(n,2)=(screen_height-2)-(win(n,4)):wdy=mousey()-win(n,2):wdy2=win(n,4)-wdy
  endif

_resize_windowz:
  if ra<>0  
    if upkey() then win(ra,4)=win(ra,4)-1
    if downkey() then win(ra,4)=win(ra,4)+1
    if rightkey() then win(ra,3)=win(ra,3)+1
    if leftkey() then win(ra,3)=win(ra,3)-1
  endif
RETURN


RETURN

rem mouse cursor
data 1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0
data 1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0
data 1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0
data 1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0
data 1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0
data 1,1,1,0,1,1,1,0,0,0,0,0,0,0,0,0
data 1,1,0,0,0,1,1,1,0,0,0,0,0,0,0,0
data 1,1,0,0,0,0,1,1,1,0,0,0,0,0,0,0
data 1,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0
data 1,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0
data 1,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

rem windowz info
data 30,100,175,50
data 80,110,200,145
data 400,20,150,80
data 300,100,90,70
data 85,250,275,200