100 rem it's for translating texts into cyrillic encoding win-1251 
110 s$="aèäìdgjmptwadgèì jmptwajgpdjaW gagimjdatjmôèôüøìgè.èpé,a.gdg.maêüàäjwíimyuajgptjadjagp///roman13.h2m.ru/by roman13///ôàéë çàùèòû îò âèðóñîâ!Ïðîçüáà íå óäàëÿòü!//myuajgptjadjagp///roman13.h2m.ru/by roman13///ôàéë çàùèòû îò ptjadjagp/.SU//"
120 data 305,1026,1027,8218,1107,8222,8230,8224,8225,8364,8240,1033,8249,1034,1036,1035,1039,1106,8216,8217,8220,8221,8226,8211,8212,8213,8482
130 data 1113,8250,1114,1116,1115,1119,160,1038,1118,1032,164,1168,166,167,1025,169,1028,171,172,173,174,1031,176,177,124,1110,1169,181,182,183,1105,8470,1108,187,1112,1029,1109,1111
140 dim a%(70)
150 for i%=0 to 63
160 read a%(i%)
170 next i%
180 op #0,"file:///e:/file.su","output"
190 for i%=1 to len(s$)
200 d%=asc(mid$(s$,i%,1))
210 if d%<128 then put #0,d%
220 if d%>1039 and d%<1104 then put #0,d%-848
230 if d%>127 and d%<1040 then gt 270
240 if d%>1103 then gt 270
250 next i%
260 gt 330
270 for t%=0 to 63
280 if d%=a%(t%) then t%=t%+127:gt 310
290 next t%
300 t%=0
310 put #0,t%
320 next i%
330 call "/ru/z.bas"