XML/Input: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,830: / Line 2,830: @@
 dim codes(numCodes)
-for i = 1 to numCodes : read codes(i) : next
+for i = 0 to numCodes - 1 : read codes(i) : next
 sub codeConversion(charcode, tocode)
@@ Line 2,836: / Line 2,836: @@
     if tocode then
-        for i = 1 to numCodes
+        for i = 0 to numCodes - 1
-            if codes(i) = charcode return i + initCode - 1
+            if codes(i) = charcode return i + initCode
         next
     else
-        return codes(charcode - initCode + 1)
+        return codes(charcode - initCode)
     end if
 end sub