2000 z=0 : goto 2020
2010 z=3 
2020 input "image number"; s
2100 open 15,10,15
2102 open 5,10,5, "#0"
2104 open 6,10,6, "#1"
2110 for x=0 to 181 : read n
2120 print#15,"m-w" chr$(x) chr$(4) chr$(1) chr$(n) : next
2130 s=s*3
2140 s1=s and 255
2142 s2=int(s/256) and 255
2144 s3=(int(s/65536) and 255) or 224
2150 print#15,"m-w"chr$(182)chr$(4)chr$(3)chr$(s1)chr$(s2)chr$(s3)
2160 :
2220 print#15,"m-e" chr$(z) chr$(4)
2230 close 5 : close 6 : close 15
2240 end
4000 data 76,6,4,76,41,4,162,128,32,140,4,32,157,4,169,48,141,7,16,173,7
4010 data 16,48,251,162,0,189,0,3,141,0,16,232,208,247,32,76,4,76,6,4,32
4020 data 157,4,169,32,141,7,16,173,7,16,48,251,162,0,173,0,16,157,0,3,232
4030 data 208,247,162,144,32,140,4,32,76,4,76,41,4,238,181,4,208,13,238,182
4040 data 4,208,8,238,183,4,208,3,238,184,4,238,170,4,173,170,4,172,179,4
4050 data 217,171,4,144,31,169,0,141,170,4,238,169,4,173,169,4,217,175,4
4060 data 144,15,206,179,4,16,10,104,104,173,0,28,41,247,141,0,28,96,173,169
4070 data 4,133,6,173,170,4,133,7,134,0,165,0,48,252,96,162,4,189,180,4
4080 data 157,2,16,202,16,247,96,1,0,17,18,19,21,36,31,25,18,3,1,1
4090 rem xxxx