Here's another way. also skips the IF's
also closer to Original 10 Print:
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
b = b + ...