CLS
FOR Z = 0 TO 7
    LOCATE 5+Z, 10: COLOR Z, 0: PRINT Z; STRING$(25, 219);
    COLOR 7, 0: PRINT TAB(45);: COLOR Z+8: PRINT USING "##"; Z+8;
    PRINT " "; STRING$(25, 219)
NEXT
COLOR 7,0: PRINT: PRINT TAB(15);
INPUT "Enter your choice of color for chart and lettering: ",CLR1
SCREEN 2, 1: OUT 985, (CLR1 - (CLR1 = 0)): CLS
LINE (0, 0)-(639, 199)
X$ = INPUT$(1): SCREEN 0