1 files changed, 7 insertions, 8 deletions
diff --git a/windows/autohotkey/Compose/AutoComp2.bas b/windows/autohotkey/Compose/AutoComp2.bas
index 7f77356..f03ac78 100644
--- a/windows/autohotkey/Compose/AutoComp2.bas
+++ b/windows/autohotkey/Compose/AutoComp2.bas
@@ -5,20 +5,18 @@ REM  *****  BASIC  *****
 
 'Anleitung:
 'Pfade anpassen :-)
-'Alle Tabulatoren durch ein /einzelnes/ Leerzeichen ersetzen.
 'Quelldatei als UTF16-Little-Endian speichern.
+'Alle Tabulatoren durch ein /einzelnes/ Leerzeichen ersetzen.
 'Skript ausführen.
 'Korrektur von ein paar ungelösten Problemen:
 'Letzte Zeile der Ausgabedatei durch "}" ersetzen.
-'Folgende Zeilen abändern:
+'Folgende Zeile abändern:
 'CheckCompUni("<t> <z>", 0xE04A", 0x) ->
-'CheckCompUni("<?> <?>:????) ->
 'CheckCompUni("<t> <z>", 0xE04A)
-'CheckCompUni("<?> <?>", 0x????)
 
 Sub Main
   Open "C:\Users\Martin_2\Programmieren\NEO\ComposeList16.txt" For Binary Lock Write As #1
-  Open "C:\Users\Martin_2\NEO\windows\autohotkey\Source\Composet.ahk" For Output Lock Read Write As #2
+  Open "C:\Users\Martin_2\NEO\windows\autohotkey\Source\Compose.ahk" For Output Lock Read Write As #2
   Print #2, "CheckCompose() {"
   Print #2, "CheckCompUni("; chr(34);
   For Position& = 1 To Lof(1) Step 2
@@ -28,7 +26,7 @@ Sub Main
      Print #2, "CheckCompUni("; chr(34);
     ElseIf a%=asc(":") and Zeichen% <> 1 Then
      Print #2, chr(34); ", 0x";
-     Zeichen% = 1
+     'Zeichen% = 1
     ElseIf a%=asc(" ") Then
     ElseIf a%=asc("<") Then
      Klammer% = Klammer% + 1
@@ -36,11 +34,12 @@ Sub Main
      If Klammer% <> 1 and Kommentar% <> 1 Then Print #2, "<";
     ElseIf a% = 34 Then
      Quotedbl% = Quotedbl% + 1
+     Zeichen% = 1
      If Quotedbl% = 2 Then
        Kommentar% = 1
-       Zeichen = 0
+       Zeichen% = 0
      EndIf
-    ElseIf Klammer% <> 1 and a% < 255 and a% > 0 and Kommentar% <> 1 Then
+    ElseIf Klammer% <> 1 and a% < 255 and a% > 0 and Kommentar% <> 1 and zeichen% <> 1 Then
      Print #2, Chr(a%);
     ElseIf Klammer% <> 1 and Kommentar% <> 1 Then
      If a% <> -257 Then Print #2, Iif(Len(Hex(a%))>4, Right(Hex(a%),4),Hex(a%));