Sound, Music & MIDI Collection 2/SMMVOL2.bin/DEMO/PRG/CIRCLES.ZIP/CI_MAIN.DIX/00017_BROWSE.ls

Text File | 1995-05-01 | 23.0 KB | 760 lines

on initfl
  global fl_play, fl_stop, fl_load, fl_canc, fl_dirl, fl_fn01, fl_fn02, fl_fn03, fl_fn04, fl_fn05, fl_fn06, fl_fn07, fl_fn08, fl_fn09, fl_fn10, fl_fn11, fl_fn12, fl_fn13, fl_fn14, fl_fn15, fl_fn16, fl_fn17, fl_fn18, fl_fn19, fl_fn20, fl_fn21, fl_fn22, fl_fn23, fl_fn24, fl_fn25, fl_fn26, fl_fn27, fl_fn28, fl_fn29, fl_fn30, fl_bas, fl_step, fl_up, fl_dwn
  set fl_play to rect(345, 40, 365, 474)
  set fl_stop to rect(345, 40, 365, 474)
  set fl_load to rect(618, 70, 639, 256)
  set fl_canc to rect(618, 262, 639, 447)
  set fl_dirl to rect(372, 7, 611, 27)
  set fl_up to rect(617, 38, 638, 63)
  set fl_dwn to rect(617, 451, 638, 474)
  set nx1 to 370
  set nx2 to 610
  set fl_fn01 to rect(nx1, fl_bas + (fl_step * 0), nx2, fl_bas + (fl_step * 1))
  set fl_fn02 to rect(nx1, fl_bas + (fl_step * 1), nx2, fl_bas + (fl_step * 2))
  set fl_fn03 to rect(nx1, fl_bas + (fl_step * 2), nx2, fl_bas + (fl_step * 3))
  set fl_fn04 to rect(nx1, fl_bas + (fl_step * 3), nx2, fl_bas + (fl_step * 4))
  set fl_fn05 to rect(nx1, fl_bas + (fl_step * 4), nx2, fl_bas + (fl_step * 5))
  set fl_fn06 to rect(nx1, fl_bas + (fl_step * 5), nx2, fl_bas + (fl_step * 6))
  set fl_fn07 to rect(nx1, fl_bas + (fl_step * 6), nx2, fl_bas + (fl_step * 7))
  set fl_fn08 to rect(nx1, fl_bas + (fl_step * 7), nx2, fl_bas + (fl_step * 8))
  set fl_fn09 to rect(nx1, fl_bas + (fl_step * 8), nx2, fl_bas + (fl_step * 9))
  set fl_fn10 to rect(nx1, fl_bas + (fl_step * 9), nx2, fl_bas + (fl_step * 10))
  set fl_fn11 to rect(nx1, fl_bas + (fl_step * 10), nx2, fl_bas + (fl_step * 11))
  set fl_fn12 to rect(nx1, fl_bas + (fl_step * 11), nx2, fl_bas + (fl_step * 12))
  set fl_fn13 to rect(nx1, fl_bas + (fl_step * 12), nx2, fl_bas + (fl_step * 13))
  set fl_fn14 to rect(nx1, fl_bas + (fl_step * 13), nx2, fl_bas + (fl_step * 14))
  set fl_fn15 to rect(nx1, fl_bas + (fl_step * 14), nx2, fl_bas + (fl_step * 15))
  set fl_fn16 to rect(nx1, fl_bas + (fl_step * 15), nx2, fl_bas + (fl_step * 16))
  set fl_fn17 to rect(nx1, fl_bas + (fl_step * 16), nx2, fl_bas + (fl_step * 17))
  set fl_fn18 to rect(nx1, fl_bas + (fl_step * 17), nx2, fl_bas + (fl_step * 18))
  set fl_fn19 to rect(nx1, fl_bas + (fl_step * 18), nx2, fl_bas + (fl_step * 19))
  set fl_fn20 to rect(nx1, fl_bas + (fl_step * 19), nx2, fl_bas + (fl_step * 20))
  set fl_fn21 to rect(nx1, fl_bas + (fl_step * 20), nx2, fl_bas + (fl_step * 21))
  set fl_fn22 to rect(nx1, fl_bas + (fl_step * 21), nx2, fl_bas + (fl_step * 22))
  set fl_fn23 to rect(nx1, fl_bas + (fl_step * 22), nx2, fl_bas + (fl_step * 23))
  set fl_fn24 to rect(nx1, fl_bas + (fl_step * 23), nx2, fl_bas + (fl_step * 24))
  set fl_fn25 to rect(nx1, fl_bas + (fl_step * 24), nx2, fl_bas + (fl_step * 25))
  set fl_fn26 to rect(nx1, fl_bas + (fl_step * 25), nx2, fl_bas + (fl_step * 26))
  set fl_fn27 to rect(nx1, fl_bas + (fl_step * 26), nx2, fl_bas + (fl_step * 27))
  set fl_fn28 to rect(nx1, fl_bas + (fl_step * 27), nx2, fl_bas + (fl_step * 28))
  set fl_fn29 to rect(nx1, fl_bas + (fl_step * 28), nx2, fl_bas + (fl_step * 29))
  set fl_fn30 to rect(nx1, fl_bas + (fl_step * 29), nx2, fl_bas + (fl_step * 30))
end

on fmousedown
  global fcommand, fl_msg, fl_play, fl_stop, fl_load, fl_canc, fl_dirl, fl_fn01, fl_fn02, fl_fn03, fl_fn04, fl_fn05, fl_fn06, fl_fn07, fl_fn08, fl_fn09, fl_fn10, fl_fn11, fl_fn12, fl_fn13, fl_fn14, fl_fn15, fl_fn16, fl_fn17, fl_fn18, fl_fn19, fl_fn20, fl_fn21, fl_fn22, fl_fn23, fl_fn24, fl_fn25, fl_fn26, fl_fn27, fl_fn28, fl_fn29, fl_fn30, fl_bas, fl_step, fl_up, fl_dwn, hp_r, hp_l, hp_x, hp_page, hp_itm01, hp_itm02, hp_itm03, hp_itm04, hp_itm05, hp_itm06, hp_itm07, hp_itm08, hp_itm09, hp_itm10, hp_itm11, hp_itm12, hp_itm13
  if the mouseDown then
    set x to the mouseH
    set y to the mouseV
    set m_point to point(x, y)
    set mcast to the mouseCast
    if 0 then
      put "x>" & string(x) & " y>" & string(y)
    else
    end if
    if inside(m_point, fl_canc) then
      set fl_msg to "canc"
    end if
    if inside(m_point, fl_load) then
      set fl_msg to "load"
    end if
    if inside(m_point, fl_up) then
      set fl_msg to "slup"
    end if
    if inside(m_point, fl_dwn) then
      set fl_msg to "sldw"
    end if
    if inside(m_point, fl_fn01) then
      set fl_msg to "fn01"
    end if
    if inside(m_point, fl_fn02) then
      set fl_msg to "fn02"
    end if
    if inside(m_point, fl_fn03) then
      set fl_msg to "fn03"
    end if
    if inside(m_point, fl_fn04) then
      set fl_msg to "fn04"
    end if
    if inside(m_point, fl_fn05) then
      set fl_msg to "fn05"
    end if
    if inside(m_point, fl_fn06) then
      set fl_msg to "fn06"
    end if
    if inside(m_point, fl_fn07) then
      set fl_msg to "fn07"
    end if
    if inside(m_point, fl_fn08) then
      set fl_msg to "fn08"
    end if
    if inside(m_point, fl_fn09) then
      set fl_msg to "fn09"
    end if
    if inside(m_point, fl_fn10) then
      set fl_msg to "fn10"
    end if
    if inside(m_point, fl_fn11) then
      set fl_msg to "fn11"
    end if
    if inside(m_point, fl_fn12) then
      set fl_msg to "fn12"
    end if
    if inside(m_point, fl_fn13) then
      set fl_msg to "fn13"
    end if
    if inside(m_point, fl_fn14) then
      set fl_msg to "fn14"
    end if
    if inside(m_point, fl_fn15) then
      set fl_msg to "fn15"
    end if
    if inside(m_point, fl_fn16) then
      set fl_msg to "fn16"
    end if
    if inside(m_point, fl_fn17) then
      set fl_msg to "fn17"
    end if
    if inside(m_point, fl_fn18) then
      set fl_msg to "fn18"
    end if
    if inside(m_point, fl_fn19) then
      set fl_msg to "fn19"
    end if
    if inside(m_point, fl_fn20) then
      set fl_msg to "fn20"
    end if
    if inside(m_point, fl_fn21) then
      set fl_msg to "fn21"
    end if
    if inside(m_point, fl_fn22) then
      set fl_msg to "fn22"
    end if
    if inside(m_point, fl_fn23) then
      set fl_msg to "fn23"
    end if
    if inside(m_point, fl_fn24) then
      set fl_msg to "fn24"
    end if
    if inside(m_point, fl_fn25) then
      set fl_msg to "fn25"
    end if
    if inside(m_point, fl_fn26) then
      set fl_msg to "fn26"
    end if
    if inside(m_point, fl_fn27) then
      set fl_msg to "fn27"
    end if
    if inside(m_point, fl_fn28) then
      set fl_msg to "fn28"
    end if
    if inside(m_point, fl_fn29) then
      set fl_msg to "fn29"
    end if
    if inside(m_point, fl_fn30) then
      set fl_msg to "fn30"
    end if
    if hp_page = 0 then
      if inside(m_point, hp_itm01) then
        help_open(1)
      end if
      if inside(m_point, hp_itm02) then
        help_open(2)
      end if
      if inside(m_point, hp_itm03) then
        help_open(3)
      end if
      if inside(m_point, hp_itm04) then
        help_open(4)
      end if
      if inside(m_point, hp_itm05) then
        help_open(5)
      end if
      if inside(m_point, hp_itm06) then
        help_open(6)
      end if
      if inside(m_point, hp_itm07) then
        help_open(7)
      end if
      if inside(m_point, hp_itm08) then
        help_open(8)
      end if
      if inside(m_point, hp_itm09) then
        help_open(9)
      end if
      if inside(m_point, hp_itm10) then
        help_open(10)
      end if
      if inside(m_point, hp_itm11) then
        help_open(11)
      end if
      if inside(m_point, hp_itm12) then
        help_open(12)
      end if
    end if
    if hp_page > 0 then
      if inside(m_point, hp_r) then
        help_R()
      end if
      if inside(m_point, hp_l) then
        help_L()
      end if
      if inside(m_point, hp_x) then
        help_X()
      end if
    end if
    if fl_msg = "slup" then
      fl_slup()
    end if
    if fl_msg = "sldw" then
      fl_sldw()
    end if
    if fl_msg = "dirl" then
      fl_dirl()
    end if
    if fl_msg = "load" then
      but_flash("F_LOAD", 628, 163)
      fl_load()
    end if
    if fl_msg = "play" then
      fl_play()
    end if
    if fl_msg = "stop" then
      fl_stop()
    end if
    if fl_msg = "canc" then
      but_flash("F_CANC", 628, 355)
      fsel_back()
    end if
    if chars(fl_msg, 1, 2) = "fn" then
      if the doubleClick then
        fl_fn()
        but_flash("F_LOAD", 628, 163)
        fl_load()
      else
        fl_fn()
      end if
    end if
    if fl_msg = "chkp" then
      fl_chkp()
    end if
  end if
end

on fsel what
  global fcommand, fl_msg, acwin, spritecount, framecnt, fl_play, fl_stop, fl_load, fl_canc, fl_dirl, enterFrame, fl_bas, fl_step, fl_up, fl_dwn, l_disp, l_file, l_fold, scrollstep, scroll, new_read, fl_search, sp_fsel, sp_flist, sp_ardwn, sp_arup, sp_point, sp_par, sp_but, mix_idx1, sndobj, last_play
  cur_busy()
  snd_stop()
  set play_OK to 0
  set stop_OK to 0
  set dir_OK to 0
  set snd_play to 0
  set scrollstep to 27
  set sp_fsel to 40
  set sp_flist to 41
  set sp_ardwn to 42
  set sp_arup to 43
  set sp_point to 44
  set sp_par to 45
  if spritecount >= sp_fsel then
    sprite_save(sp_fsel)
    sprite_save(sp_flist)
    sprite_save(sp_ardwn)
    sprite_save(sp_arup)
    sprite_save(sp_point)
    sprite_save(sp_par)
  end if
  but_reflash()
  puppetTransition(2, 1, 5)
  puppetSprite(sp_fsel, 1)
  set the castNum of sprite sp_fsel to the number of cast "FSEL"
  sprite_show(sp_fsel, 499, 240)
  set the ink of sprite sp_fsel to 0
  set the visible of sprite sp_fsel to 1
  if not (fl_search = what) then
    set new_read to 1
  end if
  set fl_search to what
  put "fsel fl_search>" & fl_search
  set fcommand to "FS_O"
end

on fsel_open
  global fcommand, fl_msg, acwin, spritecount, scommand, fl_play, fl_stop, fl_load, fl_canc, fl_dirl, fl_bas, fl_step, fl_up, fl_dwn, l_disp, l_file, l_fold, scrollstep, scroll, new_read, disk, sp_fsel, sp_flist, sp_ardwn, sp_arup, sp_point, sp_par, sp_but
  if new_read then
    fl_init()
    set scroll to 0
    set new_read to 0
  end if
  puppetTransition(0)
  puppetSprite(sp_flist, 1)
  put f_list(scroll) into field "flist"
  setfont("flist")
  set the castNum of sprite sp_flist to the number of cast "flist"
  set the ink of sprite sp_flist to 1
  sprite_show(sp_flist, 385, fl_bas - 30)
  puppetSprite(sp_arup, 1)
  set the castNum of sprite sp_arup to the number of cast "ARUP"
  set the ink of sprite sp_arup to 36
  sprite_show(sp_arup, 628, 51)
  if scroll < scrollstep then
    set the visible of sprite sp_arup to 0
  end if
  puppetSprite(sp_ardwn, 1)
  set the castNum of sprite sp_ardwn to the number of cast "ARDWN"
  set the ink of sprite sp_ardwn to 36
  sprite_show(sp_ardwn, 628, 468)
  if count(l_file) <= scrollstep then
    set the visible of sprite sp_ardwn to 0
  end if
  puppetSprite(sp_point, 1)
  set the castNum of sprite sp_point to the number of cast "pointer"
  set the ink of sprite sp_point to 36
  set the visible of sprite sp_point to 1
  sprite_show(sp_point, 1500, 1500)
  puppetSprite(sp_par, 1)
  set the castNum of sprite sp_par to the number of cast "msgpar"
  set the ink of sprite sp_par to 1
  set the visible of sprite sp_par to 1
  set the textAlign of field "msgpar" to "RIGHT"
  sprite_show(sp_par, 1500, 1500)
  cur_on()
  set acwin to "FSEL"
  set fl_msg to EMPTY
end

on fl_slup
  global stop_OK, play_OK, dir_OK, scroll, scrollstep, fl_msg, sp_fsel, sp_flist, sp_ardwn, sp_arup, sp_point, sp_par, sp_but
  set scroll to scroll - scrollstep
  if scroll < 0 then
    set scroll to 0
  end if
  put f_list(scroll) into field "flist"
  if scroll >= scrollstep then
    set the visible of sprite sp_arup to 1
  else
    set the visible of sprite sp_arup to 0
  end if
  if count(l_file) >= (scroll + scrollstep + 1) then
    set the visible of sprite sp_ardwn to 1
  else
    set the visible of sprite sp_ardwn to 0
  end if
  sprite_blank(sp_point)
  sprite_blank(sp_par)
  set fl_msg to EMPTY
end

on fl_sldw
  global stop_OK, play_OK, dir_OK, l_fold, l_file, scroll, scrollstep, fl_msg, sp_fsel, sp_flist, sp_ardwn, sp_arup, sp_point, sp_par, sp_but
  if count(l_file) > (scroll + scrollstep) then
    set scroll to scroll + scrollstep
    if count(l_file) >= (scroll + scrollstep + 1) then
      set the visible of sprite sp_ardwn to 1
    else
      set the visible of sprite sp_ardwn to 0
    end if
  end if
  put f_list(scroll) into field "flist"
  if scroll >= scrollstep then
    set the visible of sprite sp_arup to 1
  else
    set the visible of sprite sp_arup to 0
  end if
  sprite_blank(sp_point)
  sprite_blank(sp_par)
  set fl_msg to EMPTY
end

on fl_dirl
  global stop_OK, play_OK, dir_OK, l_fold, l_file, scroll, scrollstep, up_load, up_cload, fl_search, fl_msg, sp_fsel, sp_flist, sp_ardwn, sp_arup, sp_point, sp_par, sp_but
  cur_busy()
  set scroll to 0
  if fl_search = "CIRCLE" then
    set up_l to up_cload
  else
    set up_l to up_load
  end if
  if the machineType = 256 then
    dirlist_get(up_l & "*.*")
  else
    dirlist_get(up_l)
  end if
  put d_list(scroll) into field "flist"
  set dir_OK to 1
  set stop_OK to 0
  set play_OK to 0
  if count(l_fold) >= (scroll + scrollstep + 1) then
    set the visible of sprite sp_ardwn to 1
  else
    set the visible of sprite sp_ardwn to 0
  end if
  set the visible of sprite sp_arup to 0
  sprite_blank(sp_point)
  cur_on()
  set fl_msg to EMPTY
end

on fl_load
  global stop_OK, play_OK, dir_OK, l_fold, l_file, scroll, scrollstep, snd_play, up_load, enterFrame, enterFrame, new_read, fl_msg, fcommand, scommand, up_cload, acwin, sel_name, enterFrame, sel_track, sel_pos, sel_tmpos, sel_txpos, tmp_segcnt, fl_search, sp_fsel, sp_flist, sp_ardwn, sp_arup, sp_point, sp_par, sp_but
  if fl_search = "CIRCLE" then
    set up_l to up_cload
  else
    set up_l to up_load
  end if
  put "fl_load play_ok>" & play_OK & "< stop_ok>" & stop_OK & "< dir_ok>" & dir_OK
  but_reflash()
  if dir_OK then
    if play_OK then
      cur_busy()
      set vname to getAt(l_file, snd_play + scroll)
      set mode to chars(vname, 1, 1)
      set vname to chars(vname, 3, length(vname))
      if ((fl_search = "PATH") or (fl_search = "PATHC")) and (todir(vname) = up_l) then
        set sel_name to todir(vname)
        fsel_load()
      else
        if mode = "D" then
          if fl_search = "CIRCLE" then
            set up_cload to todir(vname)
          else
            set up_load to todir(vname)
          end if
        else
          if mode = "F" then
            if the machineType = 256 then
              if fl_search = "CIRCLE" then
                set up_cload to chars(vname, 1, 3)
              else
                set up_load to chars(vname, 1, 3)
              end if
            else
              if fl_search = "CIRCLE" then
                set up_cload to vname
              else
                set up_load to vname
              end if
            end if
          else
            if mode = "C" then
              alertrd("Please insert a CD-ROM ! ", "Bitte eine CD-ROM einlegen !", 1)
              eject_CD()
              alertrdremove()
              set new_read to 1
            end if
          end if
        end if
        if mode <> "C" then
          fl_init()
          set scroll to 0
          put f_list(scroll) into field "flist"
          set dir_OK to 0
          set play_OK to 0
          if count(l_file) >= (scroll + scrollstep + 1) then
            set the visible of sprite sp_ardwn to 1
          else
            set the visible of sprite sp_ardwn to 0
          end if
          set the visible of sprite sp_arup to 0
          sprite_blank(sp_point)
          sprite_blank(sp_par)
        end if
      end if
      cur_on()
    end if
    if mode <> "C" then
      set fl_msg to EMPTY
    else
      set fl_msg to "canc"
    end if
  else
    if play_OK then
      set sel_name to getselname(snd_play + scroll)
      if soundBusy(1) then
        puppetSound(0)
      end if
      cur_busy()
      if sel_name = EMPTY then
        set fl_msg to EMPTY
      else
        if scommand = EMPTY then
          if sel_track = 0 then
            set sel_txpos to tmp_segcnt + 1
          else
            if sel_track = 1 then
              set sel_txpos to sel_pos
            else
              set sel_tmpos to sel_pos
              set sel_tmpos to sel_tmpos + 12
              set sel_txpos to sel_pos
            end if
          end if
        end if
        fsel_load()
      end if
    end if
  end if
end

on fl_fn
  global stop_OK, play_OK, dir_OK, l_fold, l_file, l_disp, scroll, scrollstep, snd_play, fn_sel, fl_search, enterFrame, fl_bas, fl_step, fl_up, fl_dwn, fl_msg, sp_fsel, sp_flist, sp_ardwn, sp_arup, sp_point, sp_par, sp_but, mix_size, mix_qua
  set fn_sel to value(chars(fl_msg, 3, 4))
  if soundBusy(1) then
    puppetSound(0)
    set stop_OK to 0
  end if
  if count(l_disp) >= fn_sel then
    if getAt(l_disp, fn_sel) = "S" then
      sprite_show(sp_point, 376, fl_bas + (fl_step * fn_sel) - 8)
      set play_OK to 1
      set snd_play to fn_sel
      set mode to chars(getAt(l_file, snd_play + scroll), 1, 1)
      set psound to stripcrtlchars(getselname(snd_play + scroll))
      if mode = "S" then
        if fl_search = "SOUND" then
          cur_busy()
          if not (sndpar(psound) = 0) then
            alertrd("Can`t identify Soundfile Type ! " & RETURN & psound & "<>", "Dieses Soundformat kann nicht identifiziert werden !")
            cur_on()
            return 0
          end if
          put calcsize(value(mix_size), mix_qua) into field "msgpar"
          fl_play()
        else
          put " " into field "msgpar"
        end if
        set dir_OK to 0
        cur_on()
      else
        if mode = "D" then
          if the machineType = 256 then
            put "PATH" into field "msgpar"
          else
            put "FOLDER" into field "msgpar"
          end if
          set dir_OK to 1
          set fl_msg to EMPTY
        else
          if mode = "F" then
            put "DRIVE" into field "msgpar"
            set dir_OK to 1
            set fl_msg to EMPTY
          else
            if mode = "C" then
              put " " into field "msgpar"
              set dir_OK to 1
              set fl_msg to EMPTY
            end if
          end if
        end if
      end if
      sprite_show(sp_par, 550, fl_bas + (fl_step * fn_sel) - 14)
    end if
  end if
end

on fl_play
  global stop_OK, play_OK, dir_OK, l_fold, l_file, scroll, scrollstep, snd_play, up_load, up_mvol, fl_msg, sp_fsel, sp_flist, sp_ardwn, sp_arup, sp_point, sp_par, sp_but
  if dir_OK = 0 then
    if (play_OK = 1) and (stop_OK = 0) then
      set stop_OK to 1
      set sname to trimdb(trim(up_load))
      if the machineType = 256 then
        set sname to trimdb(trim(up_load))
        set sname to sname & EMPTY
      else
        set sname to up_load
      end if
      set sname to getselname(snd_play + scroll)
      if soundBusy(1) then
        puppetSound(0)
      end if
      set the volume of sound 1 to 255 / 15 * up_mvol
      put "vol-" & 255 / 15 * up_mvol
      sound playFile 1, sname
      updateStage()
      set fl_msg to "chkp"
    else
      if stop_OK = 1 then
        set stop_OK to 0
        if soundBusy(1) then
          puppetSound(0)
          updateStage()
        end if
        waitforup()
        set fl_msg to EMPTY
      end if
    end if
  end if
end

on fl_stop
  global stop_OK, play_OK, fl_msg, sp_fsel, sp_flist, sp_ardwn, sp_arup, sp_point, sp_par, sp_but
  if stop_OK then
    set play_OK to 1
    set stop_OK to 0
    waitforup()
    if soundBusy(1) then
      puppetSound(0)
      updateStage()
    end if
  end if
  set fl_msg to EMPTY
end

on fl_chkp
  global stop_OK, play_OK, fl_msg, sp_fsel, sp_flist, sp_ardwn, sp_arup, sp_point, sp_par, sp_but
  if not soundBusy(1) then
    set stop_OK to 0
    set fl_msg to EMPTY
  end if
end

on fl_init
  global l_fold, l_file, l_drive, up_load, up_cload, fl_search, up_save, up_csave
  set l_fold to []
  set l_file to []
  set l_drive to []
  put "fl_init fl_search>" & fl_search
  if fl_search = "SOUND" then
    if the machineType = 256 then
      filelist_get(up_load & "*.AIF")
      filelist_get(up_load & "*.WAV")
      dirlist_get(up_load & "*.*")
      drivelist_get(up_load)
    else
      filelist_get(up_load, "AIFF")
      dirlist_get(up_load)
      drivelist_get(up_load)
    end if
  else
    if fl_search = "PATH" then
      if the machineType = 256 then
        addAt(l_fold, 1, up_save)
        dirlist_get(up_save & "*.*")
        drivelist_get(up_save)
      else
        addAt(l_fold, 1, up_save)
        dirlist_get(up_save)
        drivelist_get(up_save)
      end if
    else
      if fl_search = "PATHC" then
        put "fl_init PATHC"
        if the machineType = 256 then
          addAt(l_fold, 1, up_csave)
          dirlist_get(up_csave & "*.*")
          drivelist_get(up_csave)
        else
          addAt(l_fold, 1, up_csave)
          dirlist_get(up_csave)
          drivelist_get(up_csave)
        end if
      else
        if fl_search = "CIRCLE" then
          if the machineType = 256 then
            filelist_get(up_cload & "*.CIR")
            dirlist_get(up_cload & "*.*")
            drivelist_get(up_cload)
          else
            filelist_get(up_cload, "TEXT")
            dirlist_get(up_cload)
            drivelist_get(up_cload)
          end if
        else
          if fl_search = "DRIVE" then
            if the machineType = 256 then
              drivelist_get(up_load)
            else
              drivelist_get(up_load)
            end if
          end if
        end if
      end if
    end if
  end if
end

on fsel_back
  global fcommand, spritecount, fl_bas, sp_fsel, sp_flist, sp_ardwn, sp_arup, sp_point, sp_par, sp_but, acwin, fl_msg, sel_name
  if not (fcommand = "FS_C") then
    cur_busy()
    if soundBusy(1) then
      puppetSound(0)
    end if
    but_reflash()
    puppetTransition(1, 1, 5)
    sprite_show(sp_fsel, 795, 240)
    sprite_show(sp_flist, 795, fl_bas - 30)
    sprite_blank(sp_par)
    sprite_blank(sp_point)
    sprite_blank(sp_ardwn)
    sprite_blank(sp_arup)
    set acwin to "MAIN"
    set fl_msg to EMPTY
    set fcommand to "FS_C"
  end if
end

on fsel_clear
  global fcommand, spritecount, sp_fsel, sp_flist, sp_ardwn, sp_arup, sp_point, sp_par, sp_but
  puppetTransition(0)
  if spritecount >= 40 then
    sprite_rest()
    sprite_rest()
    sprite_rest()
    sprite_rest()
    sprite_rest()
    sprite_rest()
  end if
  cur_on()
  set fcommand to EMPTY
end

on fsel_load
  global sel_name, sel_txpos, sel_ttrak, sel_size, AR_nnsc, segsprite, fcommand, scommand, sel_scast, fl_msg, acwin, newidx, fl_search, up_csave, up_save
  put "fsel_load sel_name  >" & sel_name
  put "fsel_load fl_search >" & fl_search
  put "fsel_load up_save   >" & up_save
  put "fsel_load cup_save  >" & up_csave
  if fl_search = "SOUND" then
    if scommand <> "LOST" then
      set newidx to find_slot()
    else
      set newidx to sel_scast
    end if
    set tsize to readsound(sel_name, newidx)
    if tsize > 0 then
      if scommand <> "LOST" then
        dispsound(sel_ttrak, sel_name, sel_txpos, "1", 15, 0)
        displaysegs()
        set segsprite to 0
      end if
      setmastervol()
      fsel_back()
    else
      set acwin to "FSEL"
      set fl_msg to EMPTY
    end if
  else
    if fl_search = "CIRCLE" then
      setmastervol()
      fsel_back()
    else
      if fl_search = "PATH" then
        setmastervol()
        set up_save to sel_name
        fsel_back()
      else
        if fl_search = "PATHC" then
          setmastervol()
          set up_csave to sel_name
          fsel_back()
        end if
      end if
    end if
  end if
  put "fsel_lout up_save   >" & up_save
  put "fsel_lout cup_save  >" & up_csave
end