10DEFFNS="Key1"
20MODE7
30VDU23;8202;0;0;0;
40PRINT'"
50PRINT"
60PRINT'TAB(10)" For 8-Bit Software"
70PRINT'TAB(10)" By C.J.Richardson."
80PRINT'" This short utility will sav
e Master"
90PRINT" function keys 0 to 10 to dis
c so that"
100PRINT" they will load using *EXEC<f
ilename>."
110PRINT" This program contains some f
unction"
120PRINT" key definitions for example
purposes."
130PRINT" Either remove the lines or c
hange them"
140PRINT" to your own requirements."
150PRINT'" Please enter a filename to
save your"
160PRINT" definitions by. RETURN for K
eyDefs."''
170REPEAT
180INPUT" "A$
190IF 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
310OSCLI"*SPOOL "+A$
320FORL%=0TO10
330PRINT"*K."STR$L%;
340OSCLI"SHOW "+STR$(L%)
350NEXT
360*SPOOL
370PRINT'" Now type *EX. ";A$;" for f
keys."