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 Vo i
Hi
i h_IV$Hg dg i g h` dg cHg g %Ii
g I ##Wch`
Zdg h`
h`
Zdg y` ch`
I`g Hg g hH`
` g o H# g mHg g hh` h`
h`
h`
Zg Jg DJg ` HK
H` L Hg d]d Mg M i Ii
o i
i hIci (603Q0TERPRII576QBPRIN16565QHPRIN1L557QETERPRIS544Q4MSMARKCHANGEDu530QAEXPRPE511QQUPDATEFILES4505QFSTORETABLE0474QIUPDATECONTAINSS462QAREADATABASE 432Q READB421Q3READY407QQSTORETABLEI404QTREADQ365QI/PUTB343Q0ASKUSER7321QATESTTABLE0304Q /PUT 261QRREAD 234Q READS224QEREAD 202Q READ 162Q INPUTD152Q2LISPXPRINTT137Q0/PUTN46Q7TERPRIE41QBPRIN1Q33QPPRIN1412QE\LOADDB/DBFILEE41NAMEFIELD)5Q LOADDBFLG 105Q NO 74Q YES 67Q DATABASE)
hg Z
J I (35QIERROR!L30Q RESETRESTOREg16Q LOADDBA0011)
` g hg hg @
@ g A@ @ b d @ H@H
(132QD\LOADDB/DBFILE1N115QVFILEDATE 106QIFINDFILEX101QIINFILEPC64QINAMEFIELDQ57QTFILENAMEFIELD 45Q PACKFILENAME 17Q FILENAMEFIELD 5 INPUT)
Y#RcI AI`
IAI HX (117QTCLOSEFO106Q3STREQUALV102QOREADD70QBSKREADE54QNOPENFILE 26Q FILDIR 23Q PACKFILENAME)
@ (22QOLOADDBS50OLDLOAD) @AB b di
@ (14QDLOADDB 5 OLDLOADFROM) OPTIONS 0 FILE)) @ABC
b di
@ (15Q1DUMPDBP62OLDMAKEFILE)1ERRORSET.V0`ERRORSET.U) F 0`RESETVARSLST F 1 FL F 2VDBFILE F 3hFFNS F 4 FILE F 5 RESETY F 6 FNS) o g g g hg T
i (175QIDUMPDATABASEF166QATERPRI2161QFPRIN1B146Q2PRINTP141Q3PRIN1s131QOUPDATECONTAINSI116QVSTORETABLEE113QBPRINT)75QEPRIN1)56QOUTPUT36Q OPENFILE25QHPACKFILENAME)
7hbI[A$Hg g ` g H`
` EhK9AHg
i @i
o i
i hd\ L dM$Mh%W!Wo g
hg _
O AJi
Hg g J (322QS/PUT2307QRPRINT1276QTERROR!1267QDRESETRESTORE 254QSDUMPDBA00121215QSLOCALFNPE210QQUPDATEFN 200QDTERPRI1173QSPRIN1D162QAPRIN1Q154QITERPRIE146Q /REMPROP 115Q TESTTABLE 46Q TESTTABLE 27Q FILEFNSLST 23Q NAMEFIELD)
"@g ` g o g g g (123Qo/PUTD104QAASKUSERM61QLTESTTABLEQ20QVINFILECOMS?D15QBFILECOMSF3SNAMEFIELD)