'===========================================================================
' Subject: USING GET/PUT TO SCROLL PAGE      Date: 07-18-99 (12:10)       
' Author:  Michael Fincham                   Code: QB, PDS                
' Origin:  maximike@geocities.com          Packet: GRAPHICS.ABC
'===========================================================================
'This routine will scroll the screen upwards smoothly
'Its my first submit, so its freeware, just make sure you tell me if you use
'it. And put my name somewhere on wahtever you use it on
'email= maximike@geocities.com
'web= www.geo.to/pokemike
'by Michael Fincham
SCREEN 7
REM Must make it dynamic,and load qb with the /ah option
REM $DYNAMIC
DIM temps(0) 'Dim it to zero, to save memory untill its needed
PAINT (1, 1), 1
PRINT "Well, this demostrates my smooth scroll"
PRINT "technique. This routine will scroll the"
PRINT "screen upwards smoothly. Its freeware,"
PRINT "just make sure you tell me if you use"
PRINT "it. And put my name somewhere on"
PRINT "whatever you use it on"
PRINT "email= maximike@geocities.com"
PRINT "web= www.geo.to/pokemike"
PRINT "by Michael Fincham"
SHELL "pause" ' shell to dos to wait for a key press
SCREEN , , 1, 0 ' must have visualpage = 1 activepage = 0
PCOPY 0, 1 'copy the active-visual pages
REDIM temps(32767) 'redim the array to be HUGE, I dont know the right size,but
'this seems to work
FOR i = 1 TO 200 'start the loop
GET (0, 1)-(318, 198), temps 'get the screen
CLS 'clear it, try remming this line!(WIERD)
PUT (0, 0), temps 'put it higher up

PAINT (319, 199), 4, 1'use this paint statement to make the scroll 2 color
PCOPY 1, 0'display the handiwork
RANDOMIZE TIMER * RND 'make it random, you dont need this unless there is something random in your program.
NEXT 'cloose the loop
REDIM temps(0) 'make it small + clear the huge memory hogger.
CLS 'clear off
SCREEN , , 0, 0 'reurn screen to normal
PALETTE 0, 0 '????
'The End.
'There is 1 bug I know, you cant have black on the last one pixel, otherwise
'it messes up a bit.