DO,1<-#3DOWRITEIN,1DO,1SUB#3<-"¥',1SUB#3¢#2'"~#682DOREADOUT,1