楼主，对于你的问题，
我简单写了一些，希望对你能有帮助。
顺便提个醒，
有时候不能太懒，直接让别人给你写程序
不利于自己的提高。。。

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