QB64 Phoenix Edition › QB64 Rising › Code and Stuff › Programs v
another variation of "10 PRINT"

Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Linear Mode
another variation of "10 PRINT"
SMcNeill Offline
Super Moderator
******
Posts: 2,761
Threads: 332
Joined: Apr 2022
Reputation: 231
#18
01-12-2025, 03:24 AM (This post was last modified: 01-12-2025, 03:26 AM by SMcNeill.)
(01-12-2025, 03:11 AM)JRace Wrote: Thanks yet again, Hero Steve!

Now let's eliminate the PE-specific _IIF:
Quote:
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
Website Find
Reply


Messages In This Thread
another variation of "10 PRINT" - by hsiangch_ong - 12-27-2024, 04:55 PM
RE: another variation of "10 PRINT" - by Jack002 - 01-09-2025, 11:54 PM
RE: another variation of "10 PRINT" - by bplus - 01-11-2025, 06:13 PM
RE: another variation of "10 PRINT" - by SMcNeill - 01-11-2025, 10:28 PM
RE: another variation of "10 PRINT" - by bplus - 01-11-2025, 11:48 PM
RE: another variation of "10 PRINT" - by SMcNeill - 01-11-2025, 11:58 PM
RE: another variation of "10 PRINT" - by SMcNeill - 01-12-2025, 12:35 AM
RE: another variation of "10 PRINT" - by bplus - 01-12-2025, 12:41 AM
RE: another variation of "10 PRINT" - by SMcNeill - 01-12-2025, 12:43 AM
RE: another variation of "10 PRINT" - by SMcNeill - 01-12-2025, 12:48 AM
RE: another variation of "10 PRINT" - by bplus - 01-12-2025, 12:53 AM
RE: another variation of "10 PRINT" - by JRace - 01-12-2025, 02:03 AM
RE: another variation of "10 PRINT" - by SMcNeill - 01-12-2025, 02:23 AM
RE: another variation of "10 PRINT" - by bplus - 01-12-2025, 02:52 AM
RE: another variation of "10 PRINT" - by JRace - 01-12-2025, 03:11 AM
RE: another variation of "10 PRINT" - by SMcNeill - 01-12-2025, 03:24 AM
RE: another variation of "10 PRINT" - by bplus - 01-12-2025, 03:23 AM
RE: another variation of "10 PRINT" - by JRace - 01-12-2025, 03:47 AM
RE: another variation of "10 PRINT" - by Jack002 - 01-12-2025, 07:45 PM
RE: another variation of "10 PRINT" - by bplus - 01-12-2025, 09:02 PM
RE: another variation of "10 PRINT" - by Jack002 - 01-13-2025, 02:56 PM
RE: another variation of "10 PRINT" - by JRace - 01-13-2025, 10:16 PM
RE: another variation of "10 PRINT" - by Jack002 - Yesterday, 10:05 PM
RE: another variation of "10 PRINT" - by SMcNeill - 01-13-2025, 02:12 PM
RE: another variation of "10 PRINT" - by bplus - 01-13-2025, 04:25 PM
RE: another variation of "10 PRINT" - by JRace - 01-13-2025, 06:24 PM
RE: another variation of "10 PRINT" - by SMcNeill - 01-13-2025, 06:44 PM
RE: another variation of "10 PRINT" - by JRace - 01-13-2025, 07:03 PM
RE: another variation of "10 PRINT" - by bplus - 01-13-2025, 07:51 PM
RE: another variation of "10 PRINT" - by Jack002 - Yesterday, 09:59 PM
RE: another variation of "10 PRINT" - by bplus - Yesterday, 01:39 AM
RE: another variation of "10 PRINT" - by JRace - Yesterday, 02:16 AM
RE: another variation of "10 PRINT" - by bplus - Yesterday, 02:27 AM
RE: another variation of "10 PRINT" - by JRace - Yesterday, 02:33 AM



Users browsing this thread: 64 Guest(s)