DO;1<-#2DO;2<-#1DO;3<-#17DO;4<-#1DO,1<-#99DOWRITEIN;1+;2+;3+;4DOREADOUT;1+;2+;3+;2+;1+;2+;3+;4DO;1<-#20DOWRITEIN;1+;4+,1DOREADOUT;1+;2+,1DOWRITEIN;1+;4+,1DOREADOUT;1+;2+,1DOWRITEIN;1+;4+,1DOREADOUT;1+;2+,1