QB64 vs same coded C/C++ program

[Pete]

I still have a little finish work to do, but basically, I finished the QB64 version of the C/C++/Wn API program I put together a few weeks ago, and posted here: https://www.qb64.org/forum/index.php?topic=1417.0

So that code is about double the size of the one I just finished in QB64, yet, when compiled, the C/C++ one is approx. 1.5 MB, while the QB64 one is nearly double that, at 2.5 MB. So why so much bigger? I know Rob worked on limiting libraries that were not needed, so does anyone know why half the source code of my QB64 program would turn out to be twice the exe size of the C/C++ clone?

Here is the QB64 source, for comparison.

Code: QB64: [Select]

1. 'DIM lb, mx, my, mz, mf, oldmx, oldmy AS INTEGER 'Mouse variables
2. 'DIM caps AS INTEGER
3. 'DIM SHARED prompt_column AS INTEGER
4. 'DIM SHARED startpos AS INTEGER
5. 'DIM SHARED vertpos AS INTEGER
6. 'DIM SHARED endpos AS INTEGER
7. 'DIM SHARED xx AS INTEGER: ' Cursor row.
8. 'DIM SHARED yy AS INTEGER: ' Cursor column.
9. 'DIM SHARED yyseparator AS INTEGER
10. 'DIM ii, j, j2, k, m1, m2 AS INTEGER
11. 'DIM ins AS INTEGER
12. 'DIM flag AS INTEGER ' Indicates highlighting in progress.
13. 'DIM dir AS INTEGER ' direction of the highlighting left (-) or right (+).
14. 'DIM hmrk, shift, ctrl AS INTEGER ' hmrk is = -1 when void and when in use, indicates the Position in the text array when highlighting begins.
15. 'DIM entryrow(vmax) AS INTEGER 'Tracks rows where prompts are present.
16.  
17. CONST prompt_length = 17 ' Length of longest prompt.
18. CONST c1f = 0: CONST c1b = 7 ' Color 1. Foreground and background.
19. CONST c2f = 7: CONST c2b = 1 ' Color 2. Text highlighting
20. CONST vmax = 4 ' Number of prompts. Must not exceed rows of screen.
21.  
22. DIM entry$(vmax) ' AS STRING 'Text entry array.
23. DIM xntry(MAX_SIZE) AS STRING 'Cut/Copy array.
24. DIM paste(MAX_SIZE) AS STRING 'Paste array
25. DIM prompt(vmax) AS STRING 'Prompt array.
26.  
27. MAX_SIZE = 36
28. debug = 0 'Set to zero to turn of, or non-zero to print variables to screen.
29. prompt_column = 10 'Number of columns to indent prompts.
30. startpos = prompt_column + prompt_length - 1
31. vertpos = 5
32. endpos = startpos + MAX_SIZE
33. yyseparator = 2 ' # of blank rows - 1 between prompts. Do not set lower than 1.
34. ins = 7 ' Cursor vertical height.
35.  
36. SetConsoleTitle
37.  
38. CALL setconsole(c1f, c1b)
39.  
40. CALL GetPrompts(startpos, vertpos, vmax, yyseparator, xx, yy, ins, prompt_column, entryrow(), prompt$())
41.  
42. CALL HideCursor(ins)
43.  
44. WHILE (1)
45.     CALL GetConsoleInput(startpos, endpos, vertpos, vmax, yyseparator, xx, yy, ins, MAX_SIZE, c1f, c1b, c2f, c2b, prompt_column, entryrow(), prompt$(), entry$())
46. WEND
47.  
48. SUB SetConsoleTitle
49.     title$ = "Pete's Custom Keyboard Input App"
50.     _TITLE title$
51. END SUB
52.  
53. SUB setconsole (c1f, c1b)
54.     PALETTE 7, 63
55.     COLOR c1f, c1b
56.     CLS
57. END SUB
58.  
59. SUB GetPrompts (startpos, vertpos, vmax, yyseparator, xx, yy, ins, prompt_column, entryrow(), prompt$())
60.     xx = startpos
61.     yy = vertpos
62.  
63.     prompt$(0) = "Name..........: "
64.     prompt$(1) = "Address.......: "
65.     prompt$(2) = "City/State/Zip: "
66.     prompt$(3) = "Phone.........: "
67.  
68.     yy = vertpos
69.  
70.     FOR ii = 0 TO vmax - 1
71.         LOCATE yy, prompt_column
72.         PRINT prompt$(ii);
73.         entryrow(ii) = yy
74.         yy = yy + yyseparator
75.     NEXT
76.  
77.     LOCATE vertpos, startpos
78.     xx = startpos
79.     yy = vertpos
80. END SUB
81.  
82. SUB HideCursor (ins)
83.     LOCATE , , 1, 7, ins
84. END SUB
85.  
86. SUB copy (startpos, endpos, vertpos, vmax, yyseparator, xx, yy, ins, MAX_SIZE, prompt_column, entryrow(), prompt$(), entry$(), xntry$, hmrk, flag, dir)
87.     IF xx - startpos + 1 < hmrk THEN
88.         m2 = hmrk
89.         m1 = xx - startpos + 1
90.     ELSE
91.         m1 = hmrk
92.         m2 = xx - startpos + 1
93.     END IF
94.     xntry$ = MID$(entry$((yy - vertpos) / yyseparator), m1, m2 - m1)
95. END SUB
96.  
97. SUB replace (startpos, endpos, vertpos, vmax, yyseparator, xx, yy, ins, MAX_SIZE, prompt_column, entryrow(), prompt$(), entry$(), hmrk, flag, dir)
98.     j = LEN(entry$((yy - vertpos) / yyseparator))
99.     COLOR c1f, c1b
100.     IF xx - startpos + 1 < hmrk THEN
101.         m2 = hmrk
102.         m1 = xx - startpos
103.     ELSE
104.         m1 = hmrk - 1
105.         m2 = xx - startpos + 1
106.     END IF
107.     entry$((yy - vertpos) / yyseparator) = MID$(entry$((yy - vertpos) / yyseparator), 1, m1) + MID$(entry$((yy - vertpos) / yyseparator), m2)
108.     LOCATE yy, startpos
109.     PRINT entry$((yy - vertpos) / yyseparator);
110.     PRINT STRING$(j - LEN(entry$((yy - vertpos) / yyseparator)), 32);
111.     IF xx - startpos + 1 > hmrk THEN
112.         xx = hmrk - 1 + startpos
113.     END IF
114.     LOCATE yy, xx
115.     hmrk = 0
116.     flag = 0
117.     dir = 0
118. END SUB
119.  
120. SUB GetConsoleInput (startpos, endpos, vertpos, vmax, yyseparator, xx, yy, ins, MAX_SIZE, c1f, c1b, c2f, c2b, prompt_column, entryrow(), prompt$(), entry$())
121.     STATIC drag, dir, flag, hmrk, xntry$
122.  
123.     DEF SEG = 0
124.     ii = PEEK(&H417) MOD 16
125.     SELECT CASE ii
126.         CASE 1, 2
127.             shift = -1
128.         CASE 4
129.             ctrl = -1
130.     END SELECT
131.     DEF SEG
132.  
133.     oldyy = yy
134.  
135.     IF drag = 0 THEN
136.  
137.         IF flag AND shift = 0 AND hmrk = 0 THEN
138.             flag = 0 ' Disable flag so character value isn't printed after a shift / release event without highlighting.
139.         END IF
140.  
141.         IF hmrk > 0 THEN
142.             IF shift AND flag THEN
143.                 flag = 0
144.             END IF
145.         END IF
146.     END IF
147.  
148.     CALL mouse(startpos, vmax, xx, yy, vertpos, yyseparator, hmrk, dir, flag, c1f, c1b, c2f, c2b, drag, prompt_column, MAX_SIZE, shift, ch$, entry$(), entryrow())
149.  
150.     IF drag = 0 THEN
151.         IF ch$ = "" THEN ch$ = INKEY$
152.         IF ch$ <> "" THEN
153.             IF ctrl THEN
154.                 SELECT CASE LCASE$(ch$)
155.                     CASE CHR$(1) ' Select All
156.                         LOCATE yy, startpos
157.                         COLOR c2f, c2b
158.                         PRINT entry$((yy - vertpos) / yyseparator);
159.                         COLOR c1f, c1b
160.                         hmrk = 1
161.                         flag = -1
162.                         dir = LEN(entry$((yy - vertpos) / yyseparator))
163.                         xx = startpos + dir
164.                         LOCATE yy, xx
165.  
166.                     CASE CHR$(3) ' Copy
167.                         IF hmrk THEN
168.                             CALL copy(startpos, endpos, vertpos, vmax, yyseparator, xx, yy, ins, MAX_SIZE, prompt_column, entryrow(), prompt$(), entry$(), xntry$, hmrk, flag, dir)
169.                         END IF
170.  
171.                     CASE CHR$(24) ' Cut
172.                         IF hmrk THEN
173.                             CALL copy(startpos, endpos, vertpos, vmax, yyseparator, xx, yy, ins, MAX_SIZE, prompt_column, entryrow(), prompt$(), entry$(), xntry$, hmrk, flag, dir)
174.                             CALL replace(startpos, endpos, vertpos, vmax, yyseparator, xx, yy, ins, MAX_SIZE, prompt_column, entryrow(), prompt$(), entry$(), hmrk, flag, dir)
175.                         END IF
176.  
177.                     CASE CHR$(22) ' Paste
178.                         IF xntry$ <> "" THEN
179.                             IF hmrk THEN
180.                                 CALL replace(startpos, endpos, vertpos, vmax, yyseparator, xx, yy, ins, MAX_SIZE, prompt_column, entryrow(), prompt$(), entry$(), hmrk, flag, dir)
181.                             END IF
182.                             m1 = xx - startpos
183.                             m2 = m1 + 1
184.                             IF LEN(xntry$) + LEN(entry$((yy - vertpos) / yyseparator)) - (m2 - m1) <= MAX_SIZE - 1 THEN
185.                                 entry$((yy - vertpos) / yyseparator) = MID$(entry$((yy - vertpos) / yyseparator), 1, m1) + xntry$ + MID$(entry$((yy - vertpos) / yyseparator), m2)
186.                                 LOCATE yy, startpos
187.                                 COLOR c1f, c1b
188.                                 PRINT entry$((yy - vertpos) / yyseparator);
189.                                 xx = xx + LEN(xntry$)
190.                                 LOCATE yy, xx
191.                             ELSE
192.                                 BEEP ' Contents too large to paste.
193.                             END IF
194.                         END IF
195.                 END SELECT
196.             ELSE
197.                 SELECT CASE ch$
198.                     CASE CHR$(8) ' Backspace
199.                         ch$ = CHR$(0)
200.                         IF hmrk > 0 THEN
201.                             CALL replace(startpos, endpos, vertpos, vmax, yyseparator, xx, yy, ins, MAX_SIZE, prompt_column, entryrow(), prompt$(), entry$(), hmrk, flag, dir)
202.                         ELSE
203.                             IF xx > startpos THEN
204.                                 xx = xx - 1
205.                                 LOCATE yy, xx
206.                                 PRINT MID$(entry$((yy - vertpos) / yyseparator), xx - startpos + 2); " ";
207.                                 entry$((yy - vertpos) / yyseparator) = MID$(entry$((yy - vertpos) / yyseparator), 1, xx - startpos) + MID$(entry$((yy - vertpos) / yyseparator), xx - startpos + 2)
208.                                 LOCATE yy, xx
209.                             END IF
210.                         END IF
211.                     CASE CHR$(0) + "S" ' Delete
212.                         IF shift THEN
213.                             IF hmrk THEN
214.                                 CALL copy(startpos, endpos, vertpos, vmax, yyseparator, xx, yy, ins, MAX_SIZE, prompt_column, entryrow(), prompt$(), entry$(), xntry$, hmrk, flag, dir)
215.                                 CALL replace(startpos, endpos, vertpos, vmax, yyseparator, xx, yy, ins, MAX_SIZE, prompt_column, entryrow(), prompt$(), entry$(), hmrk, flag, dir)
216.                             END IF
217.  
218.                         ELSE
219.                             ch$ = CHR$(0)
220.                             IF hmrk > 0 THEN
221.                                 CALL replace(startpos, endpos, vertpos, vmax, yyseparator, xx, yy, ins, MAX_SIZE, prompt_column, entryrow(), prompt$(), entry$(), hmrk, flag, dir)
222.                             ELSE
223.                                 IF LEN(entry$((yy - vertpos) / yyseparator)) > 0 AND xx - startpos <= LEN(entry$((yy - vertpos) / yyseparator)) THEN
224.                                     PRINT MID$(entry$((yy - vertpos) / yyseparator), xx - startpos + 2); " ";
225.                                     entry$((yy - vertpos) / yyseparator) = MID$(entry$((yy - vertpos) / yyseparator), 1, xx - startpos) + MID$(entry$((yy - vertpos) / yyseparator), xx - startpos + 2)
226.                                     LOCATE yy, xx
227.                                 END IF
228.                             END IF
229.                         END IF
230.  
231.                     CASE CHR$(0) + "H" ' Arrow up
232.                         ch$ = CHR$(0)
233.                         IF yy > vertpos THEN
234.                             yy = yy - yyseparator
235.                             xx = startpos
236.                             LOCATE yy, xx
237.                         END IF
238.  
239.                     CASE CHR$(0) + "P", CHR$(13) ' Arrow down, Enter
240.                         ch$ = CHR$(0)
241.                         IF (yy - vertpos) / yyseparator + 1 < vmax THEN
242.                             yy = yy + yyseparator
243.                             xx = startpos
244.                             LOCATE yy, xx
245.                         END IF
246.  
247.                     CASE CHR$(0) + "K" ' Arrow left
248.                         ch$ = CHR$(0)
249.                         IF xx > startpos THEN
250.                             IF shift THEN
251.                                 IF dir <= 0 THEN
252.                                     IF dir = 0 THEN
253.                                         hmrk = xx - startpos + 1
254.                                         flag = -1
255.                                     END IF
256.                                     xx = xx - 1
257.                                     LOCATE yy, xx
258.                                     COLOR c2f, c2b
259.                                     PRINT MID$(entry$((yy - vertpos) / yyseparator), xx - startpos + 1, 1)
260.                                     dir = dir - 1
261.                                     LOCATE yy, xx
262.                                 ELSE
263.                                     xx = xx - 1
264.                                     LOCATE yy, xx
265.                                     COLOR c1f, c1b
266.                                     PRINT MID$(entry$((yy - vertpos) / yyseparator), xx - startpos + 1, 1)
267.                                     dir = dir - 1
268.                                     IF dir = 0 THEN
269.                                         hmrk = 0
270.                                     END IF
271.                                     LOCATE yy, xx
272.                                 END IF
273.  
274.                             ELSE
275.                                 xx = xx - 1
276.                                 LOCATE yy, xx
277.                             END IF
278.                         END IF
279.  
280.                     CASE CHR$(0) + "M" ' Arrow right
281.                         ch$ = CHR$(0)
282.                         IF xx < endpos - 1 AND xx - startpos < LEN(entry$((yy - vertpos) / yyseparator)) THEN
283.                             IF shift THEN
284.                                 IF dir >= 0 THEN
285.                                     IF dir = 0 THEN
286.                                         hmrk = xx - startpos + 1
287.                                         flag = -1
288.                                     END IF
289.                                     COLOR c2f, c2b
290.                                     PRINT MID$(entry$((yy - vertpos) / yyseparator), xx - startpos + 1, 1)
291.                                     xx = xx + 1
292.                                     LOCATE yy, xx
293.                                     dir = dir + 1
294.                                     LOCATE yy, xx
295.                                 ELSE
296.                                     COLOR c1f, c1b
297.                                     PRINT MID$(entry$((yy - vertpos) / yyseparator), xx - startpos + 1, 1)
298.                                     xx = xx + 1
299.                                     dir = dir + 1
300.                                     IF dir = 0 THEN
301.                                         hmrk = 0
302.                                         flag = 0
303.                                     END IF
304.                                     LOCATE yy, xx
305.                                 END IF
306.                             ELSE
307.                                 xx = xx + 1
308.                                 LOCATE yy, xx
309.                             END IF
310.                         END IF
311.  
312.                     CASE CHR$(0) + "G" ' Home
313.                         ch$ = CHR$(0)
314.                         IF xx > startpos THEN
315.                             IF shift THEN
316.                                 WHILE xx > startpos
317.                                     IF dir <= 0 THEN
318.                                         IF dir = 0 THEN
319.                                             hmrk = xx - startpos + 1
320.                                             ' flag is already set.
321.                                         END IF
322.                                         xx = xx - 1
323.                                         LOCATE yy, xx
324.                                         COLOR c2f, c2b
325.                                         PRINT MID$(entry$((yy - vertpos) / yyseparator), xx - startpos + 1, 1);
326.                                         dir = dir - 1
327.                                         LOCATE yy, xx
328.                                     ELSE
329.                                         xx = xx - 1
330.                                         LOCATE yy, xx
331.                                         COLOR c1f, c1b
332.                                         PRINT MID$(entry$((yy - vertpos) / yyseparator), xx - startpos + 1, 1);
333.                                         dir = dir - 1
334.                                         IF dir = 0 THEN
335.                                             hmrk = 0
336.                                             flag = 0
337.                                         END IF
338.                                         LOCATE yy, xx
339.                                     END IF
340.                                 WEND
341.                             ELSE
342.                                 xx = startpos
343.                                 LOCATE yy, xx
344.                             END IF
345.                         END IF
346.  
347.                     CASE CHR$(0) + "O" ' End
348.                         ch$ = CHR$(0)
349.                         IF xx < endpos - 1 THEN
350.                             IF shift THEN
351.                                 WHILE xx - startpos < LEN(entry$((yy - vertpos) / yyseparator))
352.                                     IF dir >= 0 THEN
353.                                         IF dir = 0 THEN
354.                                             hmrk = xx - startpos + 1
355.                                             flag = -1
356.                                         END IF
357.                                         COLOR c2f, c2b
358.                                         PRINT MID$(entry$((yy - vertpos) / yyseparator), xx - startpos + 1, 1);
359.                                         xx = xx + 1
360.                                         LOCATE yy, xx
361.                                         dir = dir + 1
362.                                         LOCATE yy, xx
363.                                     ELSE
364.                                         COLOR c1f, c1b
365.                                         PRINT MID$(entry$((yy - vertpos) / yyseparator), xx - startpos + 1, 1);
366.                                         xx = xx + 1
367.                                         dir = dir + 1
368.                                         IF dir = 0 THEN
369.                                             hmrk = 0
370.                                         END IF
371.                                         LOCATE yy, xx
372.                                     END IF
373.                                 WEND
374.                             ELSE
375.                                 xx = startpos + LEN(entry$((yy - vertpos) / yyseparator))
376.                                 LOCATE yy, xx
377.                             END IF
378.                         END IF
379.  
380.                     CASE CHR$(27)
381.                         ch$ = CHR$(0)
382.                         SYSTEM
383.  
384.                     CASE CHR$(0) + CHR$(82) ' Insert
385.                         ch$ = CHR$(0)
386.                         IF ins = 7 THEN ins = 30 ELSE ins = 7
387.                         HideCursor ins
388.  
389.                     CASE CHR$(32) TO CHR$(126)
390.                         IF hmrk > 0 THEN
391.                             CALL replace(startpos, endpos, vertpos, vmax, yyseparator, xx, yy, ins, MAX_SIZE, prompt_column, entryrow(), prompt$(), entry$(), hmrk, flag, dir)
392.                         END IF
393.                         IF ins = 30 THEN
394.                             IF xx - startpos < MAX_SIZE - 1 THEN
395.                                 MID$(entry$((yy - vertpos) / yyseparator), xx - startpos + 1, 1) = ch$
396.                                 LOCATE yy, xx
397.                                 PRINT ch$;
398.                                 xx = xx + 1
399.                                 LOCATE yy, xx
400.                             END IF
401.                         ELSE
402.                             IF LEN(entry$((yy - vertpos) / yyseparator)) < MAX_SIZE - 1 THEN
403.                                 PRINT ch$ + MID$(entry$((yy - vertpos) / yyseparator), xx - startpos + 1);
404.                                 entry$((yy - vertpos) / yyseparator) = MID$(entry$((yy - vertpos) / yyseparator), 1, xx - startpos) + ch$ + MID$(entry$((yy - vertpos) / yyseparator), xx - startpos + 1)
405.                                 xx = xx + 1
406.                                 LOCATE yy, xx
407.                             END IF
408.                         END IF
409.                 END SELECT
410.             END IF
411.         END IF
412.  
413.         IF shift THEN
414.             IF flag = 0 THEN
415.                 flag = -1
416.             END IF
417.         ELSE
418.             IF ch$ <> "" THEN
419.                 IF flag AND shift = 0 AND LCASE$(ch$) <> "x" AND ctrl = 0 AND ch$ <> CHR$(8) AND ch$ <> CHR$(0) + "S" THEN
420.                     COLOR c1f, c1b
421.                     LOCATE oldyy, startpos
422.                     IF ch$ <> CHR$(0) THEN
423.                         PRINT ch$;
424.                     END IF
425.                     PRINT entry$((oldyy - vertpos) / yyseparator);
426.                     LOCATE yy, xx
427.                     hmrk = 0
428.                     flag = 0
429.                     dir = 0
430.                 END IF
431.             END IF
432.         END IF
433.         ch$ = ""
434.     END IF
435. END SUB
436.  
437. SUB mouse (startpos, vmax, xx, yy, vertpos, yyseparator, hmrk, dir, flag, c1f, c1b, c2f, c2b, drag, prompt_column, MAX_SIZE, shift, ch$, entry$(), entryrow())
438.     STATIC doubleclick AS INTEGER, lbdn AS INTEGER, z1, oldmx AS INTEGER, oldmy AS INTEGER, mhl AS INTEGER
439.     DIM mx AS INTEGER, my AS INTEGER, lb AS INTEGER
440.  
441.     LOCATE 20, 1
442.     COLOR c1f, c1b
443.     PRINT " oldmx"; oldmx; "  oldmy"; oldmy; "  mx"; mx; "  my"; my; "  lb"; lb; "  lbdn"; lbdn; "  dblclk"; doubleclick; "        "
444.     PRINT " shift"; shift; "  drag"; drag; "  mhl"; mhl; "  hmrk"; hmrk; "  dir"; dir; "       "
445.     PRINT " mx"; mx - startpos + 1; "  my"; (my - vertpos) / yyseparator; "  xx"; xx - startpos + 1; "  yy"; (yy - vertpos) / yyseparator; "        "
446.     LOCATE yy, xx
447.  
448.  
449.     WHILE _MOUSEINPUT: WEND
450.     mx = _MOUSEX
451.     my = _MOUSEY
452.     lb = _MOUSEBUTTON(1)
453.  
454.     IF lb AND flag AND drag = 0 THEN ' Allows highlighting caused by mouse click to be removed in parent sub.
455.         ch$ = CHR$(0)
456.         shift = 0
457.         EXIT SUB
458.     END IF
459.  
460.     IF shift AND lb OR mhl THEN
461.         IF mhl = 0 THEN ' Shift + click highlighting.
462.             IF my = yy AND mx <> xx AND mx >= startpos AND mx - startpos <= LEN(entry$((yy - vertpos) / yyseparator)) THEN
463.                 mhl = mx - startpos + 1
464.             END IF
465.         ELSE ' Terminal point reached, end highlighting.
466.             IF mhl = xx - startpos + 1 THEN mhl = 0: drag = 0: EXIT SUB
467.         END IF
468.     END IF
469.  
470.     IF LEN(entry$((yy - vertpos) / yyseparator)) THEN
471.         IF lbdn AND xx <> mx OR mhl THEN ' Combined drag and shift + click highlighting.
472.             IF mx >= startpos AND mx - startpos <= LEN(entry$((yy - vertpos) / yyseparator)) + 1 THEN
473.                 IF lb OR mhl THEN
474.                     IF xx > mx THEN
475.                         drag = -1
476.                     ELSE
477.                         drag = 1
478.                     END IF
479.                     GOSUB mousedrag
480.                     EXIT SUB
481.                 ELSE
482.                     drag = 0
483.                 END IF
484.             END IF
485.         END IF
486.     END IF
487.  
488.     IF lb THEN
489.         LOCATE 2, 1: PRINT "left button down    "
490.         IF my = yy THEN
491.             IF mx >= startpos AND mx - startpos <= LEN(entry$((yy - vertpos) / yyseparator)) THEN
492.                 IF drag = 0 AND shift = 0 THEN yy = my ' Prevents changing rows if a drag is in progress.
493.                 xx = mx
494.                 LOCATE yy, xx
495.                 IF lbdn = 0 THEN lbdn = -1: oldmx = mx: oldmy = my
496.             END IF
497.         ELSE
498.             FOR ii = 0 TO vmax - 1
499.                 IF my = entryrow(ii) THEN
500.                     EXIT FOR
501.                 END IF
502.             NEXT
503.             IF my = entryrow(ii) AND drag = 0 AND shift = 0 THEN
504.                 IF mx >= prompt_column AND mx - startpos <= MAX_SIZE THEN
505.                     IF mx - startpos > 0 AND mx - startpos <= LEN(entry$(ii)) THEN
506.                         yy = my: xx = mx
507.                     ELSE
508.                         yy = my: xx = startpos
509.                     END IF
510.                     LOCATE yy, xx
511.                     IF lbdn = 0 THEN lbdn = -1
512.                 END IF
513.             END IF
514.         END IF
515.     ELSE
516.         IF lbdn THEN
517.             z1 = TIMER
518.             LOCATE 2, 1: PRINT "left button released"
519.             doubleclick = doubleclick + 1
520.             lbdn = 0
521.             drag = 0
522.             mhl = 0
523.         END IF
524.     END IF
525.  
526.     IF doubleclick = 1 THEN
527.         IF ABS(z1 - TIMER) > .33 THEN doubleclick = 0
528.     END IF
529.  
530.     IF doubleclick = 2 THEN
531.         ' Any double click events go here...
532.         doubleclick = 0
533.     END IF
534.     LOCATE yy, xx
535.  
536.     EXIT SUB
537.  
538.     mousedrag:
539.     SELECT CASE drag
540.         CASE IS < 0
541.             IF dir <= 0 THEN ' highlight to left
542.                 IF dir = 0 THEN
543.                     hmrk = xx - startpos + 1
544.                     shift = -2 ' emulated shift key down
545.                     flag = -1
546.                 END IF
547.                 xx = xx - 1
548.                 LOCATE yy, xx
549.                 COLOR c2f, c2b
550.                 PRINT MID$(entry$((yy - vertpos) / yyseparator), xx - startpos + 1, 1)
551.                 dir = dir - 1
552.                 LOCATE yy, xx
553.             ELSE ' unhighlight to left
554.                 xx = xx - 1
555.                 dir = dir - 1
556.                 LOCATE yy, xx
557.                 COLOR c1f, c1b
558.                 PRINT MID$(entry$((yy - vertpos) / yyseparator), xx - startpos + 1, 1)
559.                 IF dir = 0 THEN
560.                     hmrk = 0
561.                     flag = 0
562.                     shift = 0
563.                 END IF
564.                 LOCATE yy, xx
565.             END IF
566.         CASE IS > 0
567.             IF dir >= 0 THEN
568.                 COLOR c2f, c2b
569.                 PRINT MID$(entry$((yy - vertpos) / yyseparator), xx - startpos + 1, 1)
570.                 IF dir = 0 THEN
571.                     hmrk = xx - startpos + 1
572.                     flag = -1
573.                     shift = -2 ' emulated shift key down
574.                 END IF
575.                 xx = xx + 1
576.                 dir = dir + 1
577.                 LOCATE yy, xx
578.             ELSE
579.                 COLOR c1f, c1b
580.                 PRINT MID$(entry$((yy - vertpos) / yyseparator), xx - startpos + 1, 1)
581.                 xx = xx + 1
582.                 dir = dir + 1
583.                 IF dir = 0 THEN
584.                     hmrk = 0
585.                     flag = 0
586.                     shift = 0
587.                 END IF
588.                 LOCATE yy, xx
589.             END IF
590.     END SELECT
591.     RETURN
592. END SUB
593.  

Edited to correct bug in paste function.

Pete

[Petr]

Hi Pete. I know very little C ++, but - do you use OpenGL to draw graphics in a C ++ program? Or you use something else for that? And beyond - I'm no longer absolutely sure here, but if QB64 adds libraries for audio and image decompression (next libraries) automatically, even though no commands using this are used, that might explain the difference in size.

But I say again, I just guess, I never really examined it in depth.

And then there's one more thing. QB64 adds C ++ control mechanisms, many control loops that RhoSigma suggested to turn off over $CHECKING: OFF, which probably doesn't contain your code. We discussed this here:
https://www.qb64.org/forum/index.php?topic=1348.msg105790#msg105790

[Ashish]

...
So that code is about double the size of the one I just finished in QB64, yet, when compiled, the C/C++ one is approx. 1.5 MB, while the QB64 one is nearly double that, at 2.5 MB.
...

2.5MB? I compiled your code and the size of the executable is 2.0MB on my machine.

[SMcNeill]

The biggest issue is that QB64 runs in a OpenGL graphical window.  Even screen 0 programs use OpenGL, unless you program them with $CONSOLE:ONLY, and even the smallest OpenGL program is a couple of MB in size.

[Pete]

2.5MB? I compiled your code and the size of the executable is 2.0MB on my machine.

Are you using Windows? If not, maybe that's the reason. If so, that's strange, as the code above compiles to 2.494 KB.

@Steve. I think you nailed it again, Emu. The one I wrote in C/C+ uses the Windows console window. Well cool, that also means that the C/C++ code emited is probably pretty well optimized. Thanks for the reply.

Pete

[bplus]

Are you using Windows? If not, maybe that's the reason. If so, that's strange, as the code above compiles to 2.494 KB.

@Steve. I think you nailed it again, Emu. The one I wrote in C/C+ uses the Windows console window. Well cool, that also means that the C/C++ code emited is probably pretty well optimized. Thanks for the reply.

Pete

LOL someone else eyes are going bad too!
  [ You are not allowed to view this attachment ]  


But even common sense says, no regular QB64 program compiles to less than 2MB.
  [ You are not allowed to view this attachment ]  

[Pete]

LOL, sorry. Typo. I hit the "." key instead of the "," key. Without my glasses, they all look alike. Sorry if that's too racist for anyone. Actually, come to think of it, the capital "A" key looks like a comma without my reading glasses, too.

2,494 KB

Anyway, thanks for compiling it, Mark. You got exactly what I did. I'm still curious why Ashish got less, unless he's not on Windows or he's using an older version of QB64, but till, I can't see why an older version would be that different.

Pete

[bplus]

Oh dang, I thought it was a debate about MB or KB, I see now Ashish gets .5 MB less than us.

How do you do that Ashish? Are you using special settings from jack or rhoSigma?

[SMcNeill]

Oh dang, I thought it was a debate about MB or KB, I see now Ashish gets .5 MB less than us.

How do you do that Ashish? Are you using special settings from jack or rhoSigma?

It may be the difference in 64-bit vs 32-bit compilation versions.

[Pete]

V1.3 is 64-bit, right? I downloaded a 64-bit one you recommended many moons ago, which was, at that time, not part of the official 32-bit release. I liked it, so I kept and used it, until I recently replaced it with the newer version 1.3. That's what I compile those one with, and Mark got the exact same size on his Windows system. Yes, maybe Ashish is using an older 32-bit system, but if so, I wonder why a 64-bit one would require another half meg?

If this was the old days I'd just assume he ran out of disk space, and only 2 of the 2.5 MB code got copied!

Pete

[SMcNeill]

V1.3 is 64-bit, right? I downloaded a 64-bit one you recommended many moons ago, which was, at that time, not part of the official 32-bit release. I liked it, so I kept and used it, until I recently replaced it with the newer version 1.3. That's what I compile those one with, and Mark got the exact same size on his Windows system. Yes, maybe Ashish is using an older 32-bit system, but if so, I wonder why a 64-bit one would require another half meg?

If this was the old days I'd just assume he ran out of disk space, and only 2 of the 2.5 MB code got copied!

Pete

V1.3 offers both a 32-bit version and a 64-bit version.  You can download both, if you want, and compile both 32/64 bit programs, and each will be a different size.

[Pete]

I just checked. I definitely have the zip file for the 64-bit version 1.3. I think I'll wait to see what Ashish has. My guess is you are correct, and he is running the 32-bit version.

Pete

[Petr]

Size 1.619.968 bytes if is compiled under QB ver 0.978,
       1.842.176 bytes if is compiled under QB ver 1.1
       2.333.184 bytes if is compiled under QB ver 1.2
       2.553.344 bytes if is compiled under QB ver 1.3

This all with 64 bit Windows 7.

The program is nice, the only thing I miss there is visibility of the cursor. He shows up there briefly after a mouse click, but then he is no longer visible. I like the possibility of editing already written text.

[Pete]

Hi Petr,

You can REM out or get rid of these print lines, which obscure the cursor and are present just for testing...

    LOCATE 20, 1
    COLOR c1f, c1b
    PRINT " oldmx"; oldmx; "  oldmy"; oldmy; "  mx"; mx; "  my"; my; "  lb"; lb; "  lbdn"; lbdn; "  dblclk"; doubleclick; "        "
    PRINT " shift"; shift; "  drag"; drag; "  mhl"; mhl; "  hmrk"; hmrk; "  dir"; dir; "       "
    PRINT " mx"; mx - startpos + 1; "  my"; (my - vertpos) / yyseparator; "  xx"; xx - startpos + 1; "  yy"; (yy - vertpos) / yyseparator; "        "
    LOCATE yy, xx

--------------------

The code still needs some work. I'm currently trying to make it into a library, but a few of the variables are being stubborn.

Pete

[Ashish]

I am using QB64 x32 V1.3 .