DO;1<-#1DOWRITEIN;1+;1+;1DO;1SUB#1<-#4¢#3¢;1SUB#1~#4DOREADOUT;1