Try working with this.
sync on : sync rate 0 :
color backdrop rgb(0,0,128)
set text font "arial" : set text size 12 : set text transparent
`load image "image.bmp", 1
cls RGB(255,128,64)
get image 1,0,0,50,50
sprite 1, 0, 0, 1
hide sprite 1
image=1
g_SELECT01=1
color backdrop rgb(0,0,128)
do
gosub main_program
loop
main_program:
`if sprite hit(g_SELECT01,image,)=1 and returnkey()<>1
`wait 150
`play sound 2
paste sprite 1, 20, 20
paste sprite 1, 50, 50
paste sprite 1, 80, 80
sync
`endif
return
In Space No One can Hear You Scream! (When your comm Line is cut?)