10 REM > Grid
   20 REM Grid of named colours
   30 :
   40 FOR M=-1 TO 127
   50   IF M>=0:MODE M:PRINT "MODE ";M;"  ";LEFT$("-  &"+RIGHT$("0"+STR$~(M AND -8),2)+"+"+STR$(M AND 7),M>7):COLOUR 192+M
   60   N=2:IF M=2 OR M=5:N=1
   70   N=VALMID$("7327323373277377",(M AND 15)+1,1)
   80   FOR A=0 TO 3
   90     FOR L=-2 TO 3
  100       RESTORE
  110       FOR B=0 TO 7
  120         C=B+A*8:COLOUR 128+C:COLOUR C EOR 7
  130         IF L=0:PRINT SPC((N-2)/2);RIGHT$(" "+STR$~C,2);SPC((N-1)/2);
  140         IF L=1:READ A$:PRINT SPC((N-1)/2-1)LEFT$(A$,N);SPC(N/2-1); ELSE IF L:PRINT SPC(N);
  150       NEXT:COLOUR 128:COLOUR 7:IF A*L<9:PRINT
  160     NEXT
  170   NEXT
  180   A=GET:M=M-(M=6):IF M=31:M=95
  190 NEXT M
  200 DATA BLK,RED,GRN,YEL,BLU,MAG,CYN,WHT