(W [0+8+FQ(+4)[1 0FO10F"G+Q1 'W+FQ()+4U1 FQ1"L0' ,Q1:M(Q1+4(]1]0)) YYf,2QX/?ksMWAHkq DOCLISPNf[BBind f[DFile FNECFSRGETTY"EFT ' erDSK:macind;MACLSP MANDOC1:A \FSIFAccess ^Y ER s'(l0,.k 1,F LISP Command? [1 FQ1"E :F "G 1,m(m.m& Read Line)LISP Command? f(u1)"E''' FQ1"E 0FO..QDOCLISP Last Argumentu1' q1"E@FT [No Previous LISP command]  0fsechoactivew' q1m.vDOCLISP Last Argument QLISPDOC Readtable[..D FSBCons[0 [2[3 JF Q2"EFTNot Found? ' FTMore?  FIu2   Print next entry   Search for same item again  Read a new item to search for  Redisplays N,Q,X, exit. ' ft More?  FIU2> > 0u..h& Setup DOCLISP Library5:i*..D[0*5:f0AA -*5:F0AA +*5:F0AA =*5:F0AA >*5:F0AA <*5:F0AA **5:F0AA \*5:F0AA /*5:F0A/ |*5:F0A| 95*5:F0AA Q0m.vLISPDOC Readtable ~FILENAME~ DOCLISP~DOC~ ~FILENAME~'LISPDOC command similar to TECDOC ~DOC~ DOCLISPwC Print out LISP documentation Takes string arg of command to find. If string is null, it will prompt for one. !~DOC~ & Setup DOCLISP Library#S Initialze, create ..D, etc. ~DIRECTORY~&DOCLISP & Setup DOCLISP Library  ~INVERT~[1Q1