Visual Music

Ol' Geo

Wd1       DATA "For ", 0
Wd2       DATA "He's ", 0
Wd3       DATA "a ", 0
Wd4       DATA "Jolly ", 0
Wd5       DATA "Good ", 0
Wd6       DATA "Fellow ", 0
Spc       DATA " ", 0
Done      DATA "!", CR, 0

Words     DATA  Word Wd1, Word Spc, Word Spc, Word Spc,   ' "For"
                Word Wd2, Word Wd3,                       ' "He's a"
                Word Wd4, Word Spc, Word Spc,             ' "Jolly"
                Word Wd5, Word Spc, Word Spc,             ' "Good"
                Word Wd6, Word Spc, Word Spc, Word Spc,   ' "Fellow"
                Word Done                                 ' "!"

message   VAR Word

DO UNTIL noteLetter = "Q"
  READ Words + (2 * index), Word message
  GOSUB ShowMessage
  ...
  
  index = index + 1
LOOP

END

idx     VAR Byte
letter  VAR Byte

ShowMessage:
  idx = 0
  DO
    READ message + idx, letter
    IF letter <> 0 THEN DEBUG letter
    idx = idx + 1
  LOOP UNTIL (letter = 0)
  RETURN

▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
Ol' Geo
Retired Software Engineer

An oscilloscope is a window of unseen electronic world. - GM