counter=0
for i1=0 to 255
for i2=0 to 255
for i3=0 to 255
for i4=0 to 255
for i5=0 to 255
for i6=0 to 255
for i7=0 to 255
for i8=0 to 255
lock pixels
plot_binary_row(i1,1)
plot_binary_row(i2,2)
plot_binary_row(i3,3)
plot_binary_row(i4,4)
plot_binary_row(i5,5)
plot_binary_row(i6,6)
plot_binary_row(i7,7)
plot_binary_row(i8,8)
inc counter
text 0,20,str$(counter)
unlock pixels
sync
if spacekey() then i1=256:i2=256:i3=256:i4=256:i5=256:i6=256:i7=256:i8=256
cls
next i8
next i7
next i6
next i5
next i4
next i3
next i2
next i1
wait key
function plot_binary_row(value,row)
if value-128>=0 then dot 1,row:value=value-128
if value-64>=0 then dot 2,row:value=value-64
if value-32>=0 then dot 3,row:value=value-32
if value-16>=0 then dot 4,row:value=value-16
if value-8>=0 then dot 5,row:value=value-8
if value-4>=0 then dot 6,row:value=value-4
if value-2>=0 then dot 7,row:value=value-2
if value-1=0 then dot 8,row:value=value-1
endfunction
make some coffee
, 8x8 black and white icon generator for every possible icon, I got bored at 120,000 odd
press space to exit.
Windows: 32 bit extension/graphical shell for a 16bit patch to an 8bit OS originally coded for a 4bit CPU, written by a 2bit company that can't stand 1bit of competition, now available in 64bits.
