' *** KEYB_VER.LST *** 2nd GFA-Manual, page 8-13 FUNCTION keyboard_version$ ' ' *** Returns version of keyboard ' SELECT PEEK(LPEEK(XBIOS(16,L:-1,L:-1,L:-1))+&H2B) CASE &H5C RETURN "American keyboard" CASE &H23 RETURN "English keyboard" CASE &H7E RETURN "German keyboard" CASE &H40 RETURN "French keyboard" ENDSELECT ENDFUNC ' ***** '