home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib32b.dsk / BORDEAUX.bas < prev    next >
BASIC Source File  |  2023-02-26  |  528b  |  14 lines
  1. 10  REM  **********************
  2. 20  REM  * BORDEAUX           *
  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  FOR X = 768 TO 810: READ Y
  9. 90  POKE X,Y: NEXT : CALL 768
  10. 100  REM  POKE 788,time delay (1-255)
  11. 110  REM  Color table starts at $325
  12. 120  DATA 173,52,192,72,172,37,3,185,38,3,141,52,192,136
  13. 130  DATA 16,3,172,37,3,162,128,202,208,253,174,0,192,16
  14. 140  DATA 234,104,141,52,192,44,16,192,96,4,0,2,6,7,15