PROC Main:
GLOBAL File$(128),Length,Length%
SETPATH "\WVE\"
dINIT
dTEXT "","WVE Recorder",770
dEDIT File$,"File Name",10
dFLOAT Length,"Seconds",0.10,1000.0
IF DIALOG=0
STOP
ENDIF
Length%=Length
Record:(File$,Length%)
ENDP

PROC Record:(File$,Length%)
LOCAL C%,D%,E%(4),A%,B%
A%=Length%*4
B%=0
BUSY "Press A Key"
GET
BUSY OFF
Recorda:(ADDR(C%),File$,A%)
IOC(-2,(1),D%,E%())
WHILE 1
IOWAIT
IF C%<>-46
IOCANCEL(-2)
IOWAITSTAT D%
IF C%<0
GIPRINT "Error recording:"+ERR$(C%),1
ENDIF
BREAK
ELSEIF D%<>-46
Recordc:
IOWAITSTAT C%
GIPRINT "Cancelled",1
BREAK
ELSE
B%=B%+1
ENDIF
ENDWH
GIPRINT "Recording complete",1
BEEP -2,300
PAUSE 10
WHILE B%
IOSIGNAL
B%=B%-1
ENDWH
ENDP

PROC Recorda:(pr3z%,pr4z$,pr5z%)
LOCAL lc15z$(128)
lc15z$=pr4z$+CHR$(0)
CALL(8582,UADD(ADDR(lc15z$),1),pr5z%,0,0,pr3z%)
ENDP

PROC Recordc:
CALL(9094)
ENDP