another variation of "10 PRINT"

[SMcNeill]

That is certainly way more difficult than this:

Code: (Select All)

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

And that's not as simple as this:

Code: (Select All)

_Font 8

For cnt = 1 To 1920

    If Rnd < .5 Then Print "\"; Else Print "/";

Next

Code doesn't always have to be simple to be shared. Personally, I think it's nice to see folks posting different ways to do the same thing.

One thing curious though, and see if you can answer this: Why does your method take several seconds to run, while mine is instant?

And why does yours freeze up the program and require a close from task manager, if you click on the red X in the top right while it's running? Why won't it close properly, without issues?