home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / subroutines / vert_scroller.amos / vert_scroller.amosSourceCode
Encoding:
AMOS Source Code  |  1978-01-06  |  1.4 KB  |  86 lines
  1. ' *********************
  2. ' *** VERT-SCROLLER ***  
  3. ' *********************
  4.  
  5. ' *** This routine scrolls text vertically from within a bar.
  6.  
  7. ' *** Open screen. 
  8.  
  9. Screen Open 1,640,18,4,Hires
  10. Curs Off 
  11. Flash Off 
  12. Cls 1
  13. Palette $0,$F00,$FF0,$F0
  14. Screen Display 1,,120,,8
  15.  
  16. ' *** Set scroll zone. 
  17.  
  18. Def Scroll 1,0,0 To 639,17,0,-1
  19.  
  20. ' *** Text data. 
  21.  
  22. DAT:
  23. Data "WELCOME TO THE  VERT-SCROLLER"
  24. Data "TO EXIT, HOLD DOWN A MOUSE BUTTON"
  25. Data "THIS SIMPLE SCROLLER SCROLLS TEXT UPWARDS"
  26. Data "FROM WITHIN THIS BAR."
  27. Data "THE TEXT IS READ FROM DATA STATEMENTS"
  28. Data "WHICH ARE LOCATED NEAR THE BOTTOM"
  29. Data "OF THIS ROUTINE"
  30. Data "TO END THE SCROLLER AND LOOP BACK TO THE"
  31. Data "START OF THE TEXT, MAKE THE LAST DATA-STATEMENT"
  32. Data "SAY 'END' DO NOT INCLUDE THE QUOTES...."
  33. Data " "
  34. Data "END"
  35.  
  36. Restore DAT
  37.  
  38. ' *** Scroll routine.
  39.  
  40. Repeat 
  41.    
  42.    ' *** Read next line of text.
  43.    
  44.    Read T$
  45.    
  46.    ' *** Check for end of text. 
  47.    
  48.    If T$<>"END"
  49.       
  50.       ' *** Print text.
  51.       
  52.       Centre At(,1)+T$
  53.       
  54.       ' *** Scroll text upwards. 
  55.       
  56.       For LOP=1 To 8
  57.          Scroll 1
  58.          Wait Vbl 
  59.          Wait Vbl 
  60.       Next LOP
  61.       
  62.       ' *** Clear bottom part. 
  63.       
  64.       Cls 1,0,9 To 639,17
  65.       
  66.       ' *** Wait.
  67.       
  68.       Wait 150
  69.       
  70.    Else 
  71.       
  72.       Restore DAT
  73.       
  74.    End If 
  75.    
  76.    ' *** If mouse-key, exit loop. 
  77.    
  78. Until Mouse Key
  79.  
  80. ' *** Close screen.  
  81.  
  82. Screen Close 1
  83.  
  84. ' *** Quit.
  85.  
  86. Direct