LIBRARY "TrueCtrl.trc"

! Create:  Edit Field
CALL TC_Edit_Create (edit1_id, "", 0, 1, .8, 0)

LET Ukeyboard$ = "IOPQWERTYUIOPJKLASDFGHJKLBNMZXCVBNM"
LET Lkeyboard$ = "iopqwertyuiopjklasdfghjklbnmzxcvbnm"

PRINT "Click here before typing"

DO

   !Get keyboard press
   GET KEY x
   LET letter$=CHR$(x)

   !Check it's a letter
   IF x > 64 AND x < 91 OR x > 96 AND x < 123 OR x = 32 OR x = 8 then

      !Check space bar
      IF x = 32 then
         LET translated$ = translated$&" "

         !Check backspace
      ELSE IF x = 8 then
         LET translated$ = translated$[1:LEN(translated$)-1]

      ELSE


         IF UCASE$(letter$) = "I" OR UCASE$(letter$) = "O" OR UCASE$(letter$) = "P" then LET skip=1 ELSE LET skip=0

         !Determine case
         IF UCASE$(letter$)=letter$ then LET case=1 else LET case=0

         !Find letter on keyboard
         IF case=1 then LET keyboard$=Ukeyboard$ else LET keyboard$=Lkeyboard$
         FOR i=1 to 35
             IF keyboard$[i:i] = letter$ then
                IF skip=0 then
                   LET found = i
                   EXIT FOR
                END IF
                LET skip=0
             END IF
         NEXT i

         !Get 3 letters left
         LET translated$=translated$&keyboard$[found-3:found-3]

      END IF

      !Add translation
      CALL TC_Edit_SetText (edit1_id, translated$)

   END IF

LOOP

END