another variation of "10 PRINT"

[bplus]

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

I suspect it is the _Font 8 line that slows things down. Obviously, to me anyway, I was going for a one-liner like the original that didn't need the _Font 8 to fix the print.

Another way that is fast:

Code: (Select All)

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

Another way:

Code: (Select All)

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