home *** CD-ROM | disk | FTP | other *** search
/ Sauce 'n' Code 3 / sauce-n-code-03.adf / Source_Code / Ascii_Scroller.asc < prev    next >
Text File  |  1996-01-21  |  586b  |  34 lines

  1. ' ASCII Scroller 
  2. ' ¯¯¯¯¯¯¯¯¯¯¯¯¯¯ 
  3. ' cODED bY ßudda/NFA 
  4. ' StARtEd : 13/07/1995 
  5. ' FiNiSHed: 13/07/1995 
  6.  
  7. Screen Open 2,640,15,2,Hires
  8. Screen Display 2,,120,,
  9. Curs Off 
  10. Palette $999,$0
  11. Cls 0
  12. Ink 1,0
  13.  
  14. SCR$=Space$(80)
  15. SCR$=SCR$+"Ip dip blooow-up, skin deep ear wax ... we'll loose it , fetch it out at this speed and we'll loose it on the hibba, hibba, hibaa or something like that!!"
  16. SP=0
  17. SCR$=SCR$+Space$(80)
  18.  
  19. Multi Off : Rem extension! 
  20. Do 
  21.    Text 0,10,Mid$(SCR$,SP,80)
  22.    Inc SP
  23.    If SP=>Len(SCR$) Then SP=0
  24.    Wait Vbl 
  25.    Exit If Inkey$>""
  26. Loop 
  27.  
  28. Multi On : Rem extension! 
  29.  
  30.  
  31.  
  32.  
  33.  
  34.