' !\. !\ )) (ELSE ":; ")>> > ALLCHAR ' HELPCHAR ' ABORTCHAR ' MULTCHAR '< CHECK-FOR-MULT> INTTYCHAR ' RUBCHAR ' WORDKILL '< BACKUPRUB " "> LINEKILL ' BUFFERKILL ' CRETYPE '< RETYPE-BUFFER <>> DRETYPE ' QUOTCHAR ']> RTOBRK #DECL ("VALUE" ATOM ATOM ATOM STRING FIX STRING "OPTIONAL" STRING STRING STRING STRING STRING) BLT XFPUSH FSP-PARSE DATE-PARSE BLTREST TTY-SET FSP-FIXUP RTOBRK CAREFUL-TTY-OFF TTY-GET CALRDRINIT PDATE DATE EXTRACT XFPOP IMLAC? TENEX READER-SILENCE OUTCHAN CSACT #FALSE () BREAK T " (" ")" "|" ": " "(" " is allowed.)" "MULT" "multiple " " (s) are allowed.)" " are allowed.)" % "Object of type " "" "Unknown type" ", " MODE "Current default is " TABLE FN-ATOMS FN-SEPS "." () P1 (STRING) P2 () SYN () SYNSW () MULTSW BFR LEN FOO BITP (WORD) LENS (FIX) () XTRCHR OTTY () INSTRING INCHARACTER HELPSW () XFPOPSW CAL-PARSE "SYM" "TEXT" "LINE" "FILE" "FORM" "VECTOR" "LIST" "OBJECT" "OBJECTS" "DATE" %< RGLOC CONFIRMS T> % % % % % CURXCHAN (ACTIVATION) LEAVE-READER % "\"" LAST-READER-BREAK % VAL MULTERM MULTLIST () (LIST) % TORDR FLUSHED "and " #FALSE ("Aborted") % SYNOB [("FIX" ["integer" FIX]) ("FLOAT" [ "floating point number" FLOAT]) ("ATOM" ["MUDDLE atom name" ATOM]) ("CHARACTER" ["character preceded by !\"" CHARACTER]) ("LIST" ["list of objects" LIST]) ( "VECTOR" ["vector of objects" VECTOR]) ("FORM" ["MUDDLE form" FORM]) ("OBJECT" [ "any EVALable object" ANY]) ("OBJECTS" ["any number of EVALable objects" LIST]) ("ANY" ["any EVALable object" ANY]) ("STRING" ["string of characters" STRING]) ( "FILE" ["file specification" STRING]) ("DATE" ["date specification" STRING]) ( "LINE" ["line of text" STRING]) ("TEXT" ["text terminated by master break" STRING]) ("SYM" ["symbol" SYMBOL])] % % % % % %< RGLOC HELPCHAR T> % % % %< RGLOC LINEKILL T> % % % % % % % %< RGLOC INTTYCHAR T> " " "" "î ," % "Date unrecognizable. Please retype." CALICO-DEV CALICO-SNM CALICO-NM1 CALICO-NM2 "DSK" ":<" " î" "X" LKPR % "Type of input unacceptable. Please retype." ANY FLOAT "READ" "End of help message." WINLIST " The following are possible: " "No symbol begins like that." "Symbol input not currently available." "C" I J % %]>> .GLUE > )] 182>> > )] 274>> STRING "OPTIONAL" STRING)] 836>> > TUPLE FIX )] 1837>> > > > > > )] 3241>> > > > )] 4067>> > > > > )] 4509>> > > STRUCTURED "OPTIONAL" ANY)] 4710>> > > "TUPLE" TUPLE)] 4809>>