10 '
20 ' USING F1 - F10 KEYS
30 '
40 ' FIRST IS TO CLEAR F1-F1O in BASIC
50 '
60 DATA KEY1, KEY2, KEY3, KEY4, KEY5, Key6, key7, key8, key9, key0
70 FOR N=1 TO 10: READ SOFTKEYS$(N)
80 KEY N, SOFTKEYS$(I)
90 NEXT N
100 KEY ON
110 '
120 ' *** INKEY$ FOR INPUT
130 ' ## PAGE UP , PAGE DOWN & Esc keys can program
140 A$=INKEY$:IF A$="" THEN 140
150 IF A$=CHR$(0)+";" THEN PRINT "F1":END
160 IF A$=CHR$(0)+":" THEN PRINT "F?":END
170 IF A$=CHR$(0)+"<" THEN PRINT "F2":END
180 IF A$=CHR$(0)+"=" THEN PRINT "F3":END
190 IF A$=CHR$(0)+">" THEN PRINT "F4":END
200 IF A$=CHR$(0)+"?" THEN PRINT "F5":END
210 IF A$=CHR$(0)+"@" THEN PRINT "F6":END
220 IF A$=CHR$(0)+"A" THEN PRINT "F7":END
230 IF A$=CHR$(0)+"B" THEN PRINT "F8":END
240 IF A$=CHR$(0)+"C" THEN PRINT "F9":END
250 IF A$=CHR$(0)+"D" THEN PRINT "F10":END
260 IF A$=CHR$(0)+"E" THEN PRINT "??":END
270 GOTO 140
If you would like to refer to this comment somewhere else in this project, copy and paste the following link:
Place to post programs that help programing and understanding how Basic work.
I start making the little programs back 1981
please post your's here
David Smith
This one like it changes the F keys to how I want the keys
I also add to exit of new programs
8000 ' *****
8010 '
8020 ' * ### START menu FOR BASIC
8030 ' * By David B. Smitth
8040 ' * Clovis, California
8050 ' * free to use
8060 ' * no copyright 2020
8070 ' *******
8140 KEY 1,"List "
8160 KEY 2,"RUN"+CHR$(13)
8180 KEY 3,"load "+CHR$(34)
8200 KEY 4,"SAVE"+CHR$(34)
8210 KEY 5,"Edit "
8220 KEY 6,"Renum "
8240 KEY 7,"FILES"+CHR$(34)
8260 KEY 8,"WIDTH 40"+CHR$(13)
8280 KEY 9,"WIDTH 80"+CHR$(13)
8300 KEY 10,"COLOR 14,1"+CHR$(13)
8310 KEY ON:COLOR 14,1:CLS:LOCATE 1,1
Function Keys
10 '
20 ' USING F1 - F10 KEYS
30 '
40 ' FIRST IS TO CLEAR F1-F1O in BASIC
50 '
60 DATA KEY1, KEY2, KEY3, KEY4, KEY5, Key6, key7, key8, key9, key0
70 FOR N=1 TO 10: READ SOFTKEYS$(N)
80 KEY N, SOFTKEYS$(I)
90 NEXT N
100 KEY ON
110 '
120 ' *** INKEY$ FOR INPUT
130 ' ## PAGE UP , PAGE DOWN & Esc keys can program
140 A$=INKEY$:IF A$="" THEN 140
150 IF A$=CHR$(0)+";" THEN PRINT "F1":END
160 IF A$=CHR$(0)+":" THEN PRINT "F?":END
170 IF A$=CHR$(0)+"<" THEN PRINT "F2":END
180 IF A$=CHR$(0)+"=" THEN PRINT "F3":END
190 IF A$=CHR$(0)+">" THEN PRINT "F4":END
200 IF A$=CHR$(0)+"?" THEN PRINT "F5":END
210 IF A$=CHR$(0)+"@" THEN PRINT "F6":END
220 IF A$=CHR$(0)+"A" THEN PRINT "F7":END
230 IF A$=CHR$(0)+"B" THEN PRINT "F8":END
240 IF A$=CHR$(0)+"C" THEN PRINT "F9":END
250 IF A$=CHR$(0)+"D" THEN PRINT "F10":END
260 IF A$=CHR$(0)+"E" THEN PRINT "??":END
270 GOTO 140