DO,1<-#9DOCOMEFROM#9DOWRITEIN,1DOREINSTATE,1SUB#1DO.1<-"¥'#3¢,1SUB#3'"~#341(1)DO.1<-'.1~.1'~#1DO,1SUB#3<-#0DOCOMEFROM.1(9)DOREADOUT,1