A skeleton code for Text Scroller via Drag-and-Drop

[Sanmayce]

 

DragDropWheelScroller.bas

Hi,
an oldboy being a big fan of QB 2.0, QB 4.0, QB 4.5 and QBX 7.1 here.

So glad that few days ago found QB64, a dream relived, as I see it.
Many thanks to QB64 team, really you gladdened my eyes, the IDE feels as it should, the stand alone executable is seconds away, so convenient, bravo!

25 years ago I wrote some original tools in QB45 + MASM functions, loved that pair, thought that experience was past long gone, now I see I haven't killed the quickening within.

Last night wrote my first QB64 program, gladly sharing it here , my wish is to continue to enrich its functionality...
To community, feel free to point out the stupid parts you see in it.

My idea is to invoke my [searching] console tools (written in C) via this "GUI SHELL" and showing their output in this QB64 window...

Code: QB64: [Select]

1. ' DragDropWheel.bas
2. ' written in QB64 v1.4 by Kaze, 2021-Jan-20
3.  
4. _TITLE "DragDropWheel"
5. CONST RSHIFT& = 100303
6. CONST LSHIFT& = 100304
7.  
8. _SCREENMOVE 102, 3
9. XdimCOL = 160
10. YdimROW = 44 ' ensure old laptops with 768pixels vertical will hold the whole window
11. wide& = _DESKTOPWIDTH
12. high& = _DESKTOPHEIGHT
13. IF high& > 1000 THEN YdimROW = 60
14. handle& = _NEWIMAGE(XdimCOL, YdimROW, 0)
15. SCREEN handle&
16.  
17. ' Either one must be uncommented:
18. _DISPLAY
19. '_AUTODISPLAY 'no need of refreshing
20.  
21. _ACCEPTFILEDROP 'enables drag/drop functionality
22.  
23. IF INSTR(LCASE$(COMMAND$), "/purple") THEN
24.     COLOR 9, 0
25. ELSE
26.     COLOR 3, 0
27. END IF
28.  
29. PRINT "Current working directory path: "; CHR$(34); _CWD$; CHR$(34)
30. PRINT "User's program calling path: "; CHR$(34); _STARTDIR$; CHR$(34)
31. PRINT "Command line parameters sent when a program is started: "; CHR$(34); COMMAND$; CHR$(34)
32. PRINT "_OS$="; _OS$
33. PRINT
34.  
35. 'Y = CSRLIN 'save the row
36. 'X = POS(0) 'save the column
37.  
38. filecount% = 0
39. REDIM FileArray$(1000000) 'create dynamic array: 3880000 alocates 532MB - bigger values need 570+MB and give "Out Of Memory"
40.  
41. FOR i = 1 TO YdimROW
42.     FileArray$(i) = ""
43. NEXT
44.  
45. PRINT "Drag files from a folder and drop them in this window..."
46. 'REDIM FileArray$(filecount%)
47.  
48. _DISPLAY
49. 'pressakey$ = INPUT$(1)
50.  
51. a$ = ""
52. DO
53.     IF _TOTALDROPPEDFILES THEN
54.         'FOR i = 1 TO _TOTALDROPPEDFILES
55.         'a$ = _DROPPEDFILE(i)
56.         a$ = _DROPPEDFILE(1)
57.         'NEXT'
58.         _FINISHDROP 'If _FINISHDROP isn't called here then _TOTALDROPPEDFILES never gets reset.
59.         '    ELSE
60.         '        a$ = "Scroller.$$$"
61.         '       SHELL _HIDE "DIR /B *.* > Scroller.$$$"
62.     END IF
63.  
64.     IF _FILEEXISTS(a$) THEN
65.         OPEN a$ FOR INPUT AS #1
66.         DO UNTIL EOF(1)
67.             LINE INPUT #1, filename$ 'read entire text file line
68.             filecount% = filecount% + 1
69.             FileArray$(filecount%) = filename$
70.         LOOP
71.         CLOSE #1
72.     END IF
73.     _LIMIT 30
74. LOOP WHILE a$ = ""
75.  
76. 'PRINT "Printing filenames in current directory... ";: PRINT LTRIM$(STR$(filecount%))
77.  
78. FOR i = 1 TO YdimROW 'filecount%
79.     IF LEN(FileArray$(i)) >= XdimCOL THEN
80.         FileArray$(i) = MID$(FileArray$(i), 1, XdimCOL)
81.     ELSE
82.         FileArray$(i) = FileArray$(i) + SPACE$(XdimCOL - LEN(FileArray$(i)))
83.     END IF
84.     LOCATE i, 1: PRINT FileArray$(i);
85. NEXT
86.  
87. LOCATE 1, 1
88. crx = POS(0)
89. cry = CSRLIN
90. crxOLD = crx
91. cryOLD = cry
92. LOCATE cry, crx, 1, 30, 31
93.  
94. IF INSTR(LCASE$(COMMAND$), "/purple") THEN
95.     COLOR 8, 0
96. ELSE
97.     COLOR 0, 3
98. END IF
99. PRINT FileArray$(cry);
100. _DISPLAY
101. DO
102.     IF _KEYDOWN(LSHIFT&) THEN PLAY "L8V2ff-"
103.     IF _KEYDOWN(RSHIFT&) THEN PLAY "L8V2a-c-"
104.     'LOCATE cry, crx, 1, 30, 31
105.     key$ = INKEY$
106.     'DO: a$ = INKEY$: LOOP UNTIL a$ <> "" ' prevent ASC empty string read error
107.     IF key$ <> "" THEN
108.         code% = ASC(key$):
109.         IF code% THEN ' ASC returns any value greater than 0
110.             SELECT CASE ASC(key$)
111.                 CASE 65 TO 97: 'PRINT key$;
112.                 CASE ASC("a") TO ASC("z"): 'PRINT key$;
113.                 CASE 27: COLOR 7, 0: SYSTEM 'END
114.             END SELECT
115.         ELSE
116.             SELECT CASE ASC(key$, 2)
117.                 CASE 72: IF cry > 1 THEN cry = cry - 1 'up
118.                 CASE 80: IF cry < YdimROW THEN cry = cry + 1 'down
119.                 CASE 75: IF crx > 1 THEN crx = crx - 1 'left
120.                 CASE 77: IF crx < XdimCOL THEN crx = crx + 1 'right
121.             END SELECT
122.         END IF
123.     END IF
124.     IF cryOLD <> cry THEN
125.         'LOCATE cryOLD, crx, 1, 30, 31: COLOR 3, 0: PRINT FileArray$(cryOLD);
126.         LOCATE cryOLD, 1, 1, 30, 31
127.         IF INSTR(LCASE$(COMMAND$), "/purple") THEN
128.             COLOR 9, 0
129.         ELSE
130.             COLOR 3, 0
131.         END IF
132.         PRINT FileArray$(cryOLD);
133.         cryOLD = cry
134.     ELSE 'it 'cry' could be changed by Mouse Wheel too, check it
135.         AsIfItIsINKEY% = _MOUSEINPUT '      Check the mouse status
136.         IF _MOUSEWHEEL = 1 THEN ' as if Down
137.             IF cry < YdimROW THEN cry = cry + 1 'down
138.         END IF
139.         IF _MOUSEWHEEL = -1 THEN ' as if Up
140.             IF cry > 1 THEN cry = cry - 1 'up
141.         END IF
142.     END IF
143.     'LOCATE cry, crx, 1, 30, 31: COLOR 0, 3: PRINT FileArray$(cry);
144.     LOCATE cry, 1, 1, 30, 31
145.     IF INSTR(LCASE$(COMMAND$), "/purple") THEN
146.         COLOR 8, 0
147.     ELSE
148.         COLOR 0, 3
149.     END IF
150.  
151.     PRINT FileArray$(cry);
152.     _DISPLAY
153.     'DO WHILE INKEY$ <> "": LOOP ' have to clear the keyboard buffer
154.     '_LIMIT 30 'commented because the wheel up/down was not working?!
155. LOOP
156.  
157. END
158.  

 

[SMcNeill]

A better solution for mouse handling:

Code: QB64: [Select]

1.   DO
2.        CLS
3.        WHILE _MOUSEINPUT
4.              scroll = scroll + _MOUSEWHEEL
5.        WEND
6.        IF scroll < 0 THEN scroll = 100
7.        IF scroll > 100 THEN scroll = 0
8.        PRINT scroll
9.        _DISPLAY
10.        _LIMIT 30
11.    LOOP UNTIL _KEYHIT = 27
12.  

In the above, my mousewheel will scroll from 0 to 100, and wrap from high to low, without any lag or drag on performance.  For your needs, just substitute your (max line count - number of lines on screen) instead of 100, and scroll should be the line you’d start printing to the screen.  (Assuming no word wrap occurs, of course.)

[FellippeHeitor]

Welcome aboard, @Sanmayce! Cool to see you're already getting it going with several modern keywords as well! Looking forward to your future contributions.

[Pete]

@Steve,

Don't forget to tell him about NOT adding other mouse commands, like _MOUSEBUTTON(1), etc. inside that loop, but rather to add them outside and after it terminates.

Pete

[Pete]

@FellippeHeitor

Hey Fell, looks like you've got another old-TIMER in the fold. We're getting to be a pretty big group around here. If this keeps up, you'll have to offer us a senior discount. Since this is an open source project, that means you'll owe us money! :D

@Sanmayce

Welcome. I like GUI the stuff, too. I've got a project I'm working on currently, posted over at the QBasic forum. Since you're an old-timer, do you remember that forum? Network54 used to host it. Now it's on Tapatalk. Mallord was the first admin, followed by Mac, and Mac turned it over to me, when he passed away in 2008. Anyway, I'm just curious if you recall it, or Pete's QBasic forum, or any of the others back in the day.

Pete

[bplus]

@Sanmayce  welcome! I did not know or see demo of _ACCEPTFILEDROP, thanks! Hopefully we can drop in more than one file eventually.

[FellippeHeitor]

Yeah, the whole drag/drop suite of commands is getting old already at this point (they were introduced in v1.3) - and yes, you can handle multiple files. Click the keywords below to read more about them:

Code: QB64: [Select]

1. _ACCEPTFILEDROP
2. _TOTALDROPPEDFILES
3. _DROPPEDFILE
4. _FINISHDROP

[Pete]

@bplus

This is a neat addition to the language. I have it in V. 1.3. Back in the day, I had to make my own routine. I dragged a copy of FreeBASIC in it once, by mistake, which created a memory incident. It returned an "Are you out of your mind," error.

Pete

[bplus]

@bplus

This is a neat addition to the language. I have it in V. 1.3. Back in the day, I had to make my own routine. I dragged a copy of FreeBASIC in it once, by mistake, which created a memory incident. It returned an "Are you out of your mind," error.

Pete

LOL

Yeah I am seeing this as nice substitute for expensive File Dialog! Would like to see demo of handling multiple files, something to play around with for sure!

[FellippeHeitor]

All in the wiki 😉

[NOVARSEG]

Hi Sanmayce

I tried uncommenting the _LIMIT 30 in your code and it does work but it takes forever (just over 2 minutes) for the wheel to update. That is because there is usually tons of mouse x, y position data in the mouse buffer and LIMIT 30 is too slow to process that data. The wheel data is usually at the end of the x, y position data.

Actually the wheel and position data can be intermixed but when the wheel data is at the end of a large amount of position data,  there is this apparent delay in wheel update.

Even with no mouse position data in the buffer, the wheel response is pretty slow with _LIMIT 30

So try _LIMIT 500

[Sanmayce]

Thank you very much guys, having found QB64 and this community/forum gladdened me, bigtime, for two days I feel as if being in happy old times.

My passion is text processing of huge English text, searching, decompressing, indexing them in order to ease quick n-gram requests i.e. to have spell-checkers, and ... phrase-checkers of English texts under the fingers.
C and QB64 are so instrumental in that regard, eager to pursue this dream of mine...

@SMcNeill

Thank you Steve, not only for you suggestion (which prompted me to revise my first pseudo-buggy attempt) but for useful sharings of yours. Showing different scenarios being handled is the best way to help others, such snippets/etudes are instrumental for sure.
The idea is to write a simplistic viewer working with the "heap" by using the QB64's memaloc()-like new functions instead of array of NON-FIXED length strings. Wanna try how the scroller behaves with 1GB file text loaded in RAM.
Your MEMUSAGE tool is cool, MUCH NEEDED, accessing Windows APIs has to be explored as you did (I have no experience in using APIs), some functionality has to be "stolen" from DLLs, wanna write first that exact viewer...

Welcome aboard, @Sanmayce! Cool to see you're already getting it going with several modern keywords as well! Looking forward to your future contributions.

Thank you man! Surely in future will share all my code along with my feedback.

Fellippe, I bend a knee before you. resurrecting QB is just awesome! Many beers I owe you.
As far as I recall, only said this once back, to another developer - a true master of coding compression in C.

Really enliked your presentation about 'InForm', please consider doing such reviews more often, at least not stopping them:

https://www.youtube.com/watch?v=S3D4zEUQ0sQ&list=PLD7-OthpyuXNbrB12Cl5_3vBpRtvN7CA8&index=5

Nice work with this Form Designer, wanna try it after some weeks, my tempo is slow but ongoing, a real fan here, that is.

My expertise is amateurish, I have been playing with search algorithms, and Windows (as far as Form Designer goes) not wanting to go into C++ and APIs, just played for a month or so with VisualStudio (ATL project) in order to make my GUI shell for invoking my console executables written in C. Just assigned some SHELL _HIDE like instance behind each button. The result: www.sanmayce.com/Downloads/_GW_(Bare-Minimum_2018-Mar-16).zip
It looks very nice on Windows XP, and so ugly with the new Windows 7+ schemes, therefore for more than 3 years I abandoned it, shame.

  [ Invalid Attachment ]  
  [ Invalid Attachment ]  
  [ Invalid Attachment ]  

Similar thing is what I want to write with QB64 - a simplistic text editor sensitive to all my textual processing tools - my textual madness is deep and constant, my wish is in the near future to have phrase sensitive functionality (giving statistics about English language n-grams generated by external tools) while hovering over this text window, both with cursor and mouse.
Simply, I am hell bent on making and sharing one 100% FREE lightweight (and thanks to QB64 portability) text assistant/sidekick/application in the near future.

Want to ask for possible way to load our own bitmap (from DOS times) fonts, saw that '_FONT 16' is default for SCREEN 0, if there is a way to load those fonts will bring additional retro flavor as they were very nice, sharing them, to take a look if interested:
 

vulture_8x16.fnt

 

raven_8x16.fnt

@Sanmayce

Welcome. I like GUI the stuff, too. I've got a project I'm working on currently, posted over at the QBasic forum. Since you're an old-timer, do you remember that forum? Network54 used to host it. Now it's on Tapatalk. Mallord was the first admin, followed by Mac, and Mac turned it over to me, when he passed away in 2008. Anyway, I'm just curious if you recall it, or Pete's QBasic forum, or any of the others back in the day.

Pete

Thanks, will share some GUI of mine in the future, my Gallowwalker GUI, in the meantime you are welcome to see some of its functionality at:
https://github.com/Sanmayce/1gram/issues/1

As for the old forum, no, was not active in Internet for a long time, haven't seen it. Otherwise, I am a chatterbox :P

The idea is to have the first English Phrase-Checker - checking all n-grams (phrases of n words) of your text (the loaded into this QB64 assistant) against mega corpora of English n-grams, hundreds of millions strong!
 

@Sanmayce  welcome! I did not know or see demo of _ACCEPTFILEDROP, thanks! Hopefully we can drop in more than one file eventually.

Thank you, @bplus, I myself am uncovering new things on a daily basis, so many gaps ate there in my know-how.

Did a minor tweak (pseudo-bug fixage), rather add-on, now one can use the left button and "jump" on the desired line, along with scrolling with keys and the wheel:

Code: QB64: [Select]

1. ' DragDropWheelScroller.bas
2. ' written in QB64 v1.4 by Kaze, 2021-Jan-21
3. ' Thanks go to the www.qb64.org/forum members for sharing useful excerpts/etudes
4.  
5. _TITLE "DragDropWheel"
6. CONST RSHIFT& = 100303
7. CONST LSHIFT& = 100304
8.  
9. _SCREENMOVE 102, 3
10. XdimCOL = 100
11. YdimROW = 44 ' ensure old laptops with 768pixels vertical will hold the whole window
12. wide& = _DESKTOPWIDTH
13. high& = _DESKTOPHEIGHT
14. IF high& > 1000 THEN YdimROW = 60
15. handle& = _NEWIMAGE(XdimCOL, YdimROW, 0)
16. SCREEN handle&
17.  
18. '_FONT 16 'wish we could use the old 8x16 bitmap/raster fonts from DOS times...
19.  
20. ' Either one must be uncommented:
21. _DISPLAY
22. '_AUTODISPLAY 'no need of refreshing
23.  
24. _ACCEPTFILEDROP 'enables drag/drop functionality
25.  
26. IF INSTR(LCASE$(COMMAND$), "/purple") THEN
27.     COLOR 9, 0
28. ELSE
29.     COLOR 3, 0
30. END IF
31.  
32. PRINT "Current working directory path: "; CHR$(34); _CWD$; CHR$(34)
33. PRINT "User's program calling path: "; CHR$(34); _STARTDIR$; CHR$(34)
34. PRINT "Command line parameters sent when a program is started: "; CHR$(34); COMMAND$; CHR$(34)
35. PRINT "_OS$="; _OS$
36. PRINT
37.  
38. 'Y = CSRLIN 'save the row
39. 'X = POS(0) 'save the column
40.  
41. filecount% = 0
42. REDIM FileArray$(1000000) 'create dynamic array: 3880000 alocates 532MB - bigger values need 570+MB and give "Out Of Memory"
43.  
44. FOR i = 1 TO YdimROW
45.     FileArray$(i) = ""
46. NEXT
47.  
48. PRINT "Drag files from a folder and drop them in this window..."
49. 'REDIM FileArray$(filecount%)
50.  
51. _DISPLAY
52. 'pressakey$ = INPUT$(1)
53.  
54. a$ = ""
55. DO
56.     IF _TOTALDROPPEDFILES THEN
57.         'FOR i = 1 TO _TOTALDROPPEDFILES
58.         'a$ = _DROPPEDFILE(i)
59.         a$ = _DROPPEDFILE(1)
60.         'NEXT'
61.         _FINISHDROP 'If _FINISHDROP isn't called here then _TOTALDROPPEDFILES never gets reset.
62.         'ELSE
63.         'a$ = "Scroller.$$$"
64.         'SHELL _HIDE "DIR /B *.* > Scroller.$$$"
65.     END IF
66.  
67.     IF _FILEEXISTS(a$) THEN
68.         OPEN a$ FOR INPUT AS #1
69.         DO UNTIL EOF(1)
70.             LINE INPUT #1, filename$ 'read entire text file line
71.             filecount% = filecount% + 1
72.             FileArray$(filecount%) = filename$
73.         LOOP
74.         CLOSE #1
75.     END IF
76.     _LIMIT 30
77. LOOP WHILE a$ = ""
78.  
79. 'PRINT "Printing filenames in current directory... ";: PRINT LTRIM$(STR$(filecount%))
80.  
81. FOR i = 1 TO YdimROW 'filecount%
82.     IF LEN(FileArray$(i)) >= XdimCOL THEN
83.         FileArray$(i) = MID$(FileArray$(i), 1, XdimCOL)
84.     ELSE
85.         FileArray$(i) = FileArray$(i) + SPACE$(XdimCOL - LEN(FileArray$(i)))
86.     END IF
87.     LOCATE i, 1: PRINT FileArray$(i);
88. NEXT
89.  
90. LOCATE 1, 1
91. crx = POS(0)
92. cry = CSRLIN
93. crxOLD = crx
94. cryOLD = cry
95. LOCATE cry, crx, 1, 30, 31
96.  
97. IF INSTR(LCASE$(COMMAND$), "/purple") THEN
98.     COLOR 8, 0
99. ELSE
100.     COLOR 0, 3
101. END IF
102. PRINT FileArray$(cry);
103. _DISPLAY
104. DO
105.     IF _KEYDOWN(LSHIFT&) THEN PLAY "L8V2ff-"
106.     IF _KEYDOWN(RSHIFT&) THEN PLAY "L8V2a-c-"
107.     'LOCATE cry, crx, 1, 30, 31
108.     key$ = INKEY$
109.     'DO: a$ = INKEY$: LOOP UNTIL a$ <> "" ' prevent ASC empty string read error
110.     IF key$ <> "" THEN
111.         code% = ASC(key$):
112.         IF code% THEN ' ASC returns any value greater than 0
113.             SELECT CASE ASC(key$)
114.                 CASE 65 TO 97: 'PRINT key$;
115.                 CASE ASC("a") TO ASC("z"): 'PRINT key$;
116.                 CASE 27: COLOR 7, 0: SYSTEM 'END
117.             END SELECT
118.         ELSE
119.             SELECT CASE ASC(key$, 2)
120.                 CASE 72: IF cry > 1 THEN cry = cry - 1 'up
121.                 CASE 80: IF cry < YdimROW THEN cry = cry + 1 'down
122.                 CASE 75: IF crx > 1 THEN crx = crx - 1 'left
123.                 CASE 77: IF crx < XdimCOL THEN crx = crx + 1 'right
124.             END SELECT
125.         END IF
126.     END IF
127.     IF cryOLD <> cry THEN
128.         'LOCATE cryOLD, crx, 1, 30, 31: COLOR 3, 0: PRINT FileArray$(cryOLD);
129.         LOCATE cryOLD, 1, 1, 30, 31
130.         IF INSTR(LCASE$(COMMAND$), "/purple") THEN
131.             COLOR 9, 0
132.         ELSE
133.             COLOR 3, 0
134.         END IF
135.         PRINT FileArray$(cryOLD);
136.         cryOLD = cry
137.     ELSE 'it 'cry' could be changed by Mouse Wheel too, check it
138.         AsIfItIsINKEY% = _MOUSEINPUT '      Check the mouse status
139.         IF _MOUSEWHEEL = 1 THEN ' as if Down
140.             IF cry < YdimROW THEN cry = cry + 1 'down
141.         END IF
142.         IF _MOUSEWHEEL = -1 THEN ' as if Up
143.             IF cry > 1 THEN cry = cry - 1 'up
144.         END IF
145.         'Kinda trump the arrows and wheel with MOUSEmovement i.e. us having both the inverse(selected) line plus darklighting the current(under the mouse pointer) one
146.         IF _MOUSEBUTTON(1) THEN
147.             cry = _MOUSEY
148.         END IF
149.     END IF
150.     'dummy me, the 2021-Jan-20 was not smoot friendly, should have updated here (not in the loop afterwards) i.e. _DISPLY shows two inversed lines, ugh [
151.     IF cryOLD <> cry THEN
152.         'LOCATE cryOLD, crx, 1, 30, 31: COLOR 3, 0: PRINT FileArray$(cryOLD);
153.         LOCATE cryOLD, 1, 1, 30, 31
154.         IF INSTR(LCASE$(COMMAND$), "/purple") THEN
155.             COLOR 9, 0
156.         ELSE
157.             COLOR 3, 0
158.         END IF
159.         PRINT FileArray$(cryOLD);
160.         cryOLD = cry
161.     END IF
162.     'dummy me, the 2021-Jan-20 was not smoot friendly, should have updated here (not in the loop afterwards) i.e. _DISPLY shows two inversed lines, ugh ]
163.     'LOCATE cry, crx, 1, 30, 31: COLOR 0, 3: PRINT FileArray$(cry);
164.     LOCATE cry, 1, 1, 30, 31
165.     IF INSTR(LCASE$(COMMAND$), "/purple") THEN
166.         COLOR 8, 0
167.     ELSE
168.         COLOR 0, 3
169.     END IF
170.     PRINT FileArray$(cry);
171.     _DISPLAY
172.     'DO WHILE INKEY$ <> "": LOOP ' have to clear the keyboard buffer
173.     '_LIMIT 30 'commented because the wheel up/down was not working?!
174. LOOP
175.  
176. END
177.  

 

Kinda want to revive the DOS functionality of my old QB project:

 

 

[FellippeHeitor]

Fellippe, I bend a knee before you. resurrecting QB is just awesome! Many beers I owe you.
As far as I recall, only said this once back, to another developer - a true master of coding compression in C.

Really enliked your presentation about 'InForm', please consider doing such reviews more often, at least not stopping them:

https ://www.youtube.com/watch?v=S3D4zEUQ0sQ&list=PLD7-OthpyuXNbrB12Cl5_3vBpRtvN7CA8&index=5

Nice work with this Form Designer, wanna try it after some weeks, my tempo is slow but ongoing, a real fan here, that is.

We all bend our knees before @Galleon, the guy who created QB64 in the first place. I'm barely part of the team. He does come around from time to time.

I'm so glad you enjoyed InForm! That's truly my code baby. Let me know if I can be of any assistance with it.

[Sanmayce]

We all bend our knees before @Galleon, the guy who created QB64 in the first place. I'm barely part of the team. He does come around from time to time.

I'm so glad you enjoyed InForm! That's truly my code baby. Let me know if I can be of any assistance with it.

Oh, I bend a knee the third time, then. VIVA @Galleon.
I can tell from your video, you are bona-fide QB fellow, indeed!
Excuse me for the previous messy post of mine, couldn't fit all the illustrative screenshots at once, that is what happens when many fellow members address a new fellow at once, likey-likey :P

[NOVARSEG]

Thanks Sanmayce

My passion is text processing of huge English text, searching, decompressing, indexing them in order to ease quick n-gram requests i.e. to have spell-checkers, and ... phrase-checkers of English texts under the fingers.
C and QB64 are so instrumental in that regard, eager to pursue this dream of mine...

You will like the fact that QB64 string size is over 2GB

25 years ago I wrote some original tools in QB45 + MASM functions

Did you ever use DOS interrupts . Ralf Brown interrupt list etc?