home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib23a.dsk / MARCH.1985 / SPINNER.DEMO2.bas < prev   
BASIC Source File  |  2023-02-26  |  529b  |  14 lines
  1. 10  REM  ***********************
  2. 20  REM  *   SPINNER.DEMO2     *
  3. 30  REM  *  BY STEVE KEARNS    *
  4. 40  REM  * COPYRIGHT (C) 1985  *
  5. 50  REM  * BY MICRO SPARC, INC *
  6. 60  REM  * CONCORD, MA  01742  *
  7. 70  REM  ***********************
  8. 80  PRINT  CHR$(4)"BLOAD SPINNER"
  9. 90  HOME 
  10. 100  POKE 24770,2: REM  NUMBER OF CHARACTERS IN STRING
  11. 110  POKE 24771,32: REM  SPACE
  12. 120  POKE 24772,160: REM  INVERSE SPACE
  13. 130  CALL 24624: REM  RESET INDEXES AND MOVE THE MESSAGE ONCE
  14. 140  FOR X = 1 TO 500: FOR Y = 1 TO 90: NEXT Y: CALL 24630: NEXT X