DO;1<-#3DO;2<-#1DOWRITEIN;1(1)DO:1<-;1SUB#3(1)DO:2<-;1SUB#2(2)DO;2SUB#1<-#101DOCOMEFROM':2~:2'~#1(2)DO;2SUB#1<-#100DOCOMEFROM':1~:1'~#1DO;2SUB#1<-#97DOCOMEFROM#2DOREADOUT;2