(FILECREATED "18-Jan-85 15:41:09" ("compiled on " {PHYLUM}BIRTHDAY84>ENHANCEMENTS>TRI-PRETTY-ITEMTYPES.;4) "20-Dec-84 12:07:22" recompiled changes: DUMP.PTYPE in "INTERLISP-D 16-Jan-85 ..." dated "16-Jan-85 18:01:07") (FILECREATED "18-Jan-85 15:40:49" {PHYLUM}BIRTHDAY84>ENHANCEMENTS>TRI-PRETTY-ITEMTYPES.;4 3609 changes to: (VARS TRI-PRETTY-ITEMTYPESCOMS) (FNS DUMP.PTYPE) previous date: "16-Jan-85 15:16:55" {PHYLUM}BIRTHDAY84>ENHANCEMENTS>TRI-PRETTY-ITEMTYPES.;3) DUMP.ITEMTYPEA0001 D1 (NAME ERRORSET F 0 DESCRIPTION) go` ¿Pji h(24Q PRINTDEF 15Q SETTOPVAL) (11Q PRETTYPRINTYPEMACROS 2 PRETTYPRINTYPEMACROS) ( 6 (BITMAP . HPRINT)) DUMP.ITEMTYPE D1 (P 2 MACROY P 1 MACROX P 0 DESCRIPTION I 0 ITYPE F 3 RESETVARSLST) }@ Xd²^d ¿g@`h ¿g ²:`²5 gd Sc¹og ºgI ¿Ic¿J£¿°Hhi °i ¿@i ¿oi h(171Q PRIN1 160Q PRIN1 152Q TERPRI 144Q HPRINT 132Q ERROR! 117Q SETTOPVAL 105Q DUMP.ITEMTYPEA0001 65Q GETTOPVAL 44Q BOUNDP 35Q PRINT 16Q RESET.ITEM.TYPE.DESCRIPTION 6 ITEM.TYPE.DESCRIPTION) (111Q PRETTYPRINTYPEMACROS 102Q INTERNAL 61Q PRETTYPRINTYPEMACROS 51Q TRILLIUM.MAKE.ITEMTYPES.PRETTY 41Q TRILLIUM.MAKE.ITEMTYPES.PRETTY 26Q TRILLIUM.ITEMTYPE.REPRESENTATION.VERSION 22Q READ.ITEMTYPE) ( 165Q " unprintable as an ITEMTYPE" 77Q (DUMP.ITEMTYPEA0001)) DUMP.PTYPEA0001 D1 (NAME ERRORSET F 0 PRETTYPRINTYPEMACROS F 1 DESCRIPTION) goP ¿Qji h(22Q PRINTDEF 13Q SETTOPVAL) (2 PRETTYPRINTYPEMACROS) ( 6 (BITMAP . HPRINT)) DUMP.PTYPE D1 (P 2 MACROY P 1 MACROX P 0 DESCRIPTION I 0 PTYPE F 3 RESETVARSLST) y@gXd²Yg@`h ¿g ²:`²5 gd Sc¹og ºgI ¿Ic¿J£¿°Hhi °i ¿@i ¿oi h(165Q PRIN1 154Q PRIN1 146Q TERPRI 140Q HPRINT 126Q ERROR! 113Q SETTOPVAL 101Q DUMP.PTYPEA0001 61Q GETTOPVAL 40Q BOUNDP 31Q PRINT) (105Q PRETTYPRINTYPEMACROS 76Q INTERNAL 55Q PRETTYPRINTYPEMACROS 45Q TRILLIUM.MAKE.PTYPES.PRETTY 35Q TRILLIUM.MAKE.PTYPES.PRETTY 22Q TRILLIUM.PTYPE.REPRESENTATION.VERSION 16Q READ.PTYPE 6 PTYPE.DESCRIPTION) ( 161Q " unprintable as a PTYPE" 73Q (DUMP.PTYPEA0001)) (PRETTYCOMPRINT TRI-PRETTY-ITEMTYPESCOMS) (RPAQQ TRI-PRETTY-ITEMTYPESCOMS ((FNS DUMP.ITEMTYPE DUMP.PTYPE) (INITVARS ( TRILLIUM.MAKE.ITEMTYPES.PRETTY T) (TRILLIUM.MAKE.PTYPES.PRETTY T)))) (RPAQ? TRILLIUM.MAKE.ITEMTYPES.PRETTY T) (RPAQ? TRILLIUM.MAKE.PTYPES.PRETTY T) (PUTPROPS TRI-PRETTY-ITEMTYPES COPYRIGHT ("Xerox Corporation" 1985)) NIL