fake bar loading data

fake bar loading data
simulates loading data
adjust it to speed 'that you like
speed 'slow medium or fast

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    rem ******************************
rem *  Fake bar loading data     *
rem +    By Ermanno (Italy)      *
rem ******************************
sync on
sync rate 30

create bitmap 1,640,480
blu=rgb(0,132,252)
grey=rgb(180,180,180)
yellow=rgb(225,242,0)

ink grey,0
box 180,100,477,120

nn=1
ink blu,0
for i=1 to 27
  box 180+n,100,190+n,120
  get image nn,180,100,477,120
  inc n,11
  inc nn,1
next i
delete bitmap 1

set current bitmap 0
set sprite 10,1,1

frame=1
cls 0
rem Here load your data
wait 100

ink yellow,0
center text 320,60,"Loading...."

do
count=count+1
if count>10
  count=0
  inc frame
endif
if frame>27 then exit
rem if frame>27 then frame=1
sprite 10,180,100,frame
sync
loop
cls
Rem ********  put your program here