DO;2<-#3DOWRITEIN;2DO:1<-;2SUB#1DO;2SUB#1<-#27(1)DO;2SUB#2<-#238DO;2SUB#1<-#12DO;2SUB#2<-#195DO;2SUB#3<-#230DOCOMEFROM:1~#1DOREADOUT;2