> >) (ARG-NOT-NAMES >) ( ARG-RELATED ) (ARG-CONDITIONAL ) (ARG-READ? ) (ARG-DEFAULT ANY) (ARG-ASK? ) (ARG-GET-COMP-TYPE? ) (ARG-ASKED? ) (ARG-VAR ) (ARG-EVAL? ) (ARG-CHECK? ) (ARG-MSG ) (ARG-ALLOW-SKIP? ) (ARG-NEXT ) (ARG-PREV ) (ARG-HELP )> ,, ,,l-M,,,,, ,$,, Kp`+H$N,,p lN.g>,., 0,,l-M,,,,, ,$,, Kp`+H$ m,"h. f6"m $$i&l&&N,,,,, ,$p lN`H mAg@,, ,,l-M,(,,,,,,, Kp`+H, m,"h. fNp lN+H<`v"lt"i"i. gV,6,,,l-M"lt"i,,Kp`T0|(,8*,B,8,<,,` 0,,!,,l-M,, , B,B,8,<,B`,t,,,l-M,,,,,, l<"h,,Kp` .g(,,+H<+@8 ,8 lo8,gҺRo F`` l<(,, ,8+H$+z lBBBBBBBJgN8 m+H,JgN8J,g m,""h -f.BGHG^f"l<+I$+z `p )<f:$l|$jҺPR0|(* +J4+z0N"m4#H"l|""`.,,#,,l-MҺ,R,`h ,#,,l-M,,,,,,Kp``N,,,, p l+ID+A@N|Ag@,,#,,l-M,,,, ,,,,Kp`D+H0|(-@*-DN"m#H+H m, h+H,`@ m :RNBBBB,BBBBBJgN8 y,,, "l,,@,D,,,E#N"m$i+J$+z +I,+z(+H4JgN8J$f m`HN m$,,p lN|AfN"l\,,,H,L+H<+@8p lTNN l,,,, m<,,,, h,,,,,,p ldN,<,%,,l-M,,,,Kp`N` m$ h"m,#H+H$+z `"m,#H+HD+@@"h. g : I`"m$$i!J mD -@+H$+@ ` m$ - +H,+@( h+H$+zr `+H,+zd( m4N m, :NNN` ` ` ,BBB,B,B,FB,BBBBBBBJgN8 y~Jmf"l",~+I+A,,,"l<,,@,D,,,E#JgNN :*<+H,N+H4+@00|(,8*,,,*H,,l-M,,,,,8,<,, Kp`~+H<(-H*-LN+HL+@H`l(-@*-DN`0| :ے+HL+@H m,N mL -HN,,BBBBBBBBBBBBBJgN8B> :f*NVD"m"+Eظo+H$+@ :gҺ؜R؞o`0|+H,+zՎ(`NB>,BFHF߭$m ;|"B>- m+I,+A("m$(zNSm(R, m$ - +H* m -+H4+@0JgN8Jm0of m4""h4|6| iAbg> ) i|f@(*+I$+A "mN`+K<+z8`0|+HD+zԼ@+K<+zԲ8`J+I$+A +JD+zԞ@+K<+zԔ8|Ag N,,,,p l4N+HD+@@ mABfp m$"( "h$|f"( I*"mN` l<+HD+zD@`.|Ag N,,,,p l4N+HD+@@ mABg l<+H<+z8 mABg, l hAgN l,,,, m$"("hָo "("h`""h,,"("h֖o "l",`"l,",(,,,, mA*g "m,"-(`J,,l-M,,Kp`@SmP`|Ag8#mX#m \ mA f$,,5,,l-M,,Kp` m NBBJgN8N l,,,H,Lp lTN m hAbg hBbfN"l,,,,,P,T,`,d,X,\,,,`,d,,p ldNN m "hd"Q""i,,,h,l,VBx  INL`bN"l,,,,,p,t,,,x,|,,p ldN m "(`"hd|g|f"N,`,d"l,,p lN`"hd+I+z0JgN8Jgr mN"l,,,,"h. f "l",`"h"i. f "l",`"l",,,,,p ldN m h+H+zΰ`~N l,,,,,, m hABg "(@"hD`"l",,,, ,$,,p ldN m hAg4N,,"l,,p lNN l,,p lN m .( Jo"jnNt``B`N`Z``` m hA:gN,,`N,,`N,,`N,,`N,, l,,p lN m hArgN"l,,,,,,,p,tp ldN`VN,, l,,p lN m hAjg,N,,` N,, l,,p lNN l,,,,,,,,,,p ldNN print-arg-IMSUBR OUTCHAN PRINC "#ARG [" " " "SWITCH" "STRING-SWITCH" "FILE-SWITCH" "FILE" "FORMS" "LIST" PRINT-MANY " NAMES:" " NOT-NAMES:" " READ" " ASK" " ASKED" " VAR:" " EVAL" " GET-COMP-TYPE" " CHECK" " ALLOW-SKIP" " RELATED:" % "" "," " CONDITIONAL:" " NEXT:" "<>" "/" " PREV:" "]" ALL-ARGS % MAKE-ARG FORM EVAL MEMBER T "MUD" SKIP-INPUT? % RESET % % % GET-COMPILATION-TYPE GET-COMPILATION-JCL % DO-ASK EXIT PARSE-STRING ANY PARSE % "Eval " % PRIN1 PRMANY-CRLF FLATSIZE " -->" " -->A " TYPE MAIN-LOOP FRAME JCL INPUT-ERROR? ANSWERED-YES? STOP-SKIP READ-PROMPT STRING FRESH-LINE CHANNEL-OP TYI AGAIN " (file) " "Yy" "[" "" READ-BREAKS NEXTCHR READCHR READ % READSTRING PUT DOWN-CURSOR "YyTt" "NnFf" NM2 FILE-EXISTS? ": " "Enter correct name, or to discard: " "Input file(s): " % "switch set to " "FALSE" "TRUE" "." "Flag not found: " "Bad argument: switch " " must be followed by : and string" " must be followed by list, not" SETG "This question causes the function " " to be called, with" "the string you enter." GET-ARG-HELP "This question controls the setting of the " " variable(s)" " and " ", " ". The default is " CRLF "Enter the switch value (Y or T, N or F), followed by ESC or CR." "Enter the switch value (Y or T, N or F). Only one character will be read." "Enter the string value, followed by ESC or CR." "Enter a value (Y or T, N or F), or a space followed by a file name. The file name may be followed by switches, as typed on the command line; terminate it with ESC or CR." "Enter file name(s), optionally followed by switches as typed on the command line. Terminate with ESC or CR." "The name you give must name an existing file; by default, the extension on it will be ." "Enter arbitrary muddle objects, terminated by ESC." " The objects will be evaluated as they are read." "Enter a list of muddle objects, terminated by ESC or CR." "^B will return to the previous question; ESC with nothing before it will default as many questions as possible, unless the current question is reading muddle objects." ]> > ) 2732]> > STRING "OPTIONAL" ANY ANY) 2932]> ) 3696]> > > LIST) 4304]> !\? >> STRING LIST) 10908]> ATOM ANY) 11844]> ) 13040]> ANY) 13136]> ) 13440]> STRING ARG) 13712]>