(PROGN (PRIN1 "Use LOADDB to load database files!
" T) (ERROR!))
("11-Feb-86 23:03:28" . {QV}<IDL>SOURCES>DATAENTRY.;11)
FNS (CONVERT DUMPIDLARRAY DUMPIDLARRAY1 IDLARRAY IDLMATRIX LISTARRAY LISTMATRIX PRINTIDLARRAY PRINTROW
 READIDLARRAY READIDLARRAY1 READROW)
(READATABASE)
(
CALL CONVERT (UENTRY UERRORGUARD UERRORSET NAMEDLET UERRORNAME NUMBERP TYPENAMEP UERRORGUARDVAL 
CONV.SCALAR CONV.ARRAY UERROR UERROR!) DUMPIDLARRAY (UENTRY CONV.ARRAY LITATOM UERROR UERROR! 
DUMPIDLARRAY1) DUMPIDLARRAY1 (RESETSAVE OUTPUT OUTFILE GETVALDIM GETSYNTAX GETTITLE FUNCTION GETRELT 
GETDIMLAB GETCODES SUB1 GETLEVLAB MAPCAR LIST IPLUS PRIN1 FASSOC POSITION SETUP PRINT GETAELT NEXT) 
IDLARRAY (UENTRY UERROR UERROR! RESETLST RESETSAVE OPENFILE CONSTANT PACKFILENAME PRIN2 SETFILEPTR 
READIDLARRAY1) IDLMATRIX (UENTRY UERROR UERROR! U-CASE UERRORGUARD UERRORSET NAMEDLET UERRORNAME 
STRINGP MKSTRING LITATOM UERRORGUARDVAL CONV.SCALAR LENGTH ALLOC.SARRAY ROWINTOF SETUP OUTPUT PRIN1 
IPLUS NEXT FIXP LABEL CODE) LISTARRAY (UENTRY CONV.ARRAY RESETLST RESETSAVE OPENFILE CONSTANT 
PACKFILENAME DUMPIDLARRAY1 SETFILEPTR READ) LISTMATRIX (UENTRY UERRORGUARD UERRORSET NAMEDLET 
UERRORNAME CONV.ARRAY ARRAYTYPEP UERROR UERROR! GETVALDIM GETRELT CONS LIST MAKEUSERTITLE GETDIMLAB 
GETCODES GETLEVLAB MAPCAR IPLUS SETUP COPYAELT NEXT) PRINTIDLARRAY (PRIN1 DUMPIDLARRAY) PRINTROW (
PRIN1 SPACES GETRELT PLUS PRINTOUT) READIDLARRAY (UENTRY LITATOM UERROR UERROR! READIDLARRAY1) 
READIDLARRAY1 (RESETLST RESETSAVE INPUT INFILE GETSYNTAX FIXP RATOM UERROR UERROR! SKIPSEPRS READ 
LITATOM UERRORGUARD UERRORSET NAMEDLET UERRORNAME FIXR CONV.ARITH L-CASE CONS SELTYPEQ RPLACA LIST 
IPLUS DREVERSE U-CASE ROWINTOF1 ALLOC.SARRAY SETUP CONV.SCALAR NEXT FMEMB GETRELT ASSIGN.CODE CODE 
SETLEVLAB SHOULDNT FRPLACA MAKE1DIMSPEC) READROW (HREAD LISTGET PLUS) NIL
BIND CONVERT NIL DUMPIDLARRAY NIL DUMPIDLARRAY1 NIL IDLARRAY NIL IDLMATRIX NIL LISTARRAY NIL 
LISTMATRIX NIL PRINTIDLARRAY NIL PRINTROW NIL READIDLARRAY NIL READIDLARRAY1 NIL READROW NIL NIL
NLAMBDA CONVERT NIL DUMPIDLARRAY NIL DUMPIDLARRAY1 (CHARCODE) IDLARRAY NIL IDLMATRIX NIL LISTARRAY NIL
 LISTMATRIX NIL PRINTIDLARRAY NIL PRINTROW NIL READIDLARRAY NIL READIDLARRAY1 (CHARCODE) READROW NIL 
NIL
NOBIND CONVERT NIL DUMPIDLARRAY NIL DUMPIDLARRAY1 NIL IDLARRAY NIL IDLMATRIX NIL LISTARRAY NIL 
LISTMATRIX NIL PRINTIDLARRAY NIL PRINTROW NIL READIDLARRAY NIL READIDLARRAY1 NIL READROW NIL NIL
RECORD CONVERT (ARRAYFRAME) DUMPIDLARRAY (ARRAYFRAME) DUMPIDLARRAY1 (ARRAYFRAME ROWINT) IDLARRAY (
SIMARRAY) IDLMATRIX NIL LISTARRAY (ARRAYFRAME) LISTMATRIX NIL PRINTIDLARRAY (ARRAYFRAME) PRINTROW (ROW
 ROWHEADER) READIDLARRAY (SIMARRAY) READIDLARRAY1 (SIMARRAY ROWINT) READROW (ROW ROWHEADER) NIL
CREATE CONVERT NIL DUMPIDLARRAY NIL DUMPIDLARRAY1 NIL IDLARRAY NIL IDLMATRIX NIL LISTARRAY NIL 
LISTMATRIX NIL PRINTIDLARRAY NIL PRINTROW NIL READIDLARRAY NIL READIDLARRAY1 NIL READROW (ROW) NIL
FETCH CONVERT NIL DUMPIDLARRAY NIL DUMPIDLARRAY1 (NDIMS SHAPE CODE CODELAB KEEPS SLOT5 FORMAT DONE) 
IDLARRAY NIL IDLMATRIX (ELEMENTBLOCK) LISTARRAY NIL LISTMATRIX (SHAPE CODE CODELAB DONE) PRINTIDLARRAY
 NIL PRINTROW (RELTTYPE NELTS MAYHAVENIL) READIDLARRAY NIL READIDLARRAY1 (DONE ELEMENTBLOCK) READROW (
NELTS) NIL
REPLACE CONVERT NIL DUMPIDLARRAY NIL DUMPIDLARRAY1 NIL IDLARRAY NIL IDLMATRIX NIL LISTARRAY NIL 
LISTMATRIX NIL PRINTIDLARRAY NIL PRINTROW NIL READIDLARRAY NIL READIDLARRAY1 (SLOT5 KEEPS) READROW (
NELTS RELTTYPE MAYHAVENIL) NIL
REFFREE CONVERT (UERRORSET) DUMPIDLARRAY NIL DUMPIDLARRAY1 NIL IDLARRAY (FILERDTBL) IDLMATRIX (
UERRORSET) LISTARRAY (FILERDTBL) LISTMATRIX (UERRORSET) PRINTIDLARRAY NIL PRINTROW NIL READIDLARRAY 
NIL READIDLARRAY1 (UERRORSET) READROW NIL NIL
REF CONVERT (UARG) DUMPIDLARRAY (UARG FILE) DUMPIDLARRAY1 (A NARGS ACTION SH) IDLARRAY (DATA VALUE) 
IDLMATRIX (NROWS NCOLS) LISTARRAY (UARG VALUE) LISTMATRIX (UARG NVARS) PRINTIDLARRAY (ARRAY STREAM) 
PRINTROW (R STREAM) READIDLARRAY (FILE VALUE) READIDLARRAY1 (UARG) READROW (STREAM VALUE) NIL
SETFREE CONVERT NIL DUMPIDLARRAY NIL DUMPIDLARRAY1 (FONTCHANGEFLG) IDLARRAY NIL IDLMATRIX NIL 
LISTARRAY NIL LISTMATRIX NIL PRINTIDLARRAY NIL PRINTROW NIL READIDLARRAY NIL READIDLARRAY1 NIL READROW
 NIL NIL
SET CONVERT (DATA) DUMPIDLARRAY (A) DUMPIDLARRAY1 (TEMP I VDFLAG NLEVS CODES CFLAG OUTOFSTEP LAB L DIM
 P POS NONE) IDLARRAY (FILE) IDLMATRIX (X TEMP VALUE TITLE ROWLABEL COLLABEL DATA LABELFLAG LABELS 
MATRIX R VAL FIXFLG N C# R# ID VALDIM L) LISTARRAY (A FILE) LISTMATRIX (M CODES VD2 I VD1 R) 
PRINTIDLARRAY NIL PRINTROW (I) READIDLARRAY NIL READIDLARRAY1 (FILE TITLE DIMSPECS LAB TEMP X KEEPS 
VALDIM NLEVS VALUE LEV LEV# DIM FORMAT K PROPS P SH A VAL FIXFLG N D LSPEC L) READROW (ROW ELT I) NIL
SMASHFREE CONVERT NIL DUMPIDLARRAY NIL DUMPIDLARRAY1 NIL IDLARRAY NIL IDLMATRIX NIL LISTARRAY NIL 
LISTMATRIX NIL PRINTIDLARRAY NIL PRINTROW NIL READIDLARRAY NIL READIDLARRAY1 NIL READROW NIL NIL
SMASH CONVERT NIL DUMPIDLARRAY NIL DUMPIDLARRAY1 NIL IDLARRAY NIL IDLMATRIX NIL LISTARRAY NIL 
LISTMATRIX NIL PRINTIDLARRAY NIL PRINTROW NIL READIDLARRAY NIL READIDLARRAY1 (LEV KEEPS NLEVS A K) 
READROW NIL NIL
PROP CONVERT NIL DUMPIDLARRAY NIL DUMPIDLARRAY1 NIL IDLARRAY NIL IDLMATRIX NIL LISTARRAY NIL 
LISTMATRIX NIL PRINTIDLARRAY NIL PRINTROW NIL READIDLARRAY NIL READIDLARRAY1 NIL READROW (NELTS 
RELTTYPE MAYHAVENIL ELEMENTS) NIL
TEST CONVERT (DATA VALUE) DUMPIDLARRAY NIL DUMPIDLARRAY1 (FILE TEMP VALDIM OLD= I DIM VDFLAG L LAB 
OUTOFSTEP CFLAG CODES C K P POS NONE GSB) IDLARRAY NIL IDLMATRIX (X TITLE LABELS VALDIM TEMP UARG 
VALUE LABELFLAG R N FIXFLG GSBM R# VAL C# ID L) LISTARRAY NIL LISTMATRIX (VD I CODES VD2 C R VD1 GSB) 
PRINTIDLARRAY NIL PRINTROW (I) READIDLARRAY NIL READIDLARRAY1 (FILE TITLE DIMSPECS NLEVS KEEPS PROPS 
VALDIM OLD= FORMAT DIM LAB TEMP X LEV# LEV K P VAL FIXFLG GSB D L LSPEC) READROW (PROPLST I ELT) NIL
TESTFREE CONVERT NIL DUMPIDLARRAY NIL DUMPIDLARRAY1 NIL IDLARRAY NIL IDLMATRIX NIL LISTARRAY NIL 
LISTMATRIX NIL PRINTIDLARRAY NIL PRINTROW NIL READIDLARRAY NIL READIDLARRAY1 NIL READROW NIL NIL
PREDICATE CONVERT (UERRORPRINT?) DUMPIDLARRAY (UERRORPRINT? TYPENAMEP) DUMPIDLARRAY1 (TYPENAMEP 
LITATOM OPENP FIXP FNTYP IGEQ ROWTYPEP IGREATERP IEQP) IDLARRAY (UERRORPRINT? ARRAYTYPEP) IDLMATRIX (
UERRORPRINT? SELECTQ FMEMB ARRAYTYPEP ILESSP IGREATERP FLOATP) LISTARRAY (TYPENAMEP) LISTMATRIX (
UERRORGUARDVAL UERRORPRINT? FIXP IGREATERP) PRINTIDLARRAY (TYPENAMEP STREAMP LITATOM) PRINTROW (
TYPENAMEP LITATOM STREAMP GREATERP) READIDLARRAY (UERRORPRINT? ARRAYTYPEP) READIDLARRAY1 (ARRAYTYPEP 
OPENP STRINGP EVERY ROWTYPEP UERRORPRINT? UERRORGUARDVAL NUMBERP IGREATERP IGEQ FLOATP) READROW (
LITATOM STREAMP TYPENAMEP GREATERP) NIL
EFFECT CONVERT (DECLARE PRIN1 PRIN2 TERPRI) DUMPIDLARRAY (DECLARE PRIN1 PRIN2 TERPRI) DUMPIDLARRAY1 (
RESETLST DECLARE PRIN3 TRAVERSE.TITLE TERPRI SETSYNTAX TAB PRIN2 SPACES PRINTPARA MAPC PRINTDEF) 
IDLARRAY (DECLARE PRIN1 TERPRI) IDLMATRIX (DECLARE PRIN2 TERPRI RESETFORM FLOATROW SETAELT SETTITLE 
SETDIMLAB ASSIGN.LABEL SETVALDIM ASSIGN.CODE) LISTARRAY (DECLARE) LISTMATRIX (DECLARE PRIN1 PRIN2 
TERPRI FRPLACD FRPLACA) PRINTIDLARRAY (PRINTOUT) PRINTROW (HELP PRIN2) READIDLARRAY (DECLARE PRIN1 
PRIN2 TERPRI) READIDLARRAY1 (PRIN1 PRIN2 TERPRI SETSYNTAX DECLARE FRPLACD SELECTQ SETTITLE SETVALDIM 
FLOATROW SETAELT SETDIMLAB MAP) READROW (SETRELT) NIL
CLISP CONVERT (ULAMBDA DPROG type? printout the) DUMPIDLARRAY (ULAMBDA DPROG type? printout) 
DUMPIDLARRAY1 (DLAMBDA DPROG for from to do declare printout in collect when finally bind first until)
 IDLARRAY (ULAMBDA DPROG type? printout the) IDLMATRIX (ULAMBDA DPROG type? for on always finally 
printout coerce in as from do when to) LISTARRAY (ULAMBDA DPROG the) LISTMATRIX (ULAMBDA DPROG 
printout for from to collect finally in DLAMBDA bind until) PRINTIDLARRAY (DLAMBDA) PRINTROW (DLAMBDA 
type? for from to do) READIDLARRAY (ULAMBDA DPROG type? printout the) READIDLARRAY1 (DLAMBDA the DPROG
 printout for from while collect type? coerce thereis in suchthat until bind first declare do finally 
as to on) READROW (DLAMBDA the type? DPROG for from to as in do) NIL
SPECVARS CONVERT (DATA) DUMPIDLARRAY (A FILE) DUMPIDLARRAY1 (ACTION) IDLARRAY (DATA) IDLMATRIX (DATA) 
LISTARRAY (A) LISTMATRIX (M) PRINTIDLARRAY NIL PRINTROW NIL READIDLARRAY (FILE) READIDLARRAY1 NIL 
READROW NIL NIL
LOCALVARS CONVERT (T) DUMPIDLARRAY (T) DUMPIDLARRAY1 NIL IDLARRAY NIL IDLMATRIX (T) LISTARRAY (T) 
LISTMATRIX (T) PRINTIDLARRAY NIL PRINTROW NIL READIDLARRAY NIL READIDLARRAY1 (T) READROW NIL NIL
APPLY CONVERT NIL DUMPIDLARRAY NIL DUMPIDLARRAY1 (IGREATERP PRIN3 ARG IPLUS) IDLARRAY NIL IDLMATRIX 
NIL LISTARRAY NIL LISTMATRIX NIL PRINTIDLARRAY NIL PRINTROW NIL READIDLARRAY NIL READIDLARRAY1 NIL 
READROW NIL NIL
ERROR CONVERT (ppe) DUMPIDLARRAY NIL DUMPIDLARRAY1 NIL IDLARRAY NIL IDLMATRIX (ppe) LISTARRAY NIL 
LISTMATRIX (ppe) PRINTIDLARRAY NIL PRINTROW NIL READIDLARRAY NIL READIDLARRAY1 (ppe) READROW NIL NIL
LOCALFREEVARS CONVERT NIL DUMPIDLARRAY NIL DUMPIDLARRAY1 NIL IDLARRAY NIL IDLMATRIX NIL LISTARRAY NIL 
LISTMATRIX NIL PRINTIDLARRAY NIL PRINTROW NIL READIDLARRAY NIL READIDLARRAY1 NIL READROW NIL NIL
ARGS CONVERT NIL DUMPIDLARRAY NIL DUMPIDLARRAY1 NIL IDLARRAY NIL IDLMATRIX NIL LISTARRAY NIL 
LISTMATRIX NIL PRINTIDLARRAY NIL PRINTROW NIL READIDLARRAY NIL READIDLARRAY1 NIL READROW NIL NIL
USERTEMPLATES FCACHE.GETPROP (CALL EVAL PROP . PPE) FCACHE.PUTPROP (CALL EVAL PROP EVAL . PPE) UENTRY 
(CALL NIL .. EVAL RETURN) perform (MACRO ARGS (PERFORMTRAN ARGS T)) PERFORM (MACRO ARGS (PERFORMTRAN 
ARGS T)) UERRORGUARD MACRO SHAZAM (CALL .. NIL) UERROR MACRO UERRORSET MACRO SETQ.NOREF (CALL SET EVAL
 . PPE) SPREADAPPLY (CALL FUNCTIONAL EVAL . PPE) SPREADAPPLY* (CALL FUNCTIONAL .. EVAL) OP# (CALL) NIL
0 CONVERT (SCALAR ARRAY) DUMPIDLARRAY (LITATOM ARRAY) DUMPIDLARRAY1 (ARRAY LITATOM NIL INTEGER 
FUNCTION IJK ROWINT) IDLARRAY (LISTP SIMARRAY) IDLMATRIX (LISTP USERTITLE LABEL NIL BOOL INTEGER 
MATRIX FLOATING) LISTARRAY (ARRAY LISTP) LISTMATRIX (MATRIX NIL INTEGER) PRINTIDLARRAY (ARRAY STREAM 
LITATOM) PRINTROW (ROW ROWHEADER LITATOM STREAM NIL) READIDLARRAY (LITATOM SIMARRAY) READIDLARRAY1 (
LITATOM SIMARRAY NIL STRINGP LST INTEGER ROWINT LABEL LISTP ARITH IJK FLOATING) READROW (LITATOM 
STREAM ROW ROWHEADER LST NIL) NIL

)