home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS 1992 December
/
simtel1292_SIMTEL_1292_Walnut_Creek.iso
/
msdos
/
pcmag
/
vol8n04.arc
/
GETFKEY.BAS
< prev
next >
Wrap
BASIC Source File
|
1988-09-25
|
258b
|
14 lines
Table$ = ";<=>?@ABCDTUVWXYZ[\]^_`abcdefghijklmnopq"
DEF FnGetFKey%
Code% = 0
DO
K$ = INKEY$
IF LEN(K$) = 2 THEN
K$ = RIGHT$(K$, 1)
Code% = INSTR(Table$, K$)
END IF
LOOP WHILE Code% = 0
FnGetFKey% = Code%
END DEF