2 <FLOAD "PS:<COMPIL>MUDREF.NBIN">
5 <SET READ-TABLE <SETG READ-TABLE
6 <COND (<GASSIGNED? READ-TABLE> ,READ-TABLE)
7 (ELSE <IVECTOR 128 0>)>>>
8 <PUT .READ-TABLE <+ <ASCII !"|> 1> ,MUDREFIN>
9 <PRINTTYPE MUDREF!-OP ,OUTPUT-MUDREF>
13 <PUT ,READ-TABLE <+ <ASCII !"|> 1> 0>
14 <PRINTTYPE MUDREF!-OP ,PRINT>