Voyager-generated listing of BTYPE by Joe Horn

02D9D  ::
18AB2    CK1NOLASTWD  *  Verify DEPTH ò 1
62CB9    DUPDUP       *  ob --> ob ob ob
62035    DUPTYPEIDNT? *  
619BC    IT           *  do next ob if True, else skip
02D9D    ::
0797B      @          *  recall w/ True if ok, False if not found
619BC      IT         *  do next ob if true, else skip
60F9B      SWAPDROP   *  ob1 ob2 --> ob1
03188      DUP        *  ob --> ob ob
0312B    ;
1A1FC    Internal BYTES (1:Any except Global)
60F9B    SWAPDROP     *  ob1 ob2 --> ob1
03223    SWAP         *  ob1 ob2 --> ob2 ob1
15CBB    get object type description (as String)
05E81    >TAG         *  tag ob with type, e.g. Real Number: 2.5
0312B  ;