video G

set esc,off

Start:
pload titega,1
palette,1
pfade 0,1,1

exec a:saycmp.exe file13
cload mcega,1,1
cfade 20,80,168,1,1
cfree,1
exec a:saycmp.exe file14
cload pcega,1,1
cfade 20,80,96,1,1
cfree,1
exec a:saycmp.exe file15
cload 1000ega,1,1
cfade 20,80,24,1,1
cfree,1
exec a:saycmp.exe file17
;------------------

Menu:
pfade 3,1
pfree,1

exec a:saycmp.exe file02
cload robega,1,1
cfade 20,80,24,1,1
cfree,1
exec a:saycmp.exe file03
exec a:saycmp.exe file04
cload encega,1,1
cfade 20,80,96,1,1
cfree,1
exec a:saycmp.exe file05
exec a:saycmp.exe file06
cload digega,1,1
cfade 20,80,168,1,1
cfree,1
exec a:saycmp.exe file08
exec a:saycmp.exe file09
cload spchega,1,1
cfade 3,120,0,1,10

WaitForIt: 
waitkey
ifkey f1,Digitized
ifkey f2,Words
ifkey f3,Textalker
ifkey return,start
goto WaitForIt

;------------------

Digitized:
pload digega,1
pfade 3,1
pfree,1
exec a:saycmp.exe file12
exec a:saybogie.exe
exec a:saycmp.exe reset
pload spchega,1
pfade 4,1
pfree,1
goto WaitForIt

;-----------------

Words:
pload encega,1
pfade 3,1
pfree,1
exec a:words.exe
send lpt2,"i can also speak in this female voice with a vocabulary of over"
send lpt2,"seven hundred word(s) that can be put in your program(s)"
exec a:wordsoff.exe
pload spchega,1
pfade 4,1
pfree,1
goto WaitForIt

;-----------------


Textalker:
pload robega,1
pfade 3,1
pfree,1
exec a:talk.exe
send lpt3,"The text to speech program will speak any text"
send lpt3,"that you send to the Echo in a mechanical voice."
exec a:talkoff.exe
pload spchega,1
pfade 4,1
pfree,1
goto WaitForIt

;----------------
Finished:
exit
