home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib32b.dsk / MONOCHROME.bas < prev    next >
BASIC Source File  |  2023-02-26  |  420b  |  12 lines
  1. 10  REM  **********************
  2. 20  REM  * MONOCHROME         *
  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  HGR : HOME : PRINT  CHR$(17);
  9. 90  FOR X = 0 TO 160
  10. 100  HCOLOR= X - INT(X/6) *6 +1: HPLOT 0,X TO 279,X
  11. 110  NEXT : POKE 49246,0: REM $C05E
  12. 120  VTAB 21: PRINT "Set Control Panel to Monochrome"