/bcursordict 300 dict def
bcursordict begin
/nouse 0 def
/nouse_m 1 def
/ptr 2 def
/ptr_m 3 def
/beye 4 def
/beye_m 5 def
/rtarr 6 def
/rtarr_m 7 def
/xhair 8 def
/xhair_m 9 def
/xcurs 10 def
/xcurs_m 11 def
/hourg 12 def
/hourg_m 13 def
end
% Usage: x y moveto /char showbcursor
/showbcursor {
    currentfont ( ) dup 0 bcursordict 5 index get put
    bcursor setfont show setfont pop } def
/bcursor (BCursor) findfont 32 scalefont def