再贴一次，

OPN #scr_db //source DB
LAR1 P#DBX 0.0 //POINTER
L MB 10
SLD 3
+AR1 //search the first byte
L DBB [AR1,P#0.0]
L 255 //起始字符
==I
JCN sp2
L MB 10 //find the first byte
+ 1
T MB 10
JU r_mv
sp2: L MB 10
+ 1
T MB 10
BEU

r_mv: OPN #scr_db //move data to temp
LAR1 P#DBX 0.0
L MB 10
SLD 3
+AR1
LAR2 P#M 100.0 //
L 15 //get 15 bytes

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 //save to another DB
LAR1 P#DBX 0.0
LAR2 P#M 100.0

//move data from temp to another DB
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 //next scan
T MB 10
BEU