REM Start of BASIC! Program 
gr.open 0, 0, 0, 255

gr.orientation 1
gr.screen w,h

gr.set.stroke 2 % размер пикселя

gr.color 255,0,0,0,1
gr.rect back,0,0,w,h

% чтение картинки
gr.bitmap.load img,"cartman.png"

% определение размера картинки
gr.bitmap.size img, bx,by

dim normal[48,48]
dim xc[48,48]
dim yc[48,48]
dim ac[48,48]
dim rc[48,48]
dim gc[48,48]
dim bc[48,48]

% ввод по пиксельно
 
for x=1 to bx-1

for y=1 to by-1

% возврат цветовых данных для пикселя
gr.get.bmpixel img,x,y,a,r,g,b

normal[x,y]=img
xc[x,y]=x
yc[x,y]=y
ac[x,y]=a
rc[x,y]=r
gc[x,y]=g
bc[x,y]=b

next y

next x

for x=1 to bx-1

for y=1 to by-1

gr.color ac[x,y],rc[x,y],gc[x,y],bc[x,y]
gr.point normal[x,y],xc[x,y]*10+150,yc[x,y]*10+150

next j

next i

gr.render

do

until 0