QB64 10-Liner programs or games

[bplus]

Here's Charlie's (who was coloning all over the place):

Code: QB64: [Select]

1. _Title "Test Skeleton Screen 0" ' b+ 2022-03-21
2. ' screen 0 is (8 * 80 = 640) X (16 * 25 = 400) dont need constants for that
3. Dim Shared As Long Mx, My, ClsTF, done
4. Dim Shared k$, Lim
5.  
6. MainSetupCode ' call setup
7. Do
8.     If ClsTF Then Cls
9.     While _MouseInput: Wend
10.     Mx = _MouseX: My = _MouseY
11.     k$ = InKey$
12.     MainLoopCode ' read and execute your 10 liner here
13.     _Display
14.     If Lim Then _Limit Lim ' let coder set Lim
15. Loop Until done
16.  
17. Sub MainSetupCode ' try Charlie's code  https://qb64forum.alephc.xyz/index.php?topic=4732.msg141491#msg141491
18.     ClsTF = -1 '  clear screen
19.     Lim = .75 ' use limit
20. End Sub
21.  
22. Sub MainLoopCode ' try Charlie's code https://qb64forum.alephc.xyz/index.php?topic=4732.msg141491#msg141491
23.     Static i, score%
24.     If i Then '  before we change test letter score the last
25.         key_pressed$ = UCase$(k$)
26.         If InStr("AEI", Chr$(i)) And (key_pressed$ = Chr$(i)) Then
27.             Sound 2000, 1
28.             score% = score% + 1
29.         ElseIf InStr("AEI", Chr$(i)) And (key_pressed$ <> Chr$(i)) Then
30.             Sound 40, 1
31.             score% = score% - 2
32.         End If
33.     End If
34.     Print "Catch the aei vowels!" + Chr$(10) + "Press the vowel's key when you see it." + Chr$(10) + "Don't make a mistake !" + Chr$(10)
35.     Print "Score:" + Str$(score%)
36.     i = Int(Rnd * 9) + 65
37.     Print
38.     Print Chr$(i) + "    "
39. End Sub
40.  
41.  
42.  

note: This game forces you to put your hands in very awkward position over a, e, i in order to hit letters fast enough.

Also note I moved Lim to single type for Charlies's game that needs more than a second between loops.

[bplus]

Here is Pete's Guess Number, didn't save on a single line!

Code: QB64: [Select]

1. _Title "Test Skeleton Screen 0" ' b+ 2022-03-21
2. ' screen 0 is (8 * 80 = 640) X (16 * 25 = 400) dont need constants for that
3. Randomize Timer ' new this code
4. Dim Shared As Long Mx, My, ClsTF, done
5. Dim Shared k$, Lim
6.  
7. MainSetupCode ' call setup
8. Do
9.     If ClsTF Then Cls
10.     While _MouseInput: Wend
11.     Mx = _MouseX: My = _MouseY
12.     k$ = InKey$
13.     MainLoopCode ' read and execute your 10 liner here
14.     _Display
15.     If Lim Then _Limit Lim ' let coder set Lim
16. Loop Until done
17.  
18. Sub MainSetupCode ' try Pete's code  https://qb64forum.alephc.xyz/index.php?topic=4732.msg141465#msg141465
19.     ClsTF = 0 '  clear screen
20.     Lim = 0 ' use limit
21. End Sub
22.  
23. Sub MainLoopCode ' try Pete's code  https://qb64forum.alephc.xyz/index.php?topic=4732.msg141465#msg141465
24.     Static x$, try
25.     If x$ = "" Then x$ = LTrim$(Str$(Int(Rnd * 10 + 1)))
26.     try = try + 1
27.     Line Input "Guess a number between 1 and 10 "; num$
28.     If x$ < num$ Then j = 1 Else j = 10
29.     If num$ <> x$ Then Print Mid$("Too high!Too Low!", j, 9)
30.     If num$ = x$ Then Print "Yes! Number of tries to guess it was:"; try
31.     If num$ = x$ Then done = -1
32. End Sub
33.  

Note added Randomize Timer to the Skeleton.

[CharlieJV]

Here's Charlie's (who was coloning all over the place):
(SNIP!)
note: This game forces you to put your hands in very awkward position over a, e, i in order to hit letters fast enough.

(SNIP!)

I just spent the last five minutes trying to figure out what "coloning" means.  Took me a while to figure out it has nothing to do with my intestines...

What do you mean put your hands in very awkward position?  (I'm a typist, so all fingers positioned for typing anything.)

Not only is the game good for the cognitive side of things, but it is about typing dexterity too.  Well, for those three keys.
(https://oakdome.com/k5/lesson-plans/word/images/proper-finger-placement-for-keyboarding-550.gif)

[bplus]

"Coloning" is my expression for using : for multiple statements on single line. I also call it double parking.

@CharlieJV I did not learn typing, what fingers are you suppose to use for a, e and i?

Ha! Everytime I saw an H, I wanted to press an i!

[CharlieJV]

"Coloning" is my expression for using : for multiple statements on single line. I also call it double parking.

@CharlieJV I did not learn typing, what fingers are you suppose to use for a, e and i?

"Coloning":  Yeah, I had managed to clue in earlier, but only after I studied your code.  I'm just happy I wasn't semi-coloning or perioding all over the place...

My earlier post has a link to a nice image on the web for typing hand/finger positioning, which I had totally botched and have just now fixed.

[bplus]

LOL! I am glad too!

[Kiara87]

@bplus You have a lot of tricks up your sleeve, but I'll bet DIMming k$ as "LONG" is not one of them. :D

I completely agree about the line challenge and non-use of colons. Every colon is another line, in my opinion. Oh course, characters could be counted, but that's not entirely fair either, as certain keywords are longer than others.

I use the same approach to most of my larger programs. Make a central hub, and run sub-routines from it. This method allowed me to always know the program flow would continuously be cycled through that hub. Back in the old days, it provided a way to time the program, and evoke a screen saver. Other advantages existed, too.

@Dav Speaking of screen savers, in the paragraph above, I would have loved to have the plasma one you posted! Very cool!

@Kiara87 I get it, more of a discussion concerning optimization of BASIC code, rather than the use of BASIC libraries to develop OOP. Most of what I see of a practical aspect of this is the use of creative algorithms, mostly math formulas, like Dav and Bill posted in their 10-liners. The downside of "optimization" when it comes to limiting lines of code, ironically, results in obfuscation, much the same too many lines of convoluted code produce. Use of GOTO statements, for example, to cut down on a loop line code. I consider that bad coding practice, especially to introduce it, in a positive way, to a beginner. I consider BASIC best for coders who like to build things from the foundation up. All I ever heard from C communities is "You need a library for that." That was their response to me trying to write a keyboard function in C. I eventually accomplished it, because it was possible with C/C++ statements, but I was not too happy that such a large community completely lost track of how to build a program from the foundation up.

Pete

PS @Dimster That was just a typo on Mark's part. He was just giving a skeleton, almost pseudo-code, example of how to set up a 10-line hub to run a program. Sorry for the late reply, you posted while I was writing.

obviously you are right it is all obfuscated and illegible code it is to jump with the goto it is not good to learn about this I agree

[Kiara87]

Yeah what I am finding is these things are really 100 lines or less:
https://www.vitoco.cl/atari/10liner/MNPUZZLE/

  [ You are not allowed to view this attachment ]  

I say make it 100 lines with no colons and get something as enjoyable to read as to play!

That would be way more educational and inspiring for all levels of hobbiests.

in fact the colon creates illegible code as peter quoted is obfuscated code

like this example you proposed of 100 lines
but maybe other people would put rules each line should not contain more than 100 characters
however in any case as you have mentioned it would not be worth it
as you pointed out in the post everything can be adapted with a sub (subrutine)