Thanks yet again, Hero Steve!
Now let's eliminate the PE-specific _IIF:
This should now run on QB and (with the addition of a line number) GWBasic.
Now let's eliminate the PE-specific _IIF:
Quote:(Notice I'm still trying to keep it at least mildly obfuscated.)Code: (Select All)Screen 1: For c = 1 To 1920: Print Mid$("\/", (Rnd < .5) + 2, 1);: Next
This should now run on QB and (with the addition of a line number) GWBasic.