home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib32b.dsk / SET.COLORS.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  18 lines
  1. 10  REM  **********************
  2. 20  REM  * SET.COLORS         *
  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  HOME : FOR I = 0 TO 11: READ X: POKE 768 +I,X: NEXT 
  9. 90  INVERSE : PRINT "ENTER Q AT ANY PROMPT TO QUIT": NORMAL 
  10. 100  INPUT "BACKGROUND COLOR (0-15): ";X$:BACK =  VAL(X$): ON X$ = "Q"  OR X$ = "q" GOTO 160: IF BACK <0  OR BACK >15  OR X$ = ""  THEN  PRINT  CHR$(7): GOTO 100
  11. 110  INPUT "TEXT COLOR (0-15): ";X$:TXT =  VAL(X$): ON X$ = "Q"  OR X$ = "q" GOTO 160: IF TXT <0  OR TXT >15  OR X$ = ""  THEN  PRINT  CHR$(7): GOTO 110
  12. 120  INPUT "BORDER COLOR (0-15): ";BRDR$:BRDR =  VAL(BRDR$): ON X$ = "Q"  OR X$ = "q" GOTO 160: IF BRDR <0  OR BRDR >15  OR BRDR$ = ""  THEN  PRINT  CHR$(7): GOTO 120
  13. 130  POKE 49186,BACK +16 *TXT: REM  $C022
  14. 140  POKE 800,BRDR: CALL 768: REM  $C034 ALSO CONTROLS CLOCK
  15. 150  GOTO 90
  16. 160  POKE 49186,6 +16 *15: POKE 800,6: CALL 768: REM  RESTORE DEFAULT COLORS
  17. 170  END 
  18. 180  DATA 173,52,192,41,240,13,32,3,141,52,192,96