home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AMOS PD CD
/
amospdcd.iso
/
sourcecode
/
subroutines
/
vert_scroller.amos
/
vert_scroller.amosSourceCode
Wrap
AMOS Source Code
|
1978-01-06
|
1KB
|
86 lines
' *********************
' *** VERT-SCROLLER ***
' *********************
' *** This routine scrolls text vertically from within a bar.
' *** Open screen.
Screen Open 1,640,18,4,Hires
Curs Off
Flash Off
Cls 1
Palette $0,$F00,$FF0,$F0
Screen Display 1,,120,,8
' *** Set scroll zone.
Def Scroll 1,0,0 To 639,17,0,-1
' *** Text data.
DAT:
Data "WELCOME TO THE VERT-SCROLLER"
Data "TO EXIT, HOLD DOWN A MOUSE BUTTON"
Data "THIS SIMPLE SCROLLER SCROLLS TEXT UPWARDS"
Data "FROM WITHIN THIS BAR."
Data "THE TEXT IS READ FROM DATA STATEMENTS"
Data "WHICH ARE LOCATED NEAR THE BOTTOM"
Data "OF THIS ROUTINE"
Data "TO END THE SCROLLER AND LOOP BACK TO THE"
Data "START OF THE TEXT, MAKE THE LAST DATA-STATEMENT"
Data "SAY 'END' DO NOT INCLUDE THE QUOTES...."
Data " "
Data "END"
Restore DAT
' *** Scroll routine.
Repeat
' *** Read next line of text.
Read T$
' *** Check for end of text.
If T$<>"END"
' *** Print text.
Centre At(,1)+T$
' *** Scroll text upwards.
For LOP=1 To 8
Scroll 1
Wait Vbl
Wait Vbl
Next LOP
' *** Clear bottom part.
Cls 1,0,9 To 639,17
' *** Wait.
Wait 150
Else
Restore DAT
End If
' *** If mouse-key, exit loop.
Until Mouse Key
' *** Close screen.
Screen Close 1
' *** Quit.
Direct