home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib32b.dsk / BLINKY.bas < prev    next >
BASIC Source File  |  2023-02-26  |  814b  |  18 lines
  1. 10  REM  **********************
  2. 20  REM  * BLINKY             *
  3. 30  REM  * BY JON THOMASON    *
  4. 40  REM  * COPYRIGHT (C) 1987 *
  5. 50  REM  * BY MICROSPARC, INC *
  6. 60  REM  * CONCORD, MA  01742 *
  7. 70  REM  **********************
  8. 80 A$ = "Written by Jon C. Thomason"
  9. 90  FOR X = 768 TO 802: READ Y: POKE X,Y: NEXT 
  10. 100  PRINT  CHR$(4)"PR#3": PRINT  CHR$(17) CHR$(27)
  11. 110  TEXT : FOR X = .25 TO 10
  12. 120  VTAB 10: NORMAL : HTAB X *4: PRINT "____": REM  4 UNDERLINES
  13. 130  VTAB 12: INVERSE : HTAB X *4: PRINT "LLLL": REM  4 L'S
  14. 140 S$ = S$ +"     ": NEXT : PRINT  CHR$(24): REM  5 SPACES
  15. 150  VTAB 11: CALL  -868: HTAB 21 - LEN(A$)/2: PRINT A$
  16. 160  NORMAL : VTAB 11: CALL 768: VTAB 20
  17. 170  DATA 173,54,192,41,127,141,54,192,160,39,177,40,73,128,145,40,136
  18. 180  DATA 16,247,173,0,192,48,7,173,25,192,16,251,48,233,44,16,192,96