[video] QB64 v2 - Stepping

[FellippeHeitor]

So you added the new $Debug metacommand in your program. Now what?

[Pete]

Ah, so F6 is really only for people who make mistakes. Well, no wooreis hear. Knot sumthiinng I sea myselph kneading.

Hey have you ever thought of getting an animated dog to do these spots? We could call him QB Doo 🐶

Just a thought...

Kidding aside, love it. Keep um coming. OH, and have you thought about a video library section for these?

Pete

[FellippeHeitor]

Thanks, Pete.

I don’t think an extra section is needed, since these are all grouped in the YouTube channel, but I’ll leave it to the librarians.

[SMcNeill]

Hey have you ever thought of getting an animated dog to do these spots? We could call him QB Doo 🐶

How about an animated paper clip?  Call him Qlippy-B64!

[Pete]

How about an animated paper clip?  Call him Qlippy-B64!

Nope! I'll stick with QB-Doo, for Version 2!

Code: QB64: [Select]

1. title$ = "QB-Doo Version 2"
2. _TITLE title$
3. $COLOR:32
4. Screen0 = _NEWIMAGE(80, 25, 0)
5. SCREEN Screen0
6.  
7. overlay = _NEWIMAGE(_WIDTH * _FONTWIDTH, _HEIGHT * _FONTHEIGHT, 32)
8.  
9. COLOR 0, 7
10. FOR x = 1 TO 25
11.     LOCATE x, 1: PRINT STRING$(80, 176);
12. NEXT
13.  
14. _DEST overlay
15. COLOR MidnightBlue, 0
16.  
17. REDIM text$(6)
18. i = 0
19. DO
20.     i = i + 1
21.     DO
22.         READ a
23.         IF a = 0 THEN EXIT DO
24.         text$(i) = text$(i) + CHR$(a)
25.     LOOP
26. LOOP UNTIL i = 6
27.  
28. font = _LOADFONT("lucon.ttf", 25, "monospace")
29. IF font <= 0 THEN font = 16
30. _FONT font
31. _DELAY 1
32.  
33. 'music$ = "L6n33n33n31n31L2n29L6n31n33L3n26P4L4n31L6n28L2n24L6n33n33L4n31L2n29"
34. 'music$ = "MBO4" + music$ + music$
35. music$ = "MBO4" + "L7n33n33n31n31L4n29 P8 L8n31L7n33L4n26 P6 L5n31L8n28L4n24L7n33n33n31L4n29"
36. music$ = music$ + "P6 L7n33n33n31n31L4n29 P8 L6n31n33L4n34 P6 L5n31L8n28L4n24L7n33n33n31L4n29"
37.  
38. PLAY music$
39.  
40. startrow = 2
41. FOR k = 1 TO 6
42.     t$ = text$(k)
43.     y = startrow + k * 2 - 1 ' Double space.
44.  
45.     pslc y, t$, overlay, Overlay_hardware
46.  
47.     _DELAY 1.9
48. NEXT
49.  
50. _FONT 16 'select inbuilt 8x16 default font
51. _FREEFONT font ' Must be placed after the font is changed.
52.  
53. COLOR Black, 0
54. msg$ = "Press space bar to toggle overlay. Press Esc to end."
55.  
56. psl 25, 1, msg$, overlay, Overlay_hardware
57.  
58. _DELAY .75
59. DO
60.     _LIMIT 30
61.     b$ = INKEY$
62.     IF LEN(b$) THEN
63.         IF b$ = CHR$(27) THEN EXIT DO
64.         IF Show_Overlay THEN _PUTIMAGE (0, 0), Overlay_hardware
65.         Show_Overlay = NOT Show_Overlay
66.         _DISPLAY
67.     END IF
68. LOOP
69.  
70. _FREEIMAGE Overlay_hardware
71. _DEST 0 'Reset dest back to the normal screen 0.
72. _AUTODISPLAY
73. COLOR 0, 7
74. _DELAY .75
75. CLS
76. COLOR 1, 7
77. LOCATE 2, 2
78. PRINT "Hi, back in SCREEN 0. Bye!"
79. _DELAY 2.25
80. SYSTEM
81.  
82. DATA 81,66,32,86,101,114,115,105,111,110,32,50,0
83. DATA 89,111,117,39,114,101,32,98,114,97,110,100,32,110,101,119,0
84. DATA 65,32,112,105,99,107,101,114,32,97,110,100,32,97,32,99,104,111,111,115,101,114,0
85. DATA 65,110,100,32,119,101,32,97,108,108,32,119,97,110,116,32,116,111,32,117,115,101,0
86. DATA 81,66,44,32,116,111,111,0
87. DATA 39,67,97,117,115,101,32,70,66,39,115,32,115,117,99,104,32,97,32,108,111,115,101,114,0
88.  
89. SUB psl (y, x, t$, overlay, Overlay_hardware)
90.     _PRINTSTRING ((x - 1) * _FONTWIDTH, (y - 1) * _FONTHEIGHT), t$
91.     Overlay_hardware = _COPYIMAGE(overlay, 33)
92.     _PUTIMAGE (0, 0), Overlay_hardware
93.     _DISPLAY
94. END SUB
95.  
96. SUB pslc (y, t$, overlay, Overlay_hardware)
97.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(t$)) \ 2, (y - 1) * _FONTHEIGHT), t$
98.     Overlay_hardware = _COPYIMAGE(overlay, 33)
99.     _PUTIMAGE (0, 0), Overlay_hardware
100.     _DISPLAY
101. END SUB

Pete 🎶

Edit: We really need that QB45 PLAY(0) function implemented one of these versions.