home *** CD-ROM | disk | FTP | other *** search
/ Sauce 'n' Code 3 / sauce-n-code-03.adf / Source_Code / Bounder_scroll.asc < prev    next >
Encoding:
Text File  |  1996-01-22  |  752 b   |  37 lines
  1. 'The font is in bank 5 as a picture
  2.  
  3. Load "bounder_scroll.abk"
  4.  
  5. ADVANCE=1 : LETTER=23
  6. Unpack 5 To 1 : Screen Hide 1
  7. Screen Open 0,400,32,8,0 : Screen Display 0,,270,,270+32 : Hide : Flash Off : Get Palette 1 : Cls 0
  8. Def Scroll 1,0,2 To 400,30,-2,0
  9. Double Buffer : Autoback 0
  10. '
  11. SC$="john hardie presents............   arty scroller  ......... created in amos basic and deluxe paint four              "
  12. SC$=Upper$(SC$)
  13. '
  14. Colour Back $FFF : Make Mask 
  15.  
  16. Do 
  17.    If LETTER>=28/2-2
  18.       W$=Mid$(SC$,ADVANCE,1) : W=Asc(W$)
  19.       Paste Bob 360,2,W
  20.       Inc ADVANCE : LETTER=0
  21.       If ADVANCE>Len(SC$) : ADVANCE=1 : End If 
  22.    End If 
  23.    '
  24.    Inc LETTER
  25.    Scroll 1
  26.    Screen Swap 
  27.    Wait Vbl 
  28.    Screen Copy Physic To Logic
  29.    Exit If Inkey$>""
  30. Loop 
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.