Hi, Confused about this, how do I make it horizontal?
Rem Project: Scroller
Rem Created: 19/01/2003
Rem ***** Main Source File *****
sync rate 0
sync on
hide mouse
load bitmap "PLACE A BITMAP HERE.bmp",1
create bitmap 2,640,480
set current bitmap 1
for i=1 to 480
get image i,0,i-1,640,i
next i
set text opaque
ink rgb(255,255,255),0
dim y(480)
for a=1 to 480
y(a)=a
next a
do
gosub _vScroller
sync
loop
_vScroller:
set current bitmap 2
for i=1 to 480
paste image y(i),0,i
oldy=y(i)
inc oldy
if oldy>480 then oldy=1
y(i)=oldy
next i
text 0,0,str$(screen fps())
set current bitmap 0
copy bitmap 2,0
Return