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)