|

|
|

|
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%
|
|
|