'$DYNAMIC
DEFINT A-Z
DECLARE SUB setitup (fil$, buff(), tbuff(), BYVAL p)
DECLARE SUB resetdsp
DECLARE SUB savesnd (fil$, BYVAL i)
DECLARE SUB playsnd (BYVAL n, BYVAL f)
DECLARE SUB closefile

DIM noise(16384), buffer(16384)
setitup "casino.cbv" + CHR$(0), noise(), buffer(), 2
resetdsp
rate = 211

READ max

FOR i = 1 TO max
READ v$
v$ = "voices\" + v$ + ".voc"
savesnd v$, i
PRINT i; " "; v$
NEXT

setitup "casino.cbv" + CHR$(0), noise(), buffer(), 2

DO
w$ = "": w$ = INKEY$
IF w$ = "1" THEN playsnd 1, rate
IF w$ = "2" THEN playsnd 2, rate
IF w$ = "3" THEN playsnd 3, rate
LOOP UNTIL w$ = CHR$(27)

PRINT "-Press any Key-"
w$ = INPUT$(1)

closefile
SYSTEM

DATA 3
DATA fisheat,fishland,whoosh