   81txt_col=0:grd_col=0
  131COLOUR3:PROCsing_hgt("Grid Colour: "+FNcol(grd_col),11,8):PROCsing_hgt("Text Colour: "+FNcol(txt_col),11,11)
  281fk2$(b,a)=CHR$1+CHR$27+CHR$1+CHR$114+CHR$1+CHR$txt_col+fk2$(b,a)+CHR$1+CHR$27+CHR$1+CHR$114+CHR$1+CHR$grd_col
  282fk2$(c,a)=CHR$1+CHR$27+CHR$1+CHR$114+CHR$1+CHR$txt_col+fk2$(c,a)+CHR$1+CHR$27+CHR$1+CHR$114+CHR$1+CHR$grd_col
  341grid_col$=CHR$1+CHR$27+CHR$1+CHR$114+CHR$1+CHR$grd_col
  350VDU2:PRINTsup_on$;elite$;cond$;lne_spc$;grid_col$
  791IFchoice$="7" PROCcolours:PROCmenu
  850ypos=7:RESTORE2480
 2330DEFPROCcolours
 2340CLS:PROCtitle:PROCoscli("FX11,0")
 2350REPEAT
 2360PRINTTAB(10,6);"Grid Colour (0-6):"SPC15
 2370get$=GET$:IFASCget$<48 OR ASCget$>54 PROCsound ELSEPRINTTAB(29,6);VALget$:grd_col=VALget$
 2380UNTILASCget$>=48 AND ASCget$<=54
 2390REPEAT
 2400PRINTTAB(10,9);"Text Colour (0-6):"SPC15
 2410get$=GET$:IFASCget$<48 OR ASCget$>54 PROCsound ELSEPRINTTAB(29,9);VALget$:txt_col=VALget$
 2420UNTILASCget$>=48 AND ASCget$<=54
 2430PROCsing_hgt("Are these correct? Y/N",-1,29)
 2440get$=FNget_yn:IFget$="Y"CLS ELSEIFget$="N"VDU28,0,31,39,3:CLS:VDU26:GOTO2350
 2450ENDPROC
 2460DEFFNcol(c)
 2470IFc=0 ="BLACK"ELSEIFc=1 ="RED"ELSEIFc=2 ="BLUE"ELSEIFc=3 ="PURPLE"ELSEIFc=4 ="YELLOW"ELSEIFc=5 ="ORANGE"ELSEIFc=6 ="GREEN" ELSE=""
 2480DATA 1,Enter key details,2,Print key strip,3,Load key strip,4,Save key strip,5,Exit program,6,Clear memory,7,Change print colours,*,Star Command,END,END
