1010 w%=screenwidth(0)
REM йнд йкюбхьх # (мю пюгмшу рекетнмюу он пюгмнлс)
1012 delet_key%=35
REM бпелъ гюдепфйх мю бшунд хг пефхлю ббндю я рейсыеи йкюбхьх
1013 times_key%=2000
REM опхябюхбюел йюдни йкюбхье бнглнфмн-ббндхлше яхлбнкш
1014 text$=""
1019 DIM symb$(10)
1020 symb$(1)="1 !.,?:;^$@="
1021 symb$(2)="2abc"
1022 symb$(3)="3def"
1023 symb$(4)="4ghi"
1024 symb$(5)="5jkl"
1025 symb$(6)="6mno"
1026 symb$(7)="7pqrs"
1027 symb$(8)="8tuv"
1028 symb$(9)="9wxyz"
1029 symb$(0)="0'_+-*/%&#()"
REM опнбепйю мю ббнд/ нрнапюфемхе рейярю
1030 cls:drawline 0,40,w%,40
1031 setcolor 255,0,0:drawstring text$+"|",10,45
1032 setcolor 0,0,0:drawstring text$,10,45:repaint
1033 a$=""
1034 text$=text$+a$
1035 if inkey(0)=0 then goto 1050
1036 if inkey(0)>47 and inkey(0)<58 then n%=inkey(0)-48:goto 1060
1046 if inkey(0)=delet_key% and len(text$)>1 then text$=mid$(text$,1,len(text$)-1):sleep 90
1047 if inkey(0)=delet_key% and len(text$)=1 then text$=""
1050 sleep 90:goto 1030
REM меоняпедярбеммши ббнд яхлбнкю я мюфюрни йкюбхьх
1060 sleep 90
1061 dl%=LEN(symb$(n%)):nom%=0:start%=milliseconds(0)
1062 CLS
1063 for gg%=0 to dl%-1
1064 drawstring mid$(symb$(n%),gg%+1,1),12+(gg%*12),10
1065 next gg%
1066 drawrect 10+nom%*12,10,12,20:drawline 0,40,w%,40:drawstring text$,10,45:repaint
1068 if inkey(0)=0 then goto 1079
1069 if inkey(0)=48+n% then nom%=nom%+1:start%=milliseconds(0):goto 1079
1070 goto 1090
1079 if nom%>=dl% then nom%=0
1080 if (milliseconds(0)-start%)>times_key% then goto 1090
1081 sleep 90:goto 1062
1090 a$=mid$(symb$(n%),nom%+1,1):goto 1034
REM GIFO, яоежхюкэмн дкъ (WORLD MOBILE BASIC.SPACES)