Hi All,
Found this command open imageblock, however it does not seem to work, can someone confrim this.
Rem Project: imageblocksaver
Rem Created: 22/02/2009 09:18:32
Rem ***** Main Source File *****
sync on
sync rate 60
writeimages = 0
readimages = 1
rem make 10 images
for i = 1 to 10
cls
box 0,0,screen width(),screen height(),rgb(rnd(255),rnd(255),rnd(255)),rgb(rnd(255),rnd(255),rnd(255)),rgb(rnd(255),rnd(255),rnd(255)),rgb(rnd(255),rnd(255),rnd(255))
get image i,0,0,screen width(),screen height()
save image "picture"+str$(i)+".bmp",i
next i
cls
rem check if file there if it is clear it
if file exist("myloadofimages")
delete file "myloadofimages"
endif
rem open the image block file for saving
open imageblock "myloadofimages",writeimages
for i = 1 to 10
load image "picture"+str$(i)+".bmp",i
next i
close imageblock
rem check what in it.
PERFORM CHECKLIST FOR IMAGEBLOCK FILES
print " the list";checklist quantity()
sync
sync
wait key
rem delete the image from memroy
for i=1 to 10
delete image i
next i
rem open image block to read in images
open imageblock "myloadofimages",readimages
rem set up delay timer
delay=1000
t=timer()
do
rem show image
if timer()>t+delay
paste image rnd(16)+1,0,0,1
t=timer()
endif
sync
loop
edit put it code brackets for you . opps
Dark Physics makes any hot drink go cold.
