"DFLDEFS"> > > > 40>> > 9>> % T ["SETG " "GLOBAL "] TDFL-BUF STRING REQUEST-BUFFER % % % DO-DFL RELEASE-BUFFER GUNASSIGN % % "-IMSUBR" LENGTH "" "READ" OPEN DEBUGGING? ATOM PACKAGE-MODE ANY UNWIND NM1 % NM2 % DEV % SNM % READ-BUFFER % ["PACKAGE" "ZPACKAGE" "ZSECTION" "ZZSECTION" "ZZPACKAGE" "DEFINITIONS" "PROGRAM-MODULE" "DEFINITION-MODULE"] ACCESS % READ USE INCLUDE DEFINITIONS "ZUSE" PACKAGE MOBLIST LOOKUP EVAL OBLIST SETG IN-COLLECTION PUTPROP ["ENTRY" "RENTRY" "PMEXPORT"] ["USE" "INCLUDE" "IMPORT-PM" "ZUSE"] "" "" PARSE ENDPACKAGE EOF-FOUND-BEFORE-THESE " " % % DFL OR? M-NCHR ";'" % "Not DFLed?" "MUD" WRITE-DATE % NAME % N=? "Would destroy later version!" "PRINT" OUTCHAN CHANNEL FILE-LENGTH DEFINE FORM EPRIN1 CRLF GETPROP WRITE-BUFFER % % ]> "OPTIONAL" ) 0]> "OPTIONAL" ) 160]> ANY ANY) 316]> "OPTIONAL" ANY) 660]> > ]> STRING VECTOR ) 1688]> ) 5780]> STRING> STRING ) 5940]> {}!"> > > "OPTIONAL" > ) 6712]> ANY>> ATOM ) 9472] > FIX) 9624]>