DO,1<-#5DOWRITEIN,1DOABSTAINFROM',1SUB#3'~#5(1)DO,1SUB#3<-#12(1)DO,1SUB#4<-#24(1)DO,1SUB#5<-#0(3)DO,1SUB#3<-#21(3)DO,1SUB#4<-#1(3)DO,1SUB#5<-#5DOREADOUT,1