Author Topic: Re: 10 PRINT CHR$(205.5+RND(1)); : GOTO 10  (Read 1638 times)

0 Members and 1 Guest are viewing this topic.

Marked as best answer by on June 29, 2021, 09:29:05 pm

FellippeHeitor

  • Guest
Re: 10 PRINT CHR$(205.5+RND(1)); : GOTO 10
« on: June 10, 2018, 06:46:19 pm »
Very good job on this one, Hunter.

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: 10 PRINT CHR$(205.5+RND(1)); : GOTO 10
« Reply #1 on: June 11, 2018, 09:25:19 am »
Hi [banned user],

Again my compliments to the original post.

Ah, so that's why a one liner wouldn't work, I was wondering.

Now I am wondering if... (time for an experiment.) 

FellippeHeitor

  • Guest
Re: 10 PRINT CHR$(205.5+RND(1)); : GOTO 10
« Reply #2 on: June 11, 2018, 09:32:23 am »
_FONT 8 is 8x8, so that makes it align.

Code: QB64: [Select]
  1. 10 _FONT 8: PRINT CHR$(45 * INT(RND * 2) + 47);: _DISPLAY: _LIMIT 60: GOTO 10

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: 10 PRINT CHR$(205.5+RND(1)); : GOTO 10
« Reply #3 on: June 11, 2018, 10:20:42 am »
Rats! Mr ninja fingers with ninja mind beat me! (but not quite the experiment I had in mind, maybe if I wait some more... )

BTW did you know there is a game called Ninja Theory? I just found out looking up capitalization.

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: 10 PRINT CHR$(205.5+RND(1)); : GOTO 10
« Reply #4 on: June 11, 2018, 10:48:40 am »
Hmm... I think I will reserve this space ahead of my experiment results, just in case they are successful. ;)

Append: well I did need the _FONT 8 idea with what I had in mind which eliminates some gaps:
Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(560, 420, 32): _FONT 8: DO WHILE i < 80 * 60: _PRINTSTRING ((i MOD 80) * 7, INT(i / 80) * 7), CHR$(45 * INT(RND * 2) + 47): i = i + 1: LOOP
  2.  
« Last Edit: June 11, 2018, 12:10:48 pm by bplus »