这是我解决数据处理的一个程序，
发在sherry的 “求救，数据处理”帖子里
你也可以去他的帖子里看看，

OPN #scr_db

LAR1 P#DBX 0.0

L MB 10

SLD 3

+AR1

L DBB [AR1,P#0.0]

L 255 //起始字符

==I

JCN sp2

L MB 10

+ 1

T MB 10

JU r_mv



sp2: L MB 10

+ 1

T MB 10

BEU



r_mv: OPN #scr_db

LAR1 P#DBX 0.0

L MB 10

SLD 3

+AR1

LAR2 P#M 100.0

L 15



back: T #count

L B [AR1,P#0.0]

T B [AR2,P#0.0]



+AR1 P#1.0

+AR2 P#1.0

L #count

LOOP back





OPN #des_db

LAR1 P#DBX 0.0

LAR2 P#M 100.0

L 15

send: T #count



L B [AR2,P#0.0]

T B [AR1,P#0.0]

+AR1 P#1.0

+AR2 P#1.0

L #count

LOOP send



L 0

T MB 10

BEU