function CharToBin(word) do case case len(m.Word) = 4 return asc(m.Word) + bitlshift(asc(substr(m.word,2,1)),8) + bitlshift(asc(substr(m.word,3,1)),16) + bitlshift(asc(substr(m.word,4,1)),24) case len(m.Word) = 2 return asc(m.Word) + bitlshift(asc(substr(m.word,2,1)),8) otherwise assert FALSE return FALSE endcase endfunc