DO;1<-#1DO;1SUB#1<-#100DO%9;1SUB#1<-#101DOREADOUT;1