XML/Input: Difference between revisions
m
→{{header|Yabasic}}
Line 2,830:
dim codes(numCodes)
for i =
sub codeConversion(charcode, tocode)
Line 2,836:
if tocode then
for i =
if codes(i) = charcode return i + initCode
next
else
return codes(charcode - initCode
end if
end sub
| |||