LIST "vib2dec.lst"
'
' **************************************************
'   ! reverse the two bytes from sysex  Xhixlo
' **************************************************
'
a$=CHR$(&H0)+CHR$(&H31)
'
b%=CVI(a$)
c&=0
' **************************************************
' magic numbers,,, because inertia begins somewhere!
' **************************************************
IF BTST(b%,9)
  x&=96
  b%=b%-512
  c&=32
ELSE IF BTST(b%,8)
  x&=80
  b%=b%-256
  c&=16
ELSE IF BTST(b%,7)
  x&=64
  b%=b%-128
  c&=8
ELSE IF BTST(b%,6)
  x&=48
  b%=b%-64
  c&=4
ELSE IF BTST(b%,5)
  x&=32
  b%=b%-32
  c&=2
ELSE
  x&=0
  c&=1
ENDIF
'
xx&=(b% DIV c&)
PRINT x& OR xx&
'
END