lar1 p##address //把LAR1 改为L
lar1 //后面加上TAR2 以及+AR1
l w[ar1,p#0.0]
t temp1 //temp1为临时变 量，定义为数据块编号
opn db[temp1]
l d[ar1,p#2.0]
lar1
tar2 //删除
+ar1 //删除
l 4
c1:t temp2
l data_in
t w[ar1,p#0.0]
+ar1 p#2.0
l temp2
loop c1

我已经试过了