TITLE Orf

SCRIPT

REM Speak like orfey does
REM Chocky's first LIRC script

IDLE

DEF ALIAS(orf, text$)
 LOCAL out$, char$, let%
 let% = RND(-TIME)

 FOR let% = 1 TO LENtext$
   char$ = MID$(text$, let%, 1)
   IF (char$>="a" AND char$<="z") OR (char$>="A" AND char$<="Z") THEN
     char$ = CHR$(ASCchar$ AND &df)
     IF INSTR("AEIOU", char$) > 0 OR RND(2)=1 THEN
       char$ = CHR$(ASCchar$ +32)
     ENDIF
     IF char$="o" char$="0"
   ENDIF
   out$ += char$
 NEXT
 DO out$
ENDALIAS
