home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / ICTARI05.ARJ / ictari.05 / GFA / SCROLLER.GFA (.txt) < prev   
GFA-BASIC Atari  |  1987-04-22  |  978b  |  33 lines
  1. '
  2. '  THIS SCROLL TEXT WAS WRITTEN BY STEVEN JORDAN
  3. '                AND ANDREW MARTIN
  4. '          OF THE GREAT DIAMOND SOFTWARE
  5. '
  6. '       THIS LOOKS BEST WHEN IN MEDIUM RES !
  7. '
  8. '
  9. CLS
  10. HIDEM
  11. p0$="                                "
  12. p1$="HELLO AND WELCOME TO THE GFA SCROLLER"
  13. p2$=" WRITTEN BY DIMOND SOFTWARE. THIS TEXT "
  14. p3$="SCROLLER USES PIXEL SCROLLING TO MAKE"
  15. p4$=" IT AS SMOOTH A POSSIBLE.  WRAP       "
  16. '
  17. pixel$=SPACE$(20)+p0$+p1$+p2$+p3$+p4$
  18. l%=LEN(pixel$)
  19. '
  20. DO
  21.   FOR x%=1 TO l%
  22.     PRINT AT(1,25);MID$(pixel$,x%,39);
  23.     GET 0,192,319,199,t$
  24.     FOR x1%=0 TO -7 STEP -1
  25.       PUT x1%,192,t$
  26.     NEXT x1%
  27.   NEXT x%
  28. LOOP
  29. '
  30. '
  31. '
  32. '                       END
  33.