home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
17 Bit Software 1: Collection A
/
17Bit_Collection_A.iso
/
files
/
36.dms
/
36.adf
/
speech.bas
< prev
next >
Wrap
BASIC Source File
|
1988-05-22
|
460b
|
19 lines
10 a%(0)=110 : a%(1)=0 : a%(2)=150
11 a%(3)=0 : a%(4)=22200 : a%(5)=64
12 a%(6)=10 : a%(7)=0 : a%(8)=0
20 input "Male or female (m/f)";a$
30 if a$="m" then 80
40 if a$<>"f" then 20
50 a%(0%)=200
60 a%(3%)=1%
70 a%(4%)=25000
80 a$ = translate$("hello")
90 ? narrate(a$,a%())
100 for i= 1 to 100
110 next i
120 input "Enter speech";a$
130 if a$="" then 10
140 b$=translate$(a$)
150 i%=narrate(b$,a%())
160 goto 120