Use Long for ASC result

ePublishing/Archive.xba

@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
-<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Archive" script:language="StarBasic" script:moduleType="normal">Sub archMark14
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Archive" script:language="StarBasic" script:moduleType="normal">Sub archMark15
 
 End Sub
 
@@ -417,7 +417,7 @@ End Sub
 
 
 Function isLowerCase(character As String) As Boolean
-	Dim charNum As Integer
+	Dim charNum As Long
 	If (character = &quot;&quot;) Then
 	  charNum = ASC(&quot;&quot;+0)
 	Else

ePublishing/Books.xba

@@ -183,7 +183,7 @@ Function createDupName(initName As String, newDupNames As Variant )
 End Function
 
 Function getPrefixName(initName As String) As String
-	Dim num As Integer
+	Dim num As Long
 	Dim tmpName As String
 	tmpName = Trim(initName)
 	If tmpName = "" Then

ePublishing/Hyphenations.xba

@@ -80,7 +80,7 @@ Private Sub convertParaHyphens(para As Object)
 	Dim autoBreaks() As Object
 	Dim lineNumbers() As Integer
 '	Dim lineShifts() As Integer
-	Dim charNum as Integer
+	Dim charNum as Long
 	Dim	lineLength As Integer
 	Dim lineCursor As Object
 	Dim i As Integer
@@ -336,8 +336,8 @@ End Sub
 
 
 Private Function needHyphen(before As String, after As String,lineLength As Integer) As boolean
- 	Dim charNumBefore as Integer
+ 	Dim charNumBefore as Long
-	Dim charNumAfter as Integer
+	Dim charNumAfter as Long
 	needHyphen = true
 	If lineLength < 2 Then
 		needHyphen = false