/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