Tiny Navigator

[bplus]

Tiny Navigator fixed and can now go anywhere you are allowed on C:

Code: QB64: [Select]

1. OPTION _EXPLICIT
2. _TITLE "Tiny Navigator mod orig post with perm tmpfile" 'B+
3. ' 2019-08-22 orig post at https://www.qb64.org/forum/index.php?topic=1646.msg108682#msg108682
4. ' 2019-08-23 try fix (to nav all directories) with one place for tmpFile, theory can't write files in some dir's
5. ' For some reason Windows won't write to a fully pathed file in my user folder???
6. ' Try testing if dir exists "C:\temp" exists and making one if not, yes! and I can write my temp files there
7. ' and now I can chDir anywhere!
8.  
9. '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
10.  
11. ' Attention!!!  this creates a temp directory "C:\temp", do not run this program if you forbid this.
12.  
13. '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
14.  
15.  
16. SCREEN _NEWIMAGE(1200, 600, 32)
17. _SCREENMOVE 100, 50
18.  
19.  
20. IF _DIREXISTS("C:\temp") THEN ELSE MKDIR "C:\temp"
21.  
22. DIM mySelection&, done$
23.  
24. DO
25.     PRINT "Current Directory: " + _CWD$
26.     REDIM myFiles(0) AS STRING
27.     loadFA "*.*", myFiles()
28.     mySelection& = getArrayItemNumber&(5, 5, 90, 30, myFiles())
29.     CLS
30.     IF mySelection& <> -1719 THEN
31.         CHDIR myFiles(mySelection&)
32.     ELSE
33.         PRINT "No Directory selected."
34.         INPUT "Press enter to continue navigator, any + enter to quit... "; done$
35.     END IF
36.     _LIMIT 60
37. LOOP UNTIL done$ <> ""
38.  
39. SUB loadFA (spec$, fa() AS STRING)
40.     DIM tmpFile$, Index%, fline$, d$
41.     tmpFile$ = "C:\temp\DIR$INF0.INF"
42.     'PRINT tmpFile$
43.     'END
44.     SHELL _HIDE "DIR /a:d >" + tmpFile$ 'get directories  but have to do a little pruning
45.     'SHELL _HIDE "DIR " + spec$ + " /b > " + TmpFile$
46.     'SHELL _HIDE "DIR " + spec$ + " /b /s /o:gen> " + TmpFile$
47.     OPEN tmpFile$ FOR INPUT AS #1
48.     Index% = -1
49.     DO WHILE NOT EOF(1)
50.         LINE INPUT #1, fline$
51.         IF INSTR(fline$, "<DIR>") THEN
52.             d$ = _TRIM$(rightOf$(fline$, "<DIR>"))
53.             Index% = Index% + 1
54.             REDIM _PRESERVE fa(Index%)
55.             fa(Index%) = d$
56.         END IF
57.     LOOP
58.     CLOSE #1
59.     KILL tmpFile$
60. END SUB
61.  
62. FUNCTION rightOf$ (source$, of$)
63.     IF INSTR(source$, of$) > 0 THEN rightOf$ = MID$(source$, INSTR(source$, of$) + LEN(of$))
64. END FUNCTION
65.  
66. 'attempting use this 4 things (2018-12-30)
67. ' 1. expects HELP sub that uses message and message box but easy to comment out
68. ' 2. expects to be in graphics mode
69. ' 3. chages color of screen
70. ' 4. needs _KEYCLEAR 2 before calling of previous keyhits will interfere!!!
71. '
72. ' Future Help Message Box for the function.
73. ' "*** Mouse and Key Instructions ***"
74. '
75. ' "Mouse, mouse wheel, and arrow keys should work as expected for item selection."
76. ' "Press spacebar to select a highlighted item or just click it."
77. ' "Use number(s) + enter to select an array item by it's index number,"
78. ' "backspace will remove last number pressed, c will clear a number started."
79. ' "Numbers started are shown in bottom right PgDn bar."
80. ' "Enter will also select the highlighted item, if no number has been started."
81. ' "Home starts you at lowest array index, End highlights then highest index."
82. ' "Use PgUp and PgDn keys to flip through pages of array items."
83. '
84. ' "Escape returns -1719 to allow a Cancel function and signal no slection."
85. FUNCTION getArrayItemNumber& (locateRow, locateColumn, boxWidth, boxHeight, arr() AS STRING)
86.     'Notes: locateRow, locateColumn for top right corner of selection box on screen in characters for LOCATE.
87.     'boxWidth and boxHeight are in character units, again for locate and print at correct places.
88.     'All displaying is restricted to inside the box, which has PgUP and PgDn as top and bottom lines in the display.
89.  
90.     DIM curRow AS INTEGER, curCol AS INTEGER, fg AS _UNSIGNED LONG, bg AS _UNSIGNED LONG
91.     DIM maxWidth AS INTEGER, maxHeight AS INTEGER, page AS INTEGER, hlite AS INTEGER, mx AS INTEGER, my AS INTEGER
92.     DIM lastMX AS INTEGER, lastMY AS INTEGER, row AS INTEGER, mb AS INTEGER
93.     DIM lba AS LONG, uba AS LONG, choice AS LONG, kh AS LONG, index AS LONG
94.     DIM clrStr AS STRING, b AS STRING
95.  
96.     'save old settings to restore at end ofsub
97.     curRow = CSRLIN
98.     curCol = POS(0)
99.     fg = _DEFAULTCOLOR
100.     bg = _BACKGROUNDCOLOR
101.     _KEYCLEAR
102.  
103.     maxWidth = boxWidth '       number of characters in box
104.     maxHeight = boxHeight - 2 ' number of lines displayed of array at one time = 1 page
105.     lba = LBOUND(arr)
106.     uba = UBOUND(arr)
107.     page = 0
108.     hlite = 0 '                 line in display ready for selection by spacebar or if no number is started, enter
109.     clrStr$ = SPACE$(maxWidth) 'clearing a display line
110.  
111.     GOSUB update '              show the beginning of the array items for selection
112.  
113.     'signal cancel selection process, exit sub with this unlikely index to signal canel
114.     choice = -1719 'primes 7 and 8, not likely to be a select index of an array
115.  
116.     DO 'until get a selection or demand exit
117.  
118.         'handle the key stuff
119.         kh& = _KEYHIT
120.         IF kh& THEN
121.             IF kh& > 0 AND kh& < 255 THEN
122.                 IF INSTR("0123456789", CHR$(kh&)) > 0 THEN b$ = b$ + CHR$(kh&): GOSUB update
123.                 'IF CHR$(kh&) = "h" THEN HELP: _KEYCLEAR
124.  
125.                 IF CHR$(kh&) = "c" THEN b$ = "": GOSUB update
126.                 IF kh& = 13 THEN 'enter pressed check if number is being entered?
127.                     IF LEN(b$) THEN
128.                         IF VAL(b$) >= lba AND VAL(b$) <= uba THEN 'we have number started
129.                             choice = VAL(b$): EXIT DO
130.                         ELSE 'clear b$ to show some response to enter
131.                             b$ = "": GOSUB update 'clear the value that doesn't work
132.                         END IF
133.                     ELSE
134.                         choice = hlite + page * maxHeight + lba 'must mean to select the highlighted item
135.                     END IF
136.                 END IF
137.                 IF kh& = 27 THEN EXIT DO 'escape clause offered to Cancel selection process
138.                 IF kh& = 32 THEN choice = hlite + page * maxHeight + lba 'best way to choose highlighted selection
139.                 IF kh& = 8 THEN 'backspace to edit number
140.                     IF LEN(b$) THEN b$ = LEFT$(b$, LEN(b$) - 1): GOSUB update
141.                 END IF
142.             ELSE
143.                 SELECT CASE kh& 'choosing sections of array to display and highlighted item
144.                     CASE 20736 'pg dn
145.                         IF (page + 1) * maxHeight + lba <= uba THEN page = page + 1: GOSUB update
146.                     CASE 18688 'pg up
147.                         IF (page - 1) * maxHeight + lba >= lba THEN page = page - 1: GOSUB update
148.                     CASE 18432 'up
149.                         IF hlite - 1 < 0 THEN
150.                             IF page > 0 THEN
151.                                 page = page - 1: hlite = maxHeight - 1: GOSUB update
152.                             END IF
153.                         ELSE
154.                             hlite = hlite - 1: GOSUB update
155.                         END IF
156.                     CASE 20480 'down
157.                         IF (hlite + 1) + page * maxHeight + lba <= uba THEN 'ok to move up
158.                             IF hlite + 1 > maxHeight - 1 THEN
159.                                 page = page + 1: hlite = 0: GOSUB update
160.                             ELSE
161.                                 hlite = hlite + 1: GOSUB update
162.                             END IF
163.                         END IF
164.                     CASE 18176 'home
165.                         page = 0: hlite = 0: GOSUB update
166.                     CASE 20224 ' end
167.                         page = INT((uba - lba) / maxHeight): hlite = maxHeight - 1: GOSUB update
168.                 END SELECT
169.             END IF
170.         END IF
171.  
172.         'handle the mouse stuff
173.         WHILE _MOUSEINPUT
174.             IF _MOUSEWHEEL = -1 THEN 'up?
175.                 IF hlite - 1 < 0 THEN
176.                     IF page > 0 THEN
177.                         page = page - 1: hlite = maxHeight - 1: GOSUB update
178.                     END IF
179.                 ELSE
180.                     hlite = hlite - 1: GOSUB update
181.                 END IF
182.             ELSEIF _MOUSEWHEEL = 1 THEN 'down?
183.                 IF (hlite + 1) + page * maxHeight + lba <= uba THEN 'ok to move up
184.                     IF hlite + 1 > maxHeight - 1 THEN
185.                         page = page + 1: hlite = 0: GOSUB update
186.                     ELSE
187.                         hlite = hlite + 1: GOSUB update
188.                     END IF
189.                 END IF
190.             END IF
191.         WEND
192.         mx = INT((_MOUSEX - locateColumn * 8) / 8) + 2: my = INT((_MOUSEY - locateRow * 16) / 16) + 2
193.         IF _MOUSEBUTTON(1) THEN 'click contols or select array item
194.             'clear mouse clicks
195.             mb = _MOUSEBUTTON(1)
196.             IF mb THEN 'clear it
197.                 WHILE mb 'OK!
198.                     IF _MOUSEINPUT THEN mb = _MOUSEBUTTON(1)
199.                     _LIMIT 100
200.                 WEND
201.             END IF
202.  
203.             IF mx >= 1 AND mx <= maxWidth AND my >= 1 AND my <= maxHeight THEN
204.                 choice = my + page * maxHeight + lba - 1 'select item clicked
205.             ELSEIF mx >= 1 AND mx <= maxWidth AND my = 0 THEN 'page up or exit
206.                 IF my = 0 AND (mx <= maxWidth AND mx >= maxWidth - 2) THEN 'exit sign
207.                     EXIT DO 'escape plan for mouse click top right corner of display box
208.                 ELSE 'PgUp bar clicked
209.                     IF (page - 1) * maxHeight + lba >= lba THEN page = page - 1: GOSUB update
210.                 END IF
211.             ELSEIF mx >= 1 AND mx <= maxWidth AND my = maxHeight + 1 THEN 'page down bar clicked
212.                 IF (page + 1) * maxHeight + lba <= uba THEN page = page + 1: GOSUB update
213.             END IF
214.         ELSE '   mouse over highlighting, only if mouse has moved!
215.             IF mx >= 1 AND mx <= maxWidth AND my >= 1 AND my <= maxHeight THEN
216.                 IF mx <> lastMX OR my <> lastMY THEN
217.                     IF my - 1 <> hlite AND (my - 1 + page * maxHeight + lba <= uba) THEN
218.                         hlite = my - 1
219.                         lastMX = mx: lastMY = my
220.                         GOSUB update
221.                     END IF
222.                 END IF
223.             END IF
224.         END IF
225.         _LIMIT 200
226.     LOOP UNTIL choice >= lba AND choice <= uba
227.     getArrayItemNumber& = choice
228.     COLOR fg, bg
229.     'clear key presses
230.     _KEYCLEAR
231.     LOCATE curRow, curCol
232.     'clear mouse clicks
233.     mb = _MOUSEBUTTON(1)
234.     IF mb THEN 'clear it
235.         WHILE mb 'OK!
236.             IF _MOUSEINPUT THEN mb = _MOUSEBUTTON(1)
237.             _LIMIT 100
238.         WEND
239.     END IF
240.     EXIT SUB
241.  
242.     'display of array sections and controls on screen
243.     update:
244.  
245.     'fix hlite if it has dropped below last array item
246.     WHILE hlite + page * maxHeight + lba > uba
247.         hlite = hlite - 1
248.     WEND
249.  
250.     'main display of array items at page * maxHeight (lines high)
251.     FOR row = 0 TO maxHeight - 1
252.         IF hlite = row THEN COLOR _RGB(200, 200, 255), _RGB32(0, 0, 88) ELSE COLOR _RGB32(0, 0, 88), _RGB(200, 200, 255)
253.         LOCATE locateRow + row, locateColumn: PRINT clrStr$
254.         index = row + page * maxHeight + lba
255.         IF index >= lba AND index <= uba THEN
256.             LOCATE locateRow + row, locateColumn
257.             PRINT LEFT$(LTRIM$(STR$(index)) + ") " + arr(index), maxWidth)
258.         END IF
259.     NEXT
260.  
261.     'make page up and down bars to click, print PgUp / PgDn if available
262.     COLOR _RGB32(200, 200, 255), _RGB32(0, 100, 50)
263.     LOCATE locateRow - 1, locateColumn: PRINT SPACE$(maxWidth)
264.     IF page <> 0 THEN LOCATE locateRow - 1, locateColumn: PRINT LEFT$(" Pg Up" + SPACE$(maxWidth), maxWidth)
265.     LOCATE locateRow + maxHeight, locateColumn: PRINT SPACE$(maxWidth)
266.     IF page <> INT(uba / maxHeight) THEN
267.         LOCATE locateRow + maxHeight, locateColumn: PRINT LEFT$(" Pg Dn" + SPACE$(maxWidth), maxWidth)
268.     END IF
269.     'make exit sign for mouse click
270.     COLOR _RGB32(255, 255, 255), _RGB32(200, 100, 0)
271.     LOCATE locateRow - 1, locateColumn + maxWidth - 3
272.     PRINT " X "
273.  
274.     'if a number selection has been started show it's build = b$
275.     IF LEN(b$) THEN
276.         COLOR _RGB(255, 255, 0), _RGB32(0, 0, 0)
277.         LOCATE locateRow + maxHeight, locateColumn + maxWidth - LEN(b$) - 1
278.         PRINT b$;
279.     END IF
280.     _DISPLAY
281.     _LIMIT 100
282.     RETURN
283. END FUNCTION
284.  

The code is still quite messy and I hope to add a select files box.

[SMcNeill]

Try this little two-line demo out:

Code: QB64: [Select]

1. PRINT ENVIRON$("TEMP")
2. PRINT ENVIRON$("TMP")

It should be safe to get the users temp directory, without having to make one of your own.

[bplus]

Thanks Steve, looks to be working well.

[SierraKen]

This is awesome B+! Thank you! But I did run into 1 big problem, it starts playing the music of that folder but it won't go to the music info screen, until you press Esc for some reason. Esc ends the program but it also shows that music info screen. There's also a Warning saying 1 variable is unused on line 186, which is in your code. Here is the music player so far, maybe you or someone can help me fix this. I added another SCREEN command right before the songs play and music info comes up, but that doesn't seem to help. It must have to do with a conflict between your SCREEN and my SCREEN. Another problem is that there's a Subscript Out of Range in line 176, sometimes. I think when I got too deep in the folders, about 3 in. But this is nice so far. The area where it plays the folder is line 95 at playdir: The area where it changes directory, I just GOSUB to it from line 45. Your code is the last part of this program, which starts at line 146. I commented out your OPTION _EXPLICIT so I wouldn't have to dig through the entire program to make DIM commands for every variable. I'm not sure what that command does myself.
The Subscript Out Of Range on line 176 happens when I click X to shut your window off to go back to my main menu. Maybe we need to DIM myFiles ?

Code: QB64: [Select]

1. 'This program was made on August 21, 2019 by Ken G. with some help by Petr from the QB64.org forum.
2. 'This program will make a temporary file called MyMusicFiles-Temp000.temp
3. 'which is just a text file and can be opened by Notepad. It shows a list of
4. 'the mp3 songs in that directory. The file is deleted once the music starts.
5.  
6. DECLARE LIBRARY 'Directory Information using KERNEL32 provided by Dav
7.     FUNCTION CURDirectory ALIAS GetCurrentDirectoryA (BYVAL nBufferLen AS LONG, lpBuffer AS STRING)
8. END DECLARE
9.  
10.  
11. _TITLE "Mini MP3 Player"
12. SCREEN _NEWIMAGE(400, 400, 32)
13. begin:
14. DIM f$(100000)
15. record = 0
16. rec = 0
17. oldp = 0
18. p = 0
19. CLS
20. PRINT: PRINT: PRINT
21. PRINT "                Mini MP3 Player"
22. PRINT: PRINT: PRINT
23. PRINT "                  By Ken G."
24. PRINT
25. '=== SHOW CURRENT DIRECTORY
26. CurDir$ = SPACE$(255)
27. Result = CURDirectory(LEN(CurDir$), CurDir$)
28. IF Result THEN LOCATE 11, 1: PRINT "Directory: "; LEFT$(CurDir$, Result)
29. PRINT: PRINT
30. PRINT "            (1) Change Directory"
31. PRINT "            (2) Play Song"
32. PRINT "            (3) Play Directory"
33. PRINT "            (4) Quit"
34. PRINT
35. PRINT
36. INPUT "      ->", a
37. IF a = 1 THEN GOTO directory:
38. IF a = 2 THEN GOTO song:
39. IF a = 3 THEN GOTO playdir:
40. IF a = 4 THEN END
41. IF a > 4 OR a < 1 OR a <> INT(a) THEN GOTO begin:
42. directory:
43. CLS
44.  
45. 'Here is B+'s File Navigator
46.  
47. GOSUB changedirectory:
48.  
49. 'again:
50. 'PRINT: PRINT: PRINT
51. 'INPUT "Directory: ", d$
52. 'IF d$ = "" THEN GOTO begin:
53. 'r% = _DIREXISTS(d$)
54. 'IF r% <> -1 THEN
55. 'PRINT "Directory doesn't exist."
56. 'PRINT "Try again, or Enter for Menu."
57. 'GOTO again:
58. 'END IF
59. 'CHDIR d$
60. GOTO begin:
61. song:
62. CLS
63. FILES "*.mp3"
64. again2:
65. PRINT
66. INPUT "Song: ", song$
67. IF song$ = "" THEN GOTO begin:
68. fe% = _FILEEXISTS(song$)
69. IF fe% <> -1 THEN
70.     PRINT "Filename doesn't exist."
71.     PRINT "Try again, or Enter for Menu."
72.     GOTO again2:
73. END IF
74. CLS
75. s& = _SNDOPEN(song$)
76. IF s& = 0 THEN BEEP ELSE _SNDPLAY s&
77. LOCATE 1, 1: PRINT song$
78. LOCATE 2, 1: PRINT "Sound Rate: "; _SNDRATE
79. LOCATE 4, 1: PRINT "Length: "; INT(_SNDLEN(s&))
80. LOCATE 6, 1: PRINT "Space Bar = Pause (P)lay (S)top (M)enu"
81.  
82. DO
83.     a$ = INKEY$
84.     IF a$ = CHR$(27) THEN _SNDSTOP s&: END
85.     IF a$ = " " THEN _SNDPAUSE s&
86.     IF a$ = "S" OR a$ = "s" THEN _SNDSTOP s&
87.     IF a$ = "P" OR a$ = "p" THEN _SNDPLAY s&
88.     IF a$ = "M" OR a$ = "m" THEN _SNDSTOP s&: GOTO begin:
89.     oldp = p
90.     p = _SNDGETPOS(s&)
91.     LOCATE 3, 1: PRINT "Position: "; INT(p)
92.     IF INT(oldp) > INT(p) AND INT(p) = 0 THEN GOTO begin:
93. LOOP
94. GOTO begin:
95. playdir:
96. SCREEN _NEWIMAGE(400, 400, 32)
97. CLS
98. REDIM file(0) AS STRING 'create empty text array. 0 is record nr. 1!
99. SHELL _HIDE "dir *.mp3 /B > MyMusicFiles-Temp000.temp" 'create mp3 files list.
100. OPEN "MyMusicFiles-Temp000.temp" FOR INPUT AS #1
101. IF EOF(1) THEN
102.     CLOSE #1
103.     SHELL _HIDE "DEL MyMusicFiles-Temp000.temp"
104.     CLS
105.     PRINT "No mp3 songs on this folder."
106.     PRINT
107.     INPUT "Press Enter to go back to Menu.", menu$
108.     GOTO begin:
109. END IF
110. WHILE NOT EOF(1)
111.     LINE INPUT #1, file$
112.     file(record) = file$
113.     f$(record) = file$
114.     PRINT f$(record)
115.     record = record + 1 'for next loop we needed array higher up to one
116.     REDIM _PRESERVE file(record) AS STRING 'this do array bigger without deleting content
117. WEND
118. CLOSE #1
119. SHELL _HIDE "DEL MyMusicFiles-Temp000.temp"
120. 'so now file(0) is first file from disk. file(3) is 4th file from disk. Try it:
121. ready:
122. s& = _SNDOPEN(file(rec))
123. CLS
124. _SNDPLAY (s&)
125. LOCATE 1, 1: PRINT f$(rec)
126. LOCATE 2, 1: PRINT "Sound Rate: "; _SNDRATE
127. LOCATE 4, 1: PRINT "Length: "; INT(_SNDLEN(s&))
128. LOCATE 6, 1: PRINT "Space Bar = Pause (P)lay (N)ext Song (M)enu"
129.  
130. DO
131.     a$ = INKEY$
132.     IF a$ = CHR$(27) THEN _SNDSTOP s&: END
133.     IF a$ = " " THEN _SNDPAUSE s&
134.     IF a$ = "N" OR a$ = "n" THEN _SNDSTOP s&
135.     IF a$ = "P" OR a$ = "p" THEN _SNDPLAY s&
136.     IF a$ = "M" OR a$ = "m" THEN _SNDSTOP s&: rec = 0: GOTO begin:
137.     oldp = p
138.     p = _SNDGETPOS(s&)
139.     LOCATE 3, 1: PRINT "Position: "; INT(p)
140.     IF INT(oldp) > INT(p) AND INT(p) = 0 THEN GOTO more:
141. LOOP
142. more:
143. IF rec = record - 1 THEN GOTO begin:
144. rec = rec + 1
145. GOTO ready:
146. 'OPTION _EXPLICIT
147. '_TITLE "Tiny Navigator mod orig post with perm tmpfile" 'B+
148. ' 2019-08-22 orig post at https://www.qb64.org/forum/index.php?topic=1646.msg108682#msg108682
149. ' 2019-08-23 try fix (to nav all directories) with one place for tmpFile, theory can't write files in some dir's
150. ' For some reason Windows won't write to a fully pathed file in my user folder???
151. ' Try testing if dir exists "C:\temp" exists and making one if not, yes! and I can write my temp files there
152. ' and now I can chDir anywhere!
153.  
154. '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
155.  
156. ' Attention!!!  this creates a temp directory "C:\temp", do not run this program if you forbid this.
157.  
158. '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
159.  
160. changedirectory:
161. SCREEN _NEWIMAGE(1200, 600, 32)
162. _SCREENMOVE 100, 50
163.  
164.  
165. IF _DIREXISTS("C:\temp") THEN ELSE MKDIR "C:\temp"
166.  
167. DIM mySelection&, done$
168.  
169. DO
170.     PRINT "Current Directory: " + _CWD$
171.     REDIM myFiles(0) AS STRING
172.     loadFA "*.*", myFiles()
173.     mySelection& = getArrayItemNumber&(5, 5, 90, 30, myFiles())
174.     CLS
175.     IF mySelection& <> -1719 THEN
176.         CHDIR myFiles(mySelection&)
177.     ELSE
178.         PRINT "No Directory selected."
179.         INPUT "Press enter to continue navigator, any + enter to quit... "; done$
180.     END IF
181.     _LIMIT 60
182. LOOP UNTIL done$ <> ""
183.  
184. RETURN
185.  
186. SUB loadFA (spec$, fa() AS STRING)
187.     DIM tmpFile$, Index%, fline$, d$
188.     tmpFile$ = "C:\temp\DIR$INF0.INF"
189.     'PRINT tmpFile$
190.     'END
191.     SHELL _HIDE "DIR /a:d >" + tmpFile$ 'get directories  but have to do a little pruning
192.     'SHELL _HIDE "DIR " + spec$ + " /b > " + TmpFile$
193.     'SHELL _HIDE "DIR " + spec$ + " /b /s /o:gen> " + TmpFile$
194.     OPEN tmpFile$ FOR INPUT AS #1
195.     Index% = -1
196.     DO WHILE NOT EOF(1)
197.         LINE INPUT #1, fline$
198.         IF INSTR(fline$, "<DIR>") THEN
199.             d$ = _TRIM$(rightOf$(fline$, "<DIR>"))
200.             Index% = Index% + 1
201.             REDIM _PRESERVE fa(Index%)
202.             fa(Index%) = d$
203.         END IF
204.     LOOP
205.     CLOSE #1
206.     KILL tmpFile$
207. END SUB
208.  
209. FUNCTION rightOf$ (source$, of$)
210.     IF INSTR(source$, of$) > 0 THEN rightOf$ = MID$(source$, INSTR(source$, of$) + LEN(of$))
211. END FUNCTION
212.  
213. 'attempting use this 4 things (2018-12-30)
214. ' 1. expects HELP sub that uses message and message box but easy to comment out
215. ' 2. expects to be in graphics mode
216. ' 3. chages color of screen
217. ' 4. needs _KEYCLEAR 2 before calling of previous keyhits will interfere!!!
218. '
219. ' Future Help Message Box for the function.
220. ' "*** Mouse and Key Instructions ***"
221. '
222. ' "Mouse, mouse wheel, and arrow keys should work as expected for item selection."
223. ' "Press spacebar to select a highlighted item or just click it."
224. ' "Use number(s) + enter to select an array item by it's index number,"
225. ' "backspace will remove last number pressed, c will clear a number started."
226. ' "Numbers started are shown in bottom right PgDn bar."
227. ' "Enter will also select the highlighted item, if no number has been started."
228. ' "Home starts you at lowest array index, End highlights then highest index."
229. ' "Use PgUp and PgDn keys to flip through pages of array items."
230. '
231. ' "Escape returns -1719 to allow a Cancel function and signal no slection."
232. FUNCTION getArrayItemNumber& (locateRow, locateColumn, boxWidth, boxHeight, arr() AS STRING)
233.     'Notes: locateRow, locateColumn for top right corner of selection box on screen in characters for LOCATE.
234.     'boxWidth and boxHeight are in character units, again for locate and print at correct places.
235.     'All displaying is restricted to inside the box, which has PgUP and PgDn as top and bottom lines in the display.
236.  
237.     DIM curRow AS INTEGER, curCol AS INTEGER, fg AS _UNSIGNED LONG, bg AS _UNSIGNED LONG
238.     DIM maxWidth AS INTEGER, maxHeight AS INTEGER, page AS INTEGER, hlite AS INTEGER, mx AS INTEGER, my AS INTEGER
239.     DIM lastMX AS INTEGER, lastMY AS INTEGER, row AS INTEGER, mb AS INTEGER
240.     DIM lba AS LONG, uba AS LONG, choice AS LONG, kh AS LONG, index AS LONG
241.     DIM clrStr AS STRING, b AS STRING
242.  
243.     'save old settings to restore at end ofsub
244.     curRow = CSRLIN
245.     curCol = POS(0)
246.     fg = _DEFAULTCOLOR
247.     bg = _BACKGROUNDCOLOR
248.     _KEYCLEAR
249.  
250.     maxWidth = boxWidth '       number of characters in box
251.     maxHeight = boxHeight - 2 ' number of lines displayed of array at one time = 1 page
252.     lba = LBOUND(arr)
253.     uba = UBOUND(arr)
254.     page = 0
255.     hlite = 0 '                 line in display ready for selection by spacebar or if no number is started, enter
256.     clrStr$ = SPACE$(maxWidth) 'clearing a display line
257.  
258.     GOSUB update '              show the beginning of the array items for selection
259.  
260.     'signal cancel selection process, exit sub with this unlikely index to signal canel
261.     choice = -1719 'primes 7 and 8, not likely to be a select index of an array
262.  
263.     DO 'until get a selection or demand exit
264.  
265.         'handle the key stuff
266.         kh& = _KEYHIT
267.         IF kh& THEN
268.             IF kh& > 0 AND kh& < 255 THEN
269.                 IF INSTR("0123456789", CHR$(kh&)) > 0 THEN b$ = b$ + CHR$(kh&): GOSUB update
270.                 'IF CHR$(kh&) = "h" THEN HELP: _KEYCLEAR
271.  
272.                 IF CHR$(kh&) = "c" THEN b$ = "": GOSUB update
273.                 IF kh& = 13 THEN 'enter pressed check if number is being entered?
274.                     IF LEN(b$) THEN
275.                         IF VAL(b$) >= lba AND VAL(b$) <= uba THEN 'we have number started
276.                             choice = VAL(b$): EXIT DO
277.                         ELSE 'clear b$ to show some response to enter
278.                             b$ = "": GOSUB update 'clear the value that doesn't work
279.                         END IF
280.                     ELSE
281.                         choice = hlite + page * maxHeight + lba 'must mean to select the highlighted item
282.                     END IF
283.                 END IF
284.                 IF kh& = 27 THEN EXIT DO 'escape clause offered to Cancel selection process
285.                 IF kh& = 32 THEN choice = hlite + page * maxHeight + lba 'best way to choose highlighted selection
286.                 IF kh& = 8 THEN 'backspace to edit number
287.                     IF LEN(b$) THEN b$ = LEFT$(b$, LEN(b$) - 1): GOSUB update
288.                 END IF
289.             ELSE
290.                 SELECT CASE kh& 'choosing sections of array to display and highlighted item
291.                     CASE 20736 'pg dn
292.                         IF (page + 1) * maxHeight + lba <= uba THEN page = page + 1: GOSUB update
293.                     CASE 18688 'pg up
294.                         IF (page - 1) * maxHeight + lba >= lba THEN page = page - 1: GOSUB update
295.                     CASE 18432 'up
296.                         IF hlite - 1 < 0 THEN
297.                             IF page > 0 THEN
298.                                 page = page - 1: hlite = maxHeight - 1: GOSUB update
299.                             END IF
300.                         ELSE
301.                             hlite = hlite - 1: GOSUB update
302.                         END IF
303.                     CASE 20480 'down
304.                         IF (hlite + 1) + page * maxHeight + lba <= uba THEN 'ok to move up
305.                             IF hlite + 1 > maxHeight - 1 THEN
306.                                 page = page + 1: hlite = 0: GOSUB update
307.                             ELSE
308.                                 hlite = hlite + 1: GOSUB update
309.                             END IF
310.                         END IF
311.                     CASE 18176 'home
312.                         page = 0: hlite = 0: GOSUB update
313.                     CASE 20224 ' end
314.                         page = INT((uba - lba) / maxHeight): hlite = maxHeight - 1: GOSUB update
315.                 END SELECT
316.             END IF
317.         END IF
318.  
319.         'handle the mouse stuff
320.         WHILE _MOUSEINPUT
321.             IF _MOUSEWHEEL = -1 THEN 'up?
322.                 IF hlite - 1 < 0 THEN
323.                     IF page > 0 THEN
324.                         page = page - 1: hlite = maxHeight - 1: GOSUB update
325.                     END IF
326.                 ELSE
327.                     hlite = hlite - 1: GOSUB update
328.                 END IF
329.             ELSEIF _MOUSEWHEEL = 1 THEN 'down?
330.                 IF (hlite + 1) + page * maxHeight + lba <= uba THEN 'ok to move up
331.                     IF hlite + 1 > maxHeight - 1 THEN
332.                         page = page + 1: hlite = 0: GOSUB update
333.                     ELSE
334.                         hlite = hlite + 1: GOSUB update
335.                     END IF
336.                 END IF
337.             END IF
338.         WEND
339.         mx = INT((_MOUSEX - locateColumn * 8) / 8) + 2: my = INT((_MOUSEY - locateRow * 16) / 16) + 2
340.         IF _MOUSEBUTTON(1) THEN 'click contols or select array item
341.             'clear mouse clicks
342.             mb = _MOUSEBUTTON(1)
343.             IF mb THEN 'clear it
344.                 WHILE mb 'OK!
345.                     IF _MOUSEINPUT THEN mb = _MOUSEBUTTON(1)
346.                     _LIMIT 100
347.                 WEND
348.             END IF
349.  
350.             IF mx >= 1 AND mx <= maxWidth AND my >= 1 AND my <= maxHeight THEN
351.                 choice = my + page * maxHeight + lba - 1 'select item clicked
352.             ELSEIF mx >= 1 AND mx <= maxWidth AND my = 0 THEN 'page up or exit
353.                 IF my = 0 AND (mx <= maxWidth AND mx >= maxWidth - 2) THEN 'exit sign
354.                     EXIT DO 'escape plan for mouse click top right corner of display box
355.                 ELSE 'PgUp bar clicked
356.                     IF (page - 1) * maxHeight + lba >= lba THEN page = page - 1: GOSUB update
357.                 END IF
358.             ELSEIF mx >= 1 AND mx <= maxWidth AND my = maxHeight + 1 THEN 'page down bar clicked
359.                 IF (page + 1) * maxHeight + lba <= uba THEN page = page + 1: GOSUB update
360.             END IF
361.         ELSE '   mouse over highlighting, only if mouse has moved!
362.             IF mx >= 1 AND mx <= maxWidth AND my >= 1 AND my <= maxHeight THEN
363.                 IF mx <> lastMX OR my <> lastMY THEN
364.                     IF my - 1 <> hlite AND (my - 1 + page * maxHeight + lba <= uba) THEN
365.                         hlite = my - 1
366.                         lastMX = mx: lastMY = my
367.                         GOSUB update
368.                     END IF
369.                 END IF
370.             END IF
371.         END IF
372.         _LIMIT 200
373.     LOOP UNTIL choice >= lba AND choice <= uba
374.     getArrayItemNumber& = choice
375.     COLOR fg, bg
376.     'clear key presses
377.     _KEYCLEAR
378.     LOCATE curRow, curCol
379.     'clear mouse clicks
380.     mb = _MOUSEBUTTON(1)
381.     IF mb THEN 'clear it
382.         WHILE mb 'OK!
383.             IF _MOUSEINPUT THEN mb = _MOUSEBUTTON(1)
384.             _LIMIT 100
385.         WEND
386.     END IF
387.     EXIT SUB
388.  
389.     'display of array sections and controls on screen
390.     update:
391.  
392.     'fix hlite if it has dropped below last array item
393.     WHILE hlite + page * maxHeight + lba > uba
394.         hlite = hlite - 1
395.     WEND
396.  
397.     'main display of array items at page * maxHeight (lines high)
398.     FOR row = 0 TO maxHeight - 1
399.         IF hlite = row THEN COLOR _RGB(200, 200, 255), _RGB32(0, 0, 88) ELSE COLOR _RGB32(0, 0, 88), _RGB(200, 200, 255)
400.         LOCATE locateRow + row, locateColumn: PRINT clrStr$
401.         index = row + page * maxHeight + lba
402.         IF index >= lba AND index <= uba THEN
403.             LOCATE locateRow + row, locateColumn
404.             PRINT LEFT$(LTRIM$(STR$(index)) + ") " + arr(index), maxWidth)
405.         END IF
406.     NEXT
407.  
408.     'make page up and down bars to click, print PgUp / PgDn if available
409.     COLOR _RGB32(200, 200, 255), _RGB32(0, 100, 50)
410.     LOCATE locateRow - 1, locateColumn: PRINT SPACE$(maxWidth)
411.     IF page <> 0 THEN LOCATE locateRow - 1, locateColumn: PRINT LEFT$(" Pg Up" + SPACE$(maxWidth), maxWidth)
412.     LOCATE locateRow + maxHeight, locateColumn: PRINT SPACE$(maxWidth)
413.     IF page <> INT(uba / maxHeight) THEN
414.         LOCATE locateRow + maxHeight, locateColumn: PRINT LEFT$(" Pg Dn" + SPACE$(maxWidth), maxWidth)
415.     END IF
416.     'make exit sign for mouse click
417.     COLOR _RGB32(255, 255, 255), _RGB32(200, 100, 0)
418.     LOCATE locateRow - 1, locateColumn + maxWidth - 3
419.     PRINT " X "
420.  
421.     'if a number selection has been started show it's build = b$
422.     IF LEN(b$) THEN
423.         COLOR _RGB(255, 255, 0), _RGB32(0, 0, 0)
424.         LOCATE locateRow + maxHeight, locateColumn + maxWidth - LEN(b$) - 1
425.         PRINT b$;
426.     END IF
427.     _DISPLAY
428.     _LIMIT 100
429.     RETURN
430. END FUNCTION
431.  
432.  

[bplus]

RE: Navigator in Ken's application

I changed the navigator part to fit your screen, when you click X or escape you are done with navigator so I send you to return to where ever it was called. I used _KEYCLEAR in case that was interfering with other code.

You loose me with all your goto's so that's on to you to get straight.

Here navigator part reworked to fit your screen:

Code: QB64: [Select]

1. changedirectory:
2. 'SCREEN _NEWIMAGE(1200, 600, 32)
3. '_SCREENMOVE 100, 50
4.  
5.  
6. IF _DIREXISTS("C:\temp") THEN ELSE MKDIR "C:\temp"
7.  
8. DIM mySelection&, done$
9.  
10. DO
11.     PRINT "Current Directory: " + _CWD$
12.     REDIM myFiles(0) AS STRING
13.     loadFA "*.*", myFiles()
14.     mySelection& = getArrayItemNumber&(5, 2, 48, 20, myFiles())
15.     CLS
16.     IF mySelection& <> -1719 THEN
17.         CHDIR myFiles(mySelection&)
18.     ELSE
19.         _KEYCLEAR
20.         EXIT DO
21.         'PRINT "No Directory selected."
22.         'INPUT "Press enter to continue navigator, any + enter to quit... "; done$
23.     END IF
24.     _LIMIT 60
25. LOOP 'UNTIL done$ <> ""
26.  
27. RETURN
28.  
29.  

The warning just says we didn't use the variable passed to the sub, it's old leftovers code that hasn't been cleaned out yet, not to worry.

QB64 has _CWD$ that will give you the current directory without the library code at the start of your program.

CurrentWorkingDirectory$ = _CWD$

OPTION _EXPLICIT makes you dimension all your variables, it catches typo's, not needed when code is working OK.

[SierraKen]

Thanks B+, we are getting closer! But half of it still freezes up after I choose "(3) Play Directory". It still plays the music of the directory, but the screen doesn't CLS to the next page, it just sits there as it plays the music. And it doesn't do this when I don't change the directory first with your directory code. Something really bizarre is going on. Another strange thing is, just to test it, I added an INPUT a$ after it was supposed to do CLS just to see if it got to that point, and it does! So the only logical reasoning would be that the program flies through the rest of the code and goes straight back to the front menu. The only problem is, I also removed all the GOTO's that make it go back to it, and it still does the same thing. LOL But I know it plays the music, which makes some of that area work, just not the CLS or the PRINT or LOCATE statements. I know this sounds almost like a newbie, but I've looked into this a lot and cannot find anything. But I know it has something to do with your code because like I said, if I don't change a directory, it displays everything normally. Here is the code again if you want to take a crack at it. No pressure though, this is just something I do in my spare time so if you want to move on, I understand. I'll just remove your code if you want me to and go with the original. I really wish this would work though. :) Hmm, maybe a SUB is still running in the background on a LOOP even after your menu is X'ed out?

Here is what I have:

Code: QB64: [Select]

1. 'This program was made on August 21, 2019 by Ken G. with some help by Petr from the QB64.org forum.
2. 'This program will make a temporary file called MyMusicFiles-Temp000.temp
3. 'which is just a text file and can be opened by Notepad. It shows a list of
4. 'the mp3 songs in that directory. The file is deleted once the music starts.
5.  
6. DECLARE LIBRARY 'Directory Information using KERNEL32 provided by Dav
7.     FUNCTION CURDirectory ALIAS GetCurrentDirectoryA (BYVAL nBufferLen AS LONG, lpBuffer AS STRING)
8. END DECLARE
9.  
10.  
11. _TITLE "Mini MP3 Player"
12. SCREEN _NEWIMAGE(400, 400, 32)
13. begin:
14. DIM f$(100000)
15. record = 0
16. rec = 0
17. oldp = 0
18. p = 0
19. CLS
20. PRINT: PRINT: PRINT
21. PRINT "                Mini MP3 Player"
22. PRINT: PRINT: PRINT
23. PRINT "                  By Ken G."
24. PRINT
25. '=== SHOW CURRENT DIRECTORY
26. LOCATE 11, 1: PRINT "Directory: "; _CWD$
27. PRINT: PRINT
28. PRINT "            (1) Change Directory"
29. PRINT "            (2) Play Song"
30. PRINT "            (3) Play Directory"
31. PRINT "            (4) Quit"
32. PRINT
33. PRINT
34. INPUT "      ->", a
35. IF a = 1 THEN GOTO directory:
36. IF a = 2 THEN GOTO song:
37. IF a = 3 THEN GOTO playdir:
38. IF a = 4 THEN END
39. IF a > 4 OR a < 1 OR a <> INT(a) THEN GOTO begin:
40. directory:
41. CLS
42.  
43. 'Here is B+'s File Navigator
44.  
45. GOSUB changedirectory:
46.  
47. 'again:
48. 'PRINT: PRINT: PRINT
49. 'INPUT "Directory: ", d$
50. 'IF d$ = "" THEN GOTO begin:
51. 'r% = _DIREXISTS(d$)
52. 'IF r% <> -1 THEN
53. 'PRINT "Directory doesn't exist."
54. 'PRINT "Try again, or Enter for Menu."
55. 'GOTO again:
56. 'END IF
57. 'CHDIR d$
58.  
59. GOTO begin:
60. song:
61. CLS
62. FILES "*.mp3"
63. again2:
64. PRINT
65. INPUT "Song: ", song$
66. IF song$ = "" THEN GOTO begin:
67. fe% = _FILEEXISTS(song$)
68. IF fe% <> -1 THEN
69.     PRINT "Filename doesn't exist."
70.     PRINT "Try again, or Enter for Menu."
71.     GOTO again2:
72. END IF
73. CLS
74. s& = _SNDOPEN(song$)
75. IF s& = 0 THEN BEEP ELSE _SNDPLAY s&
76. LOCATE 1, 1: PRINT song$
77. LOCATE 2, 1: PRINT "Sound Rate: "; _SNDRATE
78. LOCATE 4, 1: PRINT "Length: "; INT(_SNDLEN(s&))
79. LOCATE 6, 1: PRINT "Space Bar = Pause (P)lay (S)top (M)enu"
80.  
81. DO
82.     a$ = INKEY$
83.     IF a$ = CHR$(27) THEN _SNDSTOP s&: END
84.     IF a$ = " " THEN _SNDPAUSE s&
85.     IF a$ = "S" OR a$ = "s" THEN _SNDSTOP s&
86.     IF a$ = "P" OR a$ = "p" THEN _SNDPLAY s&
87.     IF a$ = "M" OR a$ = "m" THEN _SNDSTOP s&: GOTO begin:
88.     oldp = p
89.     p = _SNDGETPOS(s&)
90.     LOCATE 3, 1: PRINT "Position: "; INT(p)
91.     IF INT(oldp) > INT(p) AND INT(p) = 0 THEN GOTO begin:
92. LOOP
93. GOTO begin:
94.  
95. playdir:
96. CLS
97. REDIM file(0) AS STRING 'create empty text array. 0 is record nr. 1!
98. SHELL _HIDE "dir *.mp3 /B > MyMusicFiles-Temp000.temp" 'create mp3 files list.
99. OPEN "MyMusicFiles-Temp000.temp" FOR INPUT AS #1
100. IF EOF(1) THEN
101.     CLOSE #1
102.     SHELL _HIDE "DEL MyMusicFiles-Temp000.temp"
103.     CLS
104.     PRINT "No mp3 songs on this folder."
105.     PRINT
106.     INPUT "Press Enter to go back to Menu.", menu$
107.     GOTO begin:
108. END IF
109. WHILE NOT EOF(1)
110.     LINE INPUT #1, file$
111.     file(record) = file$
112.     f$(record) = file$
113.     PRINT f$(record)
114.     record = record + 1 'for next loop we needed array higher up to one
115.     REDIM _PRESERVE file(record) AS STRING 'this do array bigger without deleting content
116. WEND
117. CLOSE #1
118. SHELL _HIDE "DEL MyMusicFiles-Temp000.temp"
119. 'so now file(0) is first file from disk. file(3) is 4th file from disk. Try it:
120. ready:
121. a$ = ""
122. p = 0
123. oldp = 0
124. s& = _SNDOPEN(file(rec))
125. _SNDPLAY (s&)
126. LOCATE 1, 1: PRINT f$(rec)
127. LOCATE 2, 1: PRINT "Sound Rate: "; _SNDRATE
128. LOCATE 4, 1: PRINT "Length: "; INT(_SNDLEN(s&))
129. LOCATE 6, 1: PRINT "Space Bar = Pause (P)lay (N)ext Song (M)enu"
130. DO
131.     a$ = INKEY$
132.     IF a$ = CHR$(27) THEN _SNDSTOP s&: END
133.     IF a$ = " " THEN _SNDPAUSE s&
134.     IF a$ = "N" OR a$ = "n" THEN _SNDSTOP s&
135.     IF a$ = "P" OR a$ = "p" THEN _SNDPLAY s&
136.     IF a$ = "M" OR a$ = "m" THEN _SNDSTOP s&: rec = 0: GOTO begin:
137.     oldp = p
138.     p = _SNDGETPOS(s&)
139.     LOCATE 3, 1: PRINT "Position: "; INT(p)
140.     IF INT(oldp) > INT(p) AND INT(p) = 0 THEN GOTO more:
141. LOOP
142. more:
143. IF rec = record - 1 THEN GOTO begin:
144. rec = rec + 1
145. GOTO ready:
146. 'OPTION _EXPLICIT
147. '_TITLE "Tiny Navigator mod orig post with perm tmpfile" 'B+
148. ' 2019-08-22 orig post at https://www.qb64.org/forum/index.php?topic=1646.msg108682#msg108682
149. ' 2019-08-23 try fix (to nav all directories) with one place for tmpFile, theory can't write files in some dir's
150. ' For some reason Windows won't write to a fully pathed file in my user folder???
151. ' Try testing if dir exists "C:\temp" exists and making one if not, yes! and I can write my temp files there
152. ' and now I can chDir anywhere!
153.  
154. '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
155.  
156. ' Attention!!!  this creates a temp directory "C:\temp", do not run this program if you forbid this.
157.  
158. '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
159.  
160. changedirectory:
161. 'SCREEN _NEWIMAGE(1200, 600, 32)
162. '_SCREENMOVE 100, 50
163.  
164.  
165. IF _DIREXISTS("C:\temp") THEN ELSE MKDIR "C:\temp"
166.  
167. DIM mySelection&, done$
168.  
169. DO
170.     PRINT "Current Directory: " + _CWD$
171.     REDIM myFiles(0) AS STRING
172.     loadFA "*.*", myFiles()
173.     mySelection& = getArrayItemNumber&(5, 2, 48, 20, myFiles())
174.     CLS
175.     IF mySelection& <> -1719 THEN
176.         CHDIR myFiles(mySelection&)
177.     ELSE
178.         _KEYCLEAR
179.         EXIT DO
180.     END IF
181.     _LIMIT 60
182. LOOP 'UNTIL done$ <> ""
183.  
184. RETURN
185.  
186. SUB loadFA (spec$, fa() AS STRING)
187.     DIM tmpFile$, Index%, fline$, d$
188.     tmpFile$ = "C:\temp\DIR$INF0.INF"
189.     'PRINT tmpFile$
190.     'END
191.     SHELL _HIDE "DIR /a:d >" + tmpFile$ 'get directories  but have to do a little pruning
192.     'SHELL _HIDE "DIR " + spec$ + " /b > " + TmpFile$
193.     'SHELL _HIDE "DIR " + spec$ + " /b /s /o:gen> " + TmpFile$
194.     OPEN tmpFile$ FOR INPUT AS #1
195.     Index% = -1
196.     DO WHILE NOT EOF(1)
197.         LINE INPUT #1, fline$
198.         IF INSTR(fline$, "<DIR>") THEN
199.             d$ = _TRIM$(rightOf$(fline$, "<DIR>"))
200.             Index% = Index% + 1
201.             REDIM _PRESERVE fa(Index%)
202.             fa(Index%) = d$
203.         END IF
204.     LOOP
205.     CLOSE #1
206.     KILL tmpFile$
207. END SUB
208.  
209. FUNCTION rightOf$ (source$, of$)
210.     IF INSTR(source$, of$) > 0 THEN rightOf$ = MID$(source$, INSTR(source$, of$) + LEN(of$))
211. END FUNCTION
212.  
213. 'attempting use this 4 things (2018-12-30)
214. ' 1. expects HELP sub that uses message and message box but easy to comment out
215. ' 2. expects to be in graphics mode
216. ' 3. chages color of screen
217. ' 4. needs _KEYCLEAR 2 before calling of previous keyhits will interfere!!!
218. '
219. ' Future Help Message Box for the function.
220. ' "*** Mouse and Key Instructions ***"
221. '
222. ' "Mouse, mouse wheel, and arrow keys should work as expected for item selection."
223. ' "Press spacebar to select a highlighted item or just click it."
224. ' "Use number(s) + enter to select an array item by it's index number,"
225. ' "backspace will remove last number pressed, c will clear a number started."
226. ' "Numbers started are shown in bottom right PgDn bar."
227. ' "Enter will also select the highlighted item, if no number has been started."
228. ' "Home starts you at lowest array index, End highlights then highest index."
229. ' "Use PgUp and PgDn keys to flip through pages of array items."
230. '
231. ' "Escape returns -1719 to allow a Cancel function and signal no slection."
232. FUNCTION getArrayItemNumber& (locateRow, locateColumn, boxWidth, boxHeight, arr() AS STRING)
233.     'Notes: locateRow, locateColumn for top right corner of selection box on screen in characters for LOCATE.
234.     'boxWidth and boxHeight are in character units, again for locate and print at correct places.
235.     'All displaying is restricted to inside the box, which has PgUP and PgDn as top and bottom lines in the display.
236.  
237.     DIM curRow AS INTEGER, curCol AS INTEGER, fg AS _UNSIGNED LONG, bg AS _UNSIGNED LONG
238.     DIM maxWidth AS INTEGER, maxHeight AS INTEGER, page AS INTEGER, hlite AS INTEGER, mx AS INTEGER, my AS INTEGER
239.     DIM lastMX AS INTEGER, lastMY AS INTEGER, row AS INTEGER, mb AS INTEGER
240.     DIM lba AS LONG, uba AS LONG, choice AS LONG, kh AS LONG, index AS LONG
241.     DIM clrStr AS STRING, b AS STRING
242.  
243.     'save old settings to restore at end ofsub
244.     curRow = CSRLIN
245.     curCol = POS(0)
246.     fg = _DEFAULTCOLOR
247.     bg = _BACKGROUNDCOLOR
248.     _KEYCLEAR
249.  
250.     maxWidth = boxWidth '       number of characters in box
251.     maxHeight = boxHeight - 2 ' number of lines displayed of array at one time = 1 page
252.     lba = LBOUND(arr)
253.     uba = UBOUND(arr)
254.     page = 0
255.     hlite = 0 '                 line in display ready for selection by spacebar or if no number is started, enter
256.     clrStr$ = SPACE$(maxWidth) 'clearing a display line
257.  
258.     GOSUB update '              show the beginning of the array items for selection
259.  
260.     'signal cancel selection process, exit sub with this unlikely index to signal canel
261.     choice = -1719 'primes 7 and 8, not likely to be a select index of an array
262.  
263.     DO 'until get a selection or demand exit
264.  
265.         'handle the key stuff
266.         kh& = _KEYHIT
267.         IF kh& THEN
268.             IF kh& > 0 AND kh& < 255 THEN
269.                 IF INSTR("0123456789", CHR$(kh&)) > 0 THEN b$ = b$ + CHR$(kh&): GOSUB update
270.                 'IF CHR$(kh&) = "h" THEN HELP: _KEYCLEAR
271.  
272.                 IF CHR$(kh&) = "c" THEN b$ = "": GOSUB update
273.                 IF kh& = 13 THEN 'enter pressed check if number is being entered?
274.                     IF LEN(b$) THEN
275.                         IF VAL(b$) >= lba AND VAL(b$) <= uba THEN 'we have number started
276.                             choice = VAL(b$): EXIT DO
277.                         ELSE 'clear b$ to show some response to enter
278.                             b$ = "": GOSUB update 'clear the value that doesn't work
279.                         END IF
280.                     ELSE
281.                         choice = hlite + page * maxHeight + lba 'must mean to select the highlighted item
282.                     END IF
283.                 END IF
284.                 IF kh& = 27 THEN EXIT DO 'escape clause offered to Cancel selection process
285.                 IF kh& = 32 THEN choice = hlite + page * maxHeight + lba 'best way to choose highlighted selection
286.                 IF kh& = 8 THEN 'backspace to edit number
287.                     IF LEN(b$) THEN b$ = LEFT$(b$, LEN(b$) - 1): GOSUB update
288.                 END IF
289.             ELSE
290.                 SELECT CASE kh& 'choosing sections of array to display and highlighted item
291.                     CASE 20736 'pg dn
292.                         IF (page + 1) * maxHeight + lba <= uba THEN page = page + 1: GOSUB update
293.                     CASE 18688 'pg up
294.                         IF (page - 1) * maxHeight + lba >= lba THEN page = page - 1: GOSUB update
295.                     CASE 18432 'up
296.                         IF hlite - 1 < 0 THEN
297.                             IF page > 0 THEN
298.                                 page = page - 1: hlite = maxHeight - 1: GOSUB update
299.                             END IF
300.                         ELSE
301.                             hlite = hlite - 1: GOSUB update
302.                         END IF
303.                     CASE 20480 'down
304.                         IF (hlite + 1) + page * maxHeight + lba <= uba THEN 'ok to move up
305.                             IF hlite + 1 > maxHeight - 1 THEN
306.                                 page = page + 1: hlite = 0: GOSUB update
307.                             ELSE
308.                                 hlite = hlite + 1: GOSUB update
309.                             END IF
310.                         END IF
311.                     CASE 18176 'home
312.                         page = 0: hlite = 0: GOSUB update
313.                     CASE 20224 ' end
314.                         page = INT((uba - lba) / maxHeight): hlite = maxHeight - 1: GOSUB update
315.                 END SELECT
316.             END IF
317.         END IF
318.  
319.         'handle the mouse stuff
320.         WHILE _MOUSEINPUT
321.             IF _MOUSEWHEEL = -1 THEN 'up?
322.                 IF hlite - 1 < 0 THEN
323.                     IF page > 0 THEN
324.                         page = page - 1: hlite = maxHeight - 1: GOSUB update
325.                     END IF
326.                 ELSE
327.                     hlite = hlite - 1: GOSUB update
328.                 END IF
329.             ELSEIF _MOUSEWHEEL = 1 THEN 'down?
330.                 IF (hlite + 1) + page * maxHeight + lba <= uba THEN 'ok to move up
331.                     IF hlite + 1 > maxHeight - 1 THEN
332.                         page = page + 1: hlite = 0: GOSUB update
333.                     ELSE
334.                         hlite = hlite + 1: GOSUB update
335.                     END IF
336.                 END IF
337.             END IF
338.         WEND
339.         mx = INT((_MOUSEX - locateColumn * 8) / 8) + 2: my = INT((_MOUSEY - locateRow * 16) / 16) + 2
340.         IF _MOUSEBUTTON(1) THEN 'click contols or select array item
341.             'clear mouse clicks
342.             mb = _MOUSEBUTTON(1)
343.             IF mb THEN 'clear it
344.                 WHILE mb 'OK!
345.                     IF _MOUSEINPUT THEN mb = _MOUSEBUTTON(1)
346.                     _LIMIT 100
347.                 WEND
348.             END IF
349.  
350.             IF mx >= 1 AND mx <= maxWidth AND my >= 1 AND my <= maxHeight THEN
351.                 choice = my + page * maxHeight + lba - 1 'select item clicked
352.             ELSEIF mx >= 1 AND mx <= maxWidth AND my = 0 THEN 'page up or exit
353.                 IF my = 0 AND (mx <= maxWidth AND mx >= maxWidth - 2) THEN 'exit sign
354.                     EXIT DO 'escape plan for mouse click top right corner of display box
355.                 ELSE 'PgUp bar clicked
356.                     IF (page - 1) * maxHeight + lba >= lba THEN page = page - 1: GOSUB update
357.                 END IF
358.             ELSEIF mx >= 1 AND mx <= maxWidth AND my = maxHeight + 1 THEN 'page down bar clicked
359.                 IF (page + 1) * maxHeight + lba <= uba THEN page = page + 1: GOSUB update
360.             END IF
361.         ELSE '   mouse over highlighting, only if mouse has moved!
362.             IF mx >= 1 AND mx <= maxWidth AND my >= 1 AND my <= maxHeight THEN
363.                 IF mx <> lastMX OR my <> lastMY THEN
364.                     IF my - 1 <> hlite AND (my - 1 + page * maxHeight + lba <= uba) THEN
365.                         hlite = my - 1
366.                         lastMX = mx: lastMY = my
367.                         GOSUB update
368.                     END IF
369.                 END IF
370.             END IF
371.         END IF
372.         _LIMIT 200
373.     LOOP UNTIL choice >= lba AND choice <= uba
374.     getArrayItemNumber& = choice
375.     COLOR fg, bg
376.     'clear key presses
377.     _KEYCLEAR
378.     LOCATE curRow, curCol
379.     'clear mouse clicks
380.     mb = _MOUSEBUTTON(1)
381.     IF mb THEN 'clear it
382.         WHILE mb 'OK!
383.             IF _MOUSEINPUT THEN mb = _MOUSEBUTTON(1)
384.             _LIMIT 100
385.         WEND
386.     END IF
387.     EXIT SUB
388.  
389.     'display of array sections and controls on screen
390.     update:
391.  
392.     'fix hlite if it has dropped below last array item
393.     WHILE hlite + page * maxHeight + lba > uba
394.         hlite = hlite - 1
395.     WEND
396.  
397.     'main display of array items at page * maxHeight (lines high)
398.     FOR row = 0 TO maxHeight - 1
399.         IF hlite = row THEN COLOR _RGB(200, 200, 255), _RGB32(0, 0, 88) ELSE COLOR _RGB32(0, 0, 88), _RGB(200, 200, 255)
400.         LOCATE locateRow + row, locateColumn: PRINT clrStr$
401.         index = row + page * maxHeight + lba
402.         IF index >= lba AND index <= uba THEN
403.             LOCATE locateRow + row, locateColumn
404.             PRINT LEFT$(LTRIM$(STR$(index)) + ") " + arr(index), maxWidth)
405.         END IF
406.     NEXT
407.  
408.     'make page up and down bars to click, print PgUp / PgDn if available
409.     COLOR _RGB32(200, 200, 255), _RGB32(0, 100, 50)
410.     LOCATE locateRow - 1, locateColumn: PRINT SPACE$(maxWidth)
411.     IF page <> 0 THEN LOCATE locateRow - 1, locateColumn: PRINT LEFT$(" Pg Up" + SPACE$(maxWidth), maxWidth)
412.     LOCATE locateRow + maxHeight, locateColumn: PRINT SPACE$(maxWidth)
413.     IF page <> INT(uba / maxHeight) THEN
414.         LOCATE locateRow + maxHeight, locateColumn: PRINT LEFT$(" Pg Dn" + SPACE$(maxWidth), maxWidth)
415.     END IF
416.     'make exit sign for mouse click
417.     COLOR _RGB32(255, 255, 255), _RGB32(200, 100, 0)
418.     LOCATE locateRow - 1, locateColumn + maxWidth - 3
419.     PRINT " X "
420.  
421.     'if a number selection has been started show it's build = b$
422.     IF LEN(b$) THEN
423.         COLOR _RGB(255, 255, 0), _RGB32(0, 0, 0)
424.         LOCATE locateRow + maxHeight, locateColumn + maxWidth - LEN(b$) - 1
425.         PRINT b$;
426.     END IF
427.     _DISPLAY
428.     _LIMIT 100
429.     RETURN
430. END FUNCTION
431.  
432.  

[bplus]

Hi Ken,

For simplicity sake, why not make each menu item that does something a gosub you select a menu item do the sub and you cycle back to the menu which should be in a loop:

Do
    cls
    print menu
    get a choice
    gosub the choice '<<< it returns here to loop back around to show menu again
loop

if the choice is not on menu, it would cycle back automatic.

Now all you have to do is make sure all your GOSUBs are tight and not leaking goto's to goodness knows where...

I will look at code again tomorrow when fresh but right now I suspect one of your goto's is leaking, I am pretty sure the navigator sub does not leak, but I've certainly been wrong before! I have to say, I don't like that library sub routine when you already have _CWD$.

PS when I say leak I mean the execution falls through down to the last code in program, namely my Navigator. Oh say, try putting an END statement before the Gosub label of Navigator, that will catch anything falling through and end program. Oh and put an end before the silly goto that tells execution to gosub the navigator too.

Update: Yes put an end between 39 and 40, because the execution could fall through there but it does look like all bases covered??

[bplus]

I have Tiny Navigator working with 2nd Files window for selecting files, just press f when you are in the desired directory, f will also get you the full files report for the directory you can scroll through and browse.

Code: QB64: [Select]

1. OPTION _EXPLICIT
2. _TITLE "Tiny Navigator: press f to window and select a file" 'B+ started 2019-08-22
3. SCREEN _NEWIMAGE(1000, 600, 32)
4. _SCREENMOVE 100, 50
5. ' 2019-08-22 orig post at https://www.qb64.org/forum/index.php?topic=1646.msg108682#msg108682
6. ' 2019-08-23_13-25 try fix (to nav all directories) with one place for tmpFile, theory can't write files in some dir's
7. ' For some reason Windows won't write to a fully pathed file in my user folder???from a SHELL command
8. ' Try testing if dir exists "C:\temp" exists and making one if not, yes! and I can write my temp files there
9. ' and now I can chDir anywhere!!!!
10. ' 2019-08-23_14-25 Take Steve's Advice to use users tmp directory for temp files
11. ' 2019-08-23_23+ Have files window working for file selection
12.  
13. DIM SHARED selectedFile AS STRING
14. DIM SHARED tmpDir AS STRING '  establish a permanent spot for temp files
15. IF ENVIRON$("TEMP") <> "" THEN 'Thanks to Steve McNeill use user temp files directory
16.     tmpDir = ENVIRON$("TEMP")
17. ELSEIF ENVIRON$("TMP") <> "" THEN
18.     tmpDir = ENVIRON$("TMP")
19. ELSE 'Thanks to Steve McNeill this should be very unlikely
20.     IF _DIREXISTS("C:\temp") THEN ELSE MKDIR "C:\temp"
21.     tmpDir = "C:\temp"
22. END IF
23.  
24. DIM mySelection&, done$, i, t$
25. DO
26.     COLOR _RGB32(180, 180, 255)
27.     CLS
28.     t$ = "Current Directory: " + _CWD$
29.     LOCATE 2, (_WIDTH / 8 - LEN(t$)) / 2: PRINT t$
30.     REDIM DIRs(0) AS STRING
31.     loadDIR DIRs()
32.     REDIM FILs(0) AS STRING
33.     loadFiles FILs()
34.     FOR i = 0 TO UBOUND(FILs)
35.         IF i < 30 THEN LOCATE i + 4, 60: PRINT FILs(i) ELSE EXIT FOR
36.     NEXT
37.     mySelection& = getArrayItemNumber&(5, 5, 50, 30, DIRs())
38.     CLS
39.     IF selectedFile <> "" THEN
40.         PRINT "You selected a file: "; selectedFile
41.         INPUT "Press enter to continue navigator, any + enter to quit... "; done$
42.         selectedFile = ""
43.     ELSEIF mySelection& <> -1719 THEN
44.         CHDIR DIRs(mySelection&)
45.     ELSE
46.         PRINT "Nothing selected."
47.         INPUT "Press enter to continue navigator, any + enter to quit... "; done$
48.     END IF
49.     _LIMIT 60
50. LOOP UNTIL done$ <> ""
51.  
52. SUB loadDIR (fa() AS STRING)
53.     DIM tmpFile AS STRING, Index%, fline$, d$
54.     tmpFile = tmpDir + "\DIR$INF0.INF" 'aha!, not a fully pathed file to user directory but here is good!
55.     SHELL _HIDE "DIR /a:d >" + tmpFile 'get directories  but have to do a little pruning
56.     OPEN tmpFile FOR INPUT AS #1
57.     Index% = -1
58.     DO WHILE NOT EOF(1)
59.         LINE INPUT #1, fline$
60.         IF INSTR(fline$, "<DIR>") THEN
61.             d$ = _TRIM$(rightOf$(fline$, "<DIR>"))
62.             Index% = Index% + 1
63.             REDIM _PRESERVE fa(Index%)
64.             fa(Index%) = d$
65.         END IF
66.     LOOP
67.     CLOSE #1
68.     KILL tmpFile
69. END SUB
70.  
71. SUB loadFiles (fa() AS STRING)
72.     DIM tmpFile AS STRING, Index%
73.     tmpFile = tmpDir + "\FILE$INF0.INF" 'aha!, not a fully pathed file to user directory but here is good!
74.     SHELL _HIDE "DIR *.* /a:-d /b /o:-gen > " + tmpFile
75.     OPEN tmpFile$ FOR INPUT AS #1
76.     Index% = -1
77.     DO WHILE NOT EOF(1)
78.         Index% = Index% + 1
79.         REDIM _PRESERVE fa(Index%) AS STRING
80.         LINE INPUT #1, fa(Index%)
81.     LOOP
82.     CLOSE #1
83.     KILL tmpFile$
84. END SUB
85.  
86. FUNCTION rightOf$ (source$, of$)
87.     IF INSTR(source$, of$) > 0 THEN rightOf$ = MID$(source$, INSTR(source$, of$) + LEN(of$))
88. END FUNCTION
89.  
90. ' "Escape returns -1719 to allow a Cancel function and signal no slection."
91. FUNCTION getArrayItemNumber& (locateRow, locateColumn, boxWidth, boxHeight, arr() AS STRING)
92.     'Notes: locateRow, locateColumn for top right corner of selection box on screen in characters for LOCATE.
93.     'boxWidth and boxHeight are in character units, again for locate and print at correct places.
94.     'All displaying is restricted to inside the box, which has PgUP and PgDn as top and bottom lines in the display.
95.  
96.     DIM curRow AS INTEGER, curCol AS INTEGER, fg AS _UNSIGNED LONG, bg AS _UNSIGNED LONG
97.     DIM maxWidth AS INTEGER, maxHeight AS INTEGER, page AS INTEGER, hlite AS INTEGER, mx AS INTEGER, my AS INTEGER
98.     DIM lastMX AS INTEGER, lastMY AS INTEGER, row AS INTEGER, mb AS INTEGER
99.     DIM lba AS LONG, uba AS LONG, choice AS LONG, kh AS LONG, index AS LONG
100.     DIM clrStr AS STRING, b AS STRING, selNum&
101.  
102.     'save old settings to restore at end ofsub
103.     curRow = CSRLIN
104.     curCol = POS(0)
105.     fg = _DEFAULTCOLOR
106.     bg = _BACKGROUNDCOLOR
107.     _KEYCLEAR
108.  
109.     maxWidth = boxWidth '       number of characters in box
110.     maxHeight = boxHeight - 2 ' number of lines displayed of array at one time = 1 page
111.     lba = LBOUND(arr)
112.     uba = UBOUND(arr)
113.     page = 0
114.     hlite = 0 '                 line in display ready for selection by spacebar or if no number is started, enter
115.     clrStr$ = SPACE$(maxWidth) 'clearing a display line
116.  
117.     GOSUB update '              show the beginning of the array items for selection
118.  
119.     'signal cancel selection process, exit sub with this unlikely index to signal canel
120.     choice = -1719 'primes 7 and 8, not likely to be a select index of an array
121.  
122.     DO 'until get a selection or demand exit
123.  
124.         'handle the key stuff
125.         kh& = _KEYHIT
126.         IF kh& THEN
127.             IF kh& > 0 AND kh& < 255 THEN
128.                 IF INSTR("0123456789", CHR$(kh&)) > 0 THEN b$ = b$ + CHR$(kh&): GOSUB update
129.                 IF CHR$(kh&) = "f" THEN
130.                     REDIM FILs(0) AS STRING
131.                     loadFiles FILs()
132.                     selNum& = getArrayItemNumber&(5, 60, 60, 30, FILs())
133.                     COLOR _RGB32(180, 180, 255)
134.                     CLS 'need to signal out of file selection
135.                     IF selNum& >= LBOUND(FILs) AND selNum& <= UBOUND(FILs) THEN selectedFile = FILs(selNum&)
136.                     EXIT DO
137.                     'back to directory select
138.                 END IF
139.  
140.                 IF CHR$(kh&) = "c" THEN b$ = "": GOSUB update
141.                 IF kh& = 13 THEN 'enter pressed check if number is being entered?
142.                     IF LEN(b$) THEN
143.                         IF VAL(b$) >= lba AND VAL(b$) <= uba THEN 'we have number started
144.                             choice = VAL(b$): EXIT DO
145.                         ELSE 'clear b$ to show some response to enter
146.                             b$ = "": GOSUB update 'clear the value that doesn't work
147.                         END IF
148.                     ELSE
149.                         choice = hlite + page * maxHeight + lba 'must mean to select the highlighted item
150.                     END IF
151.                 END IF
152.                 IF kh& = 27 THEN EXIT DO 'escape clause offered to Cancel selection process
153.                 IF kh& = 32 THEN choice = hlite + page * maxHeight + lba 'best way to choose highlighted selection
154.                 IF kh& = 8 THEN 'backspace to edit number
155.                     IF LEN(b$) THEN b$ = LEFT$(b$, LEN(b$) - 1): GOSUB update
156.                 END IF
157.             ELSE
158.                 SELECT CASE kh& 'choosing sections of array to display and highlighted item
159.                     CASE 20736 'pg dn
160.                         IF (page + 1) * maxHeight + lba <= uba THEN page = page + 1: GOSUB update
161.                     CASE 18688 'pg up
162.                         IF (page - 1) * maxHeight + lba >= lba THEN page = page - 1: GOSUB update
163.                     CASE 18432 'up
164.                         IF hlite - 1 < 0 THEN
165.                             IF page > 0 THEN
166.                                 page = page - 1: hlite = maxHeight - 1: GOSUB update
167.                             END IF
168.                         ELSE
169.                             hlite = hlite - 1: GOSUB update
170.                         END IF
171.                     CASE 20480 'down
172.                         IF (hlite + 1) + page * maxHeight + lba <= uba THEN 'ok to move up
173.                             IF hlite + 1 > maxHeight - 1 THEN
174.                                 page = page + 1: hlite = 0: GOSUB update
175.                             ELSE
176.                                 hlite = hlite + 1: GOSUB update
177.                             END IF
178.                         END IF
179.                     CASE 18176 'home
180.                         page = 0: hlite = 0: GOSUB update
181.                     CASE 20224 ' end
182.                         page = INT((uba - lba) / maxHeight): hlite = maxHeight - 1: GOSUB update
183.                 END SELECT
184.             END IF
185.         END IF
186.  
187.         'handle the mouse stuff
188.         WHILE _MOUSEINPUT
189.             IF _MOUSEWHEEL = -1 THEN 'up?
190.                 IF hlite - 1 < 0 THEN
191.                     IF page > 0 THEN
192.                         page = page - 1: hlite = maxHeight - 1: GOSUB update
193.                     END IF
194.                 ELSE
195.                     hlite = hlite - 1: GOSUB update
196.                 END IF
197.             ELSEIF _MOUSEWHEEL = 1 THEN 'down?
198.                 IF (hlite + 1) + page * maxHeight + lba <= uba THEN 'ok to move up
199.                     IF hlite + 1 > maxHeight - 1 THEN
200.                         page = page + 1: hlite = 0: GOSUB update
201.                     ELSE
202.                         hlite = hlite + 1: GOSUB update
203.                     END IF
204.                 END IF
205.             END IF
206.         WEND
207.         mx = INT((_MOUSEX - locateColumn * 8) / 8) + 2: my = INT((_MOUSEY - locateRow * 16) / 16) + 2
208.         IF _MOUSEBUTTON(1) THEN 'click contols or select array item
209.             'clear mouse clicks
210.             mb = _MOUSEBUTTON(1)
211.             IF mb THEN 'clear it
212.                 WHILE mb 'OK!
213.                     IF _MOUSEINPUT THEN mb = _MOUSEBUTTON(1)
214.                     _LIMIT 100
215.                 WEND
216.             END IF
217.  
218.             IF mx >= 1 AND mx <= maxWidth AND my >= 1 AND my <= maxHeight THEN
219.                 choice = my + page * maxHeight + lba - 1 'select item clicked
220.             ELSEIF mx >= 1 AND mx <= maxWidth AND my = 0 THEN 'page up or exit
221.                 IF my = 0 AND (mx <= maxWidth AND mx >= maxWidth - 2) THEN 'exit sign
222.                     EXIT DO 'escape plan for mouse click top right corner of display box
223.                 ELSE 'PgUp bar clicked
224.                     IF (page - 1) * maxHeight + lba >= lba THEN page = page - 1: GOSUB update
225.                 END IF
226.             ELSEIF mx >= 1 AND mx <= maxWidth AND my = maxHeight + 1 THEN 'page down bar clicked
227.                 IF (page + 1) * maxHeight + lba <= uba THEN page = page + 1: GOSUB update
228.             END IF
229.         ELSE '   mouse over highlighting, only if mouse has moved!
230.             IF mx >= 1 AND mx <= maxWidth AND my >= 1 AND my <= maxHeight THEN
231.                 IF mx <> lastMX OR my <> lastMY THEN
232.                     IF my - 1 <> hlite AND (my - 1 + page * maxHeight + lba <= uba) THEN
233.                         hlite = my - 1
234.                         lastMX = mx: lastMY = my
235.                         GOSUB update
236.                     END IF
237.                 END IF
238.             END IF
239.         END IF
240.         _LIMIT 200
241.     LOOP UNTIL choice >= lba AND choice <= uba
242.     getArrayItemNumber& = choice
243.     COLOR fg, bg
244.     'clear key presses
245.     _KEYCLEAR
246.     LOCATE curRow, curCol
247.     'clear mouse clicks
248.     mb = _MOUSEBUTTON(1)
249.     IF mb THEN 'clear it
250.         WHILE mb 'OK!
251.             IF _MOUSEINPUT THEN mb = _MOUSEBUTTON(1)
252.             _LIMIT 100
253.         WEND
254.     END IF
255.     EXIT SUB
256.  
257.  
258.     update: '--------------- display of array sections and controls on screen
259.  
260.     'fix hlite if it has dropped below last array item
261.     WHILE hlite + page * maxHeight + lba > uba
262.         hlite = hlite - 1
263.     WEND
264.  
265.     'main display of array items at page * maxHeight (lines high)
266.     FOR row = 0 TO maxHeight - 1
267.         IF hlite = row THEN COLOR _RGB(200, 200, 255), _RGB32(0, 0, 88) ELSE COLOR _RGB32(0, 0, 88), _RGB(200, 200, 255)
268.         LOCATE locateRow + row, locateColumn: PRINT clrStr$
269.         index = row + page * maxHeight + lba
270.         IF index >= lba AND index <= uba THEN
271.             LOCATE locateRow + row, locateColumn
272.             PRINT LEFT$(LTRIM$(STR$(index)) + ") " + arr(index), maxWidth)
273.         END IF
274.     NEXT
275.  
276.     'make page up and down bars to click, print PgUp / PgDn if available
277.     COLOR _RGB32(200, 200, 255), _RGB32(0, 100, 50)
278.     LOCATE locateRow - 1, locateColumn: PRINT SPACE$(maxWidth)
279.     IF page <> 0 THEN LOCATE locateRow - 1, locateColumn: PRINT LEFT$(" Pg Up" + SPACE$(maxWidth), maxWidth)
280.     LOCATE locateRow + maxHeight, locateColumn: PRINT SPACE$(maxWidth)
281.     IF page <> INT(uba / maxHeight) THEN
282.         LOCATE locateRow + maxHeight, locateColumn: PRINT LEFT$(" Pg Dn" + SPACE$(maxWidth), maxWidth)
283.     END IF
284.     'make exit sign for mouse click
285.     COLOR _RGB32(255, 255, 255), _RGB32(200, 100, 0)
286.     LOCATE locateRow - 1, locateColumn + maxWidth - 3
287.     PRINT " X "
288.  
289.     'if a number selection has been started show it's build = b$
290.     IF LEN(b$) THEN
291.         COLOR _RGB(255, 255, 0), _RGB32(0, 0, 0)
292.         LOCATE locateRow + maxHeight, locateColumn + maxWidth - LEN(b$) - 1
293.         PRINT b$;
294.     END IF
295.     _DISPLAY
296.     _LIMIT 100
297.     RETURN
298. END FUNCTION
299.  
300.  

[SierraKen]

That's cool about the Files one! I'll look into that one after I get the directory one fixed. I changed the code like I said, to use DO/LOOP for the main menu and GOSUB/RETURN for each selection. Still doesn't work. I tried END at the end of the code you gave me (before the RETURN back to the main menu) and it just ends the program after I select a directory. I already know the program can get to the area of the program I want it to be at, and it still plays the music there. But for some reason it doesn't CLS and go to another screen to PRINT things I want people to see about the songs it plays. It just sits there at the main menu playing the songs. lol And like I said, without changing the directory with the change directory code, and just playing the default directory, everything shows up fine as the sounds play. So there must be something in a SUB somewhere freezing up the flow of the program. That's all I can imagine, but you know more than I do. Oh, thanks for telling me about that library, I deleted it. This version should be easier for you to follow:

(Note, a little bit of a better one is after this one.)

Code: QB64: [Select]

1. 'This program was made on August 23, 2019 by Ken G. with lots of help by B+ and Petr from the QB64.org forum.
2. 'This program will make a temporary file called MyMusicFiles-Temp000.temp
3. 'which is just a text file and can be opened by Notepad. It shows a list of
4. 'the mp3 songs in that directory. The file is deleted once the music starts.
5.  
6. _TITLE "Mini MP3 Player"
7. SCREEN _NEWIMAGE(400, 400, 32)
8. begin:
9. DO
10.     DIM f$(100000)
11.     record = 0
12.     rec = 0
13.     oldp = 0
14.     p = 0
15.     CLS
16.     PRINT: PRINT: PRINT
17.     PRINT "                Mini MP3 Player"
18.     PRINT: PRINT: PRINT
19.     PRINT "                  By Ken G."
20.     PRINT
21.     LOCATE 11, 1: PRINT "Directory: "; _CWD$
22.     PRINT: PRINT
23.     PRINT "            (1) Change Directory"
24.     PRINT "            (2) Play Song"
25.     PRINT "            (3) Play Directory"
26.     PRINT "            (4) Quit"
27.     PRINT
28.     PRINT
29.     INPUT "      ->", a
30.     IF a = 1 THEN GOSUB changedirectory:
31.     IF a = 2 THEN GOSUB song:
32.     IF a = 3 THEN GOSUB playdir:
33.     IF a = 4 THEN END
34. LOOP
35.  
36. 'Play One Song Here
37.  
38. song:
39. CLS
40. FILES "*.mp3"
41. again2:
42. PRINT
43. INPUT "Song: ", song$
44. IF song$ = "" THEN GOTO begin:
45. fe% = _FILEEXISTS(song$)
46. IF fe% <> -1 THEN
47.     PRINT "Filename doesn't exist."
48.     PRINT "Try again, or Enter for Menu."
49.     GOTO again2:
50. END IF
51. CLS
52. s& = _SNDOPEN(song$)
53. IF s& = 0 THEN BEEP ELSE _SNDPLAY s&
54. LOCATE 1, 1: PRINT song$
55. LOCATE 2, 1: PRINT "Sound Rate: "; _SNDRATE
56. LOCATE 4, 1: PRINT "Length: "; INT(_SNDLEN(s&))
57. LOCATE 6, 1: PRINT "Space Bar = Pause (P)lay (S)top (M)enu"
58.  
59. DO
60.     a$ = INKEY$
61.     IF a$ = CHR$(27) THEN _SNDSTOP s&: END
62.     IF a$ = " " THEN _SNDPAUSE s&
63.     IF a$ = "S" OR a$ = "s" THEN _SNDSTOP s&
64.     IF a$ = "P" OR a$ = "p" THEN _SNDPLAY s&
65.     IF a$ = "M" OR a$ = "m" THEN _SNDSTOP s&: GOTO begin:
66.     oldp = p
67.     p = _SNDGETPOS(s&)
68.     LOCATE 3, 1: PRINT "Position: "; INT(p)
69.     IF INT(oldp) > INT(p) AND INT(p) = 0 THEN GOTO begin:
70. LOOP
71. RETURN
72.  
73. 'Play Directory Here
74.  
75. playdir:
76. CLS
77. REDIM file(0) AS STRING 'create empty text array. 0 is record nr. 1!
78. SHELL _HIDE "dir *.mp3 /B > MyMusicFiles-Temp000.temp" 'create mp3 files list.
79. OPEN "MyMusicFiles-Temp000.temp" FOR INPUT AS #1
80. IF EOF(1) THEN
81.     CLOSE #1
82.     SHELL _HIDE "DEL MyMusicFiles-Temp000.temp"
83.     CLS
84.     PRINT "No mp3 songs on this folder."
85.     PRINT
86.     INPUT "Press Enter to go back to Menu.", menu$
87.     GOTO begin:
88. END IF
89. WHILE NOT EOF(1)
90.     LINE INPUT #1, file$
91.     file(record) = file$
92.     f$(record) = file$
93.     PRINT f$(record)
94.     record = record + 1 'for next loop we needed array higher up to one
95.     REDIM _PRESERVE file(record) AS STRING 'this do array bigger without deleting content
96. WEND
97. CLOSE #1
98. SHELL _HIDE "DEL MyMusicFiles-Temp000.temp"
99. 'so now file(0) is first file from disk. file(3) is 4th file from disk. Try it:
100. ready:
101. a$ = ""
102. p = 0
103. oldp = 0
104. s& = _SNDOPEN(file(rec))
105. _SNDPLAY (s&)
106. LOCATE 1, 1: PRINT f$(rec)
107. LOCATE 2, 1: PRINT "Sound Rate: "; _SNDRATE
108. LOCATE 4, 1: PRINT "Length: "; INT(_SNDLEN(s&))
109. LOCATE 6, 1: PRINT "Space Bar = Pause (P)lay (N)ext Song (M)enu"
110. DO
111.     a$ = INKEY$
112.     IF a$ = CHR$(27) THEN _SNDSTOP s&: END
113.     IF a$ = " " THEN _SNDPAUSE s&
114.     IF a$ = "N" OR a$ = "n" THEN _SNDSTOP s&
115.     IF a$ = "P" OR a$ = "p" THEN _SNDPLAY s&
116.     IF a$ = "M" OR a$ = "m" THEN _SNDSTOP s&: rec = 0: RETURN
117.     oldp = p
118.     p = _SNDGETPOS(s&)
119.     LOCATE 3, 1: PRINT "Position: "; INT(p)
120.     IF INT(oldp) > INT(p) AND INT(p) = 0 THEN GOTO more:
121. LOOP
122. more:
123. IF rec = record - 1 THEN RETURN
124. rec = rec + 1
125. GOTO ready:
126. 'OPTION _EXPLICIT
127. '_TITLE "Tiny Navigator mod orig post with perm tmpfile" 'B+
128. ' 2019-08-22 orig post at https://www.qb64.org/forum/index.php?topic=1646.msg108682#msg108682
129. ' 2019-08-23 try fix (to nav all directories) with one place for tmpFile, theory can't write files in some dir's
130. ' For some reason Windows won't write to a fully pathed file in my user folder???
131. ' Try testing if dir exists "C:\temp" exists and making one if not, yes! and I can write my temp files there
132. ' and now I can chDir anywhere!
133.  
134. '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
135.  
136. ' Attention!!!  this creates a temp directory "C:\temp", do not run this program if you forbid this.
137.  
138. '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
139.  
140. 'Change Directory Here
141.  
142. changedirectory:
143. 'SCREEN _NEWIMAGE(1200, 600, 32)
144. '_SCREENMOVE 100, 50
145.  
146.  
147. IF _DIREXISTS("C:\temp") THEN ELSE MKDIR "C:\temp"
148.  
149. DIM mySelection&, done$
150.  
151. DO
152.     PRINT "Current Directory: " + _CWD$
153.     REDIM myFiles(0) AS STRING
154.     loadFA "*.*", myFiles()
155.     mySelection& = getArrayItemNumber&(5, 2, 48, 20, myFiles())
156.     CLS
157.     IF mySelection& <> -1719 THEN
158.         CHDIR myFiles(mySelection&)
159.     ELSE
160.         _KEYCLEAR
161.         EXIT DO
162.     END IF
163.     _LIMIT 60
164. LOOP 'UNTIL done$ <> ""
165.  
166. RETURN
167.  
168. SUB loadFA (spec$, fa() AS STRING)
169.     DIM tmpFile$, Index%, fline$, d$
170.     tmpFile$ = "C:\temp\DIR$INF0.INF"
171.     'PRINT tmpFile$
172.     'END
173.     SHELL _HIDE "DIR /a:d >" + tmpFile$ 'get directories  but have to do a little pruning
174.     'SHELL _HIDE "DIR " + spec$ + " /b > " + TmpFile$
175.     'SHELL _HIDE "DIR " + spec$ + " /b /s /o:gen> " + TmpFile$
176.     OPEN tmpFile$ FOR INPUT AS #1
177.     Index% = -1
178.     DO WHILE NOT EOF(1)
179.         LINE INPUT #1, fline$
180.         IF INSTR(fline$, "<DIR>") THEN
181.             d$ = _TRIM$(rightOf$(fline$, "<DIR>"))
182.             Index% = Index% + 1
183.             REDIM _PRESERVE fa(Index%)
184.             fa(Index%) = d$
185.         END IF
186.     LOOP
187.     CLOSE #1
188.     KILL tmpFile$
189. END SUB
190.  
191. FUNCTION rightOf$ (source$, of$)
192.     IF INSTR(source$, of$) > 0 THEN rightOf$ = MID$(source$, INSTR(source$, of$) + LEN(of$))
193. END FUNCTION
194.  
195. 'attempting use this 4 things (2018-12-30)
196. ' 1. expects HELP sub that uses message and message box but easy to comment out
197. ' 2. expects to be in graphics mode
198. ' 3. chages color of screen
199. ' 4. needs _KEYCLEAR 2 before calling of previous keyhits will interfere!!!
200. '
201. ' Future Help Message Box for the function.
202. ' "*** Mouse and Key Instructions ***"
203. '
204. ' "Mouse, mouse wheel, and arrow keys should work as expected for item selection."
205. ' "Press spacebar to select a highlighted item or just click it."
206. ' "Use number(s) + enter to select an array item by it's index number,"
207. ' "backspace will remove last number pressed, c will clear a number started."
208. ' "Numbers started are shown in bottom right PgDn bar."
209. ' "Enter will also select the highlighted item, if no number has been started."
210. ' "Home starts you at lowest array index, End highlights then highest index."
211. ' "Use PgUp and PgDn keys to flip through pages of array items."
212. '
213. ' "Escape returns -1719 to allow a Cancel function and signal no slection."
214. FUNCTION getArrayItemNumber& (locateRow, locateColumn, boxWidth, boxHeight, arr() AS STRING)
215.     'Notes: locateRow, locateColumn for top right corner of selection box on screen in characters for LOCATE.
216.     'boxWidth and boxHeight are in character units, again for locate and print at correct places.
217.     'All displaying is restricted to inside the box, which has PgUP and PgDn as top and bottom lines in the display.
218.  
219.     DIM curRow AS INTEGER, curCol AS INTEGER, fg AS _UNSIGNED LONG, bg AS _UNSIGNED LONG
220.     DIM maxWidth AS INTEGER, maxHeight AS INTEGER, page AS INTEGER, hlite AS INTEGER, mx AS INTEGER, my AS INTEGER
221.     DIM lastMX AS INTEGER, lastMY AS INTEGER, row AS INTEGER, mb AS INTEGER
222.     DIM lba AS LONG, uba AS LONG, choice AS LONG, kh AS LONG, index AS LONG
223.     DIM clrStr AS STRING, b AS STRING
224.  
225.     'save old settings to restore at end ofsub
226.     curRow = CSRLIN
227.     curCol = POS(0)
228.     fg = _DEFAULTCOLOR
229.     bg = _BACKGROUNDCOLOR
230.     _KEYCLEAR
231.  
232.     maxWidth = boxWidth '       number of characters in box
233.     maxHeight = boxHeight - 2 ' number of lines displayed of array at one time = 1 page
234.     lba = LBOUND(arr)
235.     uba = UBOUND(arr)
236.     page = 0
237.     hlite = 0 '                 line in display ready for selection by spacebar or if no number is started, enter
238.     clrStr$ = SPACE$(maxWidth) 'clearing a display line
239.  
240.     GOSUB update '              show the beginning of the array items for selection
241.  
242.     'signal cancel selection process, exit sub with this unlikely index to signal canel
243.     choice = -1719 'primes 7 and 8, not likely to be a select index of an array
244.  
245.     DO 'until get a selection or demand exit
246.  
247.         'handle the key stuff
248.         kh& = _KEYHIT
249.         IF kh& THEN
250.             IF kh& > 0 AND kh& < 255 THEN
251.                 IF INSTR("0123456789", CHR$(kh&)) > 0 THEN b$ = b$ + CHR$(kh&): GOSUB update
252.                 'IF CHR$(kh&) = "h" THEN HELP: _KEYCLEAR
253.  
254.                 IF CHR$(kh&) = "c" THEN b$ = "": GOSUB update
255.                 IF kh& = 13 THEN 'enter pressed check if number is being entered?
256.                     IF LEN(b$) THEN
257.                         IF VAL(b$) >= lba AND VAL(b$) <= uba THEN 'we have number started
258.                             choice = VAL(b$): EXIT DO
259.                         ELSE 'clear b$ to show some response to enter
260.                             b$ = "": GOSUB update 'clear the value that doesn't work
261.                         END IF
262.                     ELSE
263.                         choice = hlite + page * maxHeight + lba 'must mean to select the highlighted item
264.                     END IF
265.                 END IF
266.                 IF kh& = 27 THEN EXIT DO 'escape clause offered to Cancel selection process
267.                 IF kh& = 32 THEN choice = hlite + page * maxHeight + lba 'best way to choose highlighted selection
268.                 IF kh& = 8 THEN 'backspace to edit number
269.                     IF LEN(b$) THEN b$ = LEFT$(b$, LEN(b$) - 1): GOSUB update
270.                 END IF
271.             ELSE
272.                 SELECT CASE kh& 'choosing sections of array to display and highlighted item
273.                     CASE 20736 'pg dn
274.                         IF (page + 1) * maxHeight + lba <= uba THEN page = page + 1: GOSUB update
275.                     CASE 18688 'pg up
276.                         IF (page - 1) * maxHeight + lba >= lba THEN page = page - 1: GOSUB update
277.                     CASE 18432 'up
278.                         IF hlite - 1 < 0 THEN
279.                             IF page > 0 THEN
280.                                 page = page - 1: hlite = maxHeight - 1: GOSUB update
281.                             END IF
282.                         ELSE
283.                             hlite = hlite - 1: GOSUB update
284.                         END IF
285.                     CASE 20480 'down
286.                         IF (hlite + 1) + page * maxHeight + lba <= uba THEN 'ok to move up
287.                             IF hlite + 1 > maxHeight - 1 THEN
288.                                 page = page + 1: hlite = 0: GOSUB update
289.                             ELSE
290.                                 hlite = hlite + 1: GOSUB update
291.                             END IF
292.                         END IF
293.                     CASE 18176 'home
294.                         page = 0: hlite = 0: GOSUB update
295.                     CASE 20224 ' end
296.                         page = INT((uba - lba) / maxHeight): hlite = maxHeight - 1: GOSUB update
297.                 END SELECT
298.             END IF
299.         END IF
300.  
301.         'handle the mouse stuff
302.         WHILE _MOUSEINPUT
303.             IF _MOUSEWHEEL = -1 THEN 'up?
304.                 IF hlite - 1 < 0 THEN
305.                     IF page > 0 THEN
306.                         page = page - 1: hlite = maxHeight - 1: GOSUB update
307.                     END IF
308.                 ELSE
309.                     hlite = hlite - 1: GOSUB update
310.                 END IF
311.             ELSEIF _MOUSEWHEEL = 1 THEN 'down?
312.                 IF (hlite + 1) + page * maxHeight + lba <= uba THEN 'ok to move up
313.                     IF hlite + 1 > maxHeight - 1 THEN
314.                         page = page + 1: hlite = 0: GOSUB update
315.                     ELSE
316.                         hlite = hlite + 1: GOSUB update
317.                     END IF
318.                 END IF
319.             END IF
320.         WEND
321.         mx = INT((_MOUSEX - locateColumn * 8) / 8) + 2: my = INT((_MOUSEY - locateRow * 16) / 16) + 2
322.         IF _MOUSEBUTTON(1) THEN 'click contols or select array item
323.             'clear mouse clicks
324.             mb = _MOUSEBUTTON(1)
325.             IF mb THEN 'clear it
326.                 WHILE mb 'OK!
327.                     IF _MOUSEINPUT THEN mb = _MOUSEBUTTON(1)
328.                     _LIMIT 100
329.                 WEND
330.             END IF
331.  
332.             IF mx >= 1 AND mx <= maxWidth AND my >= 1 AND my <= maxHeight THEN
333.                 choice = my + page * maxHeight + lba - 1 'select item clicked
334.             ELSEIF mx >= 1 AND mx <= maxWidth AND my = 0 THEN 'page up or exit
335.                 IF my = 0 AND (mx <= maxWidth AND mx >= maxWidth - 2) THEN 'exit sign
336.                     EXIT DO 'escape plan for mouse click top right corner of display box
337.                 ELSE 'PgUp bar clicked
338.                     IF (page - 1) * maxHeight + lba >= lba THEN page = page - 1: GOSUB update
339.                 END IF
340.             ELSEIF mx >= 1 AND mx <= maxWidth AND my = maxHeight + 1 THEN 'page down bar clicked
341.                 IF (page + 1) * maxHeight + lba <= uba THEN page = page + 1: GOSUB update
342.             END IF
343.         ELSE '   mouse over highlighting, only if mouse has moved!
344.             IF mx >= 1 AND mx <= maxWidth AND my >= 1 AND my <= maxHeight THEN
345.                 IF mx <> lastMX OR my <> lastMY THEN
346.                     IF my - 1 <> hlite AND (my - 1 + page * maxHeight + lba <= uba) THEN
347.                         hlite = my - 1
348.                         lastMX = mx: lastMY = my
349.                         GOSUB update
350.                     END IF
351.                 END IF
352.             END IF
353.         END IF
354.         _LIMIT 200
355.     LOOP UNTIL choice >= lba AND choice <= uba
356.     getArrayItemNumber& = choice
357.     COLOR fg, bg
358.     'clear key presses
359.     _KEYCLEAR
360.     LOCATE curRow, curCol
361.     'clear mouse clicks
362.     mb = _MOUSEBUTTON(1)
363.     IF mb THEN 'clear it
364.         WHILE mb 'OK!
365.             IF _MOUSEINPUT THEN mb = _MOUSEBUTTON(1)
366.             _LIMIT 100
367.         WEND
368.     END IF
369.     EXIT SUB
370.  
371.     'display of array sections and controls on screen
372.     update:
373.  
374.     'fix hlite if it has dropped below last array item
375.     WHILE hlite + page * maxHeight + lba > uba
376.         hlite = hlite - 1
377.     WEND
378.  
379.     'main display of array items at page * maxHeight (lines high)
380.     FOR row = 0 TO maxHeight - 1
381.         IF hlite = row THEN COLOR _RGB(200, 200, 255), _RGB32(0, 0, 88) ELSE COLOR _RGB32(0, 0, 88), _RGB(200, 200, 255)
382.         LOCATE locateRow + row, locateColumn: PRINT clrStr$
383.         index = row + page * maxHeight + lba
384.         IF index >= lba AND index <= uba THEN
385.             LOCATE locateRow + row, locateColumn
386.             PRINT LEFT$(LTRIM$(STR$(index)) + ") " + arr(index), maxWidth)
387.         END IF
388.     NEXT
389.  
390.     'make page up and down bars to click, print PgUp / PgDn if available
391.     COLOR _RGB32(200, 200, 255), _RGB32(0, 100, 50)
392.     LOCATE locateRow - 1, locateColumn: PRINT SPACE$(maxWidth)
393.     IF page <> 0 THEN LOCATE locateRow - 1, locateColumn: PRINT LEFT$(" Pg Up" + SPACE$(maxWidth), maxWidth)
394.     LOCATE locateRow + maxHeight, locateColumn: PRINT SPACE$(maxWidth)
395.     IF page <> INT(uba / maxHeight) THEN
396.         LOCATE locateRow + maxHeight, locateColumn: PRINT LEFT$(" Pg Dn" + SPACE$(maxWidth), maxWidth)
397.     END IF
398.     'make exit sign for mouse click
399.     COLOR _RGB32(255, 255, 255), _RGB32(200, 100, 0)
400.     LOCATE locateRow - 1, locateColumn + maxWidth - 3
401.     PRINT " X "
402.  
403.     'if a number selection has been started show it's build = b$
404.     IF LEN(b$) THEN
405.         COLOR _RGB(255, 255, 0), _RGB32(0, 0, 0)
406.         LOCATE locateRow + maxHeight, locateColumn + maxWidth - LEN(b$) - 1
407.         PRINT b$;
408.     END IF
409.     _DISPLAY
410.     _LIMIT 100
411.     RETURN
412. END FUNCTION
413.  

[bplus]

RE: Navigator in Ken's application

OK, I have to take dog out and I will check right after that...

[SierraKen]

I made the program a little better by shortening my temp file name (not yours) and put mine in the same c:\temp directory as yours. That wasn't the problem but I will try anything at this point just about. LOL I also added your name and updated info on the top comments.

Code: QB64: [Select]

1. 'This program was made on August 23, 2019 by Ken G. with lots of help by B+ and Petr from the QB64.org forum.
2. 'This program makes 2 temporary files called MyMusicFiles.temp and DIR$INF0.INF in a directory called c:\temp
3. 'If for some reason these files exist after this program is shut down, you are free to delete them.
4.  
5. _TITLE "Mini MP3 Player"
6. SCREEN _NEWIMAGE(400, 400, 32)
7. begin:
8. DO
9.     DIM f$(10000)
10.     record = 0
11.     rec = 0
12.     oldp = 0
13.     p = 0
14.     CLS
15.     PRINT: PRINT: PRINT
16.     PRINT "                Mini MP3 Player"
17.     PRINT: PRINT: PRINT
18.     PRINT "                  By Ken G."
19.     PRINT
20.     LOCATE 11, 1: PRINT "Directory: "; _CWD$
21.     PRINT: PRINT
22.     PRINT "            (1) Change Directory"
23.     PRINT "            (2) Play Song"
24.     PRINT "            (3) Play Directory"
25.     PRINT "            (4) Quit"
26.     PRINT
27.     PRINT
28.     INPUT "      ->", a
29.     IF a = 1 THEN GOSUB changedirectory:
30.     IF a = 2 THEN GOSUB song:
31.     IF a = 3 THEN GOSUB playdir:
32.     IF a = 4 THEN END
33. LOOP
34.  
35. 'Play One Song Here
36.  
37. song:
38. CLS
39. FILES "*.mp3"
40. again2:
41. PRINT
42. INPUT "Song: ", song$
43. IF song$ = "" THEN GOTO begin:
44. fe% = _FILEEXISTS(song$)
45. IF fe% <> -1 THEN
46.     PRINT "Filename doesn't exist."
47.     PRINT "Try again, or Enter for Menu."
48.     GOTO again2:
49. END IF
50. CLS
51. s& = _SNDOPEN(song$)
52. IF s& = 0 THEN BEEP ELSE _SNDPLAY s&
53. LOCATE 1, 1: PRINT song$
54. LOCATE 2, 1: PRINT "Sound Rate: "; _SNDRATE
55. LOCATE 4, 1: PRINT "Length: "; INT(_SNDLEN(s&))
56. LOCATE 6, 1: PRINT "Space Bar = Pause (P)lay (S)top (M)enu"
57.  
58. DO
59.     a$ = INKEY$
60.     IF a$ = CHR$(27) THEN _SNDSTOP s&: END
61.     IF a$ = " " THEN _SNDPAUSE s&
62.     IF a$ = "S" OR a$ = "s" THEN _SNDSTOP s&
63.     IF a$ = "P" OR a$ = "p" THEN _SNDPLAY s&
64.     IF a$ = "M" OR a$ = "m" THEN _SNDSTOP s&: GOTO begin:
65.     oldp = p
66.     p = _SNDGETPOS(s&)
67.     LOCATE 3, 1: PRINT "Position: "; INT(p)
68.     IF INT(oldp) > INT(p) AND INT(p) = 0 THEN GOTO begin:
69. LOOP
70. RETURN
71.  
72. 'Play Directory Here
73.  
74. playdir:
75. CLS
76. REDIM file(0) AS STRING 'create empty text array. 0 is record nr. 1!
77. IF _DIREXISTS("C:\temp") THEN ELSE MKDIR "C:\temp"
78. SHELL _HIDE "dir *.mp3 /B > C:\temp\MyMusicFiles.temp" 'create mp3 files list.
79. OPEN "C:\temp\MyMusicFiles.temp" FOR INPUT AS #1
80. IF EOF(1) THEN
81.     CLOSE #1
82.     SHELL _HIDE "DEL C:\temp\MyMusicFiles.temp"
83.     CLS
84.     PRINT "No mp3 songs on this folder."
85.     PRINT
86.     INPUT "Press Enter to go back to Menu.", menu$
87.     GOTO begin:
88. END IF
89. WHILE NOT EOF(1)
90.     LINE INPUT #1, file$
91.     file(record) = file$
92.     f$(record) = file$
93.     PRINT f$(record)
94.     record = record + 1 'for next loop we needed array higher up to one
95.     REDIM _PRESERVE file(record) AS STRING 'this do array bigger without deleting content
96. WEND
97. CLOSE #1
98. SHELL _HIDE "DEL C:\temp\MyMusicFiles.temp"
99. 'so now file(0) is first file from disk. file(3) is 4th file from disk. Try it:
100. ready:
101. a$ = ""
102. p = 0
103. oldp = 0
104. s& = _SNDOPEN(file(rec))
105. _SNDPLAY (s&)
106. LOCATE 1, 1: PRINT f$(rec)
107. LOCATE 2, 1: PRINT "Sound Rate: "; _SNDRATE
108. LOCATE 4, 1: PRINT "Length: "; INT(_SNDLEN(s&))
109. LOCATE 6, 1: PRINT "Space Bar = Pause (P)lay (N)ext Song (M)enu"
110. DO
111.     a$ = INKEY$
112.     IF a$ = CHR$(27) THEN _SNDSTOP s&: END
113.     IF a$ = " " THEN _SNDPAUSE s&
114.     IF a$ = "N" OR a$ = "n" THEN _SNDSTOP s&
115.     IF a$ = "P" OR a$ = "p" THEN _SNDPLAY s&
116.     IF a$ = "M" OR a$ = "m" THEN _SNDSTOP s&: rec = 0: RETURN
117.     oldp = p
118.     p = _SNDGETPOS(s&)
119.     LOCATE 3, 1: PRINT "Position: "; INT(p)
120.     IF INT(oldp) > INT(p) AND INT(p) = 0 THEN GOTO more:
121. LOOP
122. more:
123. IF rec = record - 1 THEN RETURN
124. rec = rec + 1
125. GOTO ready:
126. 'OPTION _EXPLICIT
127. '_TITLE "Tiny Navigator mod orig post with perm tmpfile" 'B+
128. ' 2019-08-22 orig post at https://www.qb64.org/forum/index.php?topic=1646.msg108682#msg108682
129. ' 2019-08-23 try fix (to nav all directories) with one place for tmpFile, theory can't write files in some dir's
130. ' For some reason Windows won't write to a fully pathed file in my user folder???
131. ' Try testing if dir exists "C:\temp" exists and making one if not, yes! and I can write my temp files there
132. ' and now I can chDir anywhere!
133.  
134. '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
135.  
136. ' Attention!!!  this creates a temp directory "C:\temp", do not run this program if you forbid this.
137.  
138. '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
139.  
140. 'Change Directory Here
141.  
142. changedirectory:
143. 'SCREEN _NEWIMAGE(1200, 600, 32)
144. '_SCREENMOVE 100, 50
145.  
146.  
147. IF _DIREXISTS("C:\temp") THEN ELSE MKDIR "C:\temp"
148.  
149. DIM mySelection&, done$
150.  
151. DO
152.     PRINT "Current Directory: " + _CWD$
153.     REDIM myFiles(0) AS STRING
154.     loadFA "*.*", myFiles()
155.     mySelection& = getArrayItemNumber&(5, 2, 48, 20, myFiles())
156.     CLS
157.     IF mySelection& <> -1719 THEN
158.         CHDIR myFiles(mySelection&)
159.     ELSE
160.         _KEYCLEAR
161.         EXIT DO
162.     END IF
163.     _LIMIT 60
164. LOOP 'UNTIL done$ <> ""
165.  
166. RETURN
167.  
168. SUB loadFA (spec$, fa() AS STRING)
169.     DIM tmpFile$, Index%, fline$, d$
170.     tmpFile$ = "C:\temp\DIR$INF0.INF"
171.     'PRINT tmpFile$
172.     'END
173.     SHELL _HIDE "DIR /a:d >" + tmpFile$ 'get directories  but have to do a little pruning
174.     'SHELL _HIDE "DIR " + spec$ + " /b > " + TmpFile$
175.     'SHELL _HIDE "DIR " + spec$ + " /b /s /o:gen> " + TmpFile$
176.     OPEN tmpFile$ FOR INPUT AS #1
177.     Index% = -1
178.     DO WHILE NOT EOF(1)
179.         LINE INPUT #1, fline$
180.         IF INSTR(fline$, "<DIR>") THEN
181.             d$ = _TRIM$(rightOf$(fline$, "<DIR>"))
182.             Index% = Index% + 1
183.             REDIM _PRESERVE fa(Index%)
184.             fa(Index%) = d$
185.         END IF
186.     LOOP
187.     CLOSE #1
188.     KILL tmpFile$
189. END SUB
190.  
191. FUNCTION rightOf$ (source$, of$)
192.     IF INSTR(source$, of$) > 0 THEN rightOf$ = MID$(source$, INSTR(source$, of$) + LEN(of$))
193. END FUNCTION
194.  
195. 'attempting use this 4 things (2018-12-30)
196. ' 1. expects HELP sub that uses message and message box but easy to comment out
197. ' 2. expects to be in graphics mode
198. ' 3. chages color of screen
199. ' 4. needs _KEYCLEAR 2 before calling of previous keyhits will interfere!!!
200. '
201. ' Future Help Message Box for the function.
202. ' "*** Mouse and Key Instructions ***"
203. '
204. ' "Mouse, mouse wheel, and arrow keys should work as expected for item selection."
205. ' "Press spacebar to select a highlighted item or just click it."
206. ' "Use number(s) + enter to select an array item by it's index number,"
207. ' "backspace will remove last number pressed, c will clear a number started."
208. ' "Numbers started are shown in bottom right PgDn bar."
209. ' "Enter will also select the highlighted item, if no number has been started."
210. ' "Home starts you at lowest array index, End highlights then highest index."
211. ' "Use PgUp and PgDn keys to flip through pages of array items."
212. '
213. ' "Escape returns -1719 to allow a Cancel function and signal no slection."
214. FUNCTION getArrayItemNumber& (locateRow, locateColumn, boxWidth, boxHeight, arr() AS STRING)
215.     'Notes: locateRow, locateColumn for top right corner of selection box on screen in characters for LOCATE.
216.     'boxWidth and boxHeight are in character units, again for locate and print at correct places.
217.     'All displaying is restricted to inside the box, which has PgUP and PgDn as top and bottom lines in the display.
218.  
219.     DIM curRow AS INTEGER, curCol AS INTEGER, fg AS _UNSIGNED LONG, bg AS _UNSIGNED LONG
220.     DIM maxWidth AS INTEGER, maxHeight AS INTEGER, page AS INTEGER, hlite AS INTEGER, mx AS INTEGER, my AS INTEGER
221.     DIM lastMX AS INTEGER, lastMY AS INTEGER, row AS INTEGER, mb AS INTEGER
222.     DIM lba AS LONG, uba AS LONG, choice AS LONG, kh AS LONG, index AS LONG
223.     DIM clrStr AS STRING, b AS STRING
224.  
225.     'save old settings to restore at end ofsub
226.     curRow = CSRLIN
227.     curCol = POS(0)
228.     fg = _DEFAULTCOLOR
229.     bg = _BACKGROUNDCOLOR
230.     _KEYCLEAR
231.  
232.     maxWidth = boxWidth '       number of characters in box
233.     maxHeight = boxHeight - 2 ' number of lines displayed of array at one time = 1 page
234.     lba = LBOUND(arr)
235.     uba = UBOUND(arr)
236.     page = 0
237.     hlite = 0 '                 line in display ready for selection by spacebar or if no number is started, enter
238.     clrStr$ = SPACE$(maxWidth) 'clearing a display line
239.  
240.     GOSUB update '              show the beginning of the array items for selection
241.  
242.     'signal cancel selection process, exit sub with this unlikely index to signal canel
243.     choice = -1719 'primes 7 and 8, not likely to be a select index of an array
244.  
245.     DO 'until get a selection or demand exit
246.  
247.         'handle the key stuff
248.         kh& = _KEYHIT
249.         IF kh& THEN
250.             IF kh& > 0 AND kh& < 255 THEN
251.                 IF INSTR("0123456789", CHR$(kh&)) > 0 THEN b$ = b$ + CHR$(kh&): GOSUB update
252.                 'IF CHR$(kh&) = "h" THEN HELP: _KEYCLEAR
253.  
254.                 IF CHR$(kh&) = "c" THEN b$ = "": GOSUB update
255.                 IF kh& = 13 THEN 'enter pressed check if number is being entered?
256.                     IF LEN(b$) THEN
257.                         IF VAL(b$) >= lba AND VAL(b$) <= uba THEN 'we have number started
258.                             choice = VAL(b$): EXIT DO
259.                         ELSE 'clear b$ to show some response to enter
260.                             b$ = "": GOSUB update 'clear the value that doesn't work
261.                         END IF
262.                     ELSE
263.                         choice = hlite + page * maxHeight + lba 'must mean to select the highlighted item
264.                     END IF
265.                 END IF
266.                 IF kh& = 27 THEN EXIT DO 'escape clause offered to Cancel selection process
267.                 IF kh& = 32 THEN choice = hlite + page * maxHeight + lba 'best way to choose highlighted selection
268.                 IF kh& = 8 THEN 'backspace to edit number
269.                     IF LEN(b$) THEN b$ = LEFT$(b$, LEN(b$) - 1): GOSUB update
270.                 END IF
271.             ELSE
272.                 SELECT CASE kh& 'choosing sections of array to display and highlighted item
273.                     CASE 20736 'pg dn
274.                         IF (page + 1) * maxHeight + lba <= uba THEN page = page + 1: GOSUB update
275.                     CASE 18688 'pg up
276.                         IF (page - 1) * maxHeight + lba >= lba THEN page = page - 1: GOSUB update
277.                     CASE 18432 'up
278.                         IF hlite - 1 < 0 THEN
279.                             IF page > 0 THEN
280.                                 page = page - 1: hlite = maxHeight - 1: GOSUB update
281.                             END IF
282.                         ELSE
283.                             hlite = hlite - 1: GOSUB update
284.                         END IF
285.                     CASE 20480 'down
286.                         IF (hlite + 1) + page * maxHeight + lba <= uba THEN 'ok to move up
287.                             IF hlite + 1 > maxHeight - 1 THEN
288.                                 page = page + 1: hlite = 0: GOSUB update
289.                             ELSE
290.                                 hlite = hlite + 1: GOSUB update
291.                             END IF
292.                         END IF
293.                     CASE 18176 'home
294.                         page = 0: hlite = 0: GOSUB update
295.                     CASE 20224 ' end
296.                         page = INT((uba - lba) / maxHeight): hlite = maxHeight - 1: GOSUB update
297.                 END SELECT
298.             END IF
299.         END IF
300.  
301.         'handle the mouse stuff
302.         WHILE _MOUSEINPUT
303.             IF _MOUSEWHEEL = -1 THEN 'up?
304.                 IF hlite - 1 < 0 THEN
305.                     IF page > 0 THEN
306.                         page = page - 1: hlite = maxHeight - 1: GOSUB update
307.                     END IF
308.                 ELSE
309.                     hlite = hlite - 1: GOSUB update
310.                 END IF
311.             ELSEIF _MOUSEWHEEL = 1 THEN 'down?
312.                 IF (hlite + 1) + page * maxHeight + lba <= uba THEN 'ok to move up
313.                     IF hlite + 1 > maxHeight - 1 THEN
314.                         page = page + 1: hlite = 0: GOSUB update
315.                     ELSE
316.                         hlite = hlite + 1: GOSUB update
317.                     END IF
318.                 END IF
319.             END IF
320.         WEND
321.         mx = INT((_MOUSEX - locateColumn * 8) / 8) + 2: my = INT((_MOUSEY - locateRow * 16) / 16) + 2
322.         IF _MOUSEBUTTON(1) THEN 'click contols or select array item
323.             'clear mouse clicks
324.             mb = _MOUSEBUTTON(1)
325.             IF mb THEN 'clear it
326.                 WHILE mb 'OK!
327.                     IF _MOUSEINPUT THEN mb = _MOUSEBUTTON(1)
328.                     _LIMIT 100
329.                 WEND
330.             END IF
331.  
332.             IF mx >= 1 AND mx <= maxWidth AND my >= 1 AND my <= maxHeight THEN
333.                 choice = my + page * maxHeight + lba - 1 'select item clicked
334.             ELSEIF mx >= 1 AND mx <= maxWidth AND my = 0 THEN 'page up or exit
335.                 IF my = 0 AND (mx <= maxWidth AND mx >= maxWidth - 2) THEN 'exit sign
336.                     EXIT DO 'escape plan for mouse click top right corner of display box
337.                 ELSE 'PgUp bar clicked
338.                     IF (page - 1) * maxHeight + lba >= lba THEN page = page - 1: GOSUB update
339.                 END IF
340.             ELSEIF mx >= 1 AND mx <= maxWidth AND my = maxHeight + 1 THEN 'page down bar clicked
341.                 IF (page + 1) * maxHeight + lba <= uba THEN page = page + 1: GOSUB update
342.             END IF
343.         ELSE '   mouse over highlighting, only if mouse has moved!
344.             IF mx >= 1 AND mx <= maxWidth AND my >= 1 AND my <= maxHeight THEN
345.                 IF mx <> lastMX OR my <> lastMY THEN
346.                     IF my - 1 <> hlite AND (my - 1 + page * maxHeight + lba <= uba) THEN
347.                         hlite = my - 1
348.                         lastMX = mx: lastMY = my
349.                         GOSUB update
350.                     END IF
351.                 END IF
352.             END IF
353.         END IF
354.         _LIMIT 200
355.     LOOP UNTIL choice >= lba AND choice <= uba
356.     getArrayItemNumber& = choice
357.     COLOR fg, bg
358.     'clear key presses
359.     _KEYCLEAR
360.     LOCATE curRow, curCol
361.     'clear mouse clicks
362.     mb = _MOUSEBUTTON(1)
363.     IF mb THEN 'clear it
364.         WHILE mb 'OK!
365.             IF _MOUSEINPUT THEN mb = _MOUSEBUTTON(1)
366.             _LIMIT 100
367.         WEND
368.     END IF
369.     EXIT SUB
370.  
371.     'display of array sections and controls on screen
372.     update:
373.  
374.     'fix hlite if it has dropped below last array item
375.     WHILE hlite + page * maxHeight + lba > uba
376.         hlite = hlite - 1
377.     WEND
378.  
379.     'main display of array items at page * maxHeight (lines high)
380.     FOR row = 0 TO maxHeight - 1
381.         IF hlite = row THEN COLOR _RGB(200, 200, 255), _RGB32(0, 0, 88) ELSE COLOR _RGB32(0, 0, 88), _RGB(200, 200, 255)
382.         LOCATE locateRow + row, locateColumn: PRINT clrStr$
383.         index = row + page * maxHeight + lba
384.         IF index >= lba AND index <= uba THEN
385.             LOCATE locateRow + row, locateColumn
386.             PRINT LEFT$(LTRIM$(STR$(index)) + ") " + arr(index), maxWidth)
387.         END IF
388.     NEXT
389.  
390.     'make page up and down bars to click, print PgUp / PgDn if available
391.     COLOR _RGB32(200, 200, 255), _RGB32(0, 100, 50)
392.     LOCATE locateRow - 1, locateColumn: PRINT SPACE$(maxWidth)
393.     IF page <> 0 THEN LOCATE locateRow - 1, locateColumn: PRINT LEFT$(" Pg Up" + SPACE$(maxWidth), maxWidth)
394.     LOCATE locateRow + maxHeight, locateColumn: PRINT SPACE$(maxWidth)
395.     IF page <> INT(uba / maxHeight) THEN
396.         LOCATE locateRow + maxHeight, locateColumn: PRINT LEFT$(" Pg Dn" + SPACE$(maxWidth), maxWidth)
397.     END IF
398.     'make exit sign for mouse click
399.     COLOR _RGB32(255, 255, 255), _RGB32(200, 100, 0)
400.     LOCATE locateRow - 1, locateColumn + maxWidth - 3
401.     PRINT " X "
402.  
403.     'if a number selection has been started show it's build = b$
404.     IF LEN(b$) THEN
405.         COLOR _RGB(255, 255, 0), _RGB32(0, 0, 0)
406.         LOCATE locateRow + maxHeight, locateColumn + maxWidth - LEN(b$) - 1
407.         PRINT b$;
408.     END IF
409.     _DISPLAY
410.     _LIMIT 100
411.     RETURN
412. END FUNCTION
413.  
414.  

[bplus]

RE: Navigator in Ken's application

While walking the dog, I remembered you had allot of things going back to Begin: label, but not Navigator (as I remember) could something need to be reinitialized or zero'd out after change directory?

A thought for you while I go over your latest revision.

This line needs to be done once right at beginning:

Code: QB64: [Select]

1. IF _DIREXISTS("C:\temp") THEN ELSE MKDIR "C:\temp"
2.  

just once is enough!

Your main menu loop is beautiful to my eye.

Code: QB64: [Select]

1. IF song$ = "" THEN GOTO begin:

Instead of GOTO begin, RETURN is much better form, should not jump out of GOSUBs with GOTOs always RETURN because the interpreter or compiler needs to see RETURN for closure, like for every ( open parenthesis there should be a ) close parenthesis.

I think RETURNS are put in a stack of goto lines, if return is never reached in one sub, the next return found is likely to return to where the first sub was suppose to return to. You can use GOTO's that stay completely inside a GOSUB like your goto again2: 3 places in GOSUB Song: you are GOTOing to Begin: just RETURN should do it.

Not a biggy but it is nicer form to EXIT DO rather a GOTO jump.

Code: QB64: [Select]

1.     IF INT(oldp) > INT(p) AND INT(p) = 0 THEN GOTO more: '<<<  just EXIT DO
2. LOOP
3. more:

The GOTO Begin: in Song GOSUB could be causing weird results. That's best I could find at this late hour.

[bplus]

RE: Navigator in Ken's application

Code: QB64: [Select]

1.  
2. changedirectory:
3. 'SCREEN _NEWIMAGE(1200, 600, 32)
4. '_SCREENMOVE 100, 50
5.  
6. 'VVVVVVVVVVVVV Yuck! I have note about this line in comments VVVVVVVVVVVVVVVVVVVV
7.  
8. IF _DIREXISTS("C:\temp") THEN ELSE MKDIR "C:\temp"
9. ' Replace at start of program to do only once then use SHARED variable tmpDir for writing
10. ' temp files in a good spot for user, updated sub that uses tmpDir.
11.  
12. '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
13.  
14.  
15. DIM mySelection&, done$
16.  
17. DO
18.     PRINT "Current Directory: " + _CWD$
19.     REDIM myFiles(0) AS STRING
20.     loadFA "*.*", myFiles()
21.     mySelection& = getArrayItemNumber&(5, 2, 48, 20, myFiles())
22.     IF mySelection& <> -1719 THEN
23.         CLS  '<<<<<<<<<<<<<<   moved from right after mySelection& = getA....
24.         CHDIR myFiles(mySelection&)
25.     ELSE
26.         _KEYCLEAR
27.        ' >>>>>>>>>>>>>>>>>>>>>>>>>> OK now CLS is NOT clearing if eXiting
28. '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
29. 'Ken, insert here what ever you want to see the screen display do, that is not happening now.
30. ' It will / should other wise cycle back to your Menu.
31. ' Maybe it should GOSUB Song or GOSUB PlayDirectory before RETURN to Menu???
32. ' This is where the navigator is signaled by escape press or X click in to right corner of screen to eXit
33. ' Perfect place to get screen ready for return to the business of playing music.
34. '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
35.  
36.         EXIT DO
37.     END IF
38.     _LIMIT 60
39. LOOP 'UNTIL done$ <> ""
40.  
41. RETURN
42.  
43.  

Ken, the Navigator code is improved (but more to go) since you grabbed roughed out version.
Mainly, the DIM SHARED TmpDir as string, fix Steve suggested would be good to add to start of your program but then the LoadFA code needs to be changed (that would get rid of warning too.)

LoadFA changed to this: ( to use TmpDir and drop the spec$ in call to sub )

Code: QB64: [Select]

1. SUB loadDIR (fa() AS STRING)
2.     DIM tmpFile AS STRING, Index%, fline$, d$
3.     tmpFile = tmpDir + "\DIR$INF0.INF" 'aha!, not a fully pathed file to user directory but here is good!
4.     SHELL _HIDE "DIR /a:d >" + tmpFile 'get directories  but have to do a little pruning
5.     OPEN tmpFile FOR INPUT AS #1
6.     Index% = -1
7.     DO WHILE NOT EOF(1)
8.         LINE INPUT #1, fline$
9.         IF INSTR(fline$, "<DIR>") THEN
10.             d$ = _TRIM$(rightOf$(fline$, "<DIR>"))
11.             Index% = Index% + 1
12.             REDIM _PRESERVE fa(Index%)
13.             fa(Index%) = d$
14.         END IF
15.     LOOP
16.     CLOSE #1
17.     KILL tmpFile
18. END SUB
19.  

Then the call to it in your app should be:

Code: QB64: [Select]

1. DO
2.     PRINT "Current Directory: " + _CWD$
3.     REDIM myFiles(0) AS STRING   ' >>>>>>>>>>>>>> you could change this name to myDIRs(0)
4.  
5.     'loadFA "*.*", myFiles()  ' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>
6.     loadDIR myFiles()  ' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> myFiles to myDIRS()
7.  
8.     mySelection& = getArrayItemNumber&(5, 2, 48, 20, myFiles())
9.     CLS
10.     IF mySelection& <> -1719 THEN
11.         CHDIR myFiles(mySelection&) ' >>>>>>>>>>>>>>> myFiles(mySelection&) to myDIRS(mySelection&)
12.     ELSE
13.         _KEYCLEAR
14.         EXIT DO
15.     END IF
16.     _LIMIT 60
17. LOOP 'UNTIL done$ <> ""
18.  

Dang! I have 2 sets of changes, one modifies code to updated version of Navigator code involving the tmpDir for temp files, the other moves a CLS and advises where to insert code with the old (current) state of Ken app to play nicely with the music and Ken's vision of the player.

[bplus]

I guess the next logical step is to turn this into a Modal Dialog for Retrieving File or Directory names. :)

I hope to get the idea of screen state worked in, that I use for mBox and inputBox, maybe put the whole set in a library, maybe change Function getArrayItemNumber to SUB ListBox.

[SierraKen]

Your SUB has an error that won't make it work, on this line:
tmpFile = tmpDir + "\DIR$INF0.INF" 'aha!, not a fully pathed file to user directory but here is good!   

The error says: Cannot convert number to string.

Do I need any of Steve's code for this windows temp directory?

But thanks for the rest, I changed everything to what you said.

Code: QB64: [Select]

1. 'This program was made on August 23, 2019 by Ken G. with lots of help by B+ and Petr from the QB64.org forum.
2. 'This program makes 2 temporary files called MyMusicFiles.temp and DIR$INF0.INF in a directory called c:\temp
3. 'If for some reason these files exist after this program is shut down, you are free to delete them.
4.  
5. _TITLE "Mini MP3 Player"
6. SCREEN _NEWIMAGE(400, 400, 32)
7. IF _DIREXISTS("C:\temp") THEN ELSE MKDIR "C:\temp"
8. begin:
9. DO
10.     DIM f$(10000)
11.     record = 0
12.     rec = 0
13.     oldp = 0
14.     p = 0
15.     CLS
16.     PRINT: PRINT: PRINT
17.     PRINT "                Mini MP3 Player"
18.     PRINT: PRINT: PRINT
19.     PRINT "                  By Ken G."
20.     PRINT
21.     LOCATE 11, 1: PRINT "Directory: "; _CWD$
22.     PRINT: PRINT
23.     PRINT "            (1) Change Directory"
24.     PRINT "            (2) Play Song"
25.     PRINT "            (3) Play Directory"
26.     PRINT "            (4) Quit"
27.     PRINT
28.     PRINT
29.     INPUT "      ->", a
30.     IF a = 1 THEN GOSUB changedirectory:
31.     IF a = 2 THEN GOSUB song:
32.     IF a = 3 THEN GOSUB playdir:
33.     IF a = 4 THEN END
34. LOOP
35.  
36. 'Play One Song Here
37.  
38. song:
39. CLS
40. FILES "*.mp3"
41. again2:
42. PRINT
43. INPUT "Song: ", song$
44. IF song$ = "" THEN RETURN
45. fe% = _FILEEXISTS(song$)
46. IF fe% <> -1 THEN
47.     PRINT "Filename doesn't exist."
48.     PRINT "Try again, or Enter for Menu."
49.     GOTO again2:
50. END IF
51. CLS
52. s& = _SNDOPEN(song$)
53. IF s& = 0 THEN BEEP ELSE _SNDPLAY s&
54. LOCATE 1, 1: PRINT song$
55. LOCATE 2, 1: PRINT "Sound Rate: "; _SNDRATE
56. LOCATE 4, 1: PRINT "Length: "; INT(_SNDLEN(s&))
57. LOCATE 6, 1: PRINT "Space Bar = Pause (P)lay (S)top (M)enu"
58.  
59. DO
60.     a$ = INKEY$
61.     IF a$ = CHR$(27) THEN _SNDSTOP s&: END
62.     IF a$ = " " THEN _SNDPAUSE s&
63.     IF a$ = "S" OR a$ = "s" THEN _SNDSTOP s&
64.     IF a$ = "P" OR a$ = "p" THEN _SNDPLAY s&
65.     IF a$ = "M" OR a$ = "m" THEN _SNDSTOP s&: RETURN
66.     oldp = p
67.     p = _SNDGETPOS(s&)
68.     LOCATE 3, 1: PRINT "Position: "; INT(p)
69.     IF INT(oldp) > INT(p) AND INT(p) = 0 THEN RETURN
70. LOOP
71. RETURN
72.  
73. 'Play Directory Here
74.  
75. playdir:
76. CLS
77. REDIM file(0) AS STRING 'create empty text array. 0 is record nr. 1!
78. SHELL _HIDE "dir *.mp3 /B > C:\temp\MyMusicFiles.temp" 'create mp3 files list.
79. OPEN "C:\temp\MyMusicFiles.temp" FOR INPUT AS #1
80. IF EOF(1) THEN
81.     CLOSE #1
82.     SHELL _HIDE "DEL C:\temp\MyMusicFiles.temp"
83.     CLS
84.     PRINT "No mp3 songs on this folder."
85.     PRINT
86.     INPUT "Press Enter to go back to Menu.", menu$
87.     RETURN
88. END IF
89. WHILE NOT EOF(1)
90.     LINE INPUT #1, file$
91.     file(record) = file$
92.     f$(record) = file$
93.     PRINT f$(record)
94.     record = record + 1 'for next loop we needed array higher up to one
95.     REDIM _PRESERVE file(record) AS STRING 'this do array bigger without deleting content
96. WEND
97. CLOSE #1
98. SHELL _HIDE "DEL C:\temp\MyMusicFiles.temp"
99. 'so now file(0) is first file from disk. file(3) is 4th file from disk. Try it:
100. ready:
101. a$ = ""
102. p = 0
103. oldp = 0
104. s& = _SNDOPEN(file(rec))
105. _SNDPLAY (s&)
106. LOCATE 1, 1: PRINT f$(rec)
107. LOCATE 2, 1: PRINT "Sound Rate: "; _SNDRATE
108. LOCATE 4, 1: PRINT "Length: "; INT(_SNDLEN(s&))
109. LOCATE 6, 1: PRINT "Space Bar = Pause (P)lay (N)ext Song (M)enu"
110. DO
111.     a$ = INKEY$
112.     IF a$ = CHR$(27) THEN _SNDSTOP s&: END
113.     IF a$ = " " THEN _SNDPAUSE s&
114.     IF a$ = "N" OR a$ = "n" THEN _SNDSTOP s&
115.     IF a$ = "P" OR a$ = "p" THEN _SNDPLAY s&
116.     IF a$ = "M" OR a$ = "m" THEN _SNDSTOP s&: rec = 0: RETURN
117.     oldp = p
118.     p = _SNDGETPOS(s&)
119.     LOCATE 3, 1: PRINT "Position: "; INT(p)
120.     IF INT(oldp) > INT(p) AND INT(p) = 0 THEN EXIT DO
121. LOOP
122. more:
123. IF rec = record - 1 THEN RETURN
124. rec = rec + 1
125. GOTO ready:
126. 'OPTION _EXPLICIT
127. '_TITLE "Tiny Navigator mod orig post with perm tmpfile" 'B+
128. ' 2019-08-22 orig post at https://www.qb64.org/forum/index.php?topic=1646.msg108682#msg108682
129. ' 2019-08-23 try fix (to nav all directories) with one place for tmpFile, theory can't write files in some dir's
130. ' For some reason Windows won't write to a fully pathed file in my user folder???
131. ' Try testing if dir exists "C:\temp" exists and making one if not, yes! and I can write my temp files there
132. ' and now I can chDir anywhere!
133.  
134. '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
135.  
136. ' Attention!!!  this creates a temp directory "C:\temp", do not run this program if you forbid this.
137.  
138. '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
139.  
140. 'Change Directory Here
141.  
142.  
143. changedirectory:
144. 'SCREEN _NEWIMAGE(1200, 600, 32)
145. '_SCREENMOVE 100, 50
146.  
147.  
148. DIM mySelection&, done$
149.  
150. DO
151.     PRINT "Current Directory: " + _CWD$
152.     REDIM myFiles(0) AS STRING ' >>>>>>>>>>>>>> you could change this name to myDIRs(0)
153.  
154.     'loadFA "*.*", myFiles()  ' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>
155.     loadDIR myFiles() ' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> myFiles to myDIRS()
156.  
157.     mySelection& = getArrayItemNumber&(5, 2, 48, 20, myFiles())
158.     CLS
159.     IF mySelection& <> -1719 THEN
160.         CHDIR myFiles(mySelection&) ' >>>>>>>>>>>>>>> myFiles(mySelection&) to myDIRS(mySelection&)
161.     ELSE
162.         _KEYCLEAR
163.         EXIT DO
164.     END IF
165.     _LIMIT 60
166. LOOP 'UNTIL done$ <> ""
167.  
168.  
169. RETURN
170.  
171.  
172. SUB loadDIR (fa() AS STRING)
173.     DIM tmpFile AS STRING, Index%, fline$, d$
174.     tmpFile = tmpDir + "\DIR$INF0.INF" 'aha!, not a fully pathed file to user directory but here is good!
175.     SHELL _HIDE "DIR /a:d >" + tmpFile 'get directories  but have to do a little pruning
176.     OPEN tmpFile FOR INPUT AS #1
177.     Index% = -1
178.     DO WHILE NOT EOF(1)
179.         LINE INPUT #1, fline$
180.         IF INSTR(fline$, "<DIR>") THEN
181.             d$ = _TRIM$(rightOf$(fline$, "<DIR>"))
182.             Index% = Index% + 1
183.             REDIM _PRESERVE fa(Index%)
184.             fa(Index%) = d$
185.         END IF
186.     LOOP
187.     CLOSE #1
188.     KILL tmpFile
189. END SUB
190.  
191. FUNCTION rightOf$ (source$, of$)
192.     IF INSTR(source$, of$) > 0 THEN rightOf$ = MID$(source$, INSTR(source$, of$) + LEN(of$))
193. END FUNCTION
194.  
195. 'attempting use this 4 things (2018-12-30)
196. ' 1. expects HELP sub that uses message and message box but easy to comment out
197. ' 2. expects to be in graphics mode
198. ' 3. chages color of screen
199. ' 4. needs _KEYCLEAR 2 before calling of previous keyhits will interfere!!!
200. '
201. ' Future Help Message Box for the function.
202. ' "*** Mouse and Key Instructions ***"
203. '
204. ' "Mouse, mouse wheel, and arrow keys should work as expected for item selection."
205. ' "Press spacebar to select a highlighted item or just click it."
206. ' "Use number(s) + enter to select an array item by it's index number,"
207. ' "backspace will remove last number pressed, c will clear a number started."
208. ' "Numbers started are shown in bottom right PgDn bar."
209. ' "Enter will also select the highlighted item, if no number has been started."
210. ' "Home starts you at lowest array index, End highlights then highest index."
211. ' "Use PgUp and PgDn keys to flip through pages of array items."
212. '
213. ' "Escape returns -1719 to allow a Cancel function and signal no slection."
214. FUNCTION getArrayItemNumber& (locateRow, locateColumn, boxWidth, boxHeight, arr() AS STRING)
215.     'Notes: locateRow, locateColumn for top right corner of selection box on screen in characters for LOCATE.
216.     'boxWidth and boxHeight are in character units, again for locate and print at correct places.
217.     'All displaying is restricted to inside the box, which has PgUP and PgDn as top and bottom lines in the display.
218.  
219.     DIM curRow AS INTEGER, curCol AS INTEGER, fg AS _UNSIGNED LONG, bg AS _UNSIGNED LONG
220.     DIM maxWidth AS INTEGER, maxHeight AS INTEGER, page AS INTEGER, hlite AS INTEGER, mx AS INTEGER, my AS INTEGER
221.     DIM lastMX AS INTEGER, lastMY AS INTEGER, row AS INTEGER, mb AS INTEGER
222.     DIM lba AS LONG, uba AS LONG, choice AS LONG, kh AS LONG, index AS LONG
223.     DIM clrStr AS STRING, b AS STRING
224.  
225.     'save old settings to restore at end ofsub
226.     curRow = CSRLIN
227.     curCol = POS(0)
228.     fg = _DEFAULTCOLOR
229.     bg = _BACKGROUNDCOLOR
230.     _KEYCLEAR
231.  
232.     maxWidth = boxWidth '       number of characters in box
233.     maxHeight = boxHeight - 2 ' number of lines displayed of array at one time = 1 page
234.     lba = LBOUND(arr)
235.     uba = UBOUND(arr)
236.     page = 0
237.     hlite = 0 '                 line in display ready for selection by spacebar or if no number is started, enter
238.     clrStr$ = SPACE$(maxWidth) 'clearing a display line
239.  
240.     GOSUB update '              show the beginning of the array items for selection
241.  
242.     'signal cancel selection process, exit sub with this unlikely index to signal canel
243.     choice = -1719 'primes 7 and 8, not likely to be a select index of an array
244.  
245.     DO 'until get a selection or demand exit
246.  
247.         'handle the key stuff
248.         kh& = _KEYHIT
249.         IF kh& THEN
250.             IF kh& > 0 AND kh& < 255 THEN
251.                 IF INSTR("0123456789", CHR$(kh&)) > 0 THEN b$ = b$ + CHR$(kh&): GOSUB update
252.                 'IF CHR$(kh&) = "h" THEN HELP: _KEYCLEAR
253.  
254.                 IF CHR$(kh&) = "c" THEN b$ = "": GOSUB update
255.                 IF kh& = 13 THEN 'enter pressed check if number is being entered?
256.                     IF LEN(b$) THEN
257.                         IF VAL(b$) >= lba AND VAL(b$) <= uba THEN 'we have number started
258.                             choice = VAL(b$): EXIT DO
259.                         ELSE 'clear b$ to show some response to enter
260.                             b$ = "": GOSUB update 'clear the value that doesn't work
261.                         END IF
262.                     ELSE
263.                         choice = hlite + page * maxHeight + lba 'must mean to select the highlighted item
264.                     END IF
265.                 END IF
266.                 IF kh& = 27 THEN EXIT DO 'escape clause offered to Cancel selection process
267.                 IF kh& = 32 THEN choice = hlite + page * maxHeight + lba 'best way to choose highlighted selection
268.                 IF kh& = 8 THEN 'backspace to edit number
269.                     IF LEN(b$) THEN b$ = LEFT$(b$, LEN(b$) - 1): GOSUB update
270.                 END IF
271.             ELSE
272.                 SELECT CASE kh& 'choosing sections of array to display and highlighted item
273.                     CASE 20736 'pg dn
274.                         IF (page + 1) * maxHeight + lba <= uba THEN page = page + 1: GOSUB update
275.                     CASE 18688 'pg up
276.                         IF (page - 1) * maxHeight + lba >= lba THEN page = page - 1: GOSUB update
277.                     CASE 18432 'up
278.                         IF hlite - 1 < 0 THEN
279.                             IF page > 0 THEN
280.                                 page = page - 1: hlite = maxHeight - 1: GOSUB update
281.                             END IF
282.                         ELSE
283.                             hlite = hlite - 1: GOSUB update
284.                         END IF
285.                     CASE 20480 'down
286.                         IF (hlite + 1) + page * maxHeight + lba <= uba THEN 'ok to move up
287.                             IF hlite + 1 > maxHeight - 1 THEN
288.                                 page = page + 1: hlite = 0: GOSUB update
289.                             ELSE
290.                                 hlite = hlite + 1: GOSUB update
291.                             END IF
292.                         END IF
293.                     CASE 18176 'home
294.                         page = 0: hlite = 0: GOSUB update
295.                     CASE 20224 ' end
296.                         page = INT((uba - lba) / maxHeight): hlite = maxHeight - 1: GOSUB update
297.                 END SELECT
298.             END IF
299.         END IF
300.  
301.         'handle the mouse stuff
302.         WHILE _MOUSEINPUT
303.             IF _MOUSEWHEEL = -1 THEN 'up?
304.                 IF hlite - 1 < 0 THEN
305.                     IF page > 0 THEN
306.                         page = page - 1: hlite = maxHeight - 1: GOSUB update
307.                     END IF
308.                 ELSE
309.                     hlite = hlite - 1: GOSUB update
310.                 END IF
311.             ELSEIF _MOUSEWHEEL = 1 THEN 'down?
312.                 IF (hlite + 1) + page * maxHeight + lba <= uba THEN 'ok to move up
313.                     IF hlite + 1 > maxHeight - 1 THEN
314.                         page = page + 1: hlite = 0: GOSUB update
315.                     ELSE
316.                         hlite = hlite + 1: GOSUB update
317.                     END IF
318.                 END IF
319.             END IF
320.         WEND
321.         mx = INT((_MOUSEX - locateColumn * 8) / 8) + 2: my = INT((_MOUSEY - locateRow * 16) / 16) + 2
322.         IF _MOUSEBUTTON(1) THEN 'click contols or select array item
323.             'clear mouse clicks
324.             mb = _MOUSEBUTTON(1)
325.             IF mb THEN 'clear it
326.                 WHILE mb 'OK!
327.                     IF _MOUSEINPUT THEN mb = _MOUSEBUTTON(1)
328.                     _LIMIT 100
329.                 WEND
330.             END IF
331.  
332.             IF mx >= 1 AND mx <= maxWidth AND my >= 1 AND my <= maxHeight THEN
333.                 choice = my + page * maxHeight + lba - 1 'select item clicked
334.             ELSEIF mx >= 1 AND mx <= maxWidth AND my = 0 THEN 'page up or exit
335.                 IF my = 0 AND (mx <= maxWidth AND mx >= maxWidth - 2) THEN 'exit sign
336.                     EXIT DO 'escape plan for mouse click top right corner of display box
337.                 ELSE 'PgUp bar clicked
338.                     IF (page - 1) * maxHeight + lba >= lba THEN page = page - 1: GOSUB update
339.                 END IF
340.             ELSEIF mx >= 1 AND mx <= maxWidth AND my = maxHeight + 1 THEN 'page down bar clicked
341.                 IF (page + 1) * maxHeight + lba <= uba THEN page = page + 1: GOSUB update
342.             END IF
343.         ELSE '   mouse over highlighting, only if mouse has moved!
344.             IF mx >= 1 AND mx <= maxWidth AND my >= 1 AND my <= maxHeight THEN
345.                 IF mx <> lastMX OR my <> lastMY THEN
346.                     IF my - 1 <> hlite AND (my - 1 + page * maxHeight + lba <= uba) THEN
347.                         hlite = my - 1
348.                         lastMX = mx: lastMY = my
349.                         GOSUB update
350.                     END IF
351.                 END IF
352.             END IF
353.         END IF
354.         _LIMIT 200
355.     LOOP UNTIL choice >= lba AND choice <= uba
356.     getArrayItemNumber& = choice
357.     COLOR fg, bg
358.     'clear key presses
359.     _KEYCLEAR
360.     LOCATE curRow, curCol
361.     'clear mouse clicks
362.     mb = _MOUSEBUTTON(1)
363.     IF mb THEN 'clear it
364.         WHILE mb 'OK!
365.             IF _MOUSEINPUT THEN mb = _MOUSEBUTTON(1)
366.             _LIMIT 100
367.         WEND
368.     END IF
369.     EXIT SUB
370.  
371.     'display of array sections and controls on screen
372.     update:
373.  
374.     'fix hlite if it has dropped below last array item
375.     WHILE hlite + page * maxHeight + lba > uba
376.         hlite = hlite - 1
377.     WEND
378.  
379.     'main display of array items at page * maxHeight (lines high)
380.     FOR row = 0 TO maxHeight - 1
381.         IF hlite = row THEN COLOR _RGB(200, 200, 255), _RGB32(0, 0, 88) ELSE COLOR _RGB32(0, 0, 88), _RGB(200, 200, 255)
382.         LOCATE locateRow + row, locateColumn: PRINT clrStr$
383.         index = row + page * maxHeight + lba
384.         IF index >= lba AND index <= uba THEN
385.             LOCATE locateRow + row, locateColumn
386.             PRINT LEFT$(LTRIM$(STR$(index)) + ") " + arr(index), maxWidth)
387.         END IF
388.     NEXT
389.  
390.     'make page up and down bars to click, print PgUp / PgDn if available
391.     COLOR _RGB32(200, 200, 255), _RGB32(0, 100, 50)
392.     LOCATE locateRow - 1, locateColumn: PRINT SPACE$(maxWidth)
393.     IF page <> 0 THEN LOCATE locateRow - 1, locateColumn: PRINT LEFT$(" Pg Up" + SPACE$(maxWidth), maxWidth)
394.     LOCATE locateRow + maxHeight, locateColumn: PRINT SPACE$(maxWidth)
395.     IF page <> INT(uba / maxHeight) THEN
396.         LOCATE locateRow + maxHeight, locateColumn: PRINT LEFT$(" Pg Dn" + SPACE$(maxWidth), maxWidth)
397.     END IF
398.     'make exit sign for mouse click
399.     COLOR _RGB32(255, 255, 255), _RGB32(200, 100, 0)
400.     LOCATE locateRow - 1, locateColumn + maxWidth - 3
401.     PRINT " X "
402.  
403.     'if a number selection has been started show it's build = b$
404.     IF LEN(b$) THEN
405.         COLOR _RGB(255, 255, 0), _RGB32(0, 0, 0)
406.         LOCATE locateRow + maxHeight, locateColumn + maxWidth - LEN(b$) - 1
407.         PRINT b$;
408.     END IF
409.     _DISPLAY
410.     _LIMIT 100
411.     RETURN
412. END FUNCTION
413.