dim $result
$result &= "char p1map[][] = "
$result &= "{"
$result &= @CRLF

transformText("~ss~~~~s~~",0)
transformText("~~~~~~~~~~",0)
transformText("~~~~s~~~~s",0)
transformText("~s~~~~s~~s",0)
transformText("~s~~~~s~~s",0)
transformText("~s~~~~~~~~",0)
transformText("~~~~~~~~s~",0)
transformText("~~~~ss~~~~",0)
transformText("~s~~~~~~~~",0)
transformText("~~~~ssss~~",1)

$result &= @CRLF
$result &= "char p2map[][] = "
$result &= "{"
$result &= @CRLF

transformText("~~~s~~~~ss",0)
transformText("~s~s~~~~~~",0)
transformText("~~~s~~~~~~",0)
transformText("~~~s~~~s~~",0)
transformText("~~~~~~~s~~",0)
transformText("~s~~s~~s~~",0)
transformText("~s~~~~~~~~",0)
transformText("~s~s~~~~~~",0)
transformText("~~~~~ss~~~",0)
transformText("ss~~~~~~s~",1)

$handlefile = FileOpen("gen.txt",2)
FileWrite($handlefile,$result)

func transformText($paramtext,$label)

$result &= "{"
for $i = 1 to 10
$result &= "'"
$result &= StringMid($paramtext,$i,1)
$result &= "'"
if ($i = 10) then exitloop
$result &= ","
next
if ($label = 0) then
$result &= "},"
$result &= @CRLF
Else
$result &= "}"
$result &= @CRLF
$result &= "};"
EndIf

endfunc