home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 September / Simtel20_Sept92.cdr / msdos / pcmag / vol8n08.arc / COLORS.BAS next >
BASIC Source File  |  1988-09-25  |  386b  |  12 lines
  1. CLS
  2. FOR Z = 0 TO 7
  3.     LOCATE 5+Z, 10: COLOR Z, 0: PRINT Z; STRING$(25, 219);
  4.     COLOR 7, 0: PRINT TAB(45);: COLOR Z+8: PRINT USING "##"; Z+8;
  5.     PRINT " "; STRING$(25, 219)
  6. NEXT
  7. COLOR 7,0: PRINT: PRINT TAB(15);
  8. INPUT "Enter your choice of color for chart and lettering: ",CLR1
  9. SCREEN 2, 1: OUT 985, (CLR1 - (CLR1 = 0)): CLS
  10. LINE (0, 0)-(639, 199)
  11. X$ = INPUT$(1): SCREEN 0
  12.