I'm learning!

I caught a slight cold this week. My head just wasn't working. I couldn't make music or program projects. These are all things that require mental concentration and thought. So I've been trying to do something regularly—write about my developments. So as not to disrupt that. I'll just say that I'm continuing to learn.

https://dimalinkeng.blogspot.com/2026/04/im-learning.html

#lazarus #qb64 #visualbasic #csharp #web #gameengine #code #education #knowledge #html #fpscreator

Here's an interesting article about optimizing #QBASIC code for speed

http://www.petesqbsite.com/sections/tutorials/tuts/qfastman/QFASTMAN.html

#qb #BASIC #qb64 #programming #optimizing

Here's an interesting article about optimizing #QBASIC code for speed

http://www.petesqbsite.com/sections/tutorials/tuts/qfastman/QFASTMAN.html

#qb #BASIC #qb64 #programming #optimizing

A little #program that lets you move a Smiley Face around the screen using #QB64

https://qb64.com/

#quickBASIC #QBASIC #BASIC

(source code in ALT text)

A little #program that lets you move a Smiley Face around the screen using #QB64

https://qb64.com/

#quickBASIC #QBASIC #BASIC

Source (Also in ALT text):

'-----------------------------------------
' Moving a face around the screen!
' Phillip J Rhoades - 2026-04-05
'-----------------------------------------

'Initializing some variables and the screen
Let Row = 1
Let Col = 1
Dim PrevRow
Dim PrevCol

Locate Row, Col
Print Chr$(2)

'Start of the main loop
Do
'Get the Keypress
TheKey$ = InKey$

'If there's no Keypress, there's no need to do all this
'so skip it all
If TheKey$ <> "" Then
'Record the Row and Col before changing
PrevRow = Row
PrevCol = Col

'Take note of which arrow key is pressed for movement.
Select Case TheKey$
Case Chr$(0) + Chr$(77): Col = Col + 1 'Left
Case Chr$(0) + Chr$(75): Col = Col - 1 'Right
Case Chr$(0) + Chr$(80): Row = Row + 1 'Down
Case Chr$(0) + Chr$(72): Row = Row - 1 'Up
End Select

'Keep the character on the screen
If Row < 1 Or Row > 23 Then
Row = PrevRow
End If
If Col < 1 Or Col > 79 Then
Col = PrevCol
End If

'Blank the old and print the new location
'to move the character.
Locate PrevRow, PrevCol 'Move cursor to old place
Print " " 'Blank the old character
Locate Row, Col 'Move cursor to new place
Print Chr$(2) 'Print the character to move on screen
End If 'This loop was mostly skipped if no Keypress
Loop Until TheKey$ = "q"
'End of the main loop

Y, bueno, a esto me he estado dedicando. Prometo ser más productivo a partir de ahora.

https://josemoya.itch.io/tortilla-terror/devlog/1394763/beta-11
#cgaJam
#msdos
#qbasic
#qb64

Some serious health problems are messing with #Forth and #Advent_of_code plans. I was already moving slow but now I find that I can't work the problems and learn Forth at the same time. I love how the language works (OG assembly guy) but I can't make the jump from "writing words" to "writing phrases" of code--real programming requires phrases and then sentences.

I'm tired of Pascal, Go does little for me and often annoys me (all loops are "for", really?). I could pick up Scheme again but I don't trust that I'll have the capacity to move from phrases back to sentences.

Out on eBay I saw some old books that I liked at the time--the #BASIC era. One of them was a book I regretted losing in move (BASIC With Style). They are ordered and I've dusted off #QB64. I was more of a boot to Basic guy myself, but I can deal with QBasic style.

It's chicken soup for the ill programmers soul. Easy peasy comfort coding while enduring treatment.

https://qb64phoenix.com/qb64wiki/index.php/Main_Page. QB64PhoenixEdition