home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib32b.dsk / CYCLECOLS.bas < prev    next >
BASIC Source File  |  2023-02-26  |  809b  |  20 lines

  1. 10  REM  **********************
  2. 20  REM  * CYCLECOLS          *
  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 BRDER = 0:BACK = 0:CHAR = 0: FOR I = 0 TO 11: READ X: POKE 768 +I,X: NEXT 
  9. 90  POKE 49186,BACK +16 *CHAR: REM $C022
  10. 100  POKE 800,BACK: CALL 768: REM $C034 also controls clock
  11. 110 BRDER = BRDER +1:BACK = BACK +1:CHAR = CHAR +1
  12. 120  IF BRDER >15  THEN BRDER = BRDER -16
  13. 130  IF BACK >15  THEN BACK = BACK -16
  14. 140  IF CHAR >15  THEN CHAR = CHAR -16
  15. 150  FOR X = 1 TO 100: NEXT 
  16. 160  IF  PEEK(49177) <128  THEN 160
  17. 170  IF  PEEK(49152) <128 GOTO 90
  18. 180  POKE 49186,6 +15 *16: POKE 800,6: CALL 768: REM  restore default colors
  19. 190  END 
  20. 200  DATA 173,52,192,41,240,13,32,3,141,52,192,96