Sorry your browser is not supported!

set display mode 640, 480, 16

sync on
sync

dim lettertabs(25,4)
dim lettertabs_pos(25,1)

Global Current_tab as integer

Global mouse_state_timer as integer
mouse_state_timer = 0

Global Shift_image1 as integer
Global Shift_image2 as integer
Global Shift_State as integer
Global Shift_over as integer
Shift_over = 0
shift_state = 0

Gosub Create_lettertabs

strings$ = showinput$(100,100)
end

function showinput$(x,y)
result$ = ""
repeat

   over_tab(x,y)
   result$ = mouse_input$(result$)


   cls 0
      showletters(x,y)
      text 1,1,result$
   sync
until keystate(0)

endfunction result$

function mouse_input$(textin$ as string)
result$ = textin$
if mouseclick() = 1
      if mouse_state_timer = 0
         if current_tab = 26
            if shift_state = 0
               shift_state = 1
            else
               shift_state = 0
            endif
         endif
            if shift_state = 1
               if current_tab = 0 then result$ = textin$ + "A"
               if current_tab = 1 then result$ = textin$ + "B"
               if current_tab = 2 then result$ = textin$ + "C"
               if current_tab = 3 then result$ = textin$ + "D"
               if current_tab = 4 then result$ = textin$ + "E"
               if current_tab = 5 then result$ = textin$ + "F"
               if current_tab = 6 then result$ = textin$ + "G"
               if current_tab = 7 then result$ = textin$ + "H"
               if current_tab = 8 then result$ = textin$ + "I"
               if current_tab = 9 then result$ = textin$ + "J"
               if current_tab = 10 then result$ = textin$ + "K"
               if current_tab = 11 then result$ = textin$ + "L"
               if current_tab = 12 then result$ = textin$ + "M"
               if current_tab = 13 then result$ = textin$ + "N"
               if current_tab = 14 then result$ = textin$ + "O"
               if current_tab = 15 then result$ = textin$ + "P"
               if current_tab = 16 then result$ = textin$ + "Q"
               if current_tab = 17 then result$ = textin$ + "R"
               if current_tab = 18 then result$ = textin$ + "S"
               if current_tab = 19 then result$ = textin$ + "T"
               if current_tab = 20 then result$ = textin$ + "U"
               if current_tab = 21 then result$ = textin$ + "V"
               if current_tab = 22 then result$ = textin$ + "W"
               if current_tab = 23 then result$ = textin$ + "X"
               if current_tab = 24 then result$ = textin$ + "Y"
               if current_tab = 25 then result$ = textin$ + "Z"
            else
               if current_tab = 0 then result$ = textin$ + "a"
               if current_tab = 1 then result$ = textin$ + "b"
               if current_tab = 2 then result$ = textin$ + "c"
               if current_tab = 3 then result$ = textin$ + "d"
               if current_tab = 4 then result$ = textin$ + "e"
               if current_tab = 5 then result$ = textin$ + "f"
               if current_tab = 6 then result$ = textin$ + "g"
               if current_tab = 7 then result$ = textin$ + "h"
               if current_tab = 8 then result$ = textin$ + "i"
               if current_tab = 9 then result$ = textin$ + "j"
               if current_tab = 10 then result$ = textin$ + "k"
               if current_tab = 11 then result$ = textin$ + "l"
               if current_tab = 12 then result$ = textin$ + "m"
               if current_tab = 13 then result$ = textin$ + "n"
               if current_tab = 14 then result$ = textin$ + "o"
               if current_tab = 15 then result$ = textin$ + "p"
               if current_tab = 16 then result$ = textin$ + "q"
               if current_tab = 17 then result$ = textin$ + "r"
               if current_tab = 18 then result$ = textin$ + "s"
               if current_tab = 19 then result$ = textin$ + "t"
               if current_tab = 20 then result$ = textin$ + "u"
               if current_tab = 21 then result$ = textin$ + "v"
               if current_tab = 22 then result$ = textin$ + "w"
               if current_tab = 23 then result$ = textin$ + "x"
               if current_tab = 24 then result$ = textin$ + "y"
               if current_tab = 25 then result$ = textin$ + "z"

         endif
         mouse_state_timer = timer() + 250
      endif
   else
      mouse_state_timer = 0
   endif

if timer() > mouse_state_timer then mouse_state_timer = 0

endfunction result$

function over_tab(x,y)

for count = 0 to 25

   if mousex() => lettertabs_pos(count,0) + x and mousex() <= lettertabs_pos(count,0) + 23 + x
      if mousey() => lettertabs_pos(count,1) + y and mousey() <= lettertabs_pos(count,1) + 23 + y
         lettertabs(count,4) = 1
         Current_tab = count
      else
         lettertabs(count,4) = 0
      endif
   else
      lettertabs(count,4) = 0
   endif

next count

   if mousex() => x+1 and mousex() <= 52 + x
      if mousey() => y+84 and mousey() <= 108 + y
         Shift_over = 1
         current_tab = 26
      else
         Shift_over = 0
      endif
   else
      Shift_over = 0
   endif

endfunction
function showletters(offsetx, offsety)

   for count = 0 to 25
      if shift_state = 1
         if lettertabs(count,4) = 1
            paste image lettertabs(count,3),lettertabs_pos(count,0) + offsetx,lettertabs_pos(count,1) + offsety
         else
            paste image lettertabs(count,2),lettertabs_pos(count,0) + offsetx,lettertabs_pos(count,1) + offsetY
         endif
      else
         if lettertabs(count,4) = 1
            paste image lettertabs(count,1),lettertabs_pos(count,0) + offsetx,lettertabs_pos(count,1) + offsetY
         else
            paste image lettertabs(count,0),lettertabs_pos(count,0) + offsetx,lettertabs_pos(count,1) + offsety
         endif
      endif
   next count

   if Shift_over
      paste image shift_image2, offsetx + 1, Offsety + 84
   else
      paste image shift_image1, offsetx + 1, offsety + 84
   endif


endfunction



Create_lettertabs:

posx = 1
posy = 1

for count = 0 to 8
lettertabs_pos(count,0) = posx
lettertabs_pos(count,1) = posy

posx = posx + 28
next count

posx = 15
posy = 28

for count = 9 to 16
lettertabs_pos(count,0) = posx
lettertabs_pos(count,1) = posy

posx = posx + 28
next count

posx = 1
posy = 56

for count = 17 to 25
lettertabs_pos(count,0) = posx
lettertabs_pos(count,1) = posy

posx = posx + 28
next count

   for count = 0 to 25
      lettertabs(count,4) = 0
   next count

working_bitmap = available_bitmap()
   create bitmap working_bitmap, 24, 24

basic_component = available_image()
   Create_basic_component()
   get image basic_component, 0, 0, 24,24

   set text size 20
   set Text to Bold

   ink rgb(78,190,252), 0
   lettertabs(0,0) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"a"
      get image lettertabs(0,0), 0, 0, 24, 24

   lettertabs(1,0) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"b"
      get image lettertabs(1,0), 0, 0, 24, 24

   lettertabs(2,0) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"c"
      get image lettertabs(2,0), 0, 0, 24, 24

   lettertabs(3,0) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"d"
      get image lettertabs(3,0), 0, 0, 24, 24

   lettertabs(4,0) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"e"
      get image lettertabs(4,0), 0, 0, 24, 24

   lettertabs(5,0) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"f"
      get image lettertabs(5,0), 0, 0, 24, 24

   lettertabs(6,0) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"g"
      get image lettertabs(6,0), 0, 0, 24, 24

   lettertabs(7,0) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"h"
      get image lettertabs(7,0), 0, 0, 24, 24

   lettertabs(8,0) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"i"
      get image lettertabs(8,0), 0, 0, 24, 24

   lettertabs(9,0) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"j"
      get image lettertabs(9,0), 0, 0, 24, 24

   lettertabs(10,0) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"k"
      get image lettertabs(10,0), 0, 0, 24, 24

   lettertabs(11,0) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"l"
      get image lettertabs(11,0), 0, 0, 24, 24

   lettertabs(12,0) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"m"
      get image lettertabs(12,0), 0, 0, 24, 24

   lettertabs(13,0) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"n"
      get image lettertabs(13,0), 0, 0, 24, 24

   lettertabs(14,0) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"o"
      get image lettertabs(14,0), 0, 0, 24, 24

   lettertabs(15,0) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"p"
      get image lettertabs(15,0), 0, 0, 24, 24

   lettertabs(16,0) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"q"
      get image lettertabs(16,0), 0, 0, 24, 24

   lettertabs(17,0) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"r"
      get image lettertabs(17,0), 0, 0, 24, 24

   lettertabs(18,0) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"s"
      get image lettertabs(18,0), 0, 0, 24, 24

   lettertabs(19,0) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"t"
      get image lettertabs(19,0), 0, 0, 24, 24

   lettertabs(20,0) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"u"
      get image lettertabs(20,0), 0, 0, 24, 24

   lettertabs(21,0) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"v"
      get image lettertabs(21,0), 0, 0, 24, 24

   lettertabs(22,0) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"w"
      get image lettertabs(22,0), 0, 0, 24, 24

   lettertabs(23,0) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"x"
      get image lettertabs(23,0), 0, 0, 24, 24

   lettertabs(24,0) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"y"
      get image lettertabs(24,0), 0, 0, 24, 24

   lettertabs(25,0) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"z"
      get image lettertabs(25,0), 0, 0, 24, 24

Rem *----------------------------------------------*

   ink rgb(255,255,255), 0
   lettertabs(0,1) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"a"
      get image lettertabs(0,1), 0, 0, 24, 24

   lettertabs(1,1) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"b"
      get image lettertabs(1,1), 0, 0, 24, 24

   lettertabs(2,1) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"c"
      get image lettertabs(2,1), 0, 0, 24, 24

   lettertabs(3,1) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"d"
      get image lettertabs(3,1), 0, 0, 24, 24

   lettertabs(4,1) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"e"
      get image lettertabs(4,1), 0, 0, 24, 24

   lettertabs(5,1) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"f"
      get image lettertabs(5,1), 0, 0, 24, 24

   lettertabs(6,1) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"g"
      get image lettertabs(6,1), 0, 0, 24, 24

   lettertabs(7,1) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"h"
      get image lettertabs(7,1), 0, 0, 24, 24

   lettertabs(8,1) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"i"
      get image lettertabs(8,1), 0, 0, 24, 24

   lettertabs(9,1) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"j"
      get image lettertabs(9,1), 0, 0, 24, 24

   lettertabs(10,1) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"k"
      get image lettertabs(10,1), 0, 0, 24, 24

   lettertabs(11,1) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"l"
      get image lettertabs(11,1), 0, 0, 24, 24

   lettertabs(12,1) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"m"
      get image lettertabs(12,1), 0, 0, 24, 24

   lettertabs(13,1) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"n"
      get image lettertabs(13,1), 0, 0, 24, 24

   lettertabs(14,1) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"o"
      get image lettertabs(14,1), 0, 0, 24, 24

   lettertabs(15,1) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"p"
      get image lettertabs(15,1), 0, 0, 24, 24

   lettertabs(16,1) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"q"
      get image lettertabs(16,1), 0, 0, 24, 24

   lettertabs(17,1) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"r"
      get image lettertabs(17,1), 0, 0, 24, 24

   lettertabs(18,1) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"s"
      get image lettertabs(18,1), 0, 0, 24, 24

   lettertabs(19,1) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"t"
      get image lettertabs(19,1), 0, 0, 24, 24

   lettertabs(20,1) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"u"
      get image lettertabs(20,1), 0, 0, 24, 24

   lettertabs(21,1) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"v"
      get image lettertabs(21,1), 0, 0, 24, 24

   lettertabs(22,1) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"w"
      get image lettertabs(22,1), 0, 0, 24, 24

   lettertabs(23,1) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"x"
      get image lettertabs(23,1), 0, 0, 24, 24

   lettertabs(24,1) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"y"
      get image lettertabs(24,1), 0, 0, 24, 24

   lettertabs(25,1) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"z"
      get image lettertabs(25,1), 0, 0, 24, 24

rem *---------------------------------------------*

   ink rgb(78,190,252), 0
   lettertabs(0,2) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"A"
      get image lettertabs(0,2), 0, 0, 24, 24

   lettertabs(1,2) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"B"
      get image lettertabs(1,2), 0, 0, 24, 24

   lettertabs(2,2) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"C"
      get image lettertabs(2,2), 0, 0, 24, 24

   lettertabs(3,2) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"D"
      get image lettertabs(3,2), 0, 0, 24, 24

   lettertabs(4,2) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"E"
      get image lettertabs(4,2), 0, 0, 24, 24

   lettertabs(5,2) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"F"
      get image lettertabs(5,2), 0, 0, 24, 24

   lettertabs(6,2) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"G"
      get image lettertabs(6,2), 0, 0, 24, 24

   lettertabs(7,2) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"H"
      get image lettertabs(7,2), 0, 0, 24, 24

   lettertabs(8,2) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"I"
      get image lettertabs(8,2), 0, 0, 24, 24

   lettertabs(9,2) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"J"
      get image lettertabs(9,2), 0, 0, 24, 24

   lettertabs(10,2) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"K"
      get image lettertabs(10,2), 0, 0, 24, 24

   lettertabs(11,2) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"L"
      get image lettertabs(11,2), 0, 0, 24, 24

   lettertabs(12,2) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"M"
      get image lettertabs(12,2), 0, 0, 24, 24

   lettertabs(13,2) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"N"
      get image lettertabs(13,2), 0, 0, 24, 24

   lettertabs(14,2) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"O"
      get image lettertabs(14,2), 0, 0, 24, 24

   lettertabs(15,2) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"P"
      get image lettertabs(15,2), 0, 0, 24, 24

   lettertabs(16,2) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"Q"
      get image lettertabs(16,2), 0, 0, 24, 24

   lettertabs(17,2) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"R"
      get image lettertabs(17,2), 0, 0, 24, 24

   lettertabs(18,2) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"S"
      get image lettertabs(18,2), 0, 0, 24, 24

   lettertabs(19,2) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"T"
      get image lettertabs(19,2), 0, 0, 24, 24

   lettertabs(20,2) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"U"
      get image lettertabs(20,2), 0, 0, 24, 24

   lettertabs(21,2) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"V"
      get image lettertabs(21,2), 0, 0, 24, 24

   lettertabs(22,2) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"W"
      get image lettertabs(22,2), 0, 0, 24, 24

   lettertabs(23,2) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"X"
      get image lettertabs(23,2), 0, 0, 24, 24

   lettertabs(24,2) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"Y"
      get image lettertabs(24,2), 0, 0, 24, 24

   lettertabs(25,2) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"Z"
      get image lettertabs(25,2), 0, 0, 24, 24

Rem *----------------------------------------------*

   ink rgb(255,255,255), 0
   lettertabs(0,3) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"A"
      get image lettertabs(0,3), 0, 0, 24, 24

   lettertabs(1,3) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"B"
      get image lettertabs(1,3), 0, 0, 24, 24

   lettertabs(2,3) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"C"
      get image lettertabs(2,3), 0, 0, 24, 24

   lettertabs(3,3) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"D"
      get image lettertabs(3,3), 0, 0, 24, 24

   lettertabs(4,3) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"E"
      get image lettertabs(4,3), 0, 0, 24, 24

   lettertabs(5,3) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"F"
      get image lettertabs(5,3), 0, 0, 24, 24

   lettertabs(6,3) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"G"
      get image lettertabs(6,3), 0, 0, 24, 24

   lettertabs(7,3) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"H"
      get image lettertabs(7,3), 0, 0, 24, 24

   lettertabs(8,3) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"I"
      get image lettertabs(8,3), 0, 0, 24, 24

   lettertabs(9,3) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"J"
      get image lettertabs(9,3), 0, 0, 24, 24

   lettertabs(10,3) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"K"
      get image lettertabs(10,3), 0, 0, 24, 24

   lettertabs(11,3) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"L"
      get image lettertabs(11,3), 0, 0, 24, 24

   lettertabs(12,3) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"M"
      get image lettertabs(12,3), 0, 0, 24, 24

   lettertabs(13,3) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"N"
      get image lettertabs(13,3), 0, 0, 24, 24

   lettertabs(14,3) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"O"
      get image lettertabs(14,3), 0, 0, 24, 24

   lettertabs(15,3) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"P"
      get image lettertabs(15,3), 0, 0, 24, 24

   lettertabs(16,3) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"Q"
      get image lettertabs(16,3), 0, 0, 24, 24

   lettertabs(17,3) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"R"
      get image lettertabs(17,3), 0, 0, 24, 24

   lettertabs(18,3) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"S"
      get image lettertabs(18,3), 0, 0, 24, 24

   lettertabs(19,3) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"T"
      get image lettertabs(19,3), 0, 0, 24, 24

   lettertabs(20,3) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"U"
      get image lettertabs(20,3), 0, 0, 24, 24

   lettertabs(21,3) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"V"
      get image lettertabs(21,3), 0, 0, 24, 24

   lettertabs(22,3) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"W"
      get image lettertabs(22,3), 0, 0, 24, 24

   lettertabs(23,3) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"X"
      get image lettertabs(23,3), 0, 0, 24, 24

   lettertabs(24,3) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"Y"
      get image lettertabs(24,3), 0, 0, 24, 24

   lettertabs(25,3) = available_image()
      CLS 0
      paste image basic_component, 0, 0
      center text 12,2,"Z"
      get image lettertabs(25,3), 0, 0, 24, 24

   delete bitmap working_bitmap

   working_bitmap = available_bitmap()
   create bitmap working_bitmap, 52, 24
   Create_shift_component()
   set text size 22
   set text to bold
   center text 25,2,"Shift"
   shift_image1 = available_image()
   get image shift_image1, 0, 0, 52, 24

   delete bitmap working_bitmap

   working_bitmap = available_bitmap()
   create bitmap working_bitmap, 52, 24
   Create_shift_component()
   set text size 22
   set text to bold
   ink rgb(255,255,255), 0
   center text 25,2,"Shift"
   shift_image2 = available_image()
   get image shift_image2, 0, 0, 52, 24

   delete bitmap working_bitmap


   set current bitmap 0

 remstart
 for count = 0 to 3
      for nextcount = 0 to 25
         paste image lettertabs(nextcount,count),1,1
         sync
         wait key
      next nextcount
  next count
 remend

Return

function Create_basic_component()

cls 0
ink rgb(11,12,63), 0

Box 1, 1, 22, 22

ink rgb(78,90,252), 0

Line 0,0,23,0
Line 0,0,0,23
Line 23,0,23,23
Line 0,23,24,23



ink rgb(78,190,252), 0

Line 1,1,22,1
Line 1,1,1,22
Line 22,1,22,22
Line 1,22,23,22

endfunction

function Create_shift_component()

cls 0
ink rgb(11,12,63), 0

Box 1, 1, 52, 52

ink rgb(78,90,252), 0

Line 0,0,52,0
Line 0,0,0,23
Line 51,0,51,23
Line 0,23,52,23



ink rgb(78,190,252), 0

Line 1,1,51,1
Line 1,1,1,22
Line 50,1,50,22
Line 1,22,51,22

endfunction

function available_Bitmap()

   count = 0
   found = 0

   repeat

      count = count + 1
      found = bitmap exist(count)

   until found = 0

endfunction count

function available_image()

   countit = 0
   found = 0

   repeat

      countit = countit + 1
      found = image exist(countit)

   until found = 0

endfunction countit