" "DSK" > XMED!- MMED!- MEDDLE!- )> O UT ? HERE OB EB OB? P PA PT PC S -S I C R L K U D UR DL WR WL B F C: I: K: SC V & Q  BK KB )> ) (CLLN <- <13 .OUTCHAN> 4>) (OBPDL ()) (VERBSW #FALSE ())) )>> > O>)) > OBANDCURS> <==? CURSOR> >) (ELSE .HOW)>) (ELSE #FALSE ("BAD TYPE"))>> > > )) > > > > !.LOBS)> >> > > >> > > > >) ( >) (ELSE '#FALSE ("UNASSIGNED"))>> > > > 2>)) <1 .CO!-M>) (T .CO!-M)>) ( 3>> ) (ELSE <.RI .LST!-M>)>> > '#FALSE ("RIGHT-EDGE")) (ELSE <.CI!-M .CO!-M>)>> > >) (T " "DSK" "MUDDLE">)> ) (ELSE )>> >>) (ELSE >>)>> >> > > > >> STRING> .ARG) (ELSE )>>> " "DSK" "MUDDLE">)) .FIL>>> ) (ELSE #FALSE("Where's my file???"))>> ATOM> ) OBANDCURS>>) (ELSE #FALSE ("ARG NOT ATOM"))>> > > OBLIST> <1 .BLK>) ( OBLIST>) (ELSE )>> > > .BLOK> '()) (ELSE ())>)> > > #FALSE ("NO MORE BLOCKS")) (ELSE > > > > )>> > OBLIST>> > >> > T> > 5>> 5>> > .CI!-M> > > > > ) (ELSE > .CLLN) (ELSE <- .CLLN 2 .CLLN>>)>)) >) ( 4> >> >) (ELSE >> >)> >>> .LLN> >>) (ELSE >> .LLN> >>)> ) (VIC .FSL)) <1 .VIC>> ) (>> 1 1>>>> -4>> )>> >>>)>> )) 1 .LLN>) (ELSE 1 .OBJ>> 4)>>> > .STOP> >>>>> > > >)) > ) ( > >) (ELSE >)> >> > > >)) ) ( '![ATOM FIX FLOAT]>) (<==? .WHICH CLOSEBRAK> !"?>>) (ELSE > !"?>>)>> > "> > T> ) (T #FALSE ("RIGHT-EDGE"))>> ) (T #FALSE ("LEFT-EDGE"))>> > > > >)> > > > > > > > )) ) (>) (ELSE )> > >> >> >> )) ) (ELSE #FALSE ("NOT-FOUND"))>> .NTYP>> T> )) )> > ) LINS) > #FALSE ("NOT-STRUCTURED")) (ELSE >> > )>> )> !.OBJ> .NTYPE>> #FALSE ("RIGHT-EDGE")) ( > COMMENT .COMM> "put.") (T > COMMENT> "Removed.")>>  '#FALSE ("RIGHT-EDGE")) (ELSE ) FORM>> "busted")>> > ) (ELSE )>> "DONE"> ) (ELSE > > > > ) (ROB (.TOB !.NOB)) (UTOP <1 .NOB>) FRST CMND FLIST EFLIST) ;"FLUSH THE CRETINOUS INITIAL ALTMODE." > P2GO P1GO <1 ,ALTGETTER>> )> >>>> )) > > .UTOP> >> > !"> > ) (> <1 .COB>> >>>> .TOB> .UTOP>> )> .TOB> > >> ,SPECS>> >) (ELSE )>>>)>> >) (ELSE )> > >> > > ,XMED!-> )>