DO;1<-#1DO,1<-#99DOCOMEFROM#9DOWRITEIN;1+,1DO.1<-;1SUB#1~#255DOABSTAINFROM.1(61)DOREADOUT;1DOREINSTATE.1(9)DOREADOUT,1