home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma33.dms / ma33.adf / Amos / AMOS.lha / 07-Przesuwanie_tekstu / 2-ProstyScroll.AMOS / 2-ProstyScroll.amosSourceCode
AMOS Source Code  |  1995-01-11  |  380b  |  13 lines
  1. ' ProstyScroll (C) 1994 By Arni Fusik
  2. '
  3. TEKST$=""
  4. TEKST$=TEKST$+"                                      "
  5. TEKST$=TEKST$+"Co masz zrobi� jutro, zr�b pojutrze b�"
  6. TEKST$=TEKST$+"dziesz mia� dwa dni wolnego...        "
  7. TEKST$=TEKST$+"                                      "
  8. Do 
  9.    For I=1 To Len(TEKST$)-40
  10.       Print At(0,11);Mid$(TEKST$,I,40);
  11.       Wait Vbl 
  12.    Next 
  13. Loop