10 DEFFNS="Key1"
   20 MODE7
   30 VDU23;8202;0;0;0;
   40 PRINT'"    ‚Master Function Key Utility"
   50 PRINT"    Master Function Key Utility"
   60 PRINT'TAB(10)"ƒFor 8-Bit Software"
   70 PRINT'TAB(10)"…By C.J.Richardson."
   80 PRINT'"‚This short utility will save Master"
   90 PRINT"‚function keys 0 to 10 to disc so that"
  100 PRINT"‚they will load using*EXEC<filename>."
  110 PRINT"‚This program contains some function"
  120 PRINT"‚key definitions for example purposes."
  130 PRINT"‚Either remove the lines or change them"
  140 PRINT"‚to your own requirements."
  150 PRINT'"†Please enter a filename to save your"
  160 PRINT"†definitions by.RETURN†for KeyDefs."''
  170 REPEAT
  180 INPUT"ƒ"A$
  190 IF A$="" A$="KeyDefs"
  200 *K.0MODE 7|M|NLIST|M
  210 *K.1MODE128|M|NLIST|M
  220 *K.2V.7|M
  230 *K.3
  240 *K.4
  250 *K.5
  260 *K.6
  270 *K.7
  280 *K.8
  290 *K.9
  300 *K.10O.|M|NLIST|M
  310 OSCLI"*SPOOL "+A$
  320 FORL%=0TO10
  330 PRINT"*K."STR$L%;
  340 OSCLI"SHOW "+STR$(L%)
  350 NEXT
  360 *SPOOL
  370 PRINT'"†Now type*EX. ";A$;"†for f keys."