Enter file name:

' GetFileName Demonstration Program
' Shows usage for the GetFileName dialog function.
'
' by vegipete, October 2020

'===================
' required setup for function
DIRCOUNT = 20
FILCOUNT = 255
NAMELENGTH = 64
dim dir_dirs$(DIRCOUNT) length NAMELENGTH  ' store list of directories
dim dir_fils$(FILCOUNT) length NAMELENGTH  ' store list of files
dim dir_notroot  ' used internally to indicate root directory or not
' end of setup for funtion
'===================

mode 1,8
cls

' Fill the screen with some junk
for i = 1 to 3000 : ? chr$(32 + int(rnd * 96));: next

a$ = GetFileName(15,"0")
if a$ = "" then
 ? @(0,400) "No file selected"
else
 ? @(0,400) "File selected: " a$
endif

end

'*****************************************************************
' Function GetFileName(height,spec$)
'
'   version 1.0          vegipete, Oct 2020
'
' This funtion displays a centered dialog box on the screen, allows
' the user to choose a file and returns the full path of the chosen
' file. The underlying screen is restored when the dialog closes.
' UP and DOWN arrows to select, ENTER to choose selection
' ESC to cancel, LEFT arrow to go up directory
'
' Input:  height: number of directory items to list vertically
'         spec$: currently unused, hopefully later it will allow file filtering
'
' Output: string containing full path of file chosen, or "" if nothing
'         Note: the directory part of the path will be capitalized. This is just
'         how the CWD$ function works. Fortunately, MMBasic is case insensitive.
'
' The following global variables should be declared before use:
' DIRCOUNT = 100    ' number of directories, adjust as required
' FILCOUNT = 255    ' number of files in directory, adjust as required
' NAMELENGTH = 64   ' max length of file and directory names
' dim dir_dirs$(DIRCOUNT) length NAMELENGTH  ' store list of directories
' dim dir_fils$(FILCOUNT) length NAMELENGTH  ' store list of files
' dim dir_notroot   ' used internally to indicate root directory or not
'
' Routines Used:  (included below)
'   sub ReadDir   ' reads current directory into the above arrays
'   sub ListDir(first, nlines, hilite)  ' shows a portion of the current directory
'
function GetFileName(height,spec$) as string
 ' dialog box dimensions
 d_shadow = &h404020   ' dark sort-of gold
 d_frame =  &hA0A040   ' sort-of gold
 d_back  =  &h101010   ' really dark grey
 d_lines = height
 d_height = 50 + (d_lines - 1) * MM.INFO(FONTHEIGHT)
 d_width = 300
 d_x = (MM.HRES - d_width)/2
 d_y = (MM.VRES - d_height)/2

 ' save starting directory
 d_startdir$ = cwd$

 ' save underlying screen image in buffer #64
 blit read 64, d_x, d_y, d_width, d_height
 ' draw dialog box
 rbox d_x + 7, d_y +  7, d_width -  8, d_height -  8, 10, d_shadow, d_shadow
 rbox d_x    , d_y     , d_width -  8, d_height -  8, 10,  d_frame, d_frame
 rbox d_x + 5, d_y + 20, d_width - 18, d_height - 32,  5,   d_back, d_back
 dir_dirs$(0)="Select File...       "+chr$(146)+chr$(147)+chr$(149)+"/Enter/Esc"   'temp
 text d_x + 10, d_y + 6, dir_dirs$(0), "LT", 1, 1, 0, -1

 '--------------------
 ReadDir  ' fill dir_dirs$() and dir_fils$()

 d_top_item = 1
 d_sel_item = 1
 d_top_last = val(dir_dirs$(0)) + val(dir_fils$(0)) - d_lines + 1

 ListDir(d_top_item, d_lines, d_sel_item)  ' populate the dialog box

 do
   d_k = asc(inkey$)
   d_changed = 0
   select case d_k
     case  27  ' ESC
       GetFileName$ = ""  ' Cancel so return blank
       exit do
     case 128  ' UP arrow
       if d_sel_item = 1 then  ' is the top item selected?
         if d_top_item > 1 then  ' at top of list?
           d_top_item = d_top_item - 1  ' no so shift list up one
           d_changed = 1
         endif
       else
         d_sel_item = d_sel_item - 1  ' shift selection up one
         d_changed = 1
       endif
     case 129  ' DOWN arrow
       if d_sel_item = d_lines then  ' is the bottom item selected?
         if d_top_item < d_top_last then  ' at bottom of list?
           d_top_item = d_top_item + 1  ' no so shift list down one
           d_changed = 1
         endif
       else if d_sel_item < val(dir_dirs$(0)) + val(dir_fils$(0)) then
         ' don't shift down past last item
         d_sel_item = d_sel_item + 1  ' shift selection down one
         d_changed = 1
       endif
     case 130  ' LEFT Arrow - directory up if not root
       if dir_notroot then ' in a sub-directory?
         chdir ".."     'directory up chosen
         ReadDir        ' read new directory
         d_top_item = 1
         d_sel_item = 1
         d_top_last = val(dir_dirs$(0)) + val(dir_fils$(0)) - d_lines + 1
         d_changed = 1
       endif
     case  13  ' ENTER
       d_chosen = d_top_item + d_sel_item - 1
       if dir_notroot and (d_chosen = 1) then ' top item of a sub-directory?
         chdir ".."     'directory up chosen
         ReadDir        ' read new directory
         d_top_item = 1
         d_sel_item = 1
         d_top_last = val(dir_dirs$(0)) + val(dir_fils$(0)) - d_lines + 1
         d_changed = 1
       elseif d_chosen <= val(dir_dirs$(0)) then ' item number in directory range?
         if right$(cwd$,1) = "/" then
           chdir cwd$ + dir_dirs$(d_chosen)  ' tunnel down a directory
         else
           chdir cwd$ + "/" + dir_dirs$(d_chosen)  ' tunnel down a directory
         endif
         ReadDir        ' read new directory
         d_top_item = 1
         d_sel_item = 1
         d_top_last = val(dir_dirs$(0)) + val(dir_fils$(0)) - d_lines + 1
         d_changed = 1
       else    ' Yahoo! A filename has been chosen
         d_chosen = d_chosen - val(dir_dirs$(0))
         if right$(cwd$,1) = "/" then
           GetFileName$ = cwd$ + dir_fils$(d_chosen)  ' filename at root level
         else
           GetFileName$ = cwd$ + "/" + dir_fils$(d_chosen)  ' filename deeper
         endif     ' Note: cwd$ returns all uppercase
         exit do
       endif
   end select
   if d_changed then   ' something changed so redisplay directory list
     ListDir(d_top_item, d_lines, d_sel_item)
   endif
 loop
 '--------------------

 ' restore original screen image
 box d_x, d_y, d_width, d_height, 1, 0, 0 ' must clear to black first
 blit write 64, d_x, d_y   ' now restore all non-black pixels
 blit close 64

 ' restore starting directory
 chdir d_startdir$

end function

'*****************************************************************
' Read everything in the current directory
sub ReadDir
 local item_cnt, i

 for i = 1 to DIRCOUNT
   dir_dirs$(i) = ""   ' clear the array
 next i
 for i = 1 to FILCOUNT
   dir_fils$(i) = ""   ' clear the array
 next i

 ' check for root directory
 dir_notroot = 0
 if cwd$ <> "A:/" then   ' root directory?
   dir_notroot = 1
 endif
 ' read directories first
 dir_dirs$(0) = ""
 item_cnt = 1
 dir_dirs$(item_cnt) = left$(Dir$("*", DIR),NAMELENGTH) ' WARNING - possible truncation
 Do While dir_dirs$(item_cnt) <> "" and item_cnt < DIRCOUNT - 1
   If dir_dirs$(item_cnt) <> "." Then item_cnt = item_cnt + 1 ' ignore "."
   dir_dirs$(item_cnt) = Dir$()
 Loop
 if dir_dirs$(item_cnt) = "" then item_cnt = item_cnt - 1

 ' Sort directories and shift non-blank entries to front of array
 Sort dir_dirs$()
 if dir_notroot then dir_dirs$(1) = ".."   ' not root so add directory up entry

 for i = 1 to item_cnt
   dir_dirs$(i+dir_notroot) = dir_dirs$(DIRCOUNT-item_cnt+i)
 next i
 dir_dirs$(0) = str$(item_cnt+dir_notroot)   ' store number of items

 ' now read files
 dir_fils$(0) = ""
 item_cnt = 1
 dir_fils$(item_cnt) = left$(Dir$("*", FILE),NAMELENGTH) ' WARNING - possible truncation
 Do While dir_fils$(item_cnt) <> "" and item_cnt < FILCOUNT - 1
   If dir_fils$(item_cnt) <> "." Then item_cnt = item_cnt + 1 ' ignore "."
   dir_fils$(item_cnt) = Dir$()
 Loop
 if dir_fils$(item_cnt) = "" then item_cnt = item_cnt - 1

 ' Sort files and shift non-blank entries to front of array
 Sort dir_fils$()
 for i = 1 to item_cnt
   dir_fils$(i) = dir_fils$(FILCOUNT-item_cnt+i)
 next i
 dir_fils$(0) = str$(item_cnt)   ' store number of items

end sub

'*****************************************************************
' Display (part of) directory
' Show 'nlines' number of items, starting with item 'first',
' hilite given item
' The magic number "33" should be altered to correspond to the magic
' number "300" used above for d_width.
sub ListDir(first, nlines, hilite)
 local i

 for i = 0 to nlines - 1
   item = first + i
   if item > val(dir_dirs$(0)) then
     d_txt$ = dir_fils$(item - val(dir_dirs$(0)))
   else
     d_txt$ = "<DIR> " + dir_dirs$(item)
   endif
   if len(d_txt$) > 33 then d_txt$ = left$(d_txt$,32) + chr$(148)
   d_txt$ = left$(d_txt$ + space$(33),33)

   if i = hilite - 1 then
     text d_x+14, d_y+22+i*MM.INFO(FONTHEIGHT), d_txt$,"LT",1,1,d_back,d_frame
   else
     text d_x+14, d_y+22+i*MM.INFO(FONTHEIGHT), d_txt$,"LT",1,1,&hFFFFFF,d_back
   endif
 next i

end sub
'*****************************************************************

' wii_mouse globals
dim integer wiiX, wiiY, wiiB, wiiMove, wiiClick, wiiPort = 1
 wii classic open wiiPort, checkWii
 
 
 
do
  d_k = asc(inkey$)
  d_changed = 0
  if wiiClick = 1 then d_k = wiikey() ' added this line
 
 
 
function wiikey() as integer ' translate wheel roll and click to keyboard
local integer wiiL, wiiM, wiiR, wiiW
if wiiClick = 1 then
     wiiR = wiiB and 1 ' wii buttons
     wiiM = (wiiB >> 2) and 1
     wiiL = (wiiB >> 4) and 1
     wiiW = ((wiiB >> 1) and 1) - ((wiiB >> 3) and 1)

     if wiiW < 0 then
       wiikey = 128
     elseif wiiW > 0 then
       wiikey = 129
     elseif wiiM = 1 then
       wiikey = 13
     endif
     wiiClick = 0
   endif
end function

sub checkWii ' called with any wii activity
 local integer deltaB, deltaX, deltaY
 deltaX = classic(LX,wiiPort) - 124 ' adjust as required to remove drift
 deltaY = classic(LY,wiiPort) - 124
 deltaB = classic(B ,wiiPort)
 if deltaX <>0 or deltaY <> 0 then
   wiiMove = 1
   wiiX = wiiX + deltaX
   wiiY = wiiY - deltaY
 endif
 'if wiiB <> deltaB then
 if deltaB <> 0 then
   wiiClick = 1
   wiiB = deltaB
 endif
end sub

for i = 1 to 100:PRINT "The quick brown fox jumps over the lazy dog";:next