DO;1<-#9DO;1SUB#1<-#97(1)DO%50;1SUB#1<-#103DO;1SUB#1<-#98DO;1SUB#2<-#669DO%66COMEFROM#1DOREADOUT;1