another variation of "10 PRINT"

[SMcNeill]

I was going for a one-liner like the original that didn't need the _Font 8 to fix the print.

I think what you wanted was something more like this then:

Code: (Select All)

10 screen 1: cnt = cnt + 1: If cnt < 1921 Then If Rnd < .5 Then Print "\";: GoTo 10 Else Print "/";: GoTo 10

Single line of code, no use of _Font 8...  Several screen modes default to font 8, and Screen 1 is one of those. 

[bplus]

The higher the colon count the crappier the line of code, usually.

For assignments, it makes sense until QB64pe allows commas in such lines.
a = 1, b = 2, ...

---

I was going for a one-liner like the original that didn't need the _Font 8 to fix the print.

I think what you wanted was something more like this then:

Code: (Select All)

10 screen 1: cnt = cnt + 1: If cnt < 1921 Then If Rnd < .5 Then Print "\";: GoTo 10 Else Print "/";: GoTo 10

Single line of code, no use of _Font 8...  Several screen modes default to font 8, and Screen 1 is one of those. 

yeah thats nice!

Still crappy is saying goto 10 twice. But you pay a price for one-liners.

[JRace]

Still crappy is saying goto 10 twice. But you pay a price for one-liners.

Who needs GOTO?
For that matter, who needs IF...THEN...ELSE?

Code: (Select All)

Screen 1: _Font 8: For c = 1 To 1920: Print _IIf(Rnd < .5, "\", "/");: Next

(In the world of C, I've always enjoyed deeply nesting ternary operators, imagining the reactions of people who will have to maintain the code later.  Debugging them sux, but nesting them is fun.)

Of course the name TenPrint would no longer make sense.


(Forget one-liners; with functions like _IIF to abuse I'm getting ideas about an Obfuscated Basic contest!)

[SMcNeill]

Still crappy is saying goto 10 twice. But you pay a price for one-liners.

Who needs GOTO?
For that matter, who needs IF...THEN...ELSE?

Code: (Select All)

Screen 1: _Font 8: For c = 1 To 1920: Print _IIf(Rnd < .5, "\", "/");: Next

(In the world of C, I've always enjoyed deeply nesting ternary operators, imagining the reactions of people who will have to maintain the code later.  Debugging them sux, but nesting them is fun.)

Of course the name TenPrint would no longer make sense.


(Forget one-liners; with functions like _IIF to abuse I'm getting ideas about an Obfuscated Basic contest!)

In this case, you don't even need the _Font 8. Screen 1 defaults to font 8.

[bplus]

Nice one at @JRace,

You don't even need Screen 1

Code: (Select All)

_Font 8: For c = 1 To 1920: Print _IIf(Rnd < .5, "\", "/");: Next

[JRace]

Thanks yet again, Hero Steve!

Now let's eliminate the PE-specific _IIF:

Code: (Select All)

Screen 1: For c = 1 To 1920: Print Mid$("\/", (Rnd < .5) + 2, 1);: Next

(Notice I'm still trying to keep it at least mildly obfuscated.)

This should now run on QB and (with the addition of a line number) GWBasic.

[bplus]

Here's another way. also skips the IF's

Code: (Select All)

Font 8: For c = 1 To 1920: Print Chr$(47 + -45 * (Rnd < .5));: Next

also closer to Original 10 Print:

Code: (Select All)

10 PRINT CHR$(205.5+RND(1)); : GOTO 10

[SMcNeill]

Thanks yet again, Hero Steve!

Now let's eliminate the PE-specific _IIF:

Code: (Select All)

Screen 1: For c = 1 To 1920: Print Mid$("\/", (Rnd < .5) + 2, 1);: Next

(Notice I'm still trying to keep it at least mildly obfuscated.)

This should now run on QB and (with the addition of a line number) GWBasic.

How about this version for something that works in all basics and should have people scratching their heads trying to sort it out without running it first:

Code: (Select All)

_Font 8: For i = 1 To 1920: Print Chr$(Int(Rnd * 2) * 45 + 47);: Next

Or use a different Screen mode as we don't want _Font (which is QB64 specific):

Code: (Select All)

Screen 8: For i = 1 To 1920: Print Chr$(Int(Rnd * 2) * 45 + 47);: Next

[JRace]

Nice one at @JRace,
You don't even need Screen 1

Code: (Select All)

_Font 8: For c = 1 To 1920: Print _IIf(Rnd < .5, "\", "/");: Next

Technically we don't need the Screen or Font statements since it still prints the same characters,  but the results just don't look the same on a vanilla screen with a vanilla font:
   


vs:
   

---

@SMcNeill & @bplus I was about to post my old GWBasic port of TenPrint, but you both beat me to it.  It's pretty much the same as your last posts.

[Jack002]

I struggle with using fonts in QB64
Not easy!
This is my file explorer in win 10


this is the properties of the font


This line gives the error invalid handle
mfont = _LoadFont(Environ$("HOME") + "/.local/share/fonts/CousineNerdFontMono-Bold.ttf", ps, "UNICODE")  
So does this line
mfont = _LoadFont(Environ$("HOME") + "/windows/fonts/CousineNerdFontMono-Bold.ttf", ps, "UNICODE")  
/windows/fonts/
is right where the ttf file is!
Is it installed? I think so, I did install it. You right click and PREVIEW and on that screen press INSTALL. I did it, it is GREY


Go there with the DOS command and do DIR, not there!



I don't know what I am doing wrong