#include <FileConstants.au3>

Local $hFileOpen = FileOpen("fileservice.au3", $FO_APPEND)
Local $index = 0

For $i = 224 to 255
$text = "HotKeySet("

$text &= """" & Chr($i) & """"
$text &= ","
$text &= """" & "function_" & $index & """"
$text &= ")"
$index = $index + 1

FileWriteLine($hFileOpen, $text & @CRLF)

Next

For $i = 192 to 223
$text = "HotKeySet("

$text &= """" & Chr($i) & """"
$text &= ","
$text &= """" & "function_" & $index & """"
$text &= ")"
$index = $index + 1

FileWriteLine($hFileOpen, $text & @CRLF)

Next

for $i = 0 to $index + 2

FileWriteLine($hFileOpen,"func function_" &$i &"()" & @CRLF)

FileWriteLine($hFileOpen,"Send(" &"""" & "{ENTER}" & """" &")" & @CRLF)

FileWriteLine($hFileOpen,"Send(" &"""" & "{R}" & """" &")" & @CRLF)

FileWriteLine($hFileOpen,"endfunc" & @CRLF)

Next

$text = "HotKeySet("

$text &= """" & "ё" & """"
$text &= ","
$text &= """" & "function_" & $index & """"
$text &= ")"
$index =$index + 1
FileWriteLine($hFileOpen, $text & @CRLF)

$text = "HotKeySet("

$text &= """" & "Ё" & """"
$text &= ","
$text &= """" & "function_" & $index & """"
$text &= ")"

FileWriteLine($hFileOpen, $text & @CRLF)

FileWriteLine($hFileOpen,"while 1" & @CRLF)

FileWriteLine($hFileOpen,"wend" & @CRLF)