+ Code Snippetset 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