10 REM > GCOLs
   20 REM Display GCOL colours
   30 :
   40 FOR mode%=0 TO 15
   50   RESTORE
   60   MODE mode%
   70   VDU 23,23,2;0;0;0;
   80   COLOUR &CC:COLOUR &80
   90   PRINT':VDU8:txW%=POS+1
  100   REPEAT:txH%=VPOS+1:PRINT:UNTILtxH%=VPOS+1:CLS
  110   gfW%=txW%*8:gfH%=txH%*(8-2*(mode%=3 OR mode%=6))
  120   REPEAT:gfW%=gfW%*2:UNTIL gfW%>=&400
  130   REPEAT:gfH%=gfH%*2:UNTIL gfH%>=&300
  140   wid%=gfW%DIV4:hgh%=gfH%DIV4
  150   col%=txW%DIV4:row%=txH%DIV4
  160   FOR gcol%=0 TO 15
  170     GCOL 0,gcol%
  180     FOR pix%=hgh%-4 TO 0 STEP -4
  190       MOVE    ((gcol% AND 3)+0)*wid%+0,((gcol% EOR 12) DIV 4)*hgh%+pix%
  200       DRAW    ((gcol% AND 3)+1)*wid%-1,((gcol% EOR 12) DIV 4)*hgh%+pix%
  210       PLOT 69,((gcol% AND 3)+0)*wid%+0,((gcol% EOR 12) DIV 4)*hgh%+pix%+2
  220     NEXT
  230     READ C$
  240     PRINT TAB((gcol% AND 3)*col%+(col%-1)DIV2-0,(txH%AND-2)-((gcol% EOR 12) DIV 4)*row%-row%+row%DIV2-1);~gcol%;
  250     PRINT TAB((gcol% AND 3)*col%+(col%-1)DIV2-1,(txH%AND-2)-((gcol% EOR 12) DIV 4)*row%-row%+row%DIV2-0);C$;
  260   NEXT
  270   PRINTTAB(col%*2-3,0);"MODE ";mode%
  280   IFGET
  290 NEXT
  300 DATA BLK,RED,GRN,YEL,BLU,MAG,CYN,WHT
  310 DATA BLK,RED,GRN,YEL,BLU,MAG,CYN,WHT