Т > MOS щєmos(m%):Й X%,Y% -A%=ra%:X%=rx%+256*ry%:Y%=ry%:C%=rp%:rp%=0 (х▌ m% й 2и &13,&FFF4:=єmos_byte <и &33,&FFEE:О A%:=0 Fи &FFEC:О 13:=0 Pи &FFE7:ж &FFE7:=0 Zи &FFE3:ж &FFE3:=0 d'и &43,&FFE0:ra%=╔:rp%=(ra%=27)─1:=0 nи &73,&FFD7:=єmos_bget xи &83,&FFD4:=єmos_bput ┌и &A3,&FFCE:=єmos_find ▄и &63,&FFDA:=єmos_args √и &B3:=єmos_quit ═и &C3:=єmos_lang ╙к ЄX%=X%+mem%:Y%=X%│256 Ўх▌ m% й хи &03,&FFF7:=єmos_cli ри &23,&FFF1:=єmos_word эи &53,&FFDD:=єmos_file Фи &93,&FFD1:=єmos_gbpb Пк З=0 : щєmos_cli:Рcmd($X%,╧):=0 : "щєmos_byte ,Г A%=&82:rx%=0:ry%=&00:=0 6Г A%=&83:rx%=0:ry%=&08:=0 @+Г A%=&84:rx%=prog%─255:ry%=prog%│256:=0 JLГ A%>123:ГA%<127:mem%?escflg%=128*(A%─1):Ъ"FX15" :Т Clear/Set/Ack Escape TiГ os%<>32:X%=X%─255:A%=╨&FFF4:rx%=(A%─&FF00)│256:ry%=(A%─&FF0000)│65536:rp%=(A%─&1000000)│&1000000:=0 ^@Г A%=128:Гrx%=7:х≈ rx%,A%,A%:ry%=(rx%>>8)─255:rx%=rx%─255:=0 h@Г A%=128:Гrx%=8:х≈ A%,rx%,A%:ry%=(rx%>>8)─255:rx%=rx%─255:=0 rх▌ A% й |и 0:rx%=32:=0 ├и 127:rx%=е#rx%:=0 ░0и 128:A%=√(rx%+256*ry%):rx%=A%:ry%=A%│256:=0 >и 129:A%=і(rx%+256*ry%):rx%=A%:ry%=A%│256:Рcarry(A%=-1):=0 єи 134:rx%=╠:ry%=╪:=0 ўи 135:rx%=╔(╠,╪):ry%=К:=0 ╦ и 160: Pry%=rx%+1:ry%=(@vdu%!(((ry%─-4)+╩а"0312",(ry%─3)+1,1)-2)*4))│(8*(1+(ry%─1))) Irx%=(@vdu%!(((rx%─-4)+╩а"0312",(rx%─3)+1,1)-2)*4))│(8*(1+(rx%─1))):=0 бк л=0 ж: Ющєmos_word Й`ГA%=0:A%=!X%─&FFFF:mem%?255=0:osw0%=╧:РEscOn:Х├""A$:РEscOff:$(mem%+A%)=A$:osw0%=ё:ry%=╘A$:=0 ТГos%<>32 └ A%=10:ж &FFF1:=0 Чх▌ A% й и 1:!X%=▒:=0 и 2:я=!X%:=0 и 7:т !X%,X%!2,X%!4,X%!6:=0 &Uи 8:Б ?X%,X%?1,X%?2,X%?3,X%?4,X%?5,X%?6,X%?7,X%?8,X%?9,X%?10,X%?11,X%?12,X%?13:=0 0и 14:$X%=▒$:=0 :и 15:я$=$X%:=0 Dк N=0 X: bщєmos_file l7ГA%=254:ГX%?5 =&FF:X%?5=0 ▀ Г A%=254:X%!2=X%!2+mem% v7ГA%=255:ГX%?5 =&FF:X%?5=0 ▀ Г A%=255:X%!2=X%!2+mem% ─QГA%=0 :ГX%?13=&FF:X%?13=0:X%?17=0 ▀ Г A%=0:X%!10=X%!10+mem%:X%!14=X%!14+mem% ┼fn%=mem%+(!X% ─ &FFFF) ■hГ os%<32:х≥ "OS_File",A%,fn%,X%!2,X%!6,X%!10,X%!14 ╦ ra%,,X%!2,X%!6,X%!10,X%!14 ▀ ra%=єfile($fn%,A%) ·_Т SYS "OS_File",A%,mem%+(!X% AND &FFFF),X%!2,X%!6,X%!10,X%!14 TO ra%,,X%!2,X%!6,X%!10,X%!14 ╗=0 ╡5Т DEFPROCaddr(A%):IFX%!A%<&10000:X%!A%=mem%+A%!X% ╪ Т ENDPROC ф: п6щєmos_bget:ra%=(╨&FFD7):rp%=ra%│256:ra%=ra%─255:=0 з: Дщєmos_bput:ж &FFD7:=0 Н: Ьщєmos_find:ГA%=0:ы#Y%:=0 -Г (A%─&C0)=&40:ra%=єopenin($(mem%+X%)):=0 .Г (A%─&C0)=&80:ra%=єopenout($(mem%+X%)):=0 -Г (A%─&C0)=&C0:ra%=єopenup($(mem%+X%)):=0 : *щєmos_gbpb 42ra%=X%?5 :Гra%=&FF:X%?5=0 ▀ X%!1=X%!1+mem% >0A%=╨&FFD1:Гra%=&FF:X%?5=&FF ▀ X%!1=X%!1-mem% Hra%=A%─255:rp%=A%│256:=0 R: \щєmos_args fГY%=0:ГA%=0:ra%=єfs:=0 p*ГY%=0:mem%!X%=єargs(ra%,Y%,mem%!X%):=0 zГA%=0:mem%!X%=▐#Y%:ra%=0:=0 └ГA%=1:о#Y%=mem%!X%:ra%=0:=0 ▌ГA%=2:mem%!X%=╒#Y%:ra%=0:=0 ≤ГA%=3:╒#Y%=mem%!X%:ra%=0:=0 ╒ГA%=4:mem%!X%=╒#Y%:ra%=0:=0 ╛ mem%!X%=єargs(A%,Y%,mem%!X%) І=0 ю: йщєmos_quit:=╧ тщєmos_lang:=0 Ъ