DO;1<-#1DO;2<-#1DOCOMEFROM#9DOWRITEIN;1+;2DO,1<-';1SUB#1'~#255(9)DOREADOUT;1