Build yourself a fancy menu!

[loudar]

Hello everyone!

As part of a couple of my projects, I've been using a self-coded set of SUB's that deal with creating menu elements.
I've always found menus not fun, if caring about the structuring part, so I thought I'd automate it ;)

Here's the code! For questions and feedback, I'm also available on Discord: loudar#0582

>>>>

AC.txt

<<<<
This file is for this specific example, but feel free to use a different source for accepted characters!

Best regards,
Alex

Code: QB64: [Select]

1. CLS: CLEAR: CLOSE
2. DIM SHARED maxx
3. DIM SHARED maxy
4. maxx = (_DESKTOPWIDTH / 2) * 1.1
5. maxy = maxx / 16 * 9
6. SCREEN _NEWIMAGE(maxx, maxy, 32)
7. DO: LOOP UNTIL _SCREENEXISTS
8. _SCREENMOVE (_DESKTOPWIDTH / 2) - (maxx / 2), (_DESKTOPHEIGHT / 2) - (maxy / 2)
9.  
10. 'loads allowed characters (ac) from file
11. DIM SHARED ac$(200)
12. DIM SHARED alch 'amount of different allowed characters
13.  
14. 'font
15. DIM SHARED maxrows 'maximum amount of rows
16. DIM SHARED maxlines 'maximum amount of columns
17. DIM SHARED fontheight
18. DIM SHARED fontwidth
19. DIM SHARED firstline 'standard 0-column
20. DIM SHARED firstchar 'standard 0-row
21. DIM SHARED r&
22. fontheight = 16
23. fontfiler$ = "C:\WINDOWS\FONTS\COUR.TTF"
24. r& = _LOADFONT(fontfiler$, fontheight, "MONOSPACE")
25. _FONT r&
26. fontwidth = _FONTWIDTH(r&)
27. maxrows = INT(maxx / fontwidth)
28. maxlines = INT(maxy / fontheight) - 4
29.  
30. 'menu (alphabetically sorted)
31. maxmenuitems = 50
32. maxarraylen = 20
33. mafirstchars = 3000
34. DIM SHARED arraydata$(maxmenuitems, maxarraylen) '  used to store the contents of selectors and dropdown elements
35. DIM SHARED backspace(maxmenuitems) '                determines whether backspace was pressed during an active input
36. DIM SHARED basex(maxmenuitems) '                    represents the very left x value of a menu object
37. DIM SHARED basey(maxmenuitems) '                    represents the very top y value of a menu object
38. DIM SHARED borderoffsetx(maxmenuitems) '            change this to widen/narrow items with borders
39. DIM SHARED borderoffsety(maxmenuitems) '            change this to widen/narrow items with borders
40. DIM SHARED c(maxmenuitems) '                        amount of characters in input element
41. DIM SHARED cbf(maxmenuitems) '                      amount of characters in input element, but from one loop before
42. DIM SHARED char$(maxmenuitems, mafirstchars) '      single character within element at specific position
43. DIM SHARED defaultstyle(maxmenuitems) '             determines the default style of a menu object
44. DIM SHARED destination$(maxmenuitems) '             what should happen if the user interacts with this element
45. DIM SHARED editpos(maxmenuitems) '                  current editing position in input
46. DIM SHARED endparameter$ '                          this gives you info about what the user did in the menu, can be used to transfer data (could potentially convert the RunMenu SUB into a Function...)
47. DIM SHARED endx(maxmenuitems) '                     represents the very right x value of a menu object
48. DIM SHARED endy(maxmenuitems) '                     represents the very bottom y value of a menu object
49. DIM SHARED expanded(maxmenuitems) '                 if the dropdown menu is expanded
50. DIM SHARED fill$(maxmenuitems) '                    text to fill the editable part of an input with, good for stuff that is loaded, changed, then saved again
51. DIM SHARED firstprint(maxmenuitems) '               equals 0 if the element hasn't been written on screen before, can be used to reinitialize it
52. DIM SHARED kind$(maxmenuitems) '                    defines the button type
53. DIM SHARED inter(maxmenuitems) '                    if element is interactable with
54. DIM SHARED m '                                      could be used to get current element and use it in other SUB's/Functions
55. DIM SHARED maxad(maxmenuitems) '                    amount of data in array
56. DIM SHARED maxadlength(maxmenuitems) '              maximum length of array data for dropdown element
57. DIM SHARED maxc(maxmenuitems) '                     maximum amount of characters in input element
58. DIM SHARED maxmi '                                  highest interactable element
59. DIM SHARED maxval(maxmenuitems) '                   maximum value of slider element
60. DIM SHARED minval(maxmenuitems) '                   minimum value of slider element
61. DIM SHARED overlaptrigger(maxmenuitems) '           used to deal with overlapping issues of dropdown-elements
62. DIM SHARED selected(maxmenuitems) '                 selectd object within array of element
63. DIM SHARED setting$(maxmenuitems) '                 setting that the toggle element changes
64. DIM SHARED state(maxmenuitems) '                    state of toggle element
65. DIM SHARED status$(maxmenuitems) '                  used for interactive elements, "finished" if determined done (e.g. for filling out forms)
66. DIM SHARED style(maxmenuitems) '                    current style of an element
67. DIM SHARED text$(maxmenuitems) '                    non-editable text in front of input
68. DIM SHARED trigger(maxmenuitems) '                  it's used, but idk what it does anymore :'D
69. DIM SHARED type$(maxmenuitems) '                    type of menu element
70. DIM SHARED UserInput$(maxmenuitems) '               full input text of input element, for usage after menu is run
71. DIM SHARED value(maxmenuitems) '                    current value of slider element
72. DIM SHARED xoffset(maxmenuitems) '                  positioning on x-axis
73. DIM SHARED yoffset(maxmenuitems) '                  positioning on y-axis
74. 'dropdown triangles :D (ascii chars could work maybe?)
75. DIM SHARED p1x(maxmenuitems)
76. DIM SHARED p1y(maxmenuitems)
77. DIM SHARED p2x(maxmenuitems)
78. DIM SHARED p2y(maxmenuitems)
79. DIM SHARED p3x(maxmenuitems)
80. DIM SHARED p3y(maxmenuitems)
81.  
82. 'color definitions
83. maxcolors = 5
84. DIM SHARED r(maxcolors): DIM SHARED g(maxcolors): DIM SHARED b(maxcolors): DIM SHARED a(maxcolors)
85. r(1) = 237: g(1) = r(1): b(1) = r(1): a(1) = 255 '_RGBA(237, 237, 237, 255)     - white
86. r(2) = 15: g(2) = r(2): b(2) = r(2): a(2) = 255 '_RGBA(15, 15, 15, 255)         - black
87. r(3) = 28: g(3) = 166: b(3) = 28: a(3) = 255 '_RGBA(28, 166, 28, 255)           - green
88. r(4) = 244: g(4) = 188: b(4) = 67: a(4) = 255 '_RGBA(244, 188, 67, 255)         - orange/yellow
89. r(5) = 216: g(5) = 33: b(5) = 17: a(5) = 255 ' _RGBA(216, 33, 17, 255)          - red
90. COLOR _RGBA(r(2), g(2), b(2), a(2)), _RGBA(r(1), g(1), b(1), a(1))
91.  
92. 'load the allowed input characters, feel free to change these :)
93. OPEN "AC.txt" FOR INPUT AS #1
94. ac = 0
95. DO
96.     ac = ac + 1
97.     INPUT #1, ac$(ac)
98.     ac$(ac) = _INFLATE$(ac$(ac))
99. LOOP UNTIL EOF(1) = -1
100. alch = ac
101. CLOSE #1
102.  
103. 'change these to your liking!
104. firstline = 2
105. firstchar = 5
106.  
107. '================================================= PROGRAM AREA =================================================
108.  
109. ClearMenu
110. 'add your elements here
111. NewText 1, 0, "Test", 0
112.  
113. NewToggle 2, 0, "ToggleTest", "lmao"
114.  
115. NewSlider 3, 0, 0, 100, "Test Value"
116.  
117. NewButton 4, 0, "Button!", 0, "redirection", "nowhere"
118.  
119. NewSelector 5, 0, "Select"
120. arraydata$(5, 1) = "this"
121. arraydata$(5, 2) = "that"
122. maxad(5) = 2
123.  
124. NewDropdown 6, 0, "Select"
125. arraydata$(6, 1) = "dis"
126. arraydata$(6, 2) = "dat"
127. maxad(6) = 2
128.  
129. NewInput 7, 0, "Write here:", "actually, don't"
130.  
131. RunMenu
132. SLEEP
133. SYSTEM
134.  
135. '=================================================== SUB AREA ===================================================
136.  
137. SUB NewText (yoffset, xoffset, text$, style)
138.     m = m + 1
139.     inter(m) = 0
140.     type$(m) = "text"
141.     yoffset(m) = yoffset * 2
142.     xoffset(m) = xoffset
143.     text$(m) = text$
144.     style(m) = style
145.     status$(m) = ""
146. END SUB
147.  
148. SUB NewToggle (yoffset, xoffset, text$, setting$)
149.     m = m + 1
150.     type$(m) = "toggle"
151.     setting$(m) = setting$
152.     SELECT CASE setting$(m)
153.         CASE IS = "YOUR_SETTING_HERE"
154.             state(m) = SETTING_VALUE 'writes the state of the value used into the menu so it displays properly
155.     END SELECT
156.     text$(m) = text$
157.     yoffset(m) = yoffset * 2
158.     xoffset(m) = xoffset
159.     basex(m) = (firstchar + (LEN(text$)) + xoffset(m) + 1) * fontwidth
160.     basey(m) = (firstline + yoffset(m) - 1) * fontheight - (fontheight / 2)
161.     endx(m) = basex(m) + 2 * fontheight
162.     endy(m) = (firstline + yoffset(m)) * fontheight + (fontheight / 3)
163. END SUB
164.  
165. SUB NewSlider (yoffset, xoffset, minval, maxval, text$)
166.     m = m + 1
167.     inter(m) = 1
168.     maxmi = m
169.     type$(m) = "slider"
170.     yoffset(m) = yoffset * 2
171.     minval(m) = minval
172.     maxval(m) = maxval
173.     xoffset(m) = xoffset
174.     text$(m) = text$
175.     basex(m) = (firstchar + xoffset(m) + LEN(text$(m))) * fontwidth + (fontwidth / 2) 'change this to fit your setup
176.     value(m) = maxval(m)
177.     endx(m) = basex(m) + (maxx / 4) + 4
178.     status$(m) = ""
179. END SUB
180.  
181. SUB NewButton (yoffset, xoffset, text$, style, kind$, destination$)
182.     m = m + 1
183.     maxmi = m
184.     inter(m) = 1
185.     type$(m) = "button"
186.     yoffset(m) = yoffset * 2
187.     xoffset(m) = xoffset
188.     borderoffsetx(m) = 0
189.     borderoffsety(m) = 0
190.     text$(m) = text$
191.     basex(m) = (firstchar + xoffset(m) - 1) * fontwidth - (fontwidth / 2) + borderoffsetx(m)
192.     endx(m) = basex(m) + (LEN(text$(m)) + 1) * fontwidth + (fontwidth / 2)
193.     basey(m) = (firstline + yoffset(m) - 1) * fontheight - (fontheight / 2) + borderoffsety(m)
194.     endy(m) = (firstline + yoffset(m)) * fontheight + (fontheight / 3) + borderoffsety(m)
195.     kind$(m) = kind$
196.     destination$(m) = destination$
197.     style(m) = style
198.     defaultstyle(m) = style
199.     status$(m) = ""
200. END SUB
201.  
202. SUB NewSelector (yoffset, xoffset, text$)
203.     m = m + 1
204.     inter(m) = 1
205.     maxmi = m
206.     type$(m) = "selector"
207.     selected(m) = 1
208.     text$(m) = text$
209.     yoffset(m) = yoffset * 2
210.     xoffset(m) = xoffset
211.     basex(m) = (firstchar + xoffset(m) - 1) * fontwidth - (fontwidth / 2)
212.     basey(m) = (firstline + yoffset(m) - 1) * fontheight - (fontheight / 2)
213.     endx(m) = basex(m) + (LEN(text$) + 1) * fontwidth + (fontwidth / 2)
214.     endy(m) = (firstline + yoffset(m)) * fontheight + (fontheight / 3)
215. END SUB
216.  
217. SUB NewDropdown (yoffset, xoffset, text$)
218.     m = m + 1
219.     inter(m) = 1
220.     maxmi = m
221.     type$(m) = "dropdown"
222.     yoffset(m) = yoffset * 2
223.     xoffset(m) = xoffset
224.     borderoffsetx(m) = 0
225.     borderoffsety(m) = -2
226.     text$(m) = text$
227.     basex(m) = (firstchar + xoffset(m) + LEN(text$(m)) + 1) * fontwidth - (fontwidth / 2) + borderoffsetx(m) 'left end of dropdown box
228.     basey(m) = (firstline + yoffset(m) - 1) * fontheight - (fontheight / 2) + borderoffsety(m)
229.     endy(m) = (firstline + yoffset(m)) * fontheight + (fontheight / 3) + borderoffsety(m)
230.     status$(m) = ""
231. END SUB
232.  
233. SUB NewInput (yoffset, xoffset, text$, fill$)
234.     m = m + 1
235.     inter(m) = 1
236.     maxmi = m
237.     IF maxc(m) > 0 THEN
238.         c(m) = 0
239.         DO
240.             c(m) = c(m) + 1
241.             char$(m, c(m)) = ""
242.         LOOP UNTIL c(m) = maxg(m)
243.         c(m) = 0
244.         maxc(m) = 0
245.     END IF
246.     type$(m) = "input"
247.     yoffset(m) = yoffset * 2
248.     fill$(m) = fill$
249.     text$(m) = text$
250.     xoffset(m) = xoffset
251.     status$(m) = ""
252. END SUB
253.  
254. SUB ClearMenu
255.     m = 0
256.     'ERASE c, cbf, char$, firstprint, type$, UserInput$, status$, destination$, style, defaultstyle, basex, endx, basey, endy
257.     maxm = 0
258.     activem = 1
259.     maxmi = 0
260. END SUB
261.  
262. SUB RunMenu
263.     COLOR _RGBA(r(2), g(2), b(2), a(2)), _RGBA(r(1), g(1), b(1), a(1))
264.     CLS
265.     'add more background elements here if you want! you can just add a parameter to RunMenu to get the info which BG should be used
266.     endparameter$ = ""
267.     maxm = m
268.     activem = 1
269.     DO
270.         '_LIMIT 120
271.         Taste$ = INKEY$
272.         SELECT CASE Taste$
273.             CASE IS = CHR$(13)
274.                 IF activem < maxmm AND inter(activem) = 1 THEN
275.                     status$(activem) = "finished"
276.                     activem = activem + 1
277.                 END IF
278.             CASE IS = CHR$(0) + CHR$(80) 'arrow down
279.                 IF activem < maxm THEN
280.                     activem = activem + 1
281.                 ELSE
282.                     activem = 1
283.                 END IF
284.             CASE IS = CHR$(0) + CHR$(72) 'arrow up
285.                 IF activem > 1 THEN
286.                     activem = activem - 1
287.                 ELSE
288.                     activem = maxm
289.                 END IF
290.             CASE IS = CHR$(0) + CHR$(60) 'F2
291.                 IF activem < maxm THEN
292.                     activem = activem + 1
293.                 ELSE
294.                     activem = 1
295.                 END IF
296.             CASE IS = CHR$(0) + CHR$(59) 'F1
297.                 IF activem > 1 THEN
298.                     activem = activem - 1
299.                 ELSE
300.                     activem = maxm
301.                 END IF
302.             CASE IS = CHR$(0) + CHR$(77) 'arrow right
303.                 IF selected(activem) < maxad(activem) THEN
304.                     selected(activem) = selected(activem) + 1
305.                 ELSE
306.                     selected(activem) = 1
307.                 END IF
308.             CASE IS = CHR$(0) + CHR$(75) 'arrow left
309.                 IF selected(activem) > 1 THEN
310.                     selected(activem) = selected(activem) - 1
311.                 ELSE
312.                     selected(activem) = maxad(activem)
313.                 END IF
314.         END SELECT
315.         m = 0
316.         DO
317.             m = m + 1
318.             SELECT CASE type$(m)
319.                 CASE IS = "text"
320.                     checkm = 0
321.                     DO
322.                         checkm = checkm + 1
323.                         IF overlaptrigger(checkm) = 1 AND checkm < m THEN
324.                             overlaptrigger(checkm) = 0
325.                             firstprint(m) = 0
326.                         END IF
327.                     LOOP UNTIL checkm = maxm
328.                     IF firstprint(m) = 0 THEN
329.                         firstprint(m) = 1
330.                         LOCATE firstline + yoffset(m), firstchar + xoffset(m)
331.                         SELECT CASE style(m)
332.                             CASE IS = 0
333.                                 COLOR _RGBA(r(2), g(2), b(2), a(2)), _RGBA(r(1), g(1), b(1), a(1))
334.                             CASE IS = 1
335.                                 COLOR _RGBA(r(3), g(3), b(3), a(3)), _RGBA(r(1), g(1), b(1), a(1)) 'green
336.                             CASE IS = 2
337.                                 COLOR _RGBA(r(5), g(5), b(5), a(5)), _RGBA(r(1), g(1), b(1), a(1)) 'red
338.                         END SELECT
339.                         PRINT text$(m)
340.                     END IF
341.                 CASE IS = "toggle"
342.                     IF _MOUSEINPUT = -1 THEN
343.                         IF mouseclicked = 0 THEN
344.                             IF _MOUSEBUTTON(1) = -1 THEN
345.                                 IF _MOUSEX > basex(m) AND _MOUSEX < endx(m) THEN
346.                                     IF _MOUSEY > basey(m) AND _MOUSEY < endy(m) THEN
347.                                         mouseclicked = 1
348.                                         IF state(m) = 1 THEN
349.                                             state(m) = 0
350.                                         ELSE
351.                                             state(m) = 1
352.                                         END IF
353.                                         GOTO printtoggle
354.                                     END IF
355.                                 END IF
356.                             END IF
357.                         END IF
358.                     ELSE
359.                         mouseclicked = 0
360.                     END IF
361.                     IF firstprint(m) = 0 THEN
362.                         firstprint(m) = 1
363.                         printtoggle:
364.                         SELECT CASE state(m)
365.                             CASE IS = 0
366.                                 LINE (basex(m), basey(m))-(endx(m), endy(m)), _RGBA(r(1), g(1), b(1), a(1)), BF
367.                                 LINE (basex(m), basey(m))-(endx(m), endy(m)), _RGBA(r(2), g(2), b(2), a(2)), B
368.                                 LINE (basex(m) + 2, basey(m) + 2)-(endx(m) - (endx(m) - basex(m)) / 2 - 2, endy(m) - 2), _RGBA(r(2), g(2), b(2), a(2)), BF
369.                             CASE IS = 1
370.                                 LINE (basex(m), basey(m))-(endx(m), endy(m)), _RGBA(r(2), g(2), b(2), a(2)), BF
371.                                 LINE (basex(m) + (endx(m) - basex(m)) / 2 + 2, basey(m) + 2)-(endx(m) - 2, endy(m) - 2), _RGBA(r(4), g(4), b(4), a(4)), BF
372.                         END SELECT
373.                         COLOR _RGBA(r(2), g(2), b(2), a(2)), _RGBA(r(1), g(1), b(1), a(1))
374.                         LOCATE firstline + yoffset(m), firstchar + xoffset(m)
375.                         PRINT text$(m)
376.                     END IF
377.                 CASE IS = "button"
378.                     checkm = 0
379.                     DO
380.                         checkm = checkm + 1
381.                         IF overlaptrigger(checkm) = 1 AND checkm < m THEN
382.                             overlaptrigger(checkm) = 0
383.                             firstprint(m) = 0
384.                         END IF
385.                     LOOP UNTIL checkm = maxm
386.                     IF firstprint(m) = 0 THEN
387.                         firstprint(m) = 1
388.                         SELECT CASE style(m)
389.                             CASE IS = 0 'default
390.                                 LINE (basex(m), basey(m))-(endx(m), endy(m)), _RGBA(r(1), g(1), b(1), a(1)), BF
391.                                 LINE (basex(m), basey(m))-(endx(m), endy(m)), _RGBA(r(2), g(2), b(2), a(2)), B
392.                                 COLOR _RGBA(r(2), g(2), b(2), a(2)), _RGBA(r(1), g(1), b(1), a(1))
393.                             CASE IS = 1 'filled
394.                                 LINE (basex(m), basey(m))-(endx(m), endy(m)), _RGBA(r(2), g(2), b(2), a(2)), BF
395.                                 COLOR _RGBA(r(1), g(1), b(1), a(1)), _RGBA(r(2), g(2), b(2), a(2))
396.                             CASE IS = 2 'colored (color index 3)
397.                                 LINE (basex(m), basey(m))-(endx(m), endy(m)), _RGBA(r(3), g(3), b(3), a(3)), BF
398.                                 COLOR _RGBA(r(1), g(1), b(1), a(1)), _RGBA(r(3), g(3), b(3), a(3))
399.                             CASE IS = 3 'color border (color index 3)
400.                                 LINE (basex(m), basey(m))-(endx(m), endy(m)), _RGBA(r(1), g(1), b(1), a(1)), B
401.                                 LINE (basex(m), basey(m))-(endx(m), endy(m)), _RGBA(r(3), g(3), b(3), a(3)), B
402.                                 COLOR _RGBA(r(3), g(3), b(3), a(3)), _RGBA(r(1), g(1), b(1), a(1))
403.                         END SELECT
404.                         LOCATE firstline + yoffset(m), firstchar + xoffset(m)
405.                         PRINT text$(m)
406.                     END IF
407.                     IF _MOUSEINPUT = -1 THEN
408.                         IF _MOUSEX > basex(m) AND _MOUSEX < endx(m) THEN
409.                             IF _MOUSEY > basey(m) AND _MOUSEY < endy(m) THEN
410.                                 SELECT CASE defaultstyle(m)
411.                                     CASE IS = 0
412.                                         style(m) = 1
413.                                     CASE IS = 1
414.                                         style(m) = 0
415.                                     CASE IS = 2
416.                                         style(m) = 3
417.                                     CASE IS = 3
418.                                         style(m) = 2
419.                                 END SELECT
420.                                 IF firstprint(m) = 1 THEN firstprint(m) = 0
421.                                 IF _MOUSEBUTTON(1) = -1 THEN
422.                                     SELECT CASE kind$(m)
423.                                         CASE IS = "confirmation"
424.                                             endparameter$ = "true"
425.                                             status$(maxmi) = "finished"
426.                                         CASE IS = "redirect" 'used for going to another marker, menu or similar
427.                                             SELECT CASE destination$(m)
428.                                                 CASE IS = "end menu"
429.                                                     status$(maxmi) = "finished"
430.                                             END SELECT
431.                                             IF MID$(destination$(m), LEN(destination$(m)), 1) = ":" THEN 'if destination$ has : at the end, it will end the menu because it interprets it as going to another place
432.                                                 status$(maxmi) = "finished"
433.                                                 endparameter$ = destination$(m)
434.                                             END IF
435.                                     END SELECT
436.                                 END IF
437.                             ELSE
438.                                 IF defaultstyle(m) <> style(m) THEN style(m) = defaultstyle(m): firstprint(m) = 0
439.                             END IF
440.                         ELSE
441.                             IF defaultstyle(m) <> style(m) THEN style(m) = defaultstyle(m): firstprint(m) = 0
442.                         END IF
443.                     END IF
444.                 CASE IS = "slider"
445.                     checkm = 0
446.                     DO
447.                         checkm = checkm + 1
448.                         IF overlaptrigger(checkm) = 1 AND checkm < m THEN
449.                             overlaptrigger(checkm) = 0
450.                             firstprint(m) = 0
451.                         END IF
452.                     LOOP UNTIL checkm = maxm
453.                     IF firstprint(m) = 0 THEN
454.                         firstprint(m) = 1
455.                         LOCATE firstline + yoffset(m), firstchar + xoffset(m)
456.                         COLOR _RGBA(r(2), g(2), b(2), a(2)), _RGBA(r(1), g(1), b(1), a(1))
457.                         PRINT text$(m)
458.                         'horizontal
459.                         LINE (basex(m), (firstline + yoffset(m) - 1) * fontheight + (fontheight / 2))-(basex(m) + (maxx / 4), (firstline + yoffset(m) - 1) * fontheight + (fontheight / 2) + 1), _RGBA(r(2), g(2), b(2), a(2)), BF
460.                         'vertical
461.                         LINE (basex(m) + (value(m) / maxval(m) * (maxx / 4)), (firstline + yoffset(m) - 1) * fontheight + 1)-(basex(m) + 4 + (value(m) / maxval(m) * (maxx / 4)), (firstline + yoffset(m)) * fontheight - 1), _RGBA(r(2), g(2), b(2), a(2)), BF
462.                         xvalue = firstchar + xoffset(m) + LEN(text$(m)) + ((maxx / 4) / fontwidth) + 2
463.                         LOCATE firstline + yoffset(m), xvalue
464.                         PRINT value(m); "   "
465.                     END IF
466.                     IF _MOUSEINPUT = -1 THEN
467.                         IF _MOUSEBUTTON(1) = -1 THEN
468.                             IF _MOUSEY > (firstline + yoffset(m) - 1) * fontheight + 1 AND _MOUSEY < (firstline + yoffset(m)) * fontheight - 1 THEN
469.                                 DO
470.                                     IF _MOUSEINPUT = -1 AND _MOUSEX > basex(m) AND _MOUSEX < endx(m) THEN
471.                                         value(m) = _MOUSEX - (basex(m))
472.                                         value(m) = INT(value(m) / (maxx / 4) * 100)
473.                                         printslider:
474.                                         'cleanup
475.                                         LINE (basex(m), (firstline + yoffset(m) - 1) * fontheight + 1)-(endx(m), (firstline + yoffset(m)) * fontheight - 1), _RGBA(r(1), g(1), b(1), a(1)), BF
476.  
477.                                         'horizontal
478.                                         LINE (basex(m), (firstline + yoffset(m) - 1) * fontheight + (fontheight / 2))-(endx(m), (firstline + yoffset(m) - 1) * fontheight + (fontheight / 2) + 1), _RGBA(r(2), g(2), b(2), a(2)), BF
479.                                         'vertical
480.                                         LINE (basex(m) + (value(m) / maxval(m) * (maxx / 4)), (firstline + yoffset(m) - 1) * fontheight + 1)-(basex(m) + 4 + (value(m) / maxval(m) * (maxx / 4)), (firstline + yoffset(m)) * fontheight - 1), _RGBA(r(2), g(2), b(2), a(2)), BF
481.                                         xvalue = firstchar + xoffset(m) + LEN(text$(m)) + ((maxx / 4) / fontwidth) + 2
482.                                         LOCATE firstline + yoffset(m), xvalue
483.                                         COLOR _RGBA(r(2), g(2), b(2), a(2)), _RGBA(r(1), g(1), b(1), a(1))
484.                                         PRINT value(m); "   "
485.                                     ELSEIF _MOUSEINPUT = -1 AND _MOUSEX < basex(m) OR _MOUSEX > basex(m) + 4 + (maxx / 4) THEN
486.                                         IF _MOUSEX < basex(m) THEN
487.                                             value(m) = minval(m)
488.                                         ELSE
489.                                             value(m) = maxval(m)
490.                                         END IF
491.                                         GOTO printslider
492.                                     END IF
493.                                 LOOP UNTIL _MOUSEBUTTON(1) = 0
494.                             END IF
495.                         END IF
496.                     END IF
497.                 CASE IS = "selector" 'simpler and in-line version of dropdown
498.                     IF _MOUSEINPUT = -1 THEN
499.                         IF _MOUSEBUTTON(1) = -1 THEN
500.                             IF _MOUSEX > (firstchar + xoffset(m)) * fontwidth + (fontwidth / 2) AND _MOUSEX < (firstchar + xoffset(m) + LEN(text$(m)) + LEN(arraydata$(m, selected(m))) + 5) * fontwidth + (fontwidth / 2) THEN
501.                                 IF _MOUSEY > (firstline + yoffset(m) - 1) * fontheight AND _MOUSEY < (firstline + yoffset(m)) * fontheight THEN
502.                                     checkm = 0: dontgoactive = 0
503.                                     DO
504.                                         checkm = checkm + 1
505.                                         IF expanded(checkm) = 1 THEN dontgoactive = 1 ELSE dontgoactive = 0
506.                                     LOOP UNTIL checkm = maxm
507.                                     IF dontgoactive = 0 THEN activem = m
508.                                 END IF
509.                             END IF
510.                         END IF
511.                     END IF
512.                     'shows non-editable text
513.                     COLOR _RGBA(r(2), g(2), b(2), a(2)), _RGBA(r(1), g(1), b(1), a(1))
514.                     LOCATE firstline + yoffset(m), firstchar + xoffset(m)
515.                     PRINT text$(m);
516.  
517.                     'shows editable text
518.                     IF activem <> m THEN
519.                         COLOR _RGBA(r(2), g(2), b(2), a(2)), _RGBA(r(1), g(1), b(1), a(1))
520.                     ELSE
521.                         COLOR _RGBA(r(4), g(4), b(4), a(4)), _RGBA(r(1), g(1), b(1), a(1))
522.                     END IF
523.                     PRINT " < ";
524.                     PRINT arraydata$(m, selected(m));
525.                     PRINT " >   "
526.                 CASE IS = "dropdown"
527.                     IF activem = m THEN 'only enables keys if dropdown menu is active
528.                         SELECT CASE Taste$
529.                             CASE IS = CHR$(9)
530.                                 IF expanded(m) = 1 THEN
531.                                     expanded(m) = 0
532.                                     overlaptrigger(m) = 1
533.                                     GOTO reprint
534.                                 ELSE
535.                                     expanded(m) = 1
536.                                     GOTO reprint
537.                                 END IF
538.                             CASE IS = CHR$(0) + CHR$(77) 'arrow right
539.                                 IF selected(m) > 1 THEN
540.                                     selected(m) = selected(m) - 1
541.                                 ELSE
542.                                     selected(m) = maxad(m)
543.                                 END IF
544.                                 GOTO reprint
545.                             CASE IS = CHR$(0) + CHR$(75) 'arrow left
546.                                 IF selected(m) < maxad(m) THEN
547.                                     selected(m) = selected(m) + 1
548.                                 ELSE
549.                                     selected(m) = 1
550.                                 END IF
551.                                 GOTO reprint
552.                         END SELECT
553.                     END IF
554.                     IF firstprint(m) = 0 THEN 'only prints menu once and sets variables, loads menu etc..
555.                         firstprint(m) = 1
556.                         ad = 0
557.                         DO
558.                             ad = ad + 1
559.                             IF maxadlength(m) < LEN(arraydata$(m, ad)) THEN maxadlength(m) = LEN(arraydata$(m, ad))
560.                         LOOP UNTIL ad = maxad(m)
561.                         endx(m) = (firstchar + xoffset(m) + LEN(text$(m)) + maxadlength(m) + 3) * fontwidth + (fontwidth / 2) + borderoffsetx(m) 'right end of dropdown box
562.                         selected(m) = 1
563.  
564.                         reprint: 'triggered when a change occurs
565.                         'prints text in front of dropdown
566.                         LOCATE firstline + yoffset(m), firstchar + xoffset(m)
567.                         COLOR _RGBA(r(2), g(2), b(2), a(2)), _RGBA(r(1), g(1), b(1), a(1))
568.                         PRINT text$(m)
569.  
570.                         'activem = m
571.                         IF expanded(m) = 0 THEN
572.                             LINE (basex(m), (firstline + yoffset(m) - 1) * fontheight - (fontheight / 3) + borderoffsety(m))-(endx(m), (firstline + yoffset(m)) * fontheight + (fontheight / 2) + borderoffsety(m)), _RGBA(r(1), g(1), b(1), a(1)), BF
573.                             LINE (basex(m), (firstline + yoffset(m) - 1) * fontheight - (fontheight / 3) + borderoffsety(m))-(endx(m), (firstline + yoffset(m)) * fontheight + (fontheight / 2) + borderoffsety(m)), _RGBA(r(2), g(2), b(2), a(2)), B
574.                             IF activem <> m THEN
575.                                 COLOR _RGBA(r(2), g(2), b(2), a(2)), _RGBA(r(1), g(1), b(1), a(1))
576.                             ELSE
577.                                 COLOR _RGBA(r(4), g(4), b(4), a(4)), _RGBA(r(1), g(1), b(1), a(1))
578.                             END IF
579.                             LOCATE firstline + yoffset(m), firstchar + xoffset(m) + LEN(text$(m)) + 2
580.                             PRINT arraydata$(m, selected(m))
581.                         ELSE
582.                             LINE (basex(m), (firstline + yoffset(m) - 1) * fontheight - (fontheight / 3) + borderoffsety(m))-(endx(m), (firstline + yoffset(m) + (maxad(m) * 2) - 1) * fontheight + (fontheight / 2) + borderoffsety(m)), _RGBA(r(1), g(1), b(1), a(1)), BF
583.                             ad = 0
584.                             DO
585.                                 ad = ad + 1
586.                                 IF ad = selected(m) THEN
587.                                     COLOR _RGBA(r(1), g(1), b(1), a(1)), _RGBA(r(4), g(4), b(4), a(4))
588.                                 ELSE
589.                                     COLOR _RGBA(r(2), g(2), b(2), a(2)), _RGBA(r(1), g(1), b(1), a(1))
590.                                 END IF
591.                                 LOCATE firstline + yoffset(m) + (ad * 2) - 2, firstchar + xoffset(m) + LEN(text$(m)) + 2
592.                                 PRINT arraydata$(m, ad)
593.                             LOOP UNTIL ad = maxad(m)
594.                             LINE (basex(m), (firstline + yoffset(m) - 1) * fontheight - (fontheight / 3) + borderoffsety(m))-(endx(m), (firstline + yoffset(m) + (maxad(m) * 2) - 1) * fontheight + (fontheight / 2) + borderoffsety(m)), _RGBA(r(2), g(2), b(2), a(2)), B
595.                         END IF
596.  
597.                         'variables for dropdown triangle (right side, you know?)
598.                         p1x(m) = (firstchar + xoffset(m) + LEN(text$(m)) + maxadlength(m) + 2) * fontwidth
599.                         p1y(m) = (firstline + yoffset(m) - 1) * fontheight + (fontheight / 3) + borderoffsety - 3
600.                         p2x(m) = p1x(m) + fontwidth
601.                         p2y(m) = p1y(m)
602.                         p3x(m) = p1x(m) + ((p2x(m) - p1x(m)) / 2)
603.                         p3y(m) = p1y(m) + SQR(((fontwidth / 2) * (fontwidth / 2)) + (fontwidth * fontwidth)) - (fontheight / 4)
604.  
605.                         'triangle
606.                         LINE (p1x(m), p1y(m))-(p2x(m), p2y(m)), _RGBA(r(2), g(2), b(2), a(2))
607.                         LINE (p1x(m), p1y(m))-(p3x(m), p3y(m)), _RGBA(r(2), g(2), b(2), a(2))
608.                         LINE (p2x(m), p2y(m))-(p3x(m), p3y(m)), _RGBA(r(2), g(2), b(2), a(2))
609.                         PAINT (p1x(m) + ((p2x(m) - p1x(m)) / 2), p1y(m) + ((p3y(m) - p1y(m)) / 2)), _RGBA(r(2), g(2), b(2), a(2)), _RGBA(r(2), g(2), b(2), a(2))
610.                     END IF
611.                     IF _MOUSEINPUT = -1 THEN
612.                         selline = INT(_MOUSEY / (fontheight)) + 1
613.                         IF selline > (firstline + yoffset(m) - 1) AND selline < (firstline + yoffset(m) + (maxad(m) * 2) - 1) THEN
614.                             mouseselected = INT((selline - (firstline + yoffset(m) - 1)) / 2) + 1
615.                             IF mouseselected <> selected(m) AND expanded(m) = 1 THEN
616.                                 selected(m) = mouseselected
617.                                 GOTO reprint
618.                             END IF
619.                         END IF
620.                         IF _MOUSEBUTTON(1) = -1 AND mouseclicked = 0 THEN
621.                             IF _MOUSEX > basex(m) AND _MOUSEX < endx(m) THEN
622.                                 mouseclicked = 1
623.                                 IF expanded(m) = 1 THEN
624.                                     endy(m) = (firstline + yoffset(m) + maxad(m)) * fontheight + (fontheight / 3) + borderoffsety(m)
625.                                     IF _MOUSEY > basey(m) AND _MOUSEY < endy(m) THEN
626.                                         expanded(m) = 0
627.                                         LINE (basex(m), (firstline + yoffset(m) - 1) * fontheight - (fontheight / 3) + borderoffsety(m))-(endx(m), (firstline + yoffset(m) + (maxad(m) * 2) - 1) * fontheight + (fontheight / 2) + borderoffsety(m)), _RGBA(r(1), g(1), b(1), a(1)), BF
628.                                         overlaptrigger(m) = 1
629.                                         GOTO reprint
630.                                     END IF
631.                                 ELSE
632.                                     endy(m) = (firstline + yoffset(m)) * fontheight + (fontheight / 3) + borderoffsety(m)
633.                                     IF _MOUSEY > basey(m) AND _MOUSEY < endy(m) THEN
634.                                         expanded(m) = 1
635.                                         GOTO reprint
636.                                     END IF
637.                                 END IF
638.                             END IF
639.                         ELSE
640.                             mouseclicked = 0
641.                         END IF
642.                     END IF
643.                 CASE IS = "input"
644.                     checkm = 0
645.                     DO
646.                         checkm = checkm + 1
647.                         IF overlaptrigger(checkm) = 1 AND checkm < m THEN
648.                             overlaptrigger(checkm) = 0
649.                             firstprint(m) = 0
650.                             selectedall = 0
651.                         END IF
652.                     LOOP UNTIL checkm = maxm
653.                     COLOR _RGBA(r(2), g(2), b(2), a(2)), _RGBA(r(1), g(1), b(1), a(1))
654.                     IF firstprint(m) = 0 THEN
655.                         firstprint(m) = 1
656.                         IF fill$(m) <> "" AND c(m) = 0 THEN
657.                             DO
658.                                 c(m) = c(m) + 1
659.                                 char$(m, c(m)) = MID$(fill$(m), c(m), 1)
660.                             LOOP UNTIL c(m) = LEN(fill$(m))
661.                             cbf(m) = c(m)
662.                             LOCATE firstline + yoffset(m), firstchar + xoffset(m)
663.                             PRINT text$(m) + " ";
664.                             IF selectedall = 0 THEN
665.                                 COLOR _RGBA(r(2), g(2), b(2), a(2)), _RGBA(r(1), g(1), b(1), a(1))
666.                             ELSE
667.                                 COLOR _RGBA(r(1), g(1), b(1), a(1)), _RGBA(r(2), g(2), b(2), a(2))
668.                             END IF
669.                             PRINT fill$(m);
670.                         END IF
671.                         printback:
672.                         IF backspace(m) = 1 AND c(m) > 0 AND selectedall = 0 THEN
673.                             IF TIMER MOD 2 = 0 THEN LINE ((firstchar + xoffset(m) + LEN(text$(m)) + editpos(m)) * fontwidth + (fontwidth / 2), (firstline + yoffset(m) - 1) * fontheight + 1)-((firstchar + xoffset(m) + LEN(text$(m)) + editpos(m)) * fontwidth + (fontwidth / 2) + 2, (firstline + yoffset(m)) * fontheight - 1), _RGBA(r(1), g(1), b(1), a(1)), BF
674.                             backspace(m) = 0
675.                             COLOR _RGBA(r(2), g(2), b(2), a(2)), _RGBA(r(1), g(1), b(1), a(1))
676.                             LOCATE firstline + yoffset(m), firstchar + xoffset(m)
677.                             PRINT text$(m) + " ";
678.                             cbf(m) = 0
679.                             trigger(m) = 0
680.                             DO
681.                                 cbf(m) = cbf(m) + 1
682.                                 IF cbf(m) <> editpos(m) THEN
683.                                     IF trigger(m) = 1 THEN
684.                                         char$(m, cbf(m)) = char$(m, cbf(m) + 1)
685.                                     END IF
686.                                     PRINT char$(m, cbf(m));
687.                                 ELSE
688.                                     char$(m, cbf(m)) = char$(m, cbf(m) + 1)
689.                                     PRINT char$(m, cbf(m));
690.                                     trigger(m) = 1
691.                                 END IF
692.                             LOOP UNTIL cbf(m) >= c(m) - 1
693.                             PRINT "  "
694.                             char$(m, c(m)) = ""
695.                             c(m) = c(m) - 1
696.                         ELSEIF backspace(m) = 1 AND c(m) > 0 AND selectedall = 1 THEN
697.                             IF TIMER MOD 2 = 0 THEN LINE ((firstchar + xoffset(m) + LEN(text$(m)) + editpos(m)) * fontwidth + (fontwidth / 2), (firstline + yoffset(m) - 1) * fontheight + 1)-((firstchar + xoffset(m) + LEN(text$(m)) + editpos(m)) * fontwidth + (fontwidth / 2) + 2, (firstline + yoffset(m)) * fontheight - 1), _RGBA(r(1), g(1), b(1), a(1)), BF
698.                             backspace(m) = 0
699.                             COLOR _RGBA(r(2), g(2), b(2), a(2)), _RGBA(r(1), g(1), b(1), a(1))
700.                             LOCATE firstline + yoffset(m), firstchar + xoffset(m)
701.                             PRINT text$(m) + " ";
702.                             selectedall = 0
703.                             cbf(m) = 0
704.                             DO
705.                                 cbf(m) = cbf(m) + 1
706.                                 char$(m, cbf(m)) = "" ' clears text array
707.                                 PRINT " ";
708.                             LOOP UNTIL cbf(m) = c(m)
709.                             cbf(m) = c(m)
710.                             c(m) = 0
711.                             IF fill$(m) <> "" THEN
712.                                 DO
713.                                     c(m) = c(m) + 1
714.                                     char$(m, c(m)) = MID$(fill$(m), c(m), 1)
715.                                 LOOP UNTIL c(m) = LEN(fill$(m))
716.                                 cbf(m) = c(m)
717.                                 PRINT fill$(m);
718.                             END IF
719.                         ELSE
720.                             LOCATE firstline + yoffset(m), firstchar + xoffset(m)
721.                             COLOR _RGBA(r(2), g(2), b(2), a(2)), _RGBA(r(1), g(1), b(1), a(1))
722.                             PRINT text$(m) + " ";
723.                             IF c(m) > 0 THEN
724.                                 cbf(m) = 0
725.                                 DO
726.                                     cbf(m) = cbf(m) + 1
727.                                     PRINT char$(m, cbf(m));
728.                                 LOOP UNTIL cbf(m) = c(m)
729.                             END IF
730.                         END IF
731.                         Taste$ = ""
732.                     END IF
733.                     IF activem = m THEN 'only checks keys if input is active
734.                         loopback:
735.                         IF Taste$ <> "" THEN
736.                             ac = 0
737.                             DO
738.                                 ac = ac + 1
739.                                 IF ac$(ac) = Taste$ THEN
740.                                     c(m) = c(m) + 1
741.                                     char$(m, c(m)) = Taste$
742.                                 END IF
743.                             LOOP UNTIL ac = alch
744.                         END IF
745.                         editpos(m) = c(m)
746.  
747.                         'prints the new character if g has changed
748.                         IF cbf(m) <> c(m) OR selectedall <> colorbf THEN
749.                             IF cbf(m) < c(m) OR selectedall <> colorbf THEN
750.                                 LOCATE firstline + yoffset(m), firstchar + xoffset(m)
751.                                 COLOR _RGBA(r(2), g(2), b(2), a(2)), _RGBA(r(1), g(1), b(1), a(1))
752.                                 PRINT text$(m);
753.                                 IF selectedall = 0 THEN
754.                                     COLOR _RGBA(r(2), g(2), b(2), a(2)), _RGBA(r(1), g(1), b(1), a(1))
755.                                 ELSE
756.                                     COLOR _RGBA(r(1), g(1), b(1), a(1)), _RGBA(r(2), g(2), b(2), a(2))
757.                                 END IF
758.                                 IF c(m) > 0 THEN
759.                                     cbf(m) = 0
760.                                     DO
761.                                         cbf(m) = cbf(m) + 1
762.                                         PRINT char$(m, cbf(m));
763.                                     LOOP UNTIL cbf(m) = c(m)
764.                                 END IF
765.                             END IF
766.                         END IF
767.                         cbf(m) = c(m)
768.  
769.                         'blinking line after text
770.                         IF TIMER MOD 2 = 0 THEN
771.                             LINE ((firstchar + xoffset(m) + LEN(text$(m)) + editpos(m)) * fontwidth + (fontwidth / 2), (firstline + yoffset(m) - 1) * fontheight + 1)-((firstchar + xoffset(m) + LEN(text$(m)) + editpos(m)) * fontwidth + (fontwidth / 2) + 2, (firstline + yoffset(m)) * fontheight - 1), _RGBA(r(2), g(2), b(2), a(2)), BF
772.                         ELSE
773.                             LINE ((firstchar + xoffset(m) + LEN(text$(m)) + editpos(m)) * fontwidth + (fontwidth / 2), (firstline + yoffset(m) - 1) * fontheight + 1)-((firstchar + xoffset(m) + LEN(text$(m)) + editpos(m)) * fontwidth + (fontwidth / 2) + 2, (firstline + yoffset(m)) * fontheight - 1), _RGBA(r(1), g(1), b(1), a(1)), BF
774.                         END IF
775.  
776.                         'key cases
777.                         SELECT CASE Taste$
778.                             CASE IS = CHR$(8)
779.                                 backspace(m) = 1
780.                                 GOTO printback
781.                             CASE IS = CHR$(3) 'ctrl + c input data
782.                                 _CLIPBOARD$ = ""
783.                                 p = 0
784.                                 DO
785.                                     p = p + 1
786.                                     _CLIPBOARD$ = _CLIPBOARD$ + char$(m, p)
787.                                 LOOP UNTIL p = c(m)
788.                             CASE IS = CHR$(22) 'ctrl + v into active input
789.                                 IF _CLIPBOARD$ <> "" THEN
790.                                     p = 0
791.                                     DO
792.                                         p = p + 1
793.                                         c(m) = c(m) + 1
794.                                         char$(m, c(m)) = MID$(_CLIPBOARD$, p, 1)
795.                                     LOOP UNTIL p = LEN(_CLIPBOARD$)
796.                                 END IF
797.                             CASE IS = CHR$(0) + CHR$(75)
798.                                 IF editpos(m) > 1 THEN
799.                                     editpos(m) = editpos(m) - 1
800.                                 END IF
801.                             CASE IS = CHR$(0) + CHR$(77)
802.                                 IF editpos(m) < c(m) THEN
803.                                     editpos(m) = editpos(m) + 1
804.                                 END IF
805.                             CASE IS = CHR$(13)
806.                                 IF activem = maxm THEN
807.                                     status$(activem) = "finished"
808.                                 ELSE
809.                                     activem = activem + 1
810.                                 END IF
811.                             CASE IS = CHR$(0) + CHR$(59)
812.                                 colorbf = selectedall
813.                                 IF selectedall = 1 THEN
814.                                     selectedall = 0
815.                                 ELSE
816.                                     selectedall = 1
817.                                 END IF
818.                                 firstprint(m) = 1
819.                         END SELECT
820.                     ELSE
821.                         IF _MOUSEINPUT = -1 THEN
822.                             IF _MOUSEBUTTON(1) = -1 THEN
823.                                 IF _MOUSEX > (firstchar + xoffset(m)) * fontwidth + (fontwidth / 2) AND _MOUSEX < (firstchar + xoffset(m) + LEN(text$(m)) + c(m)) * fontwidth + (fontwidth / 2) THEN
824.                                     IF _MOUSEY > (firstline + yoffset(m) - 1) * fontheight + 1 AND _MOUSEY < (firstline + yoffset(m)) * fontheight - 1 THEN
825.                                         checkm = 0: dontgoactive = 0
826.                                         DO
827.                                             checkm = checkm + 1
828.                                             IF expanded(checkm) = 1 THEN dontgoactive = 1 ELSE dontgoactive = 0
829.                                         LOOP UNTIL checkm = maxm
830.                                         IF dontgoactive = 0 THEN activem = m
831.                                     END IF
832.                                 END IF
833.                             END IF
834.                             'deletes blinking line after text
835.                             editpos(m) = c(m)
836.                             IF TIMER MOD 2 = 0 THEN LINE ((firstchar + xoffset(m) + LEN(text$(m)) + editpos(m)) * fontwidth + (fontwidth / 2), (firstline + yoffset(m) - 1) * fontheight + 1)-((firstchar + xoffset(m) + LEN(text$(m)) + editpos(m)) * fontwidth + (fontwidth / 2) + 2, (firstline + yoffset(m)) * fontheight - 1), _RGBA(r(1), g(1), b(1), a(1)), BF
837.  
838.                         END IF
839.                     END IF
840.             END SELECT
841.         LOOP UNTIL m = maxm
842.     LOOP UNTIL status$(maxmi) = "finished" OR maxmi = 0 OR Taste$ = CHR$(27)
843.     IF Taste$ = CHR$(27) THEN endparameter$ = "aborted"
844.     ERASE status$
845.     m = 0
846.     DO
847.         m = m + 1
848.         SELECT CASE type$(m)
849.             CASE IS = "input"
850.                 IF c(m) > 0 THEN
851.                     maxg(m) = c(m)
852.                     c(m) = 0
853.                     DO
854.                         c(m) = c(m) + 1
855.                         UserInput$(m) = UserInput$(m) + char$(m, c(m))
856.                     LOOP UNTIL c(m) = maxg(m)
857.                     c(m) = 0
858.                     f = 0
859.                     DO
860.                         f = f + 1
861.                         char$(m, f) = ""
862.                     LOOP UNTIL char$(m, f + 1) = ""
863.                 ELSE
864.                     UserInput$(m) = ""
865.                 END IF
866.         END SELECT
867.     LOOP UNTIL m = maxm
868. END SUB

This is what you should see:

[Virtusoroca]

Very ellegant and compact. I have plans for that already. <3 How should I mention you on credits?Thanks very much for the effort.

[loudar]

Very ellegant and compact. I have plans for that already. <3 How should I mention you on credits?Thanks very much for the effort.

If you're building a bigger program, somewhere in an "Info" menu or something like that, otherwise I'm absolutely fine with a mention in a text regarding the program you're writing :D I appreciate it a lot! <3

[Virtusoroca]

Deal! Thanks again for sharing this. <3

[SpriggsySpriggs]

Hey that's pretty cool!