|
|
|
|
in%=OPENIN(in$) REPEAT text$=GET$#in% OSCLI(path_to_say$+"SAY "+text$) UNTIL EOF#in%
REM > SayFile REM Use Martin Krolik's SAY command to read text from a file : say$=@dir$+"saydynamic.exe" in%=OPENIN("") REPEAT line$=GET$#in% IF line$<>"" THEN REPEAT A%=INSTR(line$," ",72):IF A%=0:A%=LEN line$+1 text$=LEFT$(line$,A%-1):line$=MID$(line$,A%+1) PRINT text$:OSCLI say$+" "+text$ UNTIL line$="" ENDIF UNTIL EOF#in% CLOSE#in%
|
|
|