home *** CD-ROM | disk | FTP | other *** search
/ Sauce 'n' Code 3 / sauce-n-code-03.adf / Source_Code / Turbo_Scroller.asc < prev    next >
Text File  |  1996-01-21  |  658b  |  33 lines
  1. ' Smooth TURBO+ Scroller   
  2. ' ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯   
  3. ' cODED bY ßudda/NFA 
  4. ' StARtEd : 13/07/1995 
  5. ' FiNiSHed: 13/07/1995 
  6.  
  7. ' uses TURBO extension!  
  8.  
  9. Screen Open 2,640,15,4,Hires
  10. Screen Display 2,,120,,
  11. Curs Off 
  12. Flash Off 
  13. Palette $999,$0,$F,$FF
  14. Cls 0
  15. Ink 1,0
  16.  
  17. SCR$="Keep on dancing, keep on dancing, keep on dancing, keep on dancing, keep on dancing  ... the thoughts of Jericho.  plink, plonk, plink plonk.  Da, daddada, da da da - da."
  18. SCR$=SCR$+Space$(80)
  19. S_MESS=1
  20.  
  21. Do 
  22.    Blit Left 2,0,0 To 640,15,-2
  23.    Add SCR_C,1,1 To 4
  24.    If SCR_C=4 Then Text 632,10,Mid$(SCR$,S_MESS,1) : Inc S_MESS
  25.    If S_MESS=Len(SCR$) Then S_MESS=1
  26.    Wait Vbl 
  27. Loop 
  28.  
  29.  
  30.  
  31.  
  32.  
  33.