http://olofsonarcade.com/2012/03/24/pc-speaker-speech-resynthesized/
Code: Select all
#include "dos\dos.bi"
sub th
for i as integer=1 to 5
sound(300)
delay(1)
sound(2000+(rnd*1000))
delay(1)
sound(2000+(rnd*1000))
delay(1)
nosound
delay(13)
next
end sub
sub d
delay(20)
sound(1000)
delay(1)
sound(600)
delay(2)
sound(400)
delay(3)
sound(300)
delay(4)
sound(200)
delay(5)
sound(100)
delay(6)
nosound
end sub
sub dg
sound(200)
delay(5)
sound(100)
delay(6)
nosound
for i as integer=1 to 4
sound(300)
delay(1)
sound(3000+(rnd*1000))
delay(1)
sound(3000+(rnd*1000))
delay(1)
nosound
delay(13)
next
nosound
end sub
sub v
for i as integer=1 to 5
sound(300)
delay(1)
for j as integer=1 to 8
sound(4000+(rnd*3000))
delay(1)
next
nosound
delay(7)
next
nosound
end sub
sub s
for i as integer=1 to 70
sound(5000+(rnd*4000))
delay(1)
next
nosound
end sub
sub sh
for i as integer=1 to 150
sound(2000+(rnd*1000))
delay(1)
next
nosound
end sub
sub t
delay(40)
for i as integer=1 to 10
sound(3000+(rnd*4000))
delay(1)
next
nosound
end sub
sub ht
delay(20)
for i as integer=1 to 10
sound(2000+(rnd*1000))
delay(1)
next
nosound
end sub
sub k
delay(30)
for i as integer=1 to 16
sound(1000+(rnd*1000))
delay(1)
next
nosound
end sub
sub o
for i as integer=1 to 8
sound(740)
delay(1)
nosound
delay(15)
next
nosound
end sub
sub r
for i as integer=1 to 8
sound(900)
delay(1)
nosound
delay(15)
next
nosound
end sub
sub eh
for i as integer=1 to 6
sound(1500)
delay(1)
nosound
delay(15)
next
nosound
end sub
sub er
for i as integer=1 to 14
sound(700)
delay(1)
nosound
delay(15)
next
nosound
end sub
sub ee
for i as integer=1 to 8
sound(2000)
delay(1)
nosound
delay(15)
next
nosound
end sub
sub a
for i as integer=1 to 8
sound(1100)
delay(1)
nosound
delay(15)
next
nosound
end sub
sub ah
for i as integer=1 to 8
sound(900)
delay(1)
nosound
delay(15)
next
nosound
end sub
sub eeee
for i as integer=1 to 12
sound(2200)
delay(1)
nosound
delay(15)
next
nosound
end sub
sub ai
ah
for i as integer=1 to 8
sound(800+i*100)
delay(1)
nosound
delay(15)
next
eeee
end sub
sub m
for i as integer=1 to 10
sound(40000)
delay(1)
nosound
delay(15)
next
nosound
end sub
sub n
for i as integer=1 to 10
sound(65)
delay(1)
nosound
delay(15)
next
nosound
end sub
sub p
delay(40)
sound(200)
delay(3)
sound(100)
delay(4)
sound(65)
delay(6)
nosound
end sub
ee:m:er:dg:eh:n:s:ee:
delay(200):
ee:m:er:dg:eh:n:s:ee:
delay(200):
ee:m:er:dg:eh:n:s:ee:
delay(300):
ai:delay(60):a:m:delay(50):p:eeee:delay(10):s:eeee:
delay(300):
ai:delay(60):s:eeee:k:delay(60):r:ee:v:eh:n:dg:
delay(300):
th:ee:s:delay(50):ee:s:delay(30):er:delay(30):
r:eeee:a:r:delay(60):ee:m:er:dg:eh:n:s:ee: