31m
37m
31m
031m
37m
31m
37m
31m
031m
37m
3C
131m
031m-x-
1mtu
37mtori
31mal
031m-x-
37m
18C
1m Stone Age Of Programming, Part 3
19C
1m
1m
0mBorland Pascal
1.
9C
31mSTRING.
37m
31m
37m
9C
31m
37m
31m
37m
31m
37m
31m
37m
31m
37m
9C
31m
37m
31m
37m
9C
INSERT
DELETE -
31m
37m
31m
37m
MOVE
255.
31m
37m
9C1
1m
n
1m
30m...
1m
30mwhile SLengthS 32 do Dec S0
1m
30m...
9C
DeleteS, 1, 1
9C2
1m
130m...
130mp:1
130mwhile Sp32 and p lengthS do Incp
130mif p1 then
130m begin
130m movesp,
130m s1,
130m succlengthS - p
130m
130m decS0, predp
130m end
130m...
9C
while ... do
31m
37m
31m
37m
9C
- INSERT
DELETE.
9C3
1m
source
Idx
1m
30m...
1m
30mmove sIdx,
1m
30m sIdx+lengthsource,
1m
30m succlengths-Idx
1m
30m
1m
30mmovesource1, sIdx, lengthsource
1m
30mIncs0, lengthsource
1m
30m...
9C4
1m
s, Count
Idx
1m
30m...
1m
30mmovesIdx+count,
1m
30m sIdx,
1m
30m succlengths - Idx - count
1m
30m
1m
30mDecs0, count
1m
30m...
9C
Pchar.
31m
37m
0.
9C65535
31m
37m
31m
37m
31m
37m
9C
Delphi 2
3
SysUtils
Borland Pascal
9C6
STRINGS.
9CFile USTR.PAS
1mCut
130mUnit Ustr
130minterface
130mprocedure TremStringEndvar S:string Ch:Char
130mprocedure TremStringStartvar S:string Ch:Char
130mprocedure NewInsertsource:string var s:string Idx:integer
130mprocedure NewDeletevar s:string Idx:integer count:integer
130mimplementation
130mprocedure TremStringEndvar S:string Ch:Char
130mbegin
130m while Slengths Ch do DecS0
130mend
130mprocedure TremStringStartvar S:string Ch:Char
130mvar
130m p:integer
130mbegin
130m while sp Ch and p lengths do incp
130mif p1 then
130m begin
130m movesp, s1, succlengths - p
130m Decs0, predp
130m end
130mend
130mprocedure NewInsertsource:string var s:string Idx:integer
130mbegin
130m move sIdx, sIdx+lengthsource, succlengths-Idx
130m movesource1, sIdx, lengthsource
130m Incs0, lengthsource
130mend
130mprocedure NewDeletevar s:string Idx:integer count:integer
130mbegin
130m movesIdx+count, sIdx, succlengths - Idx - count
130m Dec s0, count
130mend
130mend.
1mCut
130m
130mcontributed by
0m
31mdR.Shizer
37m
130m/HRG
31m
37m
25C
130mc H.A.R.M.5
30meof
37m
SAUCE00
19970512