***** Mobile Gear Consoleout for TBC *****

SubRoutine txcls
        /Byte &06,&31,&c0,&8e,&c0,&bb,&84,4
        /Byte &26,&8a,&57,&c6,&4a
        /Byte &26,&8a,&37,&07
        /Byte &b4,6,&b7,7,&33,&c9
        /Byte &cd,&10,&33,&d2
        /Byte &eb,@locat0
SubEnd

SubRoutine locate(x,y)
        Integer x,y
        Value y
        /Byte &8b,&56,2
@locat0 /Byte &89,&16,2,0,&8a,&f0
        /Byte &b7,0,&b4,2,&cd,&10,&c3
SubEnd

SubRoutine cursor(x)
        Integer x
        If x=0 Then /Byte &b8,0,&20,&eb,@10
        If !=1 Then Value &607
10      /Byte &91,&b7,0,&b4,1,&cd,&10,&c3
SubEnd

SubRoutine put_lchar(x,y,c,n)
        Integer x,y,c,n
        /Byte &b0,8
        /Byte &eb,@put_cha1
SubEnd

SubRoutine put_mchar(x,y,c,n)
        Integer x,y,c,n
        /Byte &b0,12
        /Byte &eb,@put_cha1
SubEnd

SubRoutine put_hchar(x,y,c,n)
        Integer x,y,c,n
        /Byte &b0,16
@put_cha1
        /Byte &bf,&40,0,&8e,&c7
        /Byte &bf,&85,0,&26,&86,&05,&50
        GoSub put_cha0
        /Byte &58,&26,&88,&05,&c3
SubEnd

SubRoutine put_char(x,y,c,n)
        Integer x,y,c,n
@put_cha0
        /Byte &8a,&56,2
        /Byte &8a,&76,4
        /Byte &8b,&5e,6
        /Byte &8b,&76,8
        /Byte &b9,1,0

10      /Byte &b4,2,&cd,&10
        /Byte &8a,&04,&0a,&c0,&74,@20
        /Byte &b4,9,&cd,&10
        /Byte &46,&42,&eb,@10

20      /Byte &c3
SubEnd

End
