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