filedialog "Select image...", "*.bmp", file$
open file$ for input as #file
data$ = input$(#file, lof(#file))
close #file
header$ = right$(data$, 54)
data$ = right$(data$, len(data$) - 54)
length = len(data$)
width = 600
height = 400
y = height
x = 0

WindowWidth = width + 50
WindowHeight = height + 50
graphicbox #main.graphic, 0, 0, width, height - 1
open "Image rapist" for window_nf as #main
print #main, "trapclose [close]"
print #main.graphic, "down"
for i = 1 to length
    pix = asc(left$(data$, 1))
    data$ = right$(data$, len(data$) - 1)
    print #main.graphic, "color ";255-pix;" ";255-pix;" ";pix
    print #main.graphic, "set ";x;" ";y - 1
    print #main.graphic, "set ";x;" ";y - 2
    print #main.graphic, "set ";x;" ";y - 3
    if x = width then
        x = 0
        y = y - 3
        scan
    else
        x = x + 1
    end if
    if y < 0 then [end]
next

[end]
wait

[close]
close #main
end