sync on
sync rate 0

cls

create bitmap 65533,128,128
set current bitmap 65533
ink rgb(0,255,0),rgb(0,0,0)
box 0,0,128,128

make memblock from bitmap 8,65533
make image from memblock 65533,8

set current bitmap 0
paste image 65533,0,0

text 0,300,"normal, bitmap size:"+str$(bitmap width(65533))+","+str$(bitmap height(65533))

sync
sync
wait key

cls

create bitmap 65532,bitmap width(65533),(bitmap height(65533)+100)
copy bitmap 65533,0,0,bitmap width(65533),bitmap height(65533),65532,0,0,bitmap width(65532),bitmap height(65532)
make memblock from bitmap 7,65532
delete bitmap 65533
make image from memblock 65533,7
set current bitmap cure
delete memblock 7

set current bitmap 0
paste image 65533,0,0

text 0,300,"problem, the box has not grown, bitmap size:"+str$(bitmap width(65532))+","+str$(bitmap height(65532))
delete bitmap 65532


sync
wait key

create bitmap 1, 200, 200
ink rgb(0, 0, 255), 0
box 10, 10, 190, 190
ink rgb(255, 255, 255), 0
center text 92, 100, "Hello World"
set current bitmap 0

cls
copy bitmap 1, 0, 0, 200, 200, 0, 0, 0, screen width(), screen height()
text 0, 0, "Fill the screen"
wait key

cls
copy bitmap 1, 0, 0, 200, 200, 0, 0, 0, screen width(), 200
text 0, 0, "Expand horizontally"
wait key

cls
copy bitmap 1, 0, 0, 200, 200, 0, 0, 0, 200, screen height()
text 0, 0, "Expand vertically"
wait key

#constant BITMAP_TARGET 0

dot 0, 0, rgb(255, 0, 0)

` This should make a vertical line 100px in length
x_stretch = 1
y_stretch = 100

while spacekey() = 0

   copy bitmap BITMAP_TARGET, 0, 0, 1, 1, BITMAP_TARGET, 0, 0, x_stretch, y_stretch
   sync

endwhile
end