(PROGN (PRIN1 "Use LOADDB to load database files! " T) (ERROR!)) ("15-JUN-84 16:56:51" . {ERIS}AUDIO.FPKG;1) FNS (AUDIO.RESET AUDIO.INIT AUDIO.PLAY.FILE AUDIO.PLAY.ARRAY AUDIO.REPEAT.ARRAY AUDIO.RECORD DEFAULTRECORDONFN \AUDIO) (READATABASE) ( CALL AUDIO.RESET (SUB1 ITIMES \ADDBASE) AUDIO.INIT (\VAG2 SUB1 PAGEOFFSET \ADDBASE LLSH IPLUS) AUDIO.PLAY.FILE (OPENSTREAM IQUOTIENT IPLUS GETEOFPTR SUB1 PAGEOFFSET \ADDBASE LLSH ADD1 \AUDIO ZEROPAGEOFFSET) AUDIO.PLAY.ARRAY (FETCHFIELD IQUOTIENT IPLUS ARRAYSIZE PAGEOFFSET \ADDBASE LLSH SUB1 ADD1 \AUDIO ZEROPAGEOFFSET) AUDIO.REPEAT.ARRAY (FETCHFIELD IQUOTIENT IPLUS ARRAYSIZE PAGEOFFSET \ADDBASE LLSH SUB1 ADD1 \AUDIO) AUDIO.RECORD (OPENSTREAM ITIMES \AUDIO LLSH PAGEOFFSET \ADDBASE IPLUS SUB1 ADD1) DEFAULTRECORDONFN (CLOCK FQUOTIENT CLOCKDIFFERENCE) \AUDIO (.AUDIO. \ADDBASE) NIL BIND AUDIO.RESET NIL AUDIO.INIT NIL AUDIO.PLAY.FILE NIL AUDIO.PLAY.ARRAY NIL AUDIO.REPEAT.ARRAY NIL AUDIO.RECORD NIL DEFAULTRECORDONFN NIL \AUDIO NIL NIL NLAMBDA AUDIO.RESET NIL AUDIO.INIT NIL AUDIO.PLAY.FILE NIL AUDIO.PLAY.ARRAY NIL AUDIO.REPEAT.ARRAY NIL AUDIO.RECORD NIL DEFAULTRECORDONFN NIL \AUDIO NIL NIL NOBIND AUDIO.RESET NIL AUDIO.INIT NIL AUDIO.PLAY.FILE NIL AUDIO.PLAY.ARRAY NIL AUDIO.REPEAT.ARRAY NIL AUDIO.RECORD NIL DEFAULTRECORDONFN NIL \AUDIO NIL NIL RECORD AUDIO.RESET (AUDIOBLK) AUDIO.INIT NIL AUDIO.PLAY.FILE (AUDIOBLK) AUDIO.PLAY.ARRAY (AUDIOBLK) AUDIO.REPEAT.ARRAY (AUDIOBLK) AUDIO.RECORD (AUDIOBLK) DEFAULTRECORDONFN NIL \AUDIO NIL NIL CREATE AUDIO.RESET NIL AUDIO.INIT NIL AUDIO.PLAY.FILE NIL AUDIO.PLAY.ARRAY NIL AUDIO.REPEAT.ARRAY NIL AUDIO.RECORD NIL DEFAULTRECORDONFN NIL \AUDIO NIL NIL FETCH AUDIO.RESET NIL AUDIO.INIT NIL AUDIO.PLAY.FILE (MCPAGE) AUDIO.PLAY.ARRAY (MCPAGE) AUDIO.REPEAT.ARRAY (MCPAGE) AUDIO.RECORD (MCPAGE) DEFAULTRECORDONFN NIL \AUDIO NIL NIL REPLACE AUDIO.RESET (OUT0 OUTN MCPAGE MCWORD INDELTA) AUDIO.INIT NIL AUDIO.PLAY.FILE NIL AUDIO.PLAY.ARRAY NIL AUDIO.REPEAT.ARRAY NIL AUDIO.RECORD NIL DEFAULTRECORDONFN NIL \AUDIO NIL NIL REFFREE AUDIO.RESET (AUDIO.BUFFER.SIZE) AUDIO.INIT (AUDIO.BUFFER.SIZE) AUDIO.PLAY.FILE ( AUDIO.BUFFER.SIZE AUDIO.BUFFER) AUDIO.PLAY.ARRAY (AUDIO.BUFFER.SIZE AUDIO.BUFFER) AUDIO.REPEAT.ARRAY ( AUDIO.BUFFER.SIZE AUDIO.BUFFER) AUDIO.RECORD (AUDIO.BUFFER AUDIO.BUFFER.SIZE) DEFAULTRECORDONFN ( PROMPTWINDOW) \AUDIO (AUDIO.BUFFER) NIL REF AUDIO.RESET NIL AUDIO.INIT NIL AUDIO.PLAY.FILE (FILE) AUDIO.PLAY.ARRAY (ARRAY) AUDIO.REPEAT.ARRAY (ARRAY) AUDIO.RECORD (FILE) DEFAULTRECORDONFN NIL \AUDIO (BUF) NIL SETFREE AUDIO.RESET NIL AUDIO.INIT (AUDIO.BUFFER) AUDIO.PLAY.FILE NIL AUDIO.PLAY.ARRAY NIL AUDIO.REPEAT.ARRAY NIL AUDIO.RECORD NIL DEFAULTRECORDONFN (DEFAULTRECORDONFNCLK) \AUDIO NIL NIL SET AUDIO.RESET (N) AUDIO.INIT (I) AUDIO.PLAY.FILE (STREAM PAGECOUNT FILEPN MYPTR I F PP) AUDIO.PLAY.ARRAY (BASE PAGECOUNT FILEPN MYPTR I F PP) AUDIO.REPEAT.ARRAY (BASE PAGECOUNT FILEPN MYPTR I F) AUDIO.RECORD (NSEC RECORDONFN STREAM COP PP F) DEFAULTRECORDONFN NIL \AUDIO NIL NIL SMASHFREE AUDIO.RESET (AUDIO.BUFFER) AUDIO.INIT NIL AUDIO.PLAY.FILE NIL AUDIO.PLAY.ARRAY NIL AUDIO.REPEAT.ARRAY NIL AUDIO.RECORD NIL DEFAULTRECORDONFN NIL \AUDIO NIL NIL SMASH AUDIO.RESET NIL AUDIO.INIT NIL AUDIO.PLAY.FILE NIL AUDIO.PLAY.ARRAY NIL AUDIO.REPEAT.ARRAY NIL AUDIO.RECORD NIL DEFAULTRECORDONFN NIL \AUDIO NIL NIL PROP AUDIO.RESET NIL AUDIO.INIT NIL AUDIO.PLAY.FILE NIL AUDIO.PLAY.ARRAY NIL AUDIO.REPEAT.ARRAY NIL AUDIO.RECORD NIL DEFAULTRECORDONFN NIL \AUDIO NIL NIL TEST AUDIO.RESET NIL AUDIO.INIT NIL AUDIO.PLAY.FILE NIL AUDIO.PLAY.ARRAY NIL AUDIO.REPEAT.ARRAY NIL AUDIO.RECORD (NSEC RECORDONFN) DEFAULTRECORDONFN (STARTP) \AUDIO NIL NIL TESTFREE AUDIO.RESET NIL AUDIO.INIT NIL AUDIO.PLAY.FILE NIL AUDIO.PLAY.ARRAY NIL AUDIO.REPEAT.ARRAY NIL AUDIO.RECORD NIL DEFAULTRECORDONFN NIL \AUDIO NIL NIL PREDICATE AUDIO.RESET NIL AUDIO.INIT (IGREATERP) AUDIO.PLAY.FILE (IGREATERP) AUDIO.PLAY.ARRAY ( IGREATERP) AUDIO.REPEAT.ARRAY (IGREATERP) AUDIO.RECORD (APPLY*) DEFAULTRECORDONFN (KEYDOWNP) \AUDIO NIL NIL EFFECT AUDIO.RESET (\ZEROWORDS) AUDIO.INIT (\NEWPAGE \LOCKPAGES AUDIO.RESET) AUDIO.PLAY.FILE ( AUDIO.RESET \READPAGES RESETFORM \ZEROWORDS CLOSEF) AUDIO.PLAY.ARRAY (AUDIO.RESET \MOVEWORDS RESETFORM \ZEROWORDS) AUDIO.REPEAT.ARRAY (AUDIO.RESET \MOVEWORDS RESETFORM) AUDIO.RECORD (AUDIO.RESET \TRUNCATEFILE RESETFORM \WRITEPAGES ZEROPAGEOFFSET \ZEROWORDS \SETEOFPTR CLOSEF) DEFAULTRECORDONFN ( DECLARE PROMPTPRINT PRIN1) \AUDIO (SHOULDNT) NIL CLISP AUDIO.RESET NIL AUDIO.INIT (for from to do) AUDIO.PLAY.FILE (for to do from while until) AUDIO.PLAY.ARRAY (ARRAYP.BASE for to do from while until) AUDIO.REPEAT.ARRAY (ARRAYP.BASE for to do from while) AUDIO.RECORD (for from while do finally) DEFAULTRECORDONFN (until printout) \AUDIO NIL NIL SPECVARS AUDIO.RESET NIL AUDIO.INIT NIL AUDIO.PLAY.FILE NIL AUDIO.PLAY.ARRAY NIL AUDIO.REPEAT.ARRAY NIL AUDIO.RECORD NIL DEFAULTRECORDONFN NIL \AUDIO NIL NIL LOCALVARS AUDIO.RESET NIL AUDIO.INIT NIL AUDIO.PLAY.FILE NIL AUDIO.PLAY.ARRAY NIL AUDIO.REPEAT.ARRAY NIL AUDIO.RECORD NIL DEFAULTRECORDONFN NIL \AUDIO NIL NIL APPLY AUDIO.RESET NIL AUDIO.INIT NIL AUDIO.PLAY.FILE NIL AUDIO.PLAY.ARRAY NIL AUDIO.REPEAT.ARRAY NIL AUDIO.RECORD NIL DEFAULTRECORDONFN NIL \AUDIO NIL NIL ERROR AUDIO.RESET NIL AUDIO.INIT NIL AUDIO.PLAY.FILE NIL AUDIO.PLAY.ARRAY NIL AUDIO.REPEAT.ARRAY NIL AUDIO.RECORD (apply) DEFAULTRECORDONFN NIL \AUDIO NIL NIL LOCALFREEVARS AUDIO.RESET NIL AUDIO.INIT NIL AUDIO.PLAY.FILE NIL AUDIO.PLAY.ARRAY NIL AUDIO.REPEAT.ARRAY NIL AUDIO.RECORD NIL DEFAULTRECORDONFN NIL \AUDIO NIL NIL ARGS AUDIO.RESET NIL AUDIO.INIT NIL AUDIO.PLAY.FILE NIL AUDIO.PLAY.ARRAY NIL AUDIO.REPEAT.ARRAY NIL AUDIO.RECORD NIL DEFAULTRECORDONFN NIL \AUDIO NIL NIL USERTEMPLATES OP# (CALL) NIL 0 AUDIO.RESET NIL AUDIO.INIT NIL AUDIO.PLAY.FILE NIL AUDIO.PLAY.ARRAY NIL AUDIO.REPEAT.ARRAY NIL AUDIO.RECORD NIL DEFAULTRECORDONFN NIL \AUDIO NIL NIL )