Sorry your browser is not supported!

function window(ttop#,tleft#,tbottom#,tright#,ttheme#)

   if ttheme#=1
      load bitmap "theme1.bmp",1
         get image 2,0,0,60,60
         get image 3,0,60,60,120
         get image 4,0,120,60,180
         get image 5,0,180,60,240
         get image 6,60,0,120,60
         get image 7,60,60,120,120
         get image 8,60,120,120,180
         get image 9,60,180,120,240
         get image 10,120,0,180,60
         sprite 1,0,0,2
         sprite 2,0,0,3
         sprite 3,0,0,4
         sprite 4,0,0,5
         hide sprite 1
         hide sprite 2
         hide sprite 3
         hide sprite 4
      delete bitmap 1
   endif

   twidth#=tright#-tleft#
   theight#=tbottom#-ttop#

   width#=tright#-tleft#
   height#=tbottom#-ttop#

   while twidth#>=60
      twidth#=twidth#-60
   endwhile

   while theight#>=60
      theight#=theight#-60
   endwhile

   remw#=60-twidth#
   remh#=60-theight#

   width#=width#+remw#
   height#=height#+remh#

   if tright#-tleft#<120 then width#=120 : twidth#=120
   if tbottom#-ttop#<120 then height#=120 : theight#=120

   tright#=tleft#+width#
   tbottom#=ttop#+height#

   show sprite 1
   paste sprite 1,tleft#,ttop#
   show sprite 2
   paste sprite 2,tright#,ttop#
   show sprite 4
   paste sprite 4,tleft#,tbottom#
   show sprite 3
   paste sprite 3,tright#,tbottom#

   snum#=5

   for x#=tleft#+60 to tright#-60 step 60
      sprite snum#,x#,ttop#,6
      snum#=snum#+1
   next x#

   for x#=top#+60 to tbottom#-60 step 60
      sprite snum#,tleft#,x#,7
      snum#=snum#+1
   next x#

   for x#=tleft#+60 to tright#-60 step 60
      sprite snum#,x#,tbottom#,9
      snum#=snum#+1
   next x#

   for x#=top#+60 to tbottom#-60 step 60
      sprite snum#,tright#,x#,8
      snum#=snum#+1
   next x#

   fnum#=snum#+1

   for x#=tleft#+60 to tright#-60 step 60
      for y#=ttop#+60 to tbottom#-60 step 60
         sprite fnum#,x#,y#,10
         fnum#=fnum#+1
      next y#
   next x#

endfunction

if VAR < 120
 var = 120
 endif