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)