'$DYNAMIC
DEFINT A-Z
DECLARE SUB setitup (fil$, buff(), BYVAL p)
DECLARE SUB resetdsp
DECLARE SUB playsnd (BYVAL n, BYVAL f)
DECLARE SUB savesnd (voc$, BYVAL w)
DECLARE SUB closefile
DIM voc(32766)
setitup "bobvoice.dat" + CHR$(0), voc(), 2
resetdsp
'SHELL "dir /b *.voc >voclist.txt"
'OPEN "voclist.txt" FOR APPEND AS #1
'WRITE #1, "-STOP-"
'CLOSE #1
'OPEN "voclist.txt" FOR INPUT AS #1
i = 1
DO
'INPUT #1, a$
'IF a$ = "-STOP-" THEN GOTO done
READ a$
savesnd a$ + ".voc" + CHR$(0), i
playsnd i, 160
PRINT i; a$
a$ = INPUT$(1)
i = i + 1
LOOP UNTIL i = 9

done:
'CLOSE #1
closefile
SYSTEM

DATA bird,penguin,lizard,pig,fish,fish,bounce,crack,stop