DO;1<-#1DO;3<-#99DOWRITEIN;1+;3DO;2<-#1DO;2SUB#1<-#49DOREADOUT;1+;2DOABSTAINFROM;3SUB#1~#32DOREADOUT;3+;2