START main()
  REPEAT
    FOR each string from 0 to NUMBER_OF_STRINGS-1
      CALL Clear Display
      CALL Put Phrase(current string)
      CALL Word Delay      
      ENDFOR    
    FOREVER

START Put Phrase
  Start at first character in phrase
  WHILE Not yet at terminating zero
    CALL Put Character(current character)
    Advance to next character
    ENDWHILE
  END

START Put Character
  Copy character to P0
  CALL Write Enable  
  END