297
	includelib sound
	includelib file

	include sound.inc
	include file.inc
	include dos.inc


	.dosseg
	.model small
	.386

	.stack

	.data

sampseg dw ?

	.code
	.startup
	push es
	@modblock 65536/16

	call init_ctvoice

	pop es
	mov di,82h

lpi:	cmp byte ptr es:[di],20h
	jae agn
	mov byte ptr es:[di],0
	jmp over_agn
agn:	inc di
	jmp lpi

over_agn:
	mov dx,82h
	call heap_load
	mov sampseg,ax


	mov es,sampseg
	mov di,1ah
	call play_sample

wt:     mov ah,1
	int 16h
	jnz quit
        cmp ctvoice_status,0
	jnz wt

quit:
	call stop_sample

	mov es,sampseg
	@freeblock
	call exit_ctvoice
	.exit
	end
.

0