Sorry your browser is not supported!

sync on
randomize timer()

set text font "courier new",1
set text size 15

plaspoints=10
dim plaspoint#(plaspoints)    : rem position
dim plaspointp#(plaspoints)   : rem movement
dim plaspointa(plaspoints)    : rem active
dim plaspointl(plaspoints)    : rem life

plasspikes=10
dim plasspikeo#(plasspikes)    : rem origin
dim plasspikel(plasspikes)    : rem life
dim plasspikem#(plasspikes)    : rem movement
dim plasspikep(plasspikes)    : rem points joined to
dim plasspikej(plasspikes,plaspoints)    : rem point joines

for i=1 to plaspoints
   plaspoint#(i)=rnd(360)
   if rnd(1)=1
      plaspointp#(i)=rnd(0)+1
   else
      plaspointp#(i)=rnd(0)-1
   endif
   plaspointp#(i)=plaspointp#(i)/2
   plaspointl(i)=rnd(1)+2
next i

for i=1 to plasspikes
   plasspikeo#(i)=rnd(360)
   if rnd(1)=1
      plasspikem#(i)=rnd(0)+1
   else
      plasspikem#(i)=rnd(0)-1
   endif
   plasspikem#(i)=plasspikem#(i)/2
   plasspikel(i)=rnd(10)+2
next i

dim backlist$(100)
dim forwardlist$(100)

backon=0
forwardon=0

directory$=get dir$()+""
set dir directory$

gosub ScanSortFiles

pageon=1
pages=files-31
if pages<1 then pages=1
pages#=pages
temp#=(pages#-1)/100
if temp#>1 then temp#=1
temp#=sqrt(1-temp#)
slidersize#=temp#*450
if slidersize#<15 then slidersize#=15
slidersize=slidersize#

selected=1
decision=0

do

   cls

   file=pageon+selected-1

   tslider=1
   bslider=1

   gosub HandleInput
   gosub HandleVariables
   gosub HandleDisplay

   gosub HandleDecision

   sync

loop

end

ScanSortFiles:

   dim filename1$(1000)
   dim fileext1$(1000)
   files=1

   if directory$="My Computer"

      perform checklist for drives
      for i=1 to checklist quantity()
         filename1$(i)=checklist string$(i)
         fileext1$(i)="Folder"
      next i
      files=checklist quantity()

   else

      find first

      repeat

         if get file type()<>-1 and get file name$()<>"" and get file name$()<>"." and get file name$()<>".."
            name$=get file name$()
            if get file type()=0
               dotplace=0
               for i=len(name$) to 1 step -1
                  if mid$(name$,i)="."
                     dotplace=i
                     exit
                  endif
               next i
               if dotplace>1
                  filename1$(files)=left$(name$,dotplace-1)
                  fileext1$(files)=lower$(right$(name$,len(name$)-dotplace))
                  files=files+1
               endif
            else
               filename1$(files)=name$
               fileext1$(files)="Folder"
               files=files+1
            endif
         endif
         find next

      until get file type()=-1

      files=files-1

   endif

   dim filename$(files)
   dim fileext$(files)

   Alphabetically Sort(files)

return

HandleInput:

   if upkey()=1 and file>1 or keystate(201)=1 and file>1
      if upK=0
         upK=1
         file=file-1
         if selected=1 and pageon>1 then pageon=pageon-1
         if selected>1 then selected=selected-1
         Ucount=40
      endif
      Ucount=Ucount-1
      if Ucount<0
         file=file-1
         if selected=1 and pageon>1 then pageon=pageon-1
         if selected>1 then selected=selected-1
         Ucount=2
      endif
   else
      upK=0
   endif

   if downkey()=1 and file<files or keystate(209)=1 and file<files
      if dnK=0
         dnK=1
         file=file+1
         if selected=32 and pageon<files then pageon=pageon+1
         if selected<32 then selected=selected+1
         Dcount=40
      endif
      Dcount=Dcount-1
      if Dcount<0
         file=file+1
         if selected=32 and pageon<files then pageon=pageon+1
         if selected<32 then selected=selected+1
         Dcount=2
      endif
   else
      dnK=0
   endif

   if mousemovez()>oldmousemovez and pageon>1
      file=file-5
      pageon=pageon-5
      selected=selected+5
      if file<1 then file=1
      if pageon<1 then pageon=1
      if selected>32 then selected=32
      oldmousemovez=mousemovez()
   endif

   if mousemovez()<oldmousemovez and pageon<pages
      file=file+5
      pageon=pageon+5
      selected=selected-5
      if file>files then file=files
      if pageon>pages then pageon=pages
      if selected<1 then selected=1
      oldmousemovez=mousemovez()
   endif

   if returnkey()=1 and decisionmadetime<1 then decision=2

   if mouseclick()=1 and sliderhold=0

      if mouseclick=0
         y1=sliderpos#+15
         y2=sliderpos#+slidersize#+15
         if mousewithin(277,y1,288,y2)=1
            sliderhold=1
            slideryoff=mousey()-(sliderpos#+15)
         endif
      endif

      if mouseclick=0 or clickonfile=1
         for i=1 to 32
            if mousewithin(2,i*15-15,273,i*15)=1
               file=pageon+i-1
               if file<=files
                  doubleclickcounta=20
                  selected=i
                  if doubleclickcountb>0 and dcfile=file then decision=2
                  if doubleclickcountb<1 then dcfile=file
                  clickonfile=1
               endif
            endif
         next i
      endif

      if clickonfile=1 and mousey()<2 and file>1
         file=file-1
         if selected=1 and pageon>1 then pageon=pageon-1
         if selected>1 then selected=selected-1
      endif
      if clickonfile=1 and mousey()>478 and file<files
         file=file+1
         if selected=32 and pageon<files then pageon=pageon+1
         if selected<32 then selected=selected+1
      endif

      if mousewithin(277,3,288,11)=1 and pageon>1 and clickonfile=0
         file=file-1
         pageon=pageon-1
         selected=selected+1
         if selected>32 then selected=32
      endif
      if mousewithin(277,469,288,477)=1 and pageon<pages and clickonfile=0
         file=file+1
         pageon=pageon+1
         selected=selected-1
         if selected<1 then selected=1
      endif

      if mousewithin(275,15,290,465)=1 and clickonfile=0
         if oldtbslide=0
            oldtbslide=1
            if mousey()<15+sliderpos#
               if pageon>32
                  file=file-32
                  pageon=pageon-32
                  blankclick=32
               else
                  if pageon=1
                     selected=1
                  endif
                  pageon=1
                  file=1
                  blankclick=10
               endif
               tslider=0
               tbslidecount=40
            endif
            if mousey()>15+sliderpos#+slidersize#
               if pageon<pages
                  file=file+32
                  pageon=pageon+32
                  if pageon>pages then pageon=pages
                  if file>files then file=files
                  blankclick=32
               else
                  pageon=pages
                  file=files
                  selected=32
                  blankclick=10
               endif
               bslider=0
               tbslidecount=40
            endif
         endif
         tbslidecount=tbslidecount-1
         if tbslidecount<0
            if mousey()<13+sliderpos#
               if pageon>32
                  file=file-32
                  pageon=pageon-32
                  blankclick=32
               else
                  if pageon=1
                     selected=1
                  endif
                  pageon=1
                  file=1
               endif
               tslider=0
               tbslidecount=5
            endif
            if mousey()>17+sliderpos#+slidersize#
               if pageon<pages
                  file=file+32
                  pageon=pageon+32
                  if pageon>pages then pageon=pages
                  if file>files then file=files
                  blankclick=32
               else
                  pageon=pages
                  file=files
                  selected=32
                  blankclick=10
               endif
               bslider=0
               tbslidecount=5
            endif
         endif
      else
         oldtbslide=0
      endif

      if mousewithin(300,18,400,38)=1
         parentpress=1
      else
         parentpress=0
      endif

      if mousewithin(405,18,455,38)=1 and backon>0
         backpress=1
      else
         backpress=0
      endif

      if mousewithin(460,18,515,38)=1 and forwardon>0
         forwardpress=1
      else
         forwardpress=0
      endif

      if mousewithin(520,18,639,38)=1 and extsup>0
         loadpress=1
      else
         loadpress=0
      endif

      mouseclick=1

   endif
   blankclick=blankclick-1
   doubleclickcounta=doubleclickcounta-1
   doubleclickcountb=doubleclickcountb-1
   if doubleclickcounta>0 and mouseclick()=0 then doubleclickcountb=10

   if mouseclick()=0 and mousewithin(300,18,400,38)=1 and parentpress=1
      parentgo=1
   else
      parentgo=0
   endif
   if mouseclick()=0 and mousewithin(405,18,455,38)=1 and backpress=1
      backgo=1
   else
      backgo=0
   endif
   if mouseclick()=0 and mousewithin(460,18,515,38)=1 and forwardpress=1
      forwardgo=1
   else
      forwardgo=0
   endif
   if mouseclick()=0 and mousewithin(520,18,639,38)=1 and loadpress=1
      decision=2
   endif

   if mouseclick()=0
      mouseclick=0
      movebarhold=0
      clickonfile=0
      oldtbslide=0
      parentpress=0
      backpress=0
      forwardpress=0
      loadpress=0
      playpress=0
      stoppress=0
   endif

   if mouseclick()<>1 then sliderhold=0
   if sliderhold=1
      oldpageon=pageon
      mosy1#=mousey()-15+slideryoff
      avilspace#=(450-slidersize#)
      if avilspace#<1 then avilspace#=1
      temp#=mosy1#/avilspace#
      pageon#=temp#*pages#
      pageon=pageon#
      if pageon<1 then pageon=1
      if pageon>pages then pageon=pages
      pageondiff=pageon-oldpageon
      selected=selected+(0-pageondiff)
      if selected<1 then selected=1
      if selected>32 then selected=32
   endif

   oldmousemovez=mousemovez()

return

HandleVariables:

   pageon#=pageon
   files#=files
   pagestemp#=(pages#-1)
   if pagestemp#<1 then pagestemp#=1
   sliderpos#=(pageon#-1)/pagestemp#
   sliderpos#=sliderpos#*(450-slidersize#)
   if sliderpos#>450-slidersize# then sliderpos#=450-slidersize#

   decisionmadetime=decisionmadetime-1

   ext$=fileext$(file)
   extsup=0
   if ext$="bmp" or ext$="png" or ext$="jpg" or ext$="jpeg" then extsup=1
   if ext$="mp3" or ext$="wma" or ext$="wav" or ext$="xm" or ext$="mid" then extsup=2
   if ext$="avi" or ext$="wmv" or ext$="mpg" or ext$="mpeg" then extsup=3
   if ext$="x" or ext$="3ds" then extsup=4
   if ext$="txt" then extsup=5
   if ext$="Folder" then extsup=6

   if music exist(1)=1
     if music playing(1)=0 then musicplay=0 : stop music 1
   endif

return

HandleDisplay:

   if files>0
      ink rgb(100,205,100),0
      box 2,selected*15-14,273,selected*15-1
   endif

   ypos=1
   if files<32 then forto=files else forto=pageon+31
   ink rgb(255,255,255),0
   for i=pageon to forto
      name$=filename$(i)
      ext$=fileext$(i)
      icontext$="[X]"
      if ext$="bmp" or ext$="png" or ext$="jpg" or ext$="jpeg" then icontext$="[P]"
      if ext$="mp3" or ext$="wma" or ext$="wav" or ext$="xm" or ext$="mid" then icontext$="[S]"
      if ext$="avi" or ext$="wmv" or ext$="mpg" or ext$="mpeg" then icontext$="[A]"
      if ext$="x" or ext$="3ds" then icontext$="[M]"
      if ext$="txt" then icontext$="[T]"
      if ext$="Folder" then icontext$="[F]"
      if ypos<>selected
         if icontext$<>"[X]"
            if icontext$="[F]"
               ink rgb(70,70,0),0
            else
               ink rgb(0,85,0),0
            endif
         else
            ink rgb(0,75,0),0
         endif
         box 2,ypos*15-14,273,ypos*15-1
         ink rgb(255,255,255),0
      endif
      text 1,ypos*15-15,icontext$
      text 25,ypos*15-15,shorten$(name$,200)
      text 225,ypos*15-15,shorten$(ext$,50)
      ypos=ypos+1
   next i

   ink rgb(255,255,255),0
   linebox(275,1,290,479)
   line 275,13,290,13
   line 275,467,290,467

   box 277,sliderpos#+15,288,sliderpos#+slidersize#+15

   ink rgb(0,200,0),0
   if tslider=1 then box 277,15,288,sliderpos#+13
   if bslider=1 then box 277,sliderpos#+slidersize#+17,288,465

   box 277,3,288,11
   box 277,469,288,477

   ink rgb(255,255,255),0
   linetriangle(279,9,282,5,286,9)
   linetriangle(279,471,282,475,286,471)

   ink rgb(255,255,255),0
   if directory$<>"My Computer"
      shortdir$=shortenleft$(left$(directory$,len(directory$)-1),300)
      if shortdir$<>left$(directory$,len(directory$)-1) then shortdir$=left$(directory$,3)+"..."+shortdir$
   else
      shortdir$="My Computer"
   endif
   text 300,1,shortdir$

   bcolour=0
   lpbcolour=rgb(0,200,0)
   dpbcolour=rgb(0,120,0)

   button(300,18,400,37,2,parentpress,bcolour,lpbcolour,dpbcolour)
   ink rgb(255,255,255),0
   center text 350+parentpress,19+parentpress,"Parent"

   button(405,18,455,37,2,backpress,bcolour,lpbcolour,dpbcolour)
   if backon>0 then ink rgb(255,255,255),0 else ink rgb(155,155,155),0
   center text 430+backpress,19+backpress,"Back"

   button(460,18,515,37,2,forwardpress,bcolour,lpbcolour,dpbcolour)
   if forwardon>0 then ink rgb(255,255,255),0 else ink rgb(155,155,155),0
   center text 488+forwardpress,19+forwardpress,"Forward"

   button(520,18,639,37,2,loadpress,bcolour,lpbcolour,dpbcolour)
   if extsup>0 then ink rgb(255,255,255),0 else ink rgb(155,155,155),0
   if extsup=6 then center text 580+loadpress,19+loadpress,"Open" else center text 580+loadpress,19+loadpress,"Load"

   get image 3,0,0,640,480

return

HandleDecision:

   if decision=2 and file<=files and decisionmadetime<1

      if fileext$(file)="Folder"
         backon=backon+1
         backlist$(backon)=directory$
         for i=1 to forwardon
            forwardlist$(i)=""
         next i
         forwardon=0
         if directory$="My Computer"
            directory$=filename$(file)+""
         else
            directory$=directory$+filename$(file)+""
         endif
         set dir directory$
         undim filename1$(1000)
         undim fileext1$(1000)
         undim filename$(files)
         undim fileext$(files)
         gosub ScanSortFiles
         pageon=1
         pages=files-31
         if pages<1 then pages=1
         pages#=pages
         slidersize#=450*sqrt(1/pages#)
         if slidersize#<15 then slidersize#=15
         slidersize=slidersize#
         selected=1
         mouseclick=1
         clickonfile=0
      endif

      _Image:
      if extsup=1

         sync

         blur bitmap 0,1
         ink 0,0
         box 20,20,620,460
         ink rgb(255,255,255),0
         linebox(20,20,620,460)
         get image 2,0,0,640,480

         load image filename$(file)+"."+fileext$(file),1
         paste image 2,0,0
         sprite 1,320,480,1
         set sprite 1,1,0
         scale sprite 1,100

         width#=sprite width(1)
         height#=sprite height(1)
         if width#/height#>1.45
            if width#>580
               scale sprite 1,580/width#*100
            endif
         else
            if height#>400
               scale sprite 1,400/height#*100
            endif
         endif

         sprite 1,320-sprite width(1)/2,230-sprite height(1)/2,1

         bcolour=0
         lpbcolour=rgb(0,200,0)
         dpbcolour=rgb(0,120,0)
         closepressed=0
         closego=0
         repeat
            if mouseclick()=1
               if mousewithin(560,440,618,458)=1
                  closepressed=1
               else
                  closepressed=0
               endif
            else
               if mousewithin(560,440,618,458)=1 and closepressed=1
                  closego=1
               else
                  closego=0
               endif
               closepressed=0
            endif
            paste image 2,0,0
            sprite 1,320-sprite width(1)/2,230-sprite height(1)/2,1
            button(558,438,616,456,2,closepressed,bcolour,lpbcolour,dpbcolour)
            ink rgb(255,255,255),0
            center text 586+closepressed,440+closepressed,"X Close"
            sync
         until closego=1

         delete image 1
         delete sprite 1

      endif

      _Music:
      if extsup=2

         paste image 3,0,0
         sync

         blur bitmap 0,1
         ink 0,0
         box 20,20,620,460
         ink rgb(255,255,255),0
         linebox(20,20,620,460)
         get image 2,0,0,640,480

         load music filename$(file)+"."+fileext$(file),1
         paste image 2,0,0

         play music 1
         musicplay=1

         bcolour=0
         lpbcolour=rgb(0,200,0)
         dpbcolour=rgb(0,120,0)
         closepressed=0
         musicSpressed=0
         musicPpressed=0
         closego=0
         repeat

            paste image 2,0,0

            if mouseclick()=1
               if mousewithin(560,440,618,458)=1
                  closepressed=1
               else
                  closepressed=0
               endif
               if mousewithin(23,438,73,456)=1
                  musicPpressed=1
               else
                  musicPpressed=0
               endif
               if mousewithin(78,438,128,456)=1
                  musicSpressed=1
               else
                  musicSpressed=0
               endif
            else
               if mousewithin(560,440,618,458)=1 and closepressed=1
                  closego=1
               else
                  closego=0
               endif
               if mousewithin(23,438,73,456)=1 and musicPpressed=1
                  if musicPlay=1
                     pause music 1
                     musicPlay=0
                  else
                     if music paused(1)=1
                        resume music 1
                     else
                        play music 1
                        for i=1 to plaspoints
                           plaspoint#(i)=rnd(360)
                           if rnd(1)=1
                              plaspointp#(i)=rnd(0)+1
                           else
                              plaspointp#(i)=rnd(0)-1
                           endif
                           plaspointp#(i)=plaspointp#(i)/2
                           plaspointl(i)=rnd(1)+2
                        next i

                        for i=1 to plasspikes
                           plasspikeo#(i)=rnd(360)
                           if rnd(1)=1
                              plasspikem#(i)=rnd(0)+1
                           else
                              plasspikem#(i)=rnd(0)-1
                           endif
                           plasspikem#(i)=plasspikem#(i)/2
                           plasspikel(i)=rnd(10)+2
                        next i
                     endif
                     musicPlay=1
                  endif
               endif
               if mousewithin(78,438,128,456)=1 and musicSpressed=1
                  if music playing(1)=1
                    stop music 1
                    musicPlay=0
                  endif
               endif
               closepressed=0
               musicPpressed=0
               musicSpressed=0
            endif

            if music playing(1)=0 then musicPlay=0 : stop music 1

            if musicPlay=1
               for i=1 to plaspoints
                  plaspoint#(i)=wrapvalue(plaspoint#(i)+plaspointp#(i))
                  plaspointl(i)=plaspointl(i)-1
                  plaspointa(i)=0
                  if plaspointl(i)<=0
                     plaspoint#(i)=rnd(360)
                     if rnd(1)=1
                        plaspointp#(i)=rnd(0)+1
                     else
                        plaspointp#(i)=rnd(0)-1
                     endif
                     plaspointp#(i)=plaspointp#(i)/2
                     plaspointl(i)=rnd(100)+50
                  endif
               next i

               for i=1 to plasspikes
                  plasspikeo#(i)=wrapvalue(plasspikeo#(i)+plasspikem#(i))
                  plasspikel(i)=plasspikel(i)-1
                  if plasspikel(i)<=0
                     plasspikeo#(i)=rnd(360)
                     if rnd(1)=1
                        plasspikem#(i)=rnd(0)+1
                     else
                        plasspikem#(i)=rnd(0)-1
                     endif
                     plasspikem#(i)=plasspikem#(i)/2
                     plasspikel(i)=rnd(50)+50
                  endif
                  plasspikep(i)=0
                  points=0
                  for j=1 to plaspoints
                     for k=-360 to 360 step 360
                        angle#=plaspoint#(j)+k
                        if angle#>plasspikeo#(i)-25 and angle#<plasspikeo#(i)+25
                           points=points+1
                           plasspikej(i,points)=j
                           plaspointa(j)=1
                        endif
                     next k
                     print
                  next j
                  plasspikep(i)=points
               next i

               ink rgb(0,155,0),0
               circle 320,230,200

               ink rgb(0,255,0),0
               circle 320,230,50

               ink rgb(0,255,0),0
               for i=1 to plasspikes
                  if plasspikep(i)>0
                     angle1#=plasspikeo#(i)
                     x1#=cos(angle1#)*50+320
                     y1#=sin(angle1#)*50+230
                     x2#=cos(angle1#)*150+320
                     y2#=sin(angle1#)*150+230
                     electricline(x1#,y1#,x2#,y2#)
                     for j=1 to plasspikep(i)
                        thepoint=plasspikej(i,j)
                        angle2#=plaspoint#(thepoint)
                        x3#=cos(angle2#)*200+320
                        y3#=sin(angle2#)*200+230
                        electricline(x2#,y2#,x3#,y3#)
                     next j
                  endif
               next i
            else
               if oldmusicplay=1
                  ink rgb(0,155,0),0
                  circle 320,230,200

                  ink rgb(0,255,0),0
                  circle 320,230,50

                  ink rgb(0,255,0),0
                  for i=1 to plasspikes
                     if plasspikep(i)>0
                        angle1#=plasspikeo#(i)
                        x1#=cos(angle1#)*50+320
                        y1#=sin(angle1#)*50+230
                        x2#=cos(angle1#)*150+320
                        y2#=sin(angle1#)*150+230
                        electricline(x1#,y1#,x2#,y2#)
                        for j=1 to plasspikep(i)
                           thepoint=plasspikej(i,j)
                           angle2#=plaspoint#(thepoint)
                           x3#=cos(angle2#)*200+320
                           y3#=sin(angle2#)*200+230
                           electricline(x2#,y2#,x3#,y3#)
                        next j
                     endif
                  next i
                  get image 4,115,25,525,435
               else
                  paste image 4,115,25
               endif
            endif

            button(558,438,616,456,2,closepressed,bcolour,lpbcolour,dpbcolour)
            ink rgb(255,255,255),0
            center text 586+closepressed,440+closepressed,"X Close"

            button(23,438,73,456,2,musicPpressed,bcolour,lpbcolour,dpbcolour)
            ink rgb(255,255,255),0
            if musicPlay=1 then center text 48+musicPpressed,439+musicPpressed,"Pause" else center text 48+musicPpressed,439+musicPpressed,"Play"

            button(78,438,128,456,2,musicSpressed,bcolour,lpbcolour,dpbcolour)
            ink rgb(255,255,255),0
            center text 103+musicspressed,439+musicSpressed,"Stop"

            ink rgb(255,255,255),0
            set cursor 0,0

            oldmusicplay=musicplay

            sync

         until closego=1

         delete music 1

      endif

      _Animation:
      if extsup=3

         paste image 3,0,0
         sync

         blur bitmap 0,1
         ink 0,0
         box 20,20,620,460
         ink rgb(255,255,255),0
         linebox(20,20,620,460)
         get image 2,0,0,640,480

         load animation filename$(file)+"."+fileext$(file),1
         paste image 2,0,0

         width#=animation width(1)
         height#=animation height(1)
         scale#=100
         if width#/height#>1.45
            if width#>580
               scale#=580/width#*100
            endif
         else
            if height#>400
               scale#=400/height#*100
            endif
         endif

         width#=width#*(scale#/100)
         height#=height#*(scale#/100)

         play animation 1,320-width#/2,230-height#/2,320+width#/2,230+height#/2
         animplay=1

         bcolour=0
         lpbcolour=rgb(0,200,0)
         dpbcolour=rgb(0,120,0)
         closepressed=0
         animSpressed=0
         animApressed=0
         closego=0
         repeat

            if mouseclick()=1
               if mousewithin(560,440,618,458)=1
                  closepressed=1
               else
                  closepressed=0
               endif
               if mousewithin(23,438,73,456)=1
                  animPpressed=1
               else
                  animPpressed=0
               endif
               if mousewithin(78,438,128,456)=1
                  animSpressed=1
               else
                  animSpressed=0
               endif
            else
               if mousewithin(560,440,618,458)=1 and closepressed=1
                  closego=1
               else
                  closego=0
               endif
               if mousewithin(23,438,73,456)=1 and animPpressed=1
                  if animplay=1
                     pause animation 1
                     animplay=0
                  else
                     if animation paused(1)=1
                        resume animation 1
                     else
                        play animation 1
                     endif
                     animplay=1
                  endif
               endif
               if mousewithin(78,438,128,456)=1 and animSpressed=1
                  if animation playing(1)=1
                    stop animation 1
                    animplay=0
                  endif
               endif
               closepressed=0
               animPpressed=0
               animSpressed=0
            endif

            if animation playing(1)=0 then animplay=0

            ink 0,0
            box 21,436,618,458

            button(558,438,616,456,2,closepressed,bcolour,lpbcolour,dpbcolour)
            ink rgb(255,255,255),0
            center text 586+closepressed,440+closepressed,"X Close"

            button(23,438,73,456,2,animPpressed,bcolour,lpbcolour,dpbcolour)
            ink rgb(255,255,255),0
            if animplay=1 then center text 48+animPpressed,439+animPpressed,"Pause" else center text 48+animPpressed,439+animPpressed,"Play"

            button(78,438,128,456,2,animSpressed,bcolour,lpbcolour,dpbcolour)
            ink rgb(255,255,255),0
            center text 103+animApressed,439+animSpressed,"Stop"

            sync

         until closego=1

         delete animation 1

      endif

      _Object:
      if extsup=4

         cls

         backdrop on
         color backdrop rgb(0,100,0)

         load object filename$(file)+"."+fileext$(file),1

         scale#=100

         position object 1,0,0-object size y(1)*1,0

         if total object frames(1)>0 then loop object 1 : objanimated=1 : objplay=1 else objanimated=0

         scaleslidepos#=scale#/2

         bcolour=0
         lpbcolour=rgb(0,200,0)
         dpbcolour=rgb(0,120,0)
         closepressed=0
         objPpressed=0
         objSpressed=0
         closego=0
         repeat

            if mouseclick()=1
               if mousewithin(560,440,618,458)=1 and scaleslidehold=0
                  closepressed=1
               else
                  closepressed=0
               endif
               if mousewithin(23,438,73,456)=1 and scaleslidehold=0 and objanimated=1 and objplay=0
                  objPpressed=1
               else
                  objPpressed=0
               endif
               if mousewithin(78,438,128,456)=1 and scaleslidehold=0 and objanimated=1 and objplay=1
                  objSpressed=1
               else
                  objSpressed=0
               endif
               if mousewithin(135,437,550,457)=1
                  scaleslidehold=1
               endif
               if scaleslidehold=1
                  scaleslidepos#=mousex()-135
                  if scaleslidepos#<1 then scaleslidepos#=1
                  if scaleslidepos#>415 then scaleslidepos#=415
               endif
            else
               if mousewithin(560,440,618,458)=1 and closepressed=1
                  closego=1
               else
                  closego=0
               endif
               if mousewithin(23,438,73,456)=1 and objPpressed=1 and objanimated=1
                  if objplay=0
                     loop object 1
                     objplay=1
                  endif
               endif
               if mousewithin(78,438,128,456)=1 and objSpressed=1 and objanimated=1
                  if objplay=1
                    stop object 1
                    objplay=0
                  endif
               endif
               closepressed=0
               objPpressed=0
               objSpressed=0
               scaleslidehold=0
            endif

            scale#=scaleslidepos#*2

            scale object 1,scale#,scale#,scale#
            position object 1,0,0-(object size y(1)*(scale#/100))/2,0
            yrotate object 1,wrapvalue(object angle y(1)+1)

            ink rgb(255,255,255),0
            linebox(20,435,619,459)

            ink 0,0
            box 21,436,618,458

            button(558,438,616,456,2,closepressed,bcolour,lpbcolour,dpbcolour)
            ink rgb(255,255,255),0
            center text 586+closepressed,440+closepressed,"X Close"

            button(23,438,73,456,2,objPpressed,bcolour,lpbcolour,dpbcolour)
            if objplay=1 then ink rgb(155,155,155),0 else ink rgb(255,255,255),0
            if objanimated=0 then ink rgb(155,155,155),0
            center text 48+objPpressed,439+objPpressed,"Play"

            button(78,438,128,456,2,objSpressed,bcolour,lpbcolour,dpbcolour)
            ink rgb(255,255,255),0
            if objplay=0 then ink rgb(155,155,155),0 else ink rgb(255,255,255),0
            if objanimated=0 then ink rgb(155,155,155),0
            center text 103+objApressed,439+objSpressed,"Pause"

            ink rgb(255,255,255),0
            linebox(135,443,550,450)

            ink 0,0
            box scaleslidepos#+133,437,scaleslidepos#+137,457

            ink rgb(255,255,255),0
            x1=scaleslidepos#+133
            x2=scaleslidepos#+137
            linebox(x1,437,x2,457)

            sync

         until closego=1

         delete object 1
         backdrop off

      endif

      _Text:
      if extsup=5

         paste image 3,0,0
         sync

         blur bitmap 0,1
         ink 0,0
         box 20,20,620,460
         ink rgb(255,255,255),0
         linebox(20,20,620,460)
         get image 2,0,0,640,480

         dim line$(10000)
         maxlinesize=79
         open to read 1,filename$(file)+"."+fileext$(file)
         totalbytes=file size(filename$(file)+"."+fileext$(file))
         word$=""
         linesize=0
         lineon=1
         bytesread=0

         repeat

            read byte 1,ascii
            bytesread=bytesread+1
            if chr$(ascii)<>" " and ascii<>13 and ascii<>10
               word$=word$+chr$(ascii)
               linesize=linesize+1
               if linesize=maxlinesize
                  if len(word$)=linesize
                     line$(lineon)=line$(lineon)+left$(word$,maxlinesize-len(line$(lineon)))
                     lineon=lineon+1
                     word$=""
                     linesize=0
                  else
                     lineon=lineon+1
                     linesize=len(word$)
                  endif
               endif
            else
               if ascii=13 then entera=1
               if ascii=10 and entera=1
                  if linesize>maxlinesize
                     lineon=lineon+1
                     linesize=0
                  endif
                  line$(lineon)=line$(lineon)+word$
                  lineon=lineon+1
                  word$=""
                  linesize=0
               else
                  linesize=linesize+1
                  if linesize>maxlinesize
                     lineon=lineon+1
                     linesize=len(word$)
                  endif
                  line$(lineon)=line$(lineon)+word$+" "
                  word$=""
               endif
               if ascii<>13 then entera=0
            endif

            if bytesread=totalbytes
               linesize=linesize+1
               if linesize>maxlinesize
                  lineon=lineon+1
                  linesize=len(word$)
               endif
               line$(lineon)=line$(lineon)+word$+" "
               word$=""
            endif

         until bytesread>totalbytes

         close file 1

         bcolour=0
         lpbcolour=rgb(0,200,0)
         dpbcolour=rgb(0,120,0)
         closepressed=0
         closego=0

         totallines=lineon
         textpageon=1
         textpages=totallines-26
         if textpages<1 then textpages=1

         tpages#=textpages
         temp#=(tpages#-1)/100
         if temp#>1 then temp#=1
         temp#=sqrt(1-temp#)
         tslidersize#=temp#*377
         if tslidersize#<15 then tslidersize#=15
         tslidersize=tslidersize#
         tsliderpos#=0

         ttslider=1
         tbslider=1

         repeat

            paste image 2,0,0

            ttslider=1
            tbslider=1

            if upkey()=1 and textpageon>1 or keystate(201)=1 and textpageon>1
               if tupK=0
                  tupK=1
                  textpageon=textpageon-1
                  tUcount=40
               endif
               tUcount=tUcount-1
               if tUcount<0
                  textpageon=textpageon-1
                  tUcount=2
               endif
            else
               tupK=0
            endif

            if downkey()=1 and textpageon<textpages or keystate(209)=1 and textpageon<textpages
               if tdnK=0
                  tdnK=1
                  textpageon=textpageon+1
                  tDcount=40
               endif
               tDcount=tDcount-1
               if tDcount<0
                  textpageon=textpageon+1
                  tDcount=2
               endif
            else
               tdnK=0
            endif

            if mousemovez()>oldmousemovez and textpageon>1
               textpageon=textpageon-5
               if textpageon<1 then textpageon=1
               oldmousemovez=mousemovez()
            endif

            if mousemovez()<oldmousemovez and textpageon<textpages
               textpageon=textpageon+5
               if textpageon>textpages then textageon=textpages
               oldmousemovez=mousemovez()
            endif

            if mouseclick()=1

               if mouseclick=0
                  y1=tsliderpos#+44
                  y2=tsliderpos#+tslidersize#+44
                  if mousewithin(594,y1,605,y2)=1
                     tsliderhold=1
                     tslideryoff=mousey()-(tsliderpos#+44)
                  endif
               endif

               if mousewithin(594,32,605,40)=1 and textpageon>1 and sliderhold=0
                  textpageon=textpageon-1
               endif
               if mousewithin(594,425,605,433)=1 and textpageon<textpages and sliderhold=0
                  textpageon=textpageon+1
               endif

               if mousewithin(560,440,618,458)=1 and sliderhold=0
                  closepressed=1
               else
                  closepressed=0
               endif

               if mousewithin(592,30,607,435)=1 and sliderhold=0
                  if toldtbslide=0
                     toldtbslide=1
                     if mousey()<44+tsliderpos#
                        if textpageon>26
                           textpageon=textpageon-26
                           tblankclick=26
                        else
                           textpageon=1
                           tblankclick=10
                        endif
                        ttslider=0
                        ttbslidecount=40
                     endif
                     if mousey()>44+tsliderpos#+tslidersize#
                        if textpageon<textpages
                           textpageon=textpageon+32
                           if textpageon>textpages then textpageon=textpages
                           tblankclick=32
                        else
                           textpageon=textpages
                           tblankclick=10
                        endif
                        tbslider=0
                        ttbslidecount=40
                     endif
                  endif
                  ttbslidecount=ttbslidecount-1
                  if ttbslidecount<0
                     if mousey()<44+tsliderpos#
                        if textpageon>32
                           textpageon=textpageon-32
                           tblankclick=32
                        else
                           textpageon=1
                        endif
                        ttslider=0
                        ttbslidecount=5
                     endif
                     if mousey()>44+tsliderpos#+tslidersize#
                        if textpageon<textpages
                           textpageon=textpageon+32
                           if textpageon>textpages then textpageon=textpages
                           tblankclick=32
                        else
                           textpageon=textpages
                           tblankclick=10
                        endif
                        tbslider=0
                        ttbslidecount=5
                     endif
                  endif
               endif

               mouseclick=1

            else

               if mousewithin(560,440,618,458)=1 and closepressed=1
                  closego=1
               else
                  closego=0
               endif

               closepressed=0
               mouseclick=0

            endif

            if mouseclick()<>1 then tsliderhold=0
            if tsliderhold=1
               textpages#=textpages
               mosy1#=mousey()-44+tslideryoff
               avilspace#=(377-tslidersize#)
               if avilspace#<1 then avilspace#=1
               temp#=mosy1#/avilspace#
               textpageon#=temp#*textpages#
               textpageon=textpageon#
               if textpageon<1 then textpageon=1
               if textpageon>textpages then textpageon=textpages
            endif

            tpageon#=textpageon
            tpagestemp#=(tpages#-1)
            if tpagestemp#<1 then tpagestemp#=1
            tsliderpos#=(tpageon#-1)/tpagestemp#
            tsliderpos#=tsliderpos#*(377-tslidersize#)
            if tsliderpos#>377-tslidersize# then tsliderpos#=377-tslidersize#

            ink rgb(255,255,255),0
            linebox(30,30,590,435)

            forto=textpageon+26
            if forto>totallines then forto=totallines
            ypos=1
            for i=textpageon to forto
               text 32,ypos*15+15,line$(i)
               ypos=ypos+1
            next i
            set cursor 0,0

            ink rgb(255,255,255),0
            linebox(592,30,607,435)
            line 592,42,607,42
            line 592,423,607,423

            box 594,tsliderpos#+44,605,tsliderpos#+tslidersize#+44

            ink rgb(0,200,0),0
            if ttslider=1 then box 594,44,605,tsliderpos#+42
            if tbslider=1 then box 594,tsliderpos#+tslidersize#+46,605,421

            box 594,32,605,40
            box 594,425,605,433

            ink rgb(255,255,255),0
            linetriangle(596,38,599,35,603,38)
            linetriangle(596,427,599,431,603,427)

            button(558,438,616,456,2,closepressed,bcolour,lpbcolour,dpbcolour)
            ink rgb(255,255,255),0
            center text 586+closepressed,440+closepressed,"X Close"

            sync

         until closego=1

         undim line$(1000)

      endif

      decisionmadetime=10

   endif
   decision=0

   if parentgo=1 and decisionmadetime<1
      backon=backon+1
      backlist$(backon)=directory$
      for i=1 to forwardon
         forwardlist$(i)=""
      next i
      forwardon=0
      directory$=parentfolder$(directory$)
      if directory$=""
         directory$="My Computer"
      else
        set dir directory$
      endif
      undim filename1$(1000)
      undim fileext1$(1000)
      undim filename$(files)
      undim fileext$(files)
      gosub ScanSortFiles
      pageon=1
      pages=files-31
      if pages<1 then pages=1
      pages#=pages
      slidersize#=450*sqrt(1/pages#)
      if slidersize#<15 then slidersize#=15
      slidersize=slidersize#
      selected=1
      decisionmadetime=10
      decision=0
      mouseclick=1
      clickonfile=0
   endif

   if backgo=1 and decisionmadetime<1 and backon>0
      forwardon=forwardon+1
      forwardlist$(forwardon)=directory$
      directory$=backlist$(backon)
      backon=backon-1
      if directory$<>"My Computer"
        set dir directory$
      endif
      undim filename1$(1000)
      undim fileext1$(1000)
      undim filename$(files)
      undim fileext$(files)
      gosub ScanSortFiles
      pageon=1
      pages=files-31
      if pages<1 then pages=1
      pages#=pages
      slidersize#=450*sqrt(1/pages#)
      if slidersize#<15 then slidersize#=15
      slidersize=slidersize#
      selected=1
      decisionmadetime=10
      decision=0
      mouseclick=1
      clickonfile=0
   endif

   if forwardgo=1 and decisionmadetime<1 and forwardon>0
      backon=backon+1
      backlist$(backon)=directory$
      directory$=forwardlist$(forwardon)
      forwardon=forwardon-1
      if directory$<>"My Computer"
        set dir directory$
      endif
      undim filename1$(1000)
      undim fileext1$(1000)
      undim filename$(files)
      undim fileext$(files)
      gosub ScanSortFiles
      pageon=1
      pages=files-31
      if pages<1 then pages=1
      pages#=pages
      slidersize#=450*sqrt(1/pages#)
      if slidersize#<15 then slidersize#=15
      slidersize=slidersize#
      selected=1
      decisionmadetime=10
      decision=0
      mouseclick=1
      clickonfile=0
   endif

   if playgo=1
      if musicplay=1
         pause music 1
         musicplay=0
      else
         if music paused(1)=1
            resume music 1
            musicplay=1
         else
            play music 1
            musicplay=1
         endif
      endif
   endif

   if stopgo=1
      stop music 1
      musicplay=0
   endif

return

function Alphabetically Sort(files)

   dim converted$(files+1)
   converted$(1)="999.999"
   for i=1 to files
      string$=fileext1$(i)
      if fileext1$(i)="Folder" then string$=""
      converted$=contoalphasort$(string$)
      foundplace=0
      for j=1 to i
         string2$=converted$(j)
         high=highest(converted$,string2$)
         if high=2
            for k=i to j+1 step-1
               filename$(k)=filename$(k-1)
               fileext$(k)=fileext$(k-1)
               converted$(k)=converted$(k-1)
            next k
            filename$(j)=filename1$(i)
            fileext$(j)=fileext1$(i)
            converted$(j)=converted$
            foundplace=1
            exit
         endif
      next j
      if foundplace=0
         filename$(i)=filename1$(i)
         fileext$(i)=fileext1$(i)
         converted$(i)=converted$
      endif
   next i
   undim converted$(files+1)

endfunction

function contoalphasort$(string$)

   converted$=""

   if len(string$)>84 then maxlen=84 else maxlen=len(string$)
   for i=1 to maxlen
      char$=upper$(mid$(string$,i))
      ascii=asc(char$)
      if ascii>=48 and ascii<=57 or ascii>=65 and ascii<=90 then ascii=ascii+300
      sasc$=str$(ascii)
      if len(sasc$)=1 then sasc$="00"+sasc$
      if len(sasc$)=2 then sasc$="0"+sasc$
      converted$=converted$+sasc$
   next i

   if len(converted$)>3 then converted$=left$(converted$,3)+"."+right$(converted$,len(converted$)-3)

endfunction converted$

function highest(string1$,string2$)

   if string1$=string2$

      high=0

   else

      strlen1=len(string1$)
      strlen2=len(string2$)

      dotplace1=0
      dotplace2=0
      for i=1 to strlen1
         if mid$(string1$,i)="."
            dotplace1=i
            exit
         endif
      next i
      for i=1 to strlen2
         if mid$(string2$,i)="."
            dotplace2=i
            exit
         endif
      next i
      if dotplace1=0
         dotplace1=strlen1+1
         string1$=string1$+".0"
      endif
      if dotplace2=0
         dotplace2=strlen2+1
         string2$=string2$+".0"
      endif
      if dotplace1<dotplace2
         for i=1 to dotplace2-dotplace1
            string1$="0"+string1$
         next i
      endif
      if dotplace2<dotplace1
         for i=1 to dotplace1-dotplace2
            string2$="0"+string2$
         next i
      endif

      strlen1=len(string1$)
      strlen2=len(string2$)

      if strlen1>strlen2 then highestlen=strlen1 else highestlen=strlen2

      for i=1 to highestlen
         num1=val(mid$(string1$,i))
         num2=val(mid$(string2$,i))
         if num1>num2
            high=1
            exit
         endif
         if num2>num1
            high=2
            exit
         endif
      next i

   endif

endfunction high

function shorten$(string$,width)

   if text width(string$)>=width-5
      repeat
         if text width(string$+"...")>=width-5 then string$=left$(string$,len(string$)-1)
      until text width(string$+"...")<width-5
      string$=string$+"..."
   endif

endfunction string$

function shortenleft$(string$,width)

   if text width(string$)>=width
      repeat
         if text width(string$)>=width then string$=right$(string$,len(string$)-1)
      until text width(string$)<width
   endif

endfunction string$

function parentfolder$(directory$)

   foldernamesize=0

   for i=len(directory$)-1 to 1 step -1
      foldernamesize=foldernamesize+1
      if mid$(directory$,i)="" or mid$(directory$,i)="/" then exit
   next i

   if mid$(directory$,i)=""
      if foldernamesize=len(directory$) then foldernamesize=0
      parentfolder$=left$(directory$,(len(directory$)-foldernamesize))
   else
      parentfolder$=""
   endif

endfunction parentfolder$

function MouseWithin(x1,y1,x2,y2)
  if mousex()>x1 and mousex()<x2 and mousey()>y1 and mousey()<y2 then exitfunction 1
endfunction 0

function linebox(x1,y1,x2,y2)

   line x1,y1,x1,y2
   line x1,y2,x2,y2
   line x2,y2,x2,y1
   line x2,y1,x1,y1

endfunction

function linetriangle(x1,y1,x2,y2,x3,y3)

   line x1,y1,x2,y2
   line x2,y2,x3,y3
   line x3,y3,x1,y1

endfunction

function NanoFillCircle(x,y,r)

   d#=90

   repeat

      d#=d#-1
      xc=cos(d#)*r
      ys=sin(d#)*r
      box x-xc,y-ys,x+xc,y+ys

   until d#<=0

endfunction

function APartCircle(x,y,radius,startc,endc)

   endc=wrapvalue(endc)
   startc=wrapvalue(startc)
   crcmfrnc=wrapvalue(endc-startc)
   if endc=startc then crcmfrnc=360

   do#=wrapvalue(startc-180)
   sofar#=0

   repeat

      sofar#=sofar#+1

      do#=wrapvalue(do#+1)
      dx#=cos(do#)*radius
      dy#=sin(do#)*radius
      bx=x+dx#
      by=y+dy#

      dot bx,by

   until sofar#>=crcmfrnc

endfunction

function button(x1,y1,x2,y2,thickness,pressed,bcolour,lpbcolour,dpbcolour)

   if thickness<1 then thickness=1
   ink bcolour,0
   box x1,y1,x2,y2
   if pressed=0
      for i=0 to thickness-1
         ink lpbcolour,0
         line x1+i,y1+i,x2-i,y1+i
         line x1+i,y1+i,x1+i,y2-i
         ink dpbcolour,0
         line x1+i,y2-i,x2-i,y2-i
         line x2-i,y1+i,x2-i,y2-i
      next i
   else
      for i=0 to thickness-1
         ink dpbcolour,0
         line x1+i,y1+i,x2-i,y1+i
         line x1+i,y1+i,x1+i,y2-i
         ink lpbcolour,0
         line x1+i,y2-i,x2-i,y2-i
         line x2-i,y1+i,x2-i,y2-i
      next i
   endif

endfunction

function electricline(x1#,y1#,x2#,y2#)

   x1=x1# : y1=y1#
   x2=x2# : y2=y2#

   x=x1
   y=y1
   angle#=wrapvalue((360-atanfull((x2-x1),(y2-y1)))-270)
   totaldissq#=(x1-x2)^2+(y1-y2)^2

   side=1
   disgone#=rnd(20)+10
   cosang#=cos(angle#)
   sinang#=sin(angle#)
   cosang90#=cos(angle#+90)
   sinang90#=sin(angle#+90)
   cosang270#=cos(angle#-90)
   sinang270#=sin(angle#-90)

   repeat
      size#=rnd(10)
      tempx#=cosang#*disgone#+x1
      tempy#=sinang#*disgone#+y1
      if side=1
         nextx=cosang90#*size#+tempx#
         nexty=sinang90#*size#+tempy#
         side=2
      else
         nextx=cosang270#*size#+tempx#
         nexty=sinang270#*size#+tempy#
         side=1
      endif
      line x,y,nextx,nexty
      x=nextx
      y=nexty
      disgone#=disgone#+rnd(20)+1
   until disgone#^2>=totaldissq#
   line x,y,x2,y2

endfunction

set text font "courier new"

set text font "courier new",1

set dir "../"

C:\Program Files\

set display mode 640,480,32
set window on
set window size 700,550
set window layout 1,1,0
set window title "BN2'S File scanner"
`image list:
`1=Back
`2=folder button
`3=Picture button
`4=Text Button
`5=object button
`6=sound button
`7=video button
`8-13=c,a,d,e,f,g
`14-17=quick buttons
`18=Back arrow
`19=up
`20=down
`21-24 highlights (drive,button,icon,small)
`25=mouse
`48=Drive
`49=EXE
`50=text
`78=Window
`1000=Main GUI
drive$=upper$(left$(get dir$(),1))
sync on
hide mouse
if path exist(drive$+":WINDOWSDesktop")=1
	desktop$=drive$+":WINDOWSDesktop"
	document$=drive$+":My Documents"
else
	document$=getreg$("HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders","Personal",drive$)
desktop$=getreg$("HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders","Desktop",drive$)
endif
dim hotspots(700,500)
gosub makehotspots
show mouse

dim maincolor(4)
dim quickrgb1(4)
dim quickrgb2(4)
dim background(4)

color1=1
color2=1
color3=1
color4=1

quickrgb1(1)=rgb(243,203,141)
quickrgb2(1)=rgb(234,155,38)
maincolor(1)=rgb(0,127,50)
background(1)=rgb(0,0,0)

quickrgb1(2)=rgb(127,5,5)
quickrgb2(2)=rgb(255,5,5)
maincolor(2)=rgb(255,5,5)
background(2)=rgb(0,0,0)

quickrgb1(3)=rgb(5,127,5)
quickrgb2(3)=rgb(5,255,5)
maincolor(3)=rgb(5,255,5)
background(3)=rgb(0,0,0)

quickrgb1(4)=rgb(5,5,127)
quickrgb2(4)=rgb(5,5,255)
maincolor(4)=rgb(5,5,255)
background(4)=rgb(0,0,0)



gosub generategui

gosub makebuttons
sprite 11,0,1000,2
sprite 12,0,1000,3
sprite 13,0,1000,4
sprite 14,0,1000,5
sprite 15,0,1000,6
sprite 16,0,1000,7
sprite 17,0,1000,8
sprite 18,0,1000,49

set text font "arial",1
`background
sprite 1000,640,480,1
gosub assemblefiles
dim files(4000)
sprite 1,1000,1000,1000
set current bitmap 0
`gosub options
set text font "arial",1

do
	set text font "arial",1
	if backspacekey()=1 and music exist(1)=1
		if music playing(1)
			stop music 1
		endif
		delete music 1
	endif

	if backspacekey()=1 and sound exist(1)=1
		if sound playing(1)
			stop sound 1
		endif
		delete sound 1
	endif


	gosub makeui
	ink 0,0
	box 100,90,639,479
	if fileoffset<0 then fileoffset=0
	paste sprite 1,100,90-fileoffset
	ink rgb(255,255,255),0
	draw to front
	sprite 2,mousex(),mousey(),25
	set sprite 2,1,0
	sprite 100,2000,2000,21
	ink rgb(0,0,255),0
	box 150,71,600,83
	ink rgb(255,255,255),0

	sprite 2,mousex(),mousey(),25
	draw to front
	text 150,71,upper$(get dir$())
	paste sprite 1000,0,0
	set text size 24

	text 10,10,calcday$()
	text 10,30,get date$()


	hours=val(left$(get time$(),2))
	if hours>12 : hours=hours-12 : ampm$="PM" : else : ampm$="AM" : endif
	time$=str$(hours)+left$(right$(get time$(),6),3)+" "+ampm$
	text 10,50,time$


	set text size 12
	gosub button_check
	if upkey()=1 or scancode()=201
		dec fileoffset,2
	endif
	if downkey()=1 or scancode()=209
		inc fileoffset,2
	endif

	sync
	cls
loop


end

generategui:
`	ink rgb(255,255,50),0
	ink maincolor(color1),0
`	ink rgb(255,255,255),0
	box 0,0,100,479
	box 0,0,639,70
	box 100,70,150,120

	ink rgb(0,0,255),0
	box 628,71,639,479

	ink 0,0
	fill(100,70,150,120,150,120,49,background(color4))
	get image 1,0,0,640,480
	cls
return

button_check:
col=sprite collision(2,0)
`	scale sprite col,110
	for i=1 to 1000
		if sprite exist(i)
			if col=i
				scale sprite col,110
			else
				scale sprite i,100
			endif
		endif
	next i
	if mouseclick()=1
		hide sprite 100
		select col
			case 3
				if path exist("C:")
					cd "C:"
					fileoffset=0
					gosub assemblefiles
				endif
			endcase
			case 4
				if path exist("D:")
					cd "D:"
					fileoffset=0
					gosub assemblefiles
				endif
			endcase
			case 5
				if path exist("A:")
					cd "A:"
					fileoffset=0
					gosub assemblefiles
				endif

			endcase
			case 6
				if path exist("E:")
					cd "E:"
					fileoffset=0
					gosub assemblefiles
				endif
			endcase
	
			case 7
				fileoffset=0
				gosub mycomputer
			endcase
			case 8
				cd document$
				fileoffset=0
				gosub assemblefiles
			endcase
			case 9
				fileoffset=0
			endcase
			case 10
				cd desktop$
				fileoffset=0
				gosub assemblefiles
			endcase

			case 101: set dir "../" : gosub assemblefiles : fileoffset=0 : endcase
			case 102: dec fileoffset,80 : endcase
			case 103: inc fileoffset,80 : endcase
			case 51: gosub options : endcase
			case default: gosub filehandler: endcase
		endselect
	wait 300
endif	

return

makehotspots:
Text 0,0,"Loading"
	create bitmap 2,700,500
	color=11

	starty=83
	for y=1 to 5
		startx=125
		color=1+10*y
		for x=1 to 5
			ink rgb(color,5,5),0
			box startx,starty,startx+100,starty+80
			inc color
			inc startx,100
			sync
		next x
		inc starty,80
	next y
	ink rgb(255,255,255),0
	starty=startx=0
	set current bitmap 2
	for boxy=0 to 4
		starty=boxy*81
		for boxx=0 to 4
			startx=boxx*100
			color=rgbr(point(startx+125,starty+83))
			for y=0 to 80
				for x=0 to 100
					hotspots(x+startx+125,y+starty+83)=color
				next x
			next y
		next boxx
	next boxy

	set current bitmap 0
return

assemblefiles:
	ink rgb(255,255,255),0
	set current bitmap 1
	cls
	
	startx=25
	starty=0
	x=startx
	y=starty
	count=0
	type=0
	imgnum=0
	filename$=""

	empty checklist
	perform checklist for files	
	totalfiles=checklist quantity()
	find first

	for i=1 to totalfiles
		if get file name$()<>"." and get file name$()<>".."
			filename$=get file name$()
			type=typehandler(filename$)
			select type
				case 1 : imgnum=2 : sprite=11 : endcase
				case 2 : imgnum=3 : sprite=12 : endcase
				case 3 : imgnum=4 : sprite=13 : endcase
				case 4 : imgnum=5 : sprite=14 : endcase
				case 5 : imgnum=6 : sprite=15 : endcase
				case 6 : imgnum=7 : sprite=16 : endcase
				case 7 : imgnum=5 : sprite=14 : endcase
				case 8 : imgnum=49 : sprite=18 : endcase
				case default : imgnum=49 : sprite=18 : endcase
			endselect			
			paste sprite sprite,x,y

			center text x+sprite width(sprite)/2,y+65,filename$
			inc x,100
			inc count
			if count=5
				count=0
				inc y,80
				x=startx
			endif			
		endif
`		if get file type()<>-1
			find next
	`	endif

	next i
	get image 1000,0,0,550,4000
	set current bitmap 0
	filename$=""
	imgnum=0
	sprite=0
	type=0
return

filehandler:
	if hotspots(mousex(),mousey())<>0
		hotspot=hotspots(mousex(),mousey())
		y=(hotspot/10)-1
		x=hotspot-10*(y+1)
		x=x+5*y+5*(fileoffset/80)
		perform checklist for files
		if (x-1)<=checklist quantity()
			find first
			if get file name$()="."
				find next
				find next
			endif
			if x>1
				for i=1 to x-1
					if get file type()<>-1
						find next
					endif
				next i
			endif
			name$=get file name$()
			type=typehandler(get file name$())
			select type
				case 1 : gosub pictures : endcase
				case 2 : gosub handletext : endcase
				case 3 : gosub object : endcase
				case 4 : gosub sound : endcase
				case 5 : gosub video : endcase
				case 6 : if path exist(name$)=1 then cd name$ : gosub assemblefiles : endcase
				case 7 : gosub music : endcase
				case 8 : gosub exe : endcase
			endselect			
			fileoffset=0
		endif
	endif
return

pictures:
	if file exist(name$)
		load image name$,567
		sprite 567,0,0,567

		set sprite 567,1,0
		max#=320.0
		repeat
			if upkey()=1 : if 240>=cy: inc cy : endif : endif
			if downkey()=1 : if cy>=-240 : dec cy : endif : endif

			if leftkey()=1 and 320>=cx then inc cx
			if rightkey()=1 and cx>=-320 then dec cx

			if inkey$()="+" then inc max#,10.0
			if inkey$()="-" then dec max#,10.0
			if max#<=0.0 then max#=10.0
			ink rgb(255,255,255),0
			width#=sprite width(567)
			scale#=max#/width#
			scale sprite 567,scale#*100
			sprite 567,320-(sprite width(567)/2)+cx,240-(sprite height(567)/2)+cy,567
			sync
			scale sprite 567,100
		until returnkey()=1
		delete sprite 567
		delete image 567
	endif
return

object:
	if file exist(name$)
		backdrop on
		load object name$,1
		repeat
			turn object right 1,1
			sync	
		until scancode()<>0
		delete object 1
		backdrop off
	endif
return

video:
	if file exist(name$)
		load animation name$,1
		makewindow(animation width(1)+10,animation height(1)+10,320,240,quickrgb1(color2),quickrgb2(color3))
		play animation 1,320-(animation width(1)/2),240-(animation height(1)/2)
		loop animation 1
		repeat
			sync
		until scancode()<>0
		delete animation 1
	endif
	delete sprite 54
return

sound:
	if file exist(name$)
		if sound exist(1)
			if sound playing(1)
				stop sound 1
			endif
			delete sound 1
		endif
		load sound name$,1
		play sound 1
		loop sound 1
	endif
return

music:
	if file exist(name$)
		if music exist(1)
			if music playing(1)
				stop music 1
			endif
			delete music 1
		endif
		load music name$,1
		play music 1
		loop music 1
	endif
return

exe:
	if file exist(name$)
		execute file name$,"",""
	endif
return
`---------------------------------------------------
handletext:
if file exist(name$)
	open to read 1,name$
	create bitmap 3,1000,50000

set text font "Arial",1
set text size 14
	repeat
		repeat
			`80
			read byte 1,letter
			if letter<>10 and flag=1 then flag=0
			line$=line$+chr$(letter)
			inc count
			total=total+1
			if letter=13
				flag=1
			endif
		until count=79 or (flag=1 and letter=10)

		count=0
		flag=0
		x=file size(name$)
		text 0,lines*text height("|"),line$
		line$=""
		inc lines
	until (total=x)

`----------------------------------------------------------------------------------------------
	get image 50,0,0,1000,lines*text height("|")
delete bitmap 3
	sprite 50,0,4000,50
	repeat
		set current bitmap 0
		ink 0,0
		box 125,80,639,479
		ink rgb(255,255,255),0
		paste sprite 50,125-offsetx,83-offsety
		gosub makeui
		if upkey()=1 then dec offsety,100
		if downkey()=1 then inc offsety,100
		if offsety<0 then offsety=0
`		if rightkey()=1 then inc offsetx,5
`		if leftkey()=1 then dec offsetx,5
		if offsetx<0 then offsetx=0
		sync
		cls
	until returnkey()=1	
	close file 1
	cls
endif
return

makeui:
	`c:
	sprite 3,150,5,8
	`d:
	sprite 4,250,5,9
	`a:
	sprite 5,350,5,10
	`e:
	sprite 6,450,5,11
	i=100
	`My Comp
	sprite 7,1,110+i,14
	`MY DOCUMENTS
	sprite 8,1,140+i,15
	`CONTROL PANEL
	sprite 9,1,170+i,16
	`DESKTOP
	sprite 10,1,200+i,17
	`back arrow
	sprite 101,600,71,18
	`up arrow
	sprite 102,628,71,19
	`down arrow
	sprite 103,628,468,20
	`options
	sprite 51,560,50,51
	paste sprite 1000,0,0
return

mycomputer:
	dim drive$(5,5)
	x=50
	y=0
	x2=1
	y2=1
	count=0
	ink 0,0
	set current bitmap 1
	cls
	ink rgb(255,255,255),0
	sprite 105,640,480,48
	if count=5
		y=y+80
		count=0
		x=50
		x2=0
		inc y2
	endif
	paste sprite 105,x,y
	inc count
	center text x+sprite width(105)/2,y+sprite height(105),"A:"
	inc x,100
	drive$(x2,y2)=chr$(i)+":"
	inc x2
	
	for i=98 to 123
		if path exist(chr$(i)+":")
			sprite 8+i,640,480,48
			if count=5
				y=y+80
				count=0
				x=50
				x2=0
				inc y2
			endif
			paste sprite 8+i,x,y
			inc count
			center text x+sprite width(8+i)/2,y+sprite height(8+i),upper$(chr$(i))+":"
			inc x,100
			drive$(x2,y2)=chr$(i)+":"
			inc x2
		endif
	next i
get image 1000,0,0,550,4000
set current bitmap 0
gosub mycomploop
return

mycomploop:
sprite 1,1000,0,1000
set current bitmap 0
	repeat
		ink 0,0
		box 100,83,639,479
		ink rgb(255,255,255),0
		paste sprite 1,125,83		
		gosub makeui
		if mouseclick()=1
			if hotspots(mousex(),mousey())<>0
				hotspot=hotspots(mousex(),mousey())
				cy=(hotspot/10)
				cx=hotspot-10*(cy)
				if path exist(drive$(cx,cy))
					cd drive$(cx,cy)
					exitflag=1
				endif
			endif
		endif
		sync
	until exitflag=1
	exitflag=0
	cls
	gosub assemblefiles
return

options:
	makewindow(166,166,320,240,quickrgb1(color2),quickrgb2(color3))
	ink rgb(5,5,5),0
	text 245,163,"Primary Color"
	text 245,203,"Button Color 1"
	text 245,243,"Button Color 2"
	text 245,283,"Background Color"
	ink rgb(5,5,5),0
for x=0 to 3
	ink 0,0
	box 265+30*x,178,285+30*x,198
	box 265+30*x,218,285+30*x,238
	box 265+30*x,258,285+30*x,278
	box 265+30*x,298,285+30*x,318

	ink maincolor(x+1),0
	box 267+30*x,180,283+30*x,196
	ink quickrgb1(x+1),0
	box 267+30*x,220,283+30*x,236
	ink quickrgb2(x+1),0
	box 267+30*x,260,283+30*x,276
	ink background(x+1),0
	box 267+30*x,300,283+30*x,316
next x
if bitmap exist(3)<>1 then create bitmap 3,640,480
set current bitmap 3
cls

set text font "Arial",1
set text size 24
ink rgb(5,5,5),0
center text 320,240,"X"
get image 82,310,230,340,260
delete bitmap 3

sync
gosub optionsloop
return

optionsloop:
set current bitmap 0
	repeat
		if mouseclick()=1
			repeat
				sync
			until mouseclick()=0
			color=point(mousex(),mousey())
`Changes the main color
			if 198>=mousey() and mousey()>=178
				select color
					case maincolor(1) : color1=1 : endcase
					case maincolor(2) : color1=2 : endcase
					case maincolor(3) : color1=3 : endcase
					case maincolor(4) : color1=4 : endcase
				endselect
			endif
`Changes Quickrgb1
			if 236>=mousey() and mousey()>=220
				select color
					case quickrgb1(1) : color2=1 : endcase
					case quickrgb1(2) : color2=2 : endcase
					case quickrgb1(3) : color2=3 : endcase
					case quickrgb1(4) : color2=4 : endcase
				endselect
			endif
`Changes Quickrgb2
			if 276>=mousey() and mousey()>=260
				select color
					case quickrgb2(1) : color3=1 : endcase
					case quickrgb2(2) : color3=2 : endcase
					case quickrgb2(3) : color3=3 : endcase
					case quickrgb2(4) : color3=4 : endcase
				endselect
			endif		

		endif
	ink rgb(255,255,255),0
	text 600,500,str$(color)
	sprite 82,235+30*color1,167,82
	sprite 83,235+30*color2,207,82
	sprite 84,235+30*color3,247,82


	sync
	until returnkey()=1
	cls
	delete sprite 54
	delete sprite 82
	delete sprite 83
	delete sprite 84

	gosub generategui
	gosub makebuttons
return

makebuttons:

	`FOLDER BUTTON
	ink rgb(227,217,91),0
	box 320,240,380,285
	box 320,225,350,285
	fill(320,225,380,285,350,240,16,rgb(227,217,91))
	get image 7,320,225,380,285
	cls
	
	`PICTURE BUTTON
	ink rgb(127,127,127),0
	box 320,240,380,300
	ink rgb(227,217,91),0
	box 325,245,375,295
	set text size 45
	ink rgb(5,5,5),0
	text 337,247,"P"
	get image 2,320,240,380,300
	cls
		
	`TEXT BUTTON
	ink rgb(127,127,127),0
	box 320,240,380,300
	ink rgb(230,230,255),0
	box 330,245,370,295
	ink rgb(5,5,5),0
	line 335,255,365,255
	line 335,270,365,270
	line 335,285,365,285
	get image 3,320,240,380,300
	cls
		
	`OBJECT BUTTON
	ink rgb(127,127,127),0
	box 320,240,380,300
	ink rgb(227,217,91),0
	box 325,245,375,295
	set text size 45
	ink rgb(5,5,5),0
	text 337,247,"O"
	get image 4,320,240,380,300
	cls
		
	`SOUND BUTTON
	ink rgb(127,127,127),0
	box 320,240,380,300
	ink rgb(5,5,5),0
	box 325,245,375,295
	ink rgb(230,230,255),0
	x=325
	x2=325
	y2#=270
	for i=1 to 50
		y#=sin(20*i)*20+270
		line x,y#,x2,y2#
		x2=x
		y2#=y#
		inc x,1
	next x
	get image 5,320,240,380,300
	cls

	`VIDEO BUTTON
	ink rgb(127,127,127),0
	box 320,240,380,300
	ink rgb(227,217,91),0
	box 325,245,375,295
	set text size 45
	ink rgb(5,5,5),0
	text 337,247,"V"
	get image 6,320,240,380,300
	cls

	`DRIVE BUTTONS
	ink quickrgb1(color2),0
	box 100,100,400,166
	ink quickrgb2(color3),0

	box 105,105,195,128
	box 205,105,295,128
	box 305,105,395,128

	box 105,138,195,161
	box 205,138,295,161
	box 305,138,395,161

	ink rgb(5,5,5),0
	set text size 24
	center text 150,108,"C:"
	center text 250,108,"D:"
	center text 350,108,"A:"

	center text 150,141,"E:"
	center text 250,141,"F:"
	center text 350,141,"G:"

	get image 8,100,100,200,133
	get image 9,200,100,300,133
	get image 10,300,100,400,133

	get image 11,100,133,200,166
	get image 12,200,133,300,166
	get image 13,300,133,400,166
	cls

	`QUICK BUTTONS
	ink quickrgb1(color2),0
	box 100,40,200,160
	ink quickrgb2(color3),0
	box 100,42,200,68
	box 100,72,200,98
	box 100,102,200,128
	box 100,132,200,158

	set text size 16
	ink rgb(5,5,5),0
	center text 150,45,"My Computer"
	center text 150,75,"My Documents"
	center text 150,105,"Control Panel"
	center text 150,135,"Desktop"

	get image 14,100,40,200,70
	get image 15,100,70,200,100
	get image 16,100,100,200,130
	get image 17,100,130,200,160
	cls

	`OPTIONS BUTTON
	set text font "Arial",1
	set text size 12
	ink quickrgb1(color2),0
	box 0,0,51,15
	ink quickrgb2(color3),0
	box 2,2,48,12
	ink rgb(5,5,5),0
	center text 25,2,"Options"
	get image 51,0,0,51,15
`----------------------------------------------------------------------------------------------

	`<- BUTTON
set text font "arial",2
	ink rgb(100,100,100),0
	box 320,240,332,252
	ink rgb(127,127,127),0
	box 322,242,330,250
	set text size 12
	set text to bold
	ink rgb(0,127,0),0
	Center Text 326,241,chr$(215)
	get image 18,320,240,332,252
	cls

	
	`/ Button
	ink rgb(100,100,100),0
	box 320,240,332,252
	ink rgb(127,127,127),0
	box 322,242,330,250
	set text size 12
	`set text to bold
	ink rgb(5,5,5),0
	Center Text 327,241,chr$(217)
	get image 19,320,240,332,252
	cls
		
	`/ BUTTON	
	ink rgb(100,100,100),0
	box 320,240,332,252
	ink rgb(127,127,127),0
	box 322,242,330,250
	set text size 12
	set text font "Arial",2
	ink rgb(5,5,5),0
	Center Text 327,241,chr$(218)
	get image 20,320,240,332,252
	cls

	`EXE BUTTON
	set text font "Arial",2
	ink rgb(127,127,127),0
	box 320,240,380,300
	ink rgb(5,5,255),0
	box 325,245,375,295
	set text size 45
	ink rgb(5,255,5),0
	text 337,247,chr$(216)
	get image 49,320,240,380,300
	cls
`-------------------------------------------------------------------------------------------------------------------
	`DRIVE ICON
	ink rgb(127,127,127),0
	box 320,240,380,300
	ink rgb(255,255,255),0
	box 325,245,375,295
	set text font "Arial",2
	set text size 72
	ink 0,0
	text 322,225,chr$(59)
	get image 48,320,240,380,320
	cls
`---------------------------------------------------------------------------------------------------------
	`Button Highlights
	create bitmap 1,640,4000	
	ink 0,rgb(255,255,255)
	cls
	ink 0,0
	level#=250
	count#=480*640*(level#/100)
	for i=1 to count#
		dot rnd(640),rnd(480)
	next i
`quick drive highlights	
	get image 21,0,0,100,33
`quick button highlights
	get image 22,320,240,420,270
`icon highlights
	get image 23,40,60,100,120
`small highlights
	get image 24,10,38,22,50
	cls
set current bitmap 0
	
	`MOUSE COLLISION BOX
	ink 0,rgb(11,11,11)
	cls
	get image 25,320,240,322,242
	ink rgb(255,255,255),0
	set text size 12
return

function distance#(x,y,cx,cy)
	r#=sqrt(abs(((cx-x)*(cx-x)+(cy-y)*(cy-y))))
endfunction r#



function fill(startx,starty,endx,endy,cx,cy,r,color)
ink color,0
for y=starty to endy
	for x=startx to endx
		if distance#(x,y,cx,cy)<=r
			dot x,y
		endif
	next x
next y
endfunction



`CREATED BY: MadrMan March 5,2006
function getreg$(path$,key$,drive$)
c=0
a=0
d=0
aa=0
string$=""
stringb$=""
param$=""
if file exist(drive$+":reg.reg") then delete file drive$+":reg.reg"
reg$="/e "+drive$+":reg.reg "+chr$(34)+path$+chr$(34)
execute file "regedit.exe",reg$,""

repeat : a=a+1 : until file open(a)=0
length=len(chr$(34)+key$+chr$(34))
`----------------------------------------------------------------------------
repeat : c=c+1 : until file exist(drive$+":reg.reg")=1 or c=1000
if c=1000 then exitfunction
set dir drive$+":"
open to read a,"reg.reg"

repeat
	read string a,string$

	if mid$(string$,1)=mid$(key$,1)
		repeat
			read string 1,stringb$
			string$=string$+stringb$
			d=d+1
		until d>length or string$=key$ or mid$(key$,d)<>mid$(string$,d)
		d=0
	   if key$=string$
	      repeat
	         read string a,string$
	         if aa=2 and string$<>chr$(34) then param$=param$+string$
	`         if string$=chr$(34) then a=1
	         if string$=chr$(34) then aa=aa+1
	      until aa=4
	   endif
	endif

until file end(a)=1 or lower$(left$(string$,length))=lower$(chr$(34)+key$+chr$(34)) or param$<>""

close file a
`para$=right$(string$,len(string$)-length)
if file exist(drive$+":reg.reg") 
	delete file drive$+":reg.reg"
endif
endfunction param$




function typehandler(file$)
	remstart
	pics
		bmp
		png
		jpg
	text
		txt
		doc
	object
		3ds
		x
	sound
		xm
		wma
		wav
		mp3
	video
		avi
		wmv
		mpg
		mpeg
	remend
	dim extension$(20)
`1
	extension$(1)=".bmp"
	extension$(2)=".png"
	extension$(3)=".jpg"
`2
	extension$(0)=".dba"
	extension$(4)=".txt"
	extension$(5)=".doc"
	extension$(19)=".ini"
`3
	extension$(6)=".3ds"
	extension$(7)=".x"
`4
	extension$(8)=".xm"
	extension$(9)=".wma"
	extension$(10)=".wav"
	extension$(11)=".mp3"
`5
	extension$(12)=".avi"
	extension$(13)=".wmv"
	extension$(14)=".mpg"
	extension$(15)="mpeg"

`7
	extension$(16)=".mid"
`8
	extension$(17)=".exe"
`9
	extension$(18)=".lnk"

	ext$=right$(file$,4)
	select lower$(ext$)
		case extension$(0) : type=2 : endcase
		case extension$(1) : type=1 : endcase
		case extension$(2) : type=1 : endcase
		case extension$(3) : type=1 : endcase
		case extension$(4) : type=2 : endcase
		case extension$(5) : type=8 : endcase
		case extension$(6) : type=3 : endcase
		case extension$(9) : type=4 : endcase
		case extension$(10) : type=4 : endcase
		case extension$(11) : type=4 : endcase
		case extension$(12) : type=5 : endcase
		case extension$(13) : type=5 : endcase
		case extension$(14) : type=5 : endcase
		case extension$(15) : type=5 : endcase
		case extension$(16) :  type=7 : endcase
		case extension$(17) : type=8 : endcase
		case extension$(18) : type=8 : endcase
		case extension$(19) : type=2 : endcase
		case default : type=0 : endcase
	endselect

	if lower$(right$(ext$,2))=extension$(7) then type=3
	if lower$(right$(ext$,3))=extension$(8) then type=7
	if type=0
		find first
		while get file name$()<>file$ and get file type()>-1
			find next
		endwhile
		if get file type()<>-1
			if get file type()=1
				type=6
			endif
		endif

	endif
	if type=0 then type=8

endfunction type

function makewindow(width,height,x,y,color1,color2)
	create bitmap 31,width+1,height+1
	ink color1,color2
	cls
	box 3,3,width-3,height-3
	get image 54,0,0,width,height
	set current bitmap 0
	sprite 54,1000,0,54
	paste sprite 54,x-(width/2),y-(height/2)
	delete bitmap 31
endfunction

function backspacekey()
endfunction keystate(14)


function wrap(number,start,end)
	repeat
		if number>end then dec number,end
		if number<start then inc number,end
	until number<=end and number>=start
endfunction number

function calcday$()
	dday=3
	day=val(left$(right$(get date$(),5),2))
	month=val(left$(get date$(),2))
	year=val(right$(get date$(),2))
	dim monthdata(12,2)
	if int(year/4)=year/4
		monthdata(1)=4
		monthdata(2)=1
	else
		monthdata(1)=3
		monthdata(2)=0
	endif
		monthdata(3)=0
		monthdata(4)=4
		monthdata(5)=9
		monthdata(6)=6
		monthdata(7)=11
		monthdata(8)=8
		monthdata(9)=5
		monthdata(10)=10
		monthdata(11)=7
		monthdata(12)=12
		year#=year
		q#=int(year#/12)
		r=((year#/12)-q)*12
		r#=r
		s=r#/4
		t=q+r+s
		`Figures out what day of the week dday is
		dday=wrap(dday+t,1,7)
		day=day-monthdata(month)
		day#=day
		x#=int(day#/7)
		diff1#=day#-x#*7
		diff1=diff1#
		wkday=wrap(diff1+dday,1,7)
		select wkday
			case 1: wkday$="Sunday" : endcase
			case 2: wkday$="Monday" : endcase
			case 3: wkday$="Tuesday" : endcase
			case 4: wkday$="Wednesday" : endcase
			case 5: wkday$="Thursday" : endcase
			case 6: wkday$="Friday" : endcase
			case 7: wkday$="Saturday" : endcase
		endselect
		undim monthdata(12)
endfunction wkday$

HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders

repeat : c=c+1 : until file exist(drive$+":\reg.reg")=1 or c=1000
if c=1000 then exitfunction

if file exist(drive$+":\reg.reg") = 0 then exitfunction

set display mode 1024,768,32

dim WIN_X(1)         : `File browser window location, 0=location,1=mouse offset
dim WIN_Y(1)         : `File browser window location, 0=location,1=mouse offset
dim WIN_WIDTH(1)     : `Width of file window, 0=width,1=mouse offset
dim WIN_HEIGHT(1)    : `height of file window, excluding title and status bars,0=width,1=mouse offset
dim FLAGS(4)         : `1=mouse, 2=titleMove, 3=scrollbarMove, 4=resize
dim THUMB(1)         : `scrollbar thumb position (local position)
dim MOUSE(3)         : `0=mouse click count, 1=timestamp of last click, 2=delay allowed for clicks
dim _FData(2)        : `0=file count, 1=file view offset, 2=current selected file, 3=click flag
dim TEMP#(0)         : `whatever temp value I need to hold globally
dim files$(0,3)      : `1=file name, 2=file size, 3=folder
dim IMAGE(1)         : `0=original width, 1=original height
dim imgExt$(3)       : `image extensions
dim sfxExt$(3)       : `media extensions
dim MZFix(1)         : `fix for the mousemovez command
dim ICON_FOLDER(0)   : `image number for folder icon
dim ICON_SFX(2)      : `image number for play/pause button icons,0=play,1=pause,2=current
dim FILE_TYPE(0)     : `1=image, 2=sfx, 3=video
_FData(0) = 0        : `file count
_FData(1) = 0        : `file view offset
_FData(2) = -1       : `currently selected file
THUMB(0) = 0         : `scrollbar thumb position (local position)
MOUSE(2) = 300       : `delay allowed for double clicks (milliseconds)
WIN_X(0,0) = 200     : `File browser window location
WIN_Y(0,0) = 100     : `File browser window location
WIN_WIDTH(0) = 400   : `Width of file window
WIN_HEIGHT(0) = 160  : `height of file window, excluding title and status bars
ICON_FOLDER(0)=1     : `image number for folder icon
ICON_SFX(0)=2        : `image number for play button icon
ICON_SFX(1)=3        : `image number for pause button icon

rem supported image extensions
imgExt$(1) = ".jpg" : imgExt$(2) = ".png" : imgExt$(3) = ".bmp"
rem support sound extensions
sfxExt$(1) = ".wav" : sfxExt$(2) = ".mp3" : sfxExt$(3) = ".wma"

sprite 1,1,1,99      : `create default sprite for image preview

gosub getImages


rem default directory
setDir("C:\Documents and Settings\Phaelax\My Documents")
`setDir("G:\")

lastFile$ = ""

sync on

set text font "Arial", 1
set text size 14

DO
   cls
   selectedFileIndex = drawFileList(WIN_X(0),WIN_Y(0),WIN_WIDTH(0),WIN_HEIGHT(0),_FData(1))
   if selectedFileIndex > -1 then lastFile$ = files$(selectedFileIndex,1)

   set cursor 1,1
   print lastFile$

   sync
LOOP



REM **************************************************
REM Set the current directory
REM **************************************************
function setDir(path$)
   rem clear current file list
   r = _FData(0)
   undim files$(r,3)

   rem set current path and get files
   set dir path$
   perform checklist for files

   _FData(0) = checklist quantity() : r = _FData(0)
   _FData(1) = 0
   dim files$(r,3)

   rem fill array with file names and dates
   find first
   for i = 1 to _FData(0)
      files$(i,1) = get file name$()
      files$(i,2) = get file date$()
      files$(i,3) = str$(get file type())
      find next
   next i
   _FData(2) = -1

endfunction



REM **************************************************
REM Displays and handles file list and preview window
REM Returns the index of the currently selected file
REM or -1 if no selection is made
REM **************************************************
function drawFileList(x,y,width,height,offset)
   MIN_WIDTH = 400                                          : `minimum width for window
   MIN_HEIGHT = 160                                         : `minimum height for window
   if width < MIN_WIDTH then width = MIN_WIDTH
   if height < MIN_HEIGHT then height = MIN_HEIGHT
   _titleX = x                                              : `title bar X-coord (also starting window location)
   _titleY = y                                              : `title bar Y-coord (also starting window location)
   _titleHeight = 16                                        : `title bar height
   _listX = _titleX                                         : `X location to display list at
   _listY = _titleY + _titleHeight+1                        : `Y location to display list at
   _lineHeight = 16                                         : `display height of each row
   _listWidth = width/2                                     : `display width of each row
   _listHeight = height                                     : `total display height for list view
   _listOffset = offset                                     : `file number in list to start display from
   _thumbWidth = 16                                         : `scrollbar thumb width
   _thumbHeight = 16                                        : `scrollbar thumb height
   _thumbX = _listX + _listWidth                            : `scrollbar thumb X position
   _thumbY = _listY + THUMB(0)                              : `scrollbar thumb Y position
   _previewX = _thumbX + _thumbWidth                        : `preview window X position
   _previewY = _listY                                       : `preview window Y position
   _previewWidth = width/2 - _thumbWidth                    : `preview window width
   _previewHeight = _listHeight                             : `preview window height
   _previewSize = getMin(_previewWidth,_previewHeight)-48   : `dimension of image preview
   _showCount = height/_titleHeight                         : `number of rows to display
   _titleWidth = width                                      : `width of title bar (also width of entire window)
   _statusX = _titleX                                       : `X location of status bar
   _statusY = _listY+_listHeight                            : `Y location of status bar
   _statusWidth = _titleWidth                               : `width of status bar
   _statusHeight = 18                                       : `height of status bar
   _backgroundColor = rgb(177,194,207)                      : `background color for list and preview windows
   _foregroundColor = rgb(255,255,255)                      : `foreground color for list and preview windows
   _highlightBgColor1 = rgb(185,199,212)                    : `background color of highlighted row
   _highlightBgColor2 = rgb(144,165,187)                    : `background color of highlighted row
   _titleFontColor = rgb(22,69,110)                         : `text color for title bar

   SELECTED_FILE_INDEX = -1

   rem reset mouse flag
   if mouseclick() = 0 then FLAGS(1) = 0 : MOUSE(3) = 0

   if MOUSE(1) + MOUSE(2) < timer() then MOUSE(0) = 0
   if mouseclick() = 1 and MOUSE(3) = 0
      MOUSE(3) = 1
      MOUSE(0) = MOUSE(0)+1
      MOUSE(1) = timer()
   endif

   rem display list
   ink _backgroundColor,0
   box _listX, _listY, (_listX+_listWidth), (_listY+_listHeight)
   ink _foregroundColor,0

   rem loop through files currently displayed in view
   max = _listOffset+_showCount+1
   if max > _FData(0) then max = _FData(0)
   for i = _listOffset+1 to max
      ly = _listY+(i-_listOffset-1)*_lineHeight
      rem if currently selected file
      if i = _FData(2)
         ink _highlightBackColor,0
         gradientVerticalBox(_listX, ly, _listX+_listWidth, ly+_lineHeight,_highlightBgColor1,_highlightBgColor2)
         ink _foregroundColor,0
      endif
      if files$(i,3) = "1" then paste image ICON_FOLDER(0),_listX+2,ly+3, 1
      text 16+_listX,ly,files$(i,1)

      rem file selection
      if FLAGS(1)=0 AND mouseWithin(_listX,ly,_listX+_listWidth,ly+_lineHeight)
         if mouseclick() = 1
            FLAGS(1) = 1
            SELECTED_FILE_INDEX = i
            _FData(2) = SELECTED_FILE_INDEX
            rem new selection so delete any existing image preview
            if image exist(99)
               delete image 99
            endif
            rem check if this selected file is an image
            if isImage(files$(i,1))
               FILE_TYPE(0) = 1
               load image get dir$()+"\"+files$(i,1), 99
               sprite 1,_previewX+4,_previewY+10,99
               set sprite 1,1,0
               IMAGE(0) = sprite width(1)
               IMAGE(1) = sprite height(1)
               scaleSprite(1, _previewSize)
            endif
            rem check if this selected file is a sound file
            if isSound(files$(i,1))
               FILE_TYPE(0) = 2
               sprite 1,_previewX+_previewWidth/2-5, _previewY+_previewSize/2-5,ICON_SFX(0)
               size sprite 1, 10,10
               if sound exist(1) then delete sound 1
               ICON_SFX(2) = ICON_SFX(0)
            endif
         endif
         rem double click to change directories
         if MOUSE(0) > 1
            MOUSE(0) = 0
            if files$(i,3) = "1" then setDir(get dir$()+"\"+files$(i,1)) : exitfunction -1
         endif
      endif

   next i

   rem draw scrollbar track
   gradientHorizontalBox(_thumbX,_listY,_thumbX+_thumbWidth-8,_listY+_listHeight, rgb(82,112,133), _backgroundColor)
   gradientHorizontalBox(_thumbX+8,_listY,_thumbX+_thumbWidth,_listY+_listHeight, _backgroundColor,rgb(82,112,133))

   rem draw scrollbar thumb
   gradientHorizontalBox(_thumbX, _thumbY, (_thumbX+_thumbWidth)-8, _thumbY+_thumbHeight, rgb(51,63,72), rgb(89,96,101))
   gradientHorizontalBox(_thumbX+8, _thumbY, (_thumbX+_thumbWidth), _thumbY+_thumbHeight, rgb(89,96,101),rgb(51,63,72))

   rem draw preview window
   ink _backgroundColor,0
   box _previewX+1, _previewY, (_previewX+_previewWidth), (_previewY+_previewHeight)
   ink 0,0
   rem if a file is selected, display preview information
   if _FData(2) > -1
      if FILE_TYPE(0) = 1
         sx = (_previewX + _previewWidth/2) - (sprite width(1)/2)
         sy = _previewY + (_previewSize-sprite height(1))/2
         sprite 1,sx,sy,99
      endif
      if FILE_TYPE(0) = 2
         sx = _previewX+_previewWidth/2-5
         sy = _previewY+_previewSize/2-5
         sprite 1,sx,sy,ICON_SFX(2)

         if mouseclick() = 1 AND mouseWithin(sprite x(1),sprite y(1),sprite x(1)+10,sprite y(1)+10) AND FLAGS(1) = 0
            FLAGS(1) = 1
            if sound exist(1)
               if sound playing(1)
                  if sound paused(1)
                     resume sound 1
                     ICON_SFX(2) = ICON_SFX(1)
                  else
                     pause sound 1
                     ICON_SFX(2) = ICON_SFX(0)
                  endif
               endif
            else
               file$ =  get dir$()+"\"+files$(_FData(2),1)
               load sound file$,1
               play sound 1
               ICON_SFX(2) = ICON_SFX(1)
            endif
         endif
      endif
      text _previewX+4, _previewY+_previewSize+2, files$(_FData(2),1)
      text _previewX+4, _previewY+_previewSize+14, "Date: "+files$(_FData(2),2)
      fs$ =  bytesToKB$(file size(get dir$()+"\"+files$(_FData(2),1)))
      text _previewX+4, _previewY+_previewSize+26, "Size: "+fs$+"KB"
   endif


   rem draw title bar
   gradientVerticalBox(_titleX, _titleY, (_titleX+_titleWidth), (_titleY+_titleHeight),rgb(132,195,248),rgb(44,103,153))
   title$ = get dir$()+"\"+files$(_FData(2),1)
   ink _titleFontColor,0
   text _titleX+2, _titleY, title$

   rem draw status bar
   gradientVerticalBox(_statusX, _statusY, (_statusX+_statusWidth), (_statusY+_statusHeight),rgb(76,94,107),_backgroundColor)
   ink 0,0
   text _statusX+8, _statusY+2, str$(_FData(0))+" objects"

   rem draw window outline
   ink rgb(34,51,66),0
   box _titleX-1,_titleY-1,_titleX+_titleWidth+1,_titleY-1
   box (_titleX-1), (_statusY+_statusHeight+1), (_titleX+_titleWidth+1), (_statusY+_statusHeight+1)
   box x-1,_titleY,x-1,_statusY+_statusHeight
   box x+_titleWidth+1,_titleY,x+_titleWidth+1,_statusY+_statusHeight


   rem ----------------------------
   rem   drag window by title bar
   rem ----------------------------
   if mouseclick() = 1 AND mouseWithin(_titleX, _titleY, (_titleX+_titleWidth), (_titleY+_titleHeight)) AND FLAGS(1) = 0
      FLAGS(1) = 1
      FLAGS(2) = 1
      WIN_X(1) = WIN_X(0) - mousex()
      WIN_Y(1) = WIN_Y(0) - mousey()
   endif
   if FLAGS(2) = 1
      if mouseclick() = 0 then FLAGS(2) = 0
      WIN_X(0) = mousex() +  WIN_X(1)
      WIN_Y(0) = mousey() +  WIN_Y(1)
      if WIN_X(0) < 0 then WIN_X(0) = 0 : WIN_X(1) = WIN_X(0) - mousex()
      if WIN_Y(0) < 0 then WIN_Y(0) = 0 : WIN_Y(1) = WIN_Y(0) - mousey()
      if WIN_X(0)+_titleWidth > screen width()-1 then WIN_X(0) = screen width()-1 - _titleWidth  : WIN_X(1) = WIN_X(0) - mousex()
      h = (_statusY+_statusHeight) - _titleY
      if WIN_Y(0)+h > screen height()-1 then WIN_Y(0) = screen height()-1 - h  : WIN_Y(1) = WIN_Y(0) - mousey()
   endif

   rem ----------------------------
   rem      scrollbar control
   rem ----------------------------
   direction = getMouseScrollDirection()
   if direction > 0 then setThumbPos(THUMB(0) + 1,_listHeight, _thumbHeight, showCount)
   if direction < 0 then setThumbPos(THUMB(0) - 1,_listHeight, _thumbHeight, showCount)
   if mouseclick() = 1 AND mouseWithin(_thumbX, _thumbY, _thumbX+_thumbWidth,_thumbY+_thumbHeight) AND FLAGS(1) = 0
      FLAGS(1) = 1
      FLAGS(3) = 1
      THUMB(1) = _thumbY - mousey()
   endif
   if FLAGS(3) = 1
      if mouseclick() = 0 then FLAGS(3) = 0
      setThumbPos((mousey() - _listY) + THUMB(1),_listHeight, _thumbHeight, _showCount)
   endif

   rem ----------------------------
   rem      resize window
   rem ----------------------------
   rem draw resize box
   a = _titleX + _titleWidth
   b = _statusY + _statusHeight
   ink 0,0
   line a-3,b+1,a+1,b-3
   line a-7,b+1,a+1,b-7
   line a-11,b+1,a+1,b-11

   if mouseclick() = 1 AND mouseWithin(a-10, b-10, a, b) AND FLAGS(1) = 0
      FLAGS(1) = 1
      FLAGS(4) = 1
      WIN_WIDTH(1) = _titleX + _titleWidth - mousex()
      WIN_HEIGHT(1) = _titleY + _listHeight - mousey()
      TEMP#(0) = (0.0 + THUMB(0))/_listHeight
   endif
   if FLAGS(4) = 1
      if mouseclick() = 0 then FLAGS(4) = 0
      WIN_WIDTH(0) = (mousex() - _titleX) + WIN_WIDTH(1)
      WIN_HEIGHT(0) = (mousey() - _titleY) + WIN_HEIGHT(1)
      setThumbPos(int(TEMP#(0) * _listHeight),_listHeight,_thumbHeight,_showCount)
      if _FData(2) > -1 and FILE_TYPE(0) = 1
         scaleSprite(1, _previewSize)
      endif
   endif

endfunction SELECTED_FILE_INDEX





REM **************************************************
REM Get direction of mouse wheel scroll
REM **************************************************
function getMouseScrollDirection()
   z = mousemovez()
   if z < MZFix(1) then MZFix(1) = z : exitfunction 1
   if z > MZFix(1) then MZFix(1) = z : exitfunction -1
endfunction 0

REM **************************************************
REM Safely sets the scrollbar thumb position
REM **************************************************
function setThumbPos(pos, _listHeight, _thumbHeight, showCount)
   THUMB(0) = pos
   if THUMB(0) < 0 then THUMB(0) = 0
   if THUMB(0) > _listHeight-_thumbHeight then THUMB(0) = _listHeight-_thumbHeight
   H# = _listHeight-_thumbHeight
   T# = THUMB(0) / H#
   FT = (_FData(0) - showCount)
   _FData(1) = FT*T#
endfunction

REM **************************************************
REM Scales a sprite so the largest dimension matches
REM 'size' while maintaining the correct aspect ratio
REM **************************************************
function scaleSprite(sprNo, size)
   ratio# = IMAGE(1) / (0.0+IMAGE(0))
   rem if width is greater than height
   if IMAGE(0) > IMAGE(1)
      size sprite sprNo, size, size*ratio#
   else
      size sprite sprNo, size/ratio#, size
   endif
endfunction

REM **************************************************
REM Returns true if file name has an image extension
REM **************************************************
function isImage(file$)
   ext$ = lower$(right$(file$,4))
   for j = 1 to 3
      if ext$ = imgExt$(j) then exitfunction 1
   next j
endfunction 0

REM **************************************************
REM Returns true if file name has a sound extension
REM **************************************************
function isSound(file$)
   ext$ = lower$(right$(file$,4))
   for j = 1 to 3
      if ext$ = sfxExt$(j) then exitfunction 1
   next j
endfunction

REM **************************************************
REM Converts bytes into KB limited to 2 decimals
REM **************************************************
function bytesToKB$(b)
   k$ = str$( b/1024.0)
   for j = len(k$) to 1 step -1
      if mid$(k$,j) = "."
         k$ = left$(k$,j+2)
         exitfunction k$
      endif
   next j
endfunction k$

REM **************************************************
REM Draws a box with a horizontal gradient
REM **************************************************
function gradientHorizontalBox(left,top,right,bottom,color1,color2)
   width#=right-left
   for x=left to right-1
      t# = (x-left) / width#
      ink getTransitionalColor(color1,color2,t#),0
      box x,top,x+1,bottom
   next x
endfunction

REM **************************************************
REM Draws a box with a vertical gradient
REM **************************************************
function gradientVerticalBox(left,top,right,bottom,color1,color2)
   height#=bottom-top
   for y=top to bottom-1
      t# = (y-top) / height#
      ink getTransitionalColor(color1,color2,t#),0
      box left,y,right,y+1
   next y
endfunction

REM **************************************************
REM Returns a linear interpolated color between base
REM color and target color. Percent ranges from 0 to 1
REM **************************************************
function getTransitionalColor(base, target, percent#)
   br = rgbr(base)
   bg = rgbg(base)
   bb = rgbb(base)
   tr = rgbr(target)
   tg = rgbg(target)
   tb = rgbb(target)
   tr = br + (tr-br)*percent#
   tg = bg + (tg-bg)*percent#
   tb = bb + (tb-bb)*percent#
   color = rgb(tr,tg,tb)
endfunction color

REM **************************************************
REM Checks to see if mouse is within the specified
REM coordinates
REM **************************************************
function mouseWithin(x1,y1,x2,y2)
   if mousex() > x1 and mousex() < x2 and mousey() > y1 and mousey() < y2 then exitfunction 1
endfunction 0

REM **************************************************
REM Get largest of two values
REM **************************************************
function getMax(x,y)
   if x > y then exitfunction x
endfunction y

REM **************************************************
REM Get smallest of two values
REM **************************************************
function getMin(x,y)
   if x > y then exitfunction y
endfunction x


getImages:
   rem -------- draw folder icon --------
   ink rgb(175,171,104),0
   restore Folder
   for y = 1 to 10
      for x = 1 to 12
         read z
         if z = 1 then dot x,y
      next x
   next y
   get image ICON_FOLDER(0),1,1,12,10,1
   rem -------- draw play button icon --------
   cls
   ink rgb(255,0,0),0
   restore PlayButton
   for y = 1 to 11
      for x = 1 to 12
         read z
         if z = 1 then dot x,y
      next x
   next y
   get image ICON_SFX(0),1,1,12,12,1
   rem -------- pause button icon --------
   cls
   ink rgb(255,0,0),0
   box 1,1,3,10
   box 8,1,10,10
   get image ICON_SFX(1),1,1,11,10
RETURN

Folder:
data 0,1,1,1,0,0,0,0,0,0,0,0
data 1,1,1,1,1,0,0,0,0,0,0,0
data 1,1,1,1,1,1,1,1,1,1,1,0
data 1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1
data 0,1,1,1,1,1,1,1,1,1,1,0

PlayButton:
data 1,1,0,0,0,0,0,0,0,0,0,0
data 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
data 1,1,1,1,1,1,1,1,0,0,0,0
data 1,1,1,1,1,1,1,1,1,1,0,0
data 1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,0,0
data 1,1,1,1,1,1,1,1,0,0,0,0
data 1,1,1,1,1,1,0,0,0,0,0,0
data 1,1,1,1,0,0,0,0,0,0,0,0
data 1,1,0,0,0,0,0,0,0,0,0,0