home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / scrollers / smoothscroll.amos / smoothscroll.amosSourceCode
Encoding:
AMOS Source Code  |  1994-01-01  |  622 b   |  22 lines
  1. '
  2. ' SMOOTH SCROLLING  BY STORM 
  3. '
  4. ' INSTEAD OF LETTERS YOU COULD TRY GRAPHICS!...1992-93 
  5. '
  6. Screen Open 0,360,40,4,LORES
  7. Screen Display 0,140,230,310,8
  8.    Curs Off : Cls 0 : Pen 2 : Paper 0
  9.    Cls 0 : Flash Off 
  10. Palette $A
  11. Def Scroll 1,0,0 To 350,10,-1,0
  12. TX$="THIS IS A SUPER-SMOOTH SCROLL FOR PEOPLE WHO HAVENT FIGURED IT OUT YET!!!..... WRITTEN BY STORM!.                                                        "
  13. LGTH=Len(TX$) : EC=35
  14. Do 
  15. If F>LGTH Then F=0
  16.    Add F,1
  17.    E$=Mid$(TX$,F,1)
  18.    Locate 41,0 : Print E$;
  19.       Wait Vbl 
  20.       If Key State(95)=True Then Add EC,1
  21.          For I=0 To 7 : Scroll 1 : Next I
  22. Loop