
If KeyboardPushed(#PB_Key_A) And ziffer = 0 And stop = 0
let1 = "A"
ziffer = 1
stop = 1
EndIf
If KeyboardPushed(#PB_Key_A) And ziffer = 1 And stop = 0
let2 = "a"
ziffer = 2
stop = 1
EndIf
If KeyboardPushed(#PB_Key_A) And ziffer = 2 And stop = 0
let3 = "a"
ziffer = 3
stop = 1
EndIf
If KeyboardPushed(#PB_Key_B) And ziffer = 0 And stop = 0
let1 = "B"
ziffer = 1
stop = 1
EndIf
If KeyboardPushed(#PB_Key_B) And ziffer = 1 And stop = 0
let2 = "b"
ziffer = 2
stop = 1
EndIf
If KeyboardPushed(#PB_Key_B) And ziffer = 2 And stop = 0
let3 = "b"
ziffer = 3
stop = 1
EndIf
If KeyboardPushed(#PB_Key_C) And ziffer = 0 And stop = 0
let1 = "C"
ziffer = 1
stop = 1
EndIf
If KeyboardPushed(#PB_Key_C) And ziffer = 1 And stop = 0
let2 = "c"
ziffer = 2
stop = 1
EndIf
If KeyboardPushed(#PB_Key_C) And ziffer = 2 And stop = 0
let3 = "c"
ziffer = 3
stop = 1
EndIf
If KeyboardPushed(#PB_Key_D) And ziffer = 0 And stop = 0
let1 = "D"
ziffer = 1
stop = 1
EndIf
If KeyboardPushed(#PB_Key_D) And ziffer = 1 And stop = 0
let2 = "d"
ziffer = 2
stop = 1
EndIf
If KeyboardPushed(#PB_Key_D) And ziffer = 2 And stop = 0
let3 = "d"
ziffer = 3
stop = 1
EndIf
If KeyboardPushed(#PB_Key_E) And ziffer = 0 And stop = 0
let1 = "E"
ziffer = 1
stop = 1
EndIf
If KeyboardPushed(#PB_Key_E) And ziffer = 1 And stop = 0
let2 = "e"
ziffer = 2
stop = 1
EndIf
If KeyboardPushed(#PB_Key_E) And ziffer = 2 And stop = 0
let3 = "e"
ziffer = 3
stop = 1
EndIf
If KeyboardPushed(#PB_Key_F) And ziffer = 0 And stop = 0
let1 = "F"
ziffer = 1
stop = 1
EndIf
If KeyboardPushed(#PB_Key_F) And ziffer = 1 And stop = 0
let2 = "f"
ziffer = 2
stop = 1
EndIf
If KeyboardPushed(#PB_Key_F) And ziffer = 2 And stop = 0
let3 = "f"
ziffer = 3
stop = 1
EndIf
If KeyboardPushed(#PB_Key_G) And ziffer = 0 And stop = 0
let1 = "G"
ziffer = 1
stop = 1
EndIf
If KeyboardPushed(#PB_Key_G) And ziffer = 1 And stop = 0
let2 = "g"
ziffer = 2
stop = 1
EndIf
If KeyboardPushed(#PB_Key_G) And ziffer = 2 And stop = 0
let3 = "g"
ziffer = 3
stop = 1
EndIf
If KeyboardPushed(#PB_Key_H) And ziffer = 0 And stop = 0
let1 = "H"
ziffer = 1
stop = 1
EndIf
If KeyboardPushed(#PB_Key_H) And ziffer = 1 And stop = 0
let2 = "h"
ziffer = 2
stop = 1
EndIf
If KeyboardPushed(#PB_Key_H) And ziffer = 2 And stop = 0
let3 = "h"
ziffer = 3
stop = 1
EndIf
If KeyboardPushed(#PB_Key_I) And ziffer = 0 And stop = 0
let1 = "I"
ziffer = 1
stop = 1
EndIf
If KeyboardPushed(#PB_Key_I) And ziffer = 1 And stop = 0
let2 = "i"
ziffer = 2
stop = 1
EndIf
If KeyboardPushed(#PB_Key_I) And ziffer = 2 And stop = 0
let3 = "i"
ziffer = 3
stop = 1
EndIf
If KeyboardPushed(#PB_Key_J) And ziffer = 0 And stop = 0
let1 = "J"
ziffer = 1
stop = 1
EndIf
If KeyboardPushed(#PB_Key_J) And ziffer = 1 And stop = 0
let2 = "j"
ziffer = 2
stop = 1
EndIf
If KeyboardPushed(#PB_Key_J) And ziffer = 2 And stop = 0
let3 = "j"
ziffer = 3
stop = 1
EndIf
If KeyboardPushed(#PB_Key_K) And ziffer = 0 And stop = 0
let1 = "K"
ziffer = 1
stop = 1
EndIf
If KeyboardPushed(#PB_Key_K) And ziffer = 1 And stop = 0
let2 = "k"
ziffer = 2
stop = 1
EndIf
If KeyboardPushed(#PB_Key_K) And ziffer = 2 And stop = 0
let3 = "k"
ziffer = 3
stop = 1
EndIf
If KeyboardPushed(#PB_Key_L) And ziffer = 0 And stop = 0
let1 = "L"
ziffer = 1
stop = 1
EndIf
If KeyboardPushed(#PB_Key_L) And ziffer = 1 And stop = 0
let2 = "l"
ziffer = 2
stop = 1
EndIf
If KeyboardPushed(#PB_Key_L) And ziffer = 2 And stop = 0
let3 = "l"
ziffer = 3
stop = 1
EndIf
If KeyboardPushed(#PB_Key_M) And ziffer = 0 And stop = 0
let1 = "M"
ziffer = 1
stop = 1
EndIf
If KeyboardPushed(#PB_Key_M) And ziffer = 1 And stop = 0
let2 = "m"
ziffer = 2
stop = 1
EndIf
If KeyboardPushed(#PB_Key_M) And ziffer = 2 And stop = 0
let3 = "m"
ziffer = 3
stop = 1
EndIf
If KeyboardPushed(#PB_Key_N) And ziffer = 0 And stop = 0
let1 = "N"
ziffer = 1
stop = 1
EndIf
If KeyboardPushed(#PB_Key_N) And ziffer = 1 And stop = 0
let2 = "n"
ziffer = 2
stop = 1
EndIf
If KeyboardPushed(#PB_Key_N) And ziffer = 2 And stop = 0
let3 = "n"
ziffer = 3
stop = 1
EndIf
If KeyboardPushed(#PB_Key_O) And ziffer = 0 And stop = 0
let1 = "O"
ziffer = 1
stop = 1
EndIf
If KeyboardPushed(#PB_Key_O) And ziffer = 1 And stop = 0
let2 = "o"
ziffer = 2
stop = 1
EndIf
If KeyboardPushed(#PB_Key_O) And ziffer = 2 And stop = 0
let3 = "o"
ziffer = 3
stop = 1
EndIf
If KeyboardPushed(#PB_Key_P) And ziffer = 0 And stop = 0
let1 = "P"
ziffer = 1
stop = 1
EndIf
If KeyboardPushed(#PB_Key_P) And ziffer = 1 And stop = 0
let2 = "p"
ziffer = 2
stop = 1
EndIf
If KeyboardPushed(#PB_Key_P) And ziffer = 2 And stop = 0
let3 = "p"
ziffer = 3
stop = 1
EndIf
If KeyboardPushed(#PB_Key_Q) And ziffer = 0 And stop = 0
let1 = "Q"
ziffer = 1
stop = 1
EndIf
If KeyboardPushed(#PB_Key_Q) And ziffer = 1 And stop = 0
let2 = "q"
ziffer = 2
stop = 1
EndIf
If KeyboardPushed(#PB_Key_Q) And ziffer = 2 And stop = 0
let3 = "q"
ziffer = 3
stop = 1
EndIf
If KeyboardPushed(#PB_Key_R) And ziffer = 0 And stop = 0
let1 = "R"
ziffer = 1
stop = 1
EndIf
If KeyboardPushed(#PB_Key_R) And ziffer = 1 And stop = 0
let2 = "r"
ziffer = 2
stop = 1
EndIf
If KeyboardPushed(#PB_Key_R) And ziffer = 2 And stop = 0
let3 = "r"
ziffer = 3
stop = 1
EndIf
If KeyboardPushed(#PB_Key_S) And ziffer = 0 And stop = 0
let1 = "S"
ziffer = 1
stop = 1
EndIf
If KeyboardPushed(#PB_Key_S) And ziffer = 1 And stop = 0
let2 = "s"
ziffer = 2
stop = 1
EndIf
If KeyboardPushed(#PB_Key_S) And ziffer = 2 And stop = 0
let3 = "s"
ziffer = 3
stop = 1
EndIf
If KeyboardPushed(#PB_Key_T) And ziffer = 0 And stop = 0
let1 = "T"
ziffer = 1
stop = 1
EndIf
If KeyboardPushed(#PB_Key_T) And ziffer = 1 And stop = 0
let2 = "t"
ziffer = 2
stop = 1
EndIf
If KeyboardPushed(#PB_Key_T) And ziffer = 2 And stop = 0
let3 = "t"
ziffer = 3
stop = 1
EndIf
If KeyboardPushed(#PB_Key_U) And ziffer = 0 And stop = 0
let1 = "U"
ziffer = 1
stop = 1
EndIf
If KeyboardPushed(#PB_Key_U) And ziffer = 1 And stop = 0
let2 = "u"
ziffer = 2
stop = 1
EndIf
If KeyboardPushed(#PB_Key_U) And ziffer = 2 And stop = 0
let3 = "u"
ziffer = 3
stop = 1
EndIf
If KeyboardPushed(#PB_Key_V) And ziffer = 0 And stop = 0
let1 = "V"
ziffer = 1
stop = 1
EndIf
If KeyboardPushed(#PB_Key_V) And ziffer = 1 And stop = 0
let2 = "v"
ziffer = 2
stop = 1
EndIf
If KeyboardPushed(#PB_Key_V) And ziffer = 2 And stop = 0
let3 = "v"
ziffer = 3
stop = 1
EndIf
If KeyboardPushed(#PB_Key_W) And ziffer = 0 And stop = 0
let1 = "W"
ziffer = 1
stop = 1
EndIf
If KeyboardPushed(#PB_Key_W) And ziffer = 1 And stop = 0
let2 = "w"
ziffer = 2
stop = 1
EndIf
If KeyboardPushed(#PB_Key_W) And ziffer = 2 And stop = 0
let3 = "w"
ziffer = 3
stop = 1
EndIf
If KeyboardPushed(#PB_Key_X) And ziffer = 0 And stop = 0
let1 = "X"
ziffer = 1
stop = 1
EndIf
If KeyboardPushed(#PB_Key_X) And ziffer = 1 And stop = 0
let2 = "x"
ziffer = 2
stop = 1
EndIf
If KeyboardPushed(#PB_Key_X) And ziffer = 2 And stop = 0
let3 = "x"
ziffer = 3
stop = 1
EndIf
If KeyboardPushed(#PB_Key_Z) And ziffer = 0 And stop = 0
let1 = "Y"
ziffer = 1
stop = 1
EndIf
If KeyboardPushed(#PB_Key_Z) And ziffer = 1 And stop = 0
let2 = "y"
ziffer = 2
stop = 1
EndIf
If KeyboardPushed(#PB_Key_Z) And ziffer = 2 And stop = 0
let3 = "y"
ziffer = 3
stop = 1
EndIf
If KeyboardPushed(#PB_Key_Y) And ziffer = 0 And stop = 0
let1 = "Z"
ziffer = 1
stop = 1
EndIf
If KeyboardPushed(#PB_Key_Y) And ziffer = 1 And stop = 0
let2 = "z"
ziffer = 2
stop = 1
EndIf
If KeyboardPushed(#PB_Key_Y) And ziffer = 2 And stop = 0
let3 = "z"
ziffer = 3
stop = 1
EndIf
If KeyboardPushed(#PB_Key_All)
stop = 1
EndIf
If KeyboardPushed(#PB_Key_All) = 0
stop = 0
EndIf



; IDE Options = PureBasic 4.31 (Windows - x86)
; CursorPosition = 392
; FirstLine = 339
; EnableXP