Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: bplus on June 08, 2020, 11:41:30 pm

Title: SOS
Post by: bplus on June 08, 2020, 11:41:30 pm
;-))

Code: QB64: [Select]
  1. _TITLE "SOS"
  2. DEFINT A-Z
  3. CONST o = "²"
  4. TYPE rc
  5.     r AS INTEGER
  6.     c AS INTEGER
  9. p(0) = "±±±±± ²²²²²² °°°°°°"
  10. p(1) = "±     ²    ² °     "
  11. p(2) = "±±±±± ²    ² °°°°°°"
  12. p(3) = "    ± ²           °"
  13. p(4) = "±±±±± ²²²²²² °°°°°°"
  14.  
  15. _DELAY .25
  18. ON TIMER(t, 5) signalSOS
  20. FOR y = 0 TO 14 STEP 7
  21.     FOR c = 6 TO 60 STEP 25
  22.         FOR r = 0 TO 4
  23.             LOCATE r + 4 + y, c: PRINT p(r);
  24.         NEXT
  25.     NEXT
  27.  
  28. DIM l(2, 2) AS rc
  29. row = 7: col = 17
  30. FOR y = 0 TO 14 STEP 7
  31.     FOR x = 0 TO 50 STEP 25
  32.         l(y \ 7, x \ 25).r = row + y
  33.         l(y \ 7, x \ 25).c = col + x
  34.         LOCATE l(y \ 7, x \ 25).r, l(y \ 7, x \ 25).c: PRINT o
  35.     NEXT
  37. signalSOS
  39. WHILE _KEYDOWN(27) = 0
  40.     FOR y = 0 TO 2
  41.         FOR x = 0 TO 2
  42.             LOCATE l(y, x).r, l(y, x).c: PRINT " ";
  43.             row = l(y, x).r: col = l(y, x).c
  44.             ran = INT(4 * RND)
  45.             SELECT CASE ran
  46.                 CASE 0: a = SCREEN(row, col + 1)
  47.                     IF a = 32 THEN col = col + 1
  48.                 CASE 1: a = SCREEN(row, col - 1)
  49.                     IF a = 32 THEN col = col - 1
  50.                 CASE 2: a = SCREEN(row + 1, col)
  51.                     IF a = 32 THEN row = row + 1
  52.                 CASE 3: a = SCREEN(row - 1, col)
  53.                     IF a = 32 THEN row = row - 1
  54.             END SELECT
  55.             IF row < 2 THEN row = 2
  56.             IF row > 24 THEN row = 24
  57.             IF col < 2 THEN col = 2
  58.             IF col > 79 THEN col = 79
  59.             LOCATE row, col: PRINT o;
  60.             l(y, x).r = row: l(y, x).c = col
  61.         NEXT
  62.     NEXT
  63.     _LIMIT 100
  66.  
  67. SUB signalSOS
  68.     FOR i = 1 TO 9
  69.         IF i < 4 OR i > 6 THEN SOUND 900, 1 ELSE SOUND 900, 3
  70.         IF i = 3 OR i = 6 OR i = 9 THEN _DELAY .35
  71.         _LIMIT 6
  72.     NEXT
  74.  
  75.  
Title: Re: SOS
Post by: DDBE on June 09, 2020, 12:19:02 am
Would certainly make for a great syntax error message if that would be flashing next to it! XD
Title: Re: SOS
Post by: bplus on June 09, 2020, 12:49:18 am
Ha! I did think about flashing. When I checked Internet for audio sound, they had one with flashes that matched the dots and dashes,
Title: Re: SOS
Post by: DANILIN on June 09, 2020, 10:56:02 am
large letters remind of my theme: running string

https://www.qb64.org/forum/index.php?topic=1724.msg109578#msg109578

and multicolored lines and letters are also possible
Title: Re: SOS
Post by: bplus on June 09, 2020, 11:51:18 am
Quote from: DANILIN on June 09, 2020, 10:56:02 am
large letters remind of my theme: running string

https://www.qb64.org/forum/index.php?topic=1724.msg109578#msg109578

and multicolored lines and letters are also possible

For tiny letters, best I've seen is @Richard Frost work, in fact, it would be nice for tool box when you need specially tiny print for labels.
Title: Re: SOS
Post by: bplus on June 09, 2020, 11:56:27 am
I guess the challenge for this code is to have the little blocks continue to move around while the SOS signal is SOUNDing ON TIMER intervals.

Even Pete could try this since we are using SCREEN 0 to try a demo of SCREEN() function for getting ASCII characters. I haven't been able to get it to work in other screens.
Title: Re: SOS
Post by: TempodiBasic on June 09, 2020, 02:47:07 pm
LOL
this is wonderful
I can imagine how it starts as soon as I type a synthax error! :-)

Moreover it is a friend because in the last 6 months I feel myself like one of the running characters

:-(

LOL I continue to eat letters while I'm typing... fine glitch starts-->stars
Title: Re: SOS
Post by: bplus on June 09, 2020, 03:02:16 pm
Quote from: TempodiBasic on June 09, 2020, 02:47:07 pm
LOL
this is wonderful
I can imagine how it stars as soon as I type a synthax error! :-)

Moreover it is a friend because in the last 6 months I feel myself like one of the running characters

:-(

Aha! TempodiBasic, you get it!  ;-))
Text Only | Text with Attachments