Trailing-Edge
-
PDP-10 Archives
-
decuslib20-01
-
decus/20-0004/databasefns.dcom
There are no other files named databasefns.dcom in the archive.
(FILECREATED-"26-JAN-82"17:02:44"A("compiled>onT"B{PHYLUM}<LISPUSERS>DATABASEFNS.;1)ENOBINDEbcompl'd2)Q RESETY) �W WV
BI�V�oi
�Hi
�i �h�_�I�V�$Hgdg�i�g�h�`dg�c�Hgg���%Ii
�gI ##Wc�h`
Zdg���h`
�h`
Zdg�y�`�ch`
�I�`g�Hgg�h��H`
��`goH#g��mHgg�h��h`h`
���h`
��h`
Zg�Jg�DJg��`�HK
�H`L��Hg�d]d ��Mg�M ���i �Ii
�oi
�i �h�Ici(603Q0TERPRII576QBPRIN16565QHPRIN1L557QETERPRIS544Q4MSMARKCHANGEDu530QAEXPRPE511QQUPDATEFILES4505QFSTORETABLE0474QIUPDATECONTAINSS462QAREADATABASE 432Q READB421Q3READY407QQSTORETABLEI404QTREADQ365QI/PUTB343Q0ASKUSER7321QATESTTABLE0304Q /PUT 261QRREAD 234Q READS224QEREAD 202Q READ 162Q INPUTD152Q2LISPXPRINTT137Q0/PUTN46Q7TERPRIE41QBPRIN1Q33QPPRIN1412QE\LOADDB/DBFILEE41NAMEFIELD)5Q LOADDBFLG 105Q NO 74Q YES 67Q DATABASE)
�h�gZ
J�I(35QIERROR!L30QRESETRESTOREg16Q LOADDBA0011)
`�ghghg@
�@ g�A�@ �@ bd� @H�@H
(132QD\LOADDB/DBFILE1N115QVFILEDATE106QIFINDFILEX101QIINFILEPC64QINAMEFIELDQ57QTFILENAMEFIELD 45Q PACKFILENAME 17Q FILENAMEFIELD 5 INPUT)
Y#Rc�I �AI`
�IAI �HX��(117QTCLOSEFO106Q3STREQUALV102QOREADD70QBSKREADE54QNOPENFILE 26Q FILDIR 23Q PACKFILENAME)
@(22QOLOADDBS50OLDLOAD)@ABbdi
@(14QDLOADDB 5 OLDLOADFROM) OPTIONS 0 FILE)) @ABC
bdi
@(15Q1DUMPDBP62OLDMAKEFILE)1ERRORSET.V�0`ERRORSET.U)F0`RESETVARSLSTF 1FL F2VDBFILE F3hFFNS F 4 FILE F 5 RESETY F 6 FNS) �oggghgT
i ��(175QIDUMPDATABASEF166QATERPRI2161QFPRIN1B146Q2PRINTP141Q3PRIN1s131QOUPDATECONTAINSI116QVSTORETABLEE113QBPRINT)75QEPRIN1)56QOUTPUT�36Q OPENFILE25QHPACKFILENAME)
�7hb�I[A�$Hgg�`g�H`
����`�Eh�K�9A�Hg
�i �@i
�oi
�i hd\ �L �dM$���Mh%�W!Wog
�h�g_
�O��A�Ji
�HggJ(322QS/PUT2307QRPRINT1276QTERROR!1267QDRESETRESTORE 254QSDUMPDBA00121215QSLOCALFNPE210QQUPDATEFN 200QDTERPRI1173QSPRIN1D162QAPRIN1Q154QITERPRIE146Q /REMPROP 115Q TESTTABLE 46Q TESTTABLE 27Q FILEFNSLST 23Q NAMEFIELD)
�"@g`gog�g�g(123Qo/PUTD104QAASKUSERM61QLTESTTABLEQ20QVINFILECOMS?D15QBFILECOMSF3SNAMEFIELD)