'$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 "cowbob.snd" + CHR$(0), voc(), 2
resetdsp
i = 1
DO
READ a$
IF a$ = "-STOP-" THEN GOTO done
savesnd a$ + ".voc" + CHR$(0), i
playsnd i, 160
PRINT i; a$
a$ = INPUT$(1)
i = i + 1
LOOP

done:
CLOSE #1
closefile
SYSTEM

DATA poom,gunsound,gunshot,punch,hitwood,skull,pop,pluf,clang,glass1,glass2,glass3
DATA body,doors,theygot
DATA Pahhuh,gasp,oohuh,urr
DATA hoouh,eeeh,oooh
DATA ooahh!,scream1,uaaaa,highaaa
DATA ouch,ow!,aaaaa,bobow,quitit,firebomb,-STOP-