SOS

[bplus]

;-))

Code: QB64: [Select]

1. _TITLE "SOS"
2. DEFINT A-Z
3. CONST o = "²"
4. TYPE rc
5.     r AS INTEGER
6.     c AS INTEGER
7. END TYPE
8. DIM p(4) AS STRING
9. p(0) = "±±±±± ²²²²²² °°°°°°"
10. p(1) = "±     ²    ² °     "
11. p(2) = "±±±±± ²    ² °°°°°°"
12. p(3) = "    ± ²           °"
13. p(4) = "±±±±± ²²²²²² °°°°°°"
14.  
15. _DELAY .25
16. _SCREENMOVE _MIDDLE
17. t = _FREETIMER
18. ON TIMER(t, 5) signalSOS
19. TIMER(t) ON
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
26. 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
36. NEXT
37. signalSOS
38. _DELAY 3
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
64. WEND
65. TIMER OFF
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
73. END SUB
74.  
75.  

[DDBE]

Would certainly make for a great syntax error message if that would be flashing next to it! XD

[bplus]

Ha! I did think about flashing. When I checked Internet for audio sound, they had one with flashes that matched the dots and dashes,

[DANILIN]

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

[bplus]

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.

[bplus]

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.

[TempodiBasic]

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

[bplus]

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!  ;-))