1010 w%=screenwidth(0)
REM ÊÎÄ ÊËÀÂÈØÈ # (ÍÀ ÐÀÇÍÛÕ ÒÅËÅÔÎÍÀÕ ÏÎ ÐÀÇÍÎÌÓ)
1012 delet_key%=35
REM ÂÐÅÌß ÇÀÄÅÐÆÊÈ ÍÀ ÂÛÕÎÄ ÈÇ ÐÅÆÈÌÀ ÂÂÎÄÀ Ñ ÒÅÊÓÙÅÉ ÊËÀÂÈØÈ
1013 times_key%=2000
REM ÏÐÈÑÂÀÈÂÀÅÌ ÊÀÄÎÉ ÊËÀÂÈØÅ ÂÎÇÌÎÆÍÎ-ÂÂÎÄÈÌÛÅ ÑÈÌÂÎËÛ
1014 text$=">"
1019 DIM symb$(10):DIM mas$(100)
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
REM ÄÅËÀÅÌ ÏÎÄÑÂÅÒÊÓ ÑÈÍÒÀÊÑÈÑÀ (ÎÉ ËÎË...)
1110 s$=text$
REM ÐÀÑ×ËÅÍßÅÌ ÑÒÐÎÊÓ ÍÀ (ÍÀÇÂÀÍÈÅ ÏÅÐÅÌÅÍÍÛÕ) È ÏÐÎ×ÈÅ ÑÈÌÂÎËÛ
1120 kol%=0:tt$=""
1130 for t%=1 to LEN(s$)
1140 smb$=mid$(s$,t%,1):z%=asc(smb$):tt$=tt$+smb$
1150 if z%>122 or z%<48 or (z%>57 and z%<97) then goto 1162
1160 next t%
1161 goto 1180
1162 dl%=len(tt$)
1163 if dl%=1 then mas$(kol%)=tt$:kol%=kol%+1:tt$="":goto 1160
1164 if dl%>1 then mas$(kol%)=mid$(tt$,1,dl%-1):mas$(kol%+1)=smb$:kol%=kol%+2:tt$="":goto 1160
REM ÊÀÆÄÎÉ ×ÀÑÒÈ ÑÒÐÎÊÈ ÏÎÄÁÈÐÀÅÌ ÑÂÎÉ ÖÂÅÒ È ÐÈÑÓÅÌ
1180 for t%=0 to kol%-1
1181 st$=mas$(kol%-1-t%):r%=1:g%=1:b%=1:pos%=1:dl%=len(st$)
1182 r%=r%*asc(mid$(st$,pos%,1)):pos%=pos%+1:if r%>160 then r%=mod(r%,160)
1183 if pos%>dl% then goto 1190
1184 g%=g%*asc(mid$(st$,pos%,1)):pos%=pos%+1:if g%>160 then g%=mod(g%,160)
1185 if pos%>dl% then goto 1190
1186 b%=b%*asc(mid$(st$,pos%,1)):pos%=pos%+1:if b%>160 then b%=mod(b%,160)
1187 if pos%>dl% then goto 1190
1188 goto 1182
1190 setcolor r%,g%,b%:tt$="":q%=0
1191 tt$=tt$+mas$(q%):q%=q%+1:if q%>(kol%-1-t%) then goto 1193
1192 goto 1191
1193 drawstring tt$,10,45
1194 next t%
1195 repaint
REM ÇÀÊÎÍ×ÈËÈ ÄÅËÀÒÜ ÏÎÄÑÒÂÅÒÊÓ ÑÈÍÒÀÊÑÈÑÀ
1233 a$=""
1234 text$=text$+a$
1235 if inkey(0)=0 then goto 1250
1236 if inkey(0)>47 and inkey(0)<58 then n%=inkey(0)-48:goto 1260
1246 if inkey(0)=delet_key% and len(text$)>1 then text$=mid$(text$,1,len(text$)-1):sleep 90
1250 sleep 90:goto 1030
REM ÍÅÏÎÑÐÅÄÑÒÂÅÍÍÛÉ ÂÂÎÄ ÑÈÌÂÎËÀ Ñ ÍÀÆÀÒÎÉ ÊËÀÂÈØÈ
1260 sleep 90
1261 dl%=LEN(symb$(n%)):nom%=0:start%=milliseconds(0)
1262 CLS
1263 for gg%=0 to dl%-1
1264 drawstring mid$(symb$(n%),gg%+1,1),12+(gg%*12),10
1265 next gg%
1266 drawrect 10+nom%*12,10,12,20:drawline 0,40,w%,40:drawstring text$,10,45:repaint
1268 if inkey(0)=0 then goto 1279
1269 if inkey(0)=48+n% then nom%=nom%+1:start%=milliseconds(0):goto 1279
1270 goto 1290
1279 if nom%>=dl% then nom%=0
1280 if (milliseconds(0)-start%)>times_key% then goto 1290
1281 sleep 90:goto 1262
1290 a$=mid$(symb$(n%),nom%+1,1):goto 1234
REM GIFO, ÑÏÅÖÈÀËÜÍÎ ÄËß (WORLD MOBILE BASIC.SPACES)