print "hello world!!" cls 3 BLoad "data.bmp", bmp offsetX=200 offsetY=10 Put@ (offsetX,offsetY),bmp,PSet dim dataa[16] as word kill "data.asm" Open "data.asm" As #1 print #1,"data:" for x=0 to 1024-128-5 for y=0 to 15 dot=0 if (Point(x+offsetX,y+offsetY)) = 0 then dot=1 dataa(y) = dot next y n$="" print Using ".dW 0b#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@";dataa(0),n$,dataa(1),n$,dataa(2),n$,dataa(3),n$,dataa(4),n$,dataa(5),n$,dataa(6),n$,dataa(7),n$,dataa(8),n$,dataa(9),n$,dataa(10),n$,dataa(11),n$,dataa(12),n$,dataa(13),n$,dataa(14),n$,dataa(15) Print #1,Using ".dW 0b#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@";dataa(0),n$,dataa(1),n$,dataa(2),n$,dataa(3),n$,dataa(4),n$,dataa(5),n$,dataa(6),n$,dataa(7),n$,dataa(8),n$,dataa(9),n$,dataa(10),n$,dataa(11),n$,dataa(12),n$,dataa(13),n$,dataa(14),n$,dataa(15) Pset(x+offsetX,offsetY+16+2),7 next x Close #1