MS-WORD
MS-WORD

ZI

S-Wrd

d- tt, html-
Frm:
Sub IN
ditFindFnt .ints = ``, .Undrlin = - 1, .lr = - 1, .Strikthrugh = - 1, .Sursrit = - 1, .Subsrit = - 1, .iddn = - 1, .Smlls = - 1, .lls = - 1, .Sing = ``, .sitin = ``, .rning = - 1, .rningin = ``, .b = `0`, .Fnt = `(
ditRl .Find = ``, .Rl = `i>^/i>`, .Dirtin = 0, .ths = 0, .WhlWrd = 0, .ttrnth = 0, .SundsLik = 0, .Rlll, .Frmt = 1, .Wr = 1
ditFindFnt .ints = ``, .Undrlin = - 1, .lr = - 1, .Strikthrugh = - 1, .Sursrit = - 1, .Subsrit = - 1, .iddn = - 1, .Smlls = - 1, .lls = - 1, .Sing = ``, .sitin = ``, .rning = - 1, .rningin = ``, .b = `0`, .Fnt = `(
ditRl .Find = ``, .Rl = `b>^/b>`, .Dirtin = 0, .ths = 0, .WhlWrd = 0, .ttrnth = 0, .SundsLik = 0, .Rlll, .Frmt = 1, .Wr = 1
ditFindFnt .ints = ``, .Undrlin = 1, .lr = - 1, .Strikthrugh = - 1, .Sursrit = - 1, .Subsrit = - 1, .iddn = - 1, .Smlls = - 1, .lls = - 1, .Sing = ``, .sitin = ``, .rning = - 1, .rningin = ``, .b = `0`, .Fnt = `(n
ditRl .Find = ``, .Rl = `u>^/u>`, .Dirtin = 0, .ths = 0, .WhlWrd = 0, .ttrnth = 0, .SundsLik = 0, .Rlll, .Frmt = 1, .Wr = 1
ditFindFnt .ints = ``, .Undrlin = - 1, .lr = - 1, .Strikthrugh = - 1, .Sursrit = 1, .Subsrit = 0, .iddn = - 1, .Smlls = - 1, .lls = - 1, .Sing = ``, .sitin = ``, .rning = - 1, .rningin = ``, .b = `0`, .Fnt = `(nrm
ditRl .Find = ``, .Rl = `su>[^/su>`, .Dirtin = 0, .ths = 0, .WhlWrd = 0, .ttrnth = 0, .SundsLik = 0, .Rlll, .Frmt = 1, .Wr = 1
hDfultDir `:`, 0
FilSvs .Nm = `SW.`, .Frmt = 2, .Lknnt = 0, .sswrd = ``, .ddru = 1, .Writsswrd = ``, .RmmndRdnly = 0, .mbdFnts = 0, .NtiviturFrmt = 0, .FrmsDt = 0
nd Sub


Frm: qury@mil.ru
Sub rbl()
Dim i s Lng
Fr i = 1 100 ` :(
` => =>
n:
Sltin.v
If (Sltin.t = ` `) hn
Sltin.v Unit:=wdhrtr, unt:=-1
If (Sltin.t = ` `) hn
Sltin.Dlt Unit:=wdhrtr, unt:=1
ls
Sltin.v
i = i + 1
nd If
nd If
If (Sltin.t = hr$(13)) hn
Sltin.v Unit:=wdhrtr, unt:=1
i = i + 1
If (Sltin.t = hr$(13)) hn
Sltin.v Unit:=wdhrtr, unt:=1
i = i + 1
G n
nd If
If (Sltin.t = `@`) hn
Sltin.v Unit:=wdhrtr, unt:=-1
i = i - 1
Sltin.Dlt Unit:=wdhrtr, unt:=1
Sltin.Dlt Unit:=wdhrtr, unt:=1
Sltin.Dlt Unit:=wdhrtr, unt:=1
i = i + 3
G n
nd If
If (Sltin.t > ` `) hn
Sltin.v Unit:=wdhrtr, unt:=-1
i = i - 1
Sltin.Dlt Unit:=wdhrtr, unt:=1
Sltin.Insrtftr (` `)
ls
Sltin.v Unit:=wdhrtr, unt:=2
i = i + 2
If (Sltin.t > ` `) hn
Sltin.v Unit:=wdhrtr, unt:=1
i = i + 1
nd If
nd If
nd If
Nt
nd Sub
Lst-mdifid: u, 25 Jul 2000 07:20:44 G

ZI



. 125050
.: 18.01.02
: 4


Copyright © 2004-2019, `- ` ``