CD Actual 15/CDACTUAL15.iso/cdactual/program/pascal/PASLIBR.ZIP/FPGETKEY.PAS

Pascal/Delphi Source File | 1991-03-15 | 11.1 KB | 442 lines

{------------------------------------------------------------}
{-       FlashPac Pascal Library (GetKey Unit) - V3.5       -}
{-      (c) Copyright 1986-1991 - All Rights Reserved       -}
{-                     SimpleSoft Inc                       -}
{-                     1209 Poplar St                       -}
{-                 La Crescent, MN 55947                    -}
{------------------------------------------------------------}

Unit FPGetKey;
Interface
{$B-,F+}
{$IFNDEF VER40}
{D-}
{$ENDIF}
uses FPKbd;

   Function GetKey : Integer;
{--------------------------------------------------------------------}

Implementation

Const

KeyTable : Array[0..399] Of Integer = (

{             keyboard         }
{ Index     - translation code }
{------------------------------}
{  000      }         0,
{  001      }         1,
{  002      }         2,
{  003      }         3,
{  004      }         4,
{  005      }         5,
{  006      }         6,
{  007      }         7,
{  008      }         8,
{  009      }         9,
{  010      }        10,
{  011      }        11,
{  012      }        12,
{  013      }        13,
{  014      }        14,
{  015      }        15,
{  016      }        16,
{  017      }        17,
{  018      }        18,
{  019      }        19,
{  020      }        20,
{  021      }        21,
{  022      }        22,
{  023      }        23,
{  024      }        24,
{  025      }        25,
{  026      }        26,
{  027      }        27,
{  028      }        28,
{  029      }        29,
{  030      }        30,
{  031      }        31,
{  032      }        32,
{  033      }        33,
{  034      }        34,
{  035      }        35,
{  036      }        36,
{  037      }        37,
{  038      }        38,
{  039      }        39,
{  040      }        40,
{  041      }        41,
{  042      }        42,
{  043      }        43,
{  044      }        44,
{  045      }        45,
{  046      }        46,
{  047      }        47,
{  048      }        48,
{  049      }        49,
{  050      }        50,
{  051      }        51,
{  052      }        52,
{  053      }        53,
{  054      }        54,
{  055      }        55,
{  056      }        56,
{  057      }        57,
{  058      }        58,
{  059      }        59,
{  060      }        60,
{  061      }        61,
{  062      }        62,
{  063      }        63,
{  064      }        64,
{  065      }        65,
{  066      }        66,
{  067      }        67,
{  068      }        68,
{  069      }        69,
{  070      }        70,
{  071      }        71,
{  072      }        72,
{  073      }        73,
{  074      }        74,
{  075      }        75,
{  076      }        76,
{  077      }        77,
{  078      }        78,
{  079      }        79,
{  080      }        80,
{  081      }        81,
{  082      }        82,
{  083      }        83,
{  084      }        84,
{  085      }        85,
{  086      }        86,
{  087      }        87,
{  088      }        88,
{  089      }        89,
{  090      }        90,
{  091      }        91,
{  092      }        92,
{  093      }        93,
{  094      }        94,
{  095      }        95,
{  096      }        96,
{  097      }        97,
{  098      }        98,
{  099      }        99,
{  100      }       100,
{  101      }       101,
{  102      }       102,
{  103      }       103,
{  104      }       104,
{  105      }       105,
{  106      }       106,
{  107      }       107,
{  108      }       108,
{  109      }       109,
{  110      }       110,
{  111      }       111,
{  112      }       112,
{  113      }       113,
{  114      }       114,
{  115      }       115,
{  116      }       116,
{  117      }       117,
{  118      }       118,
{  119      }       119,
{  120      }       120,
{  121      }       121,
{  122      }       122,
{  123      }       123,
{  124      }       124,
{  125      }       125,
{  126      }       126,
{  127      }       127,
{  128      }       128,
{  129      }       129,
{  130      }       130,
{  131      }       131,
{  132      }       132,
{  133 ^A   }       115,
{  134 ^B   }       134,
{  135 ^C   }       135,
{  136 ^D   }        77,
{  137 ^E   }       137,
{  138 ^F   }       116,
{  139 ^G   }        83,
{  140 ^H   }       140,
{  141 ^I   }       141,
{  142 ^J   }       142,
{  143 ^K   }       143,
{  144 ^L   }       144,
{  145 ^M   }       145,
{  146 ^N   }       146,
{  147 ^O   }       147,
{  148 ^P   }       148,
{  149 ^Q   }       149,
{  150 ^R   }       150,
{  151 ^S   }        75,
{  152 ^T   }       152,
{  153 ^U   }       153,
{  154 ^V   }        82,
{  155 ^W   }       155,
{  156 ^X   }       156,
{  157 ^Y   }       157,
{  158 ^Z   }       158,
{  159 ^[   }       159,
{  160 ^\   }       160,
{  161 ^]   }       161,
{  162 ^6   }       162,
{  163 ^-   }       163,
{  164      }       164,
{  165      }       165,
{  166      }       166,
{  167      }       167,
{  168      }       168,
{  169      }       169,
{  170      }       170,
{  171      }       171,
{  172      }       172,
{  173      }       173,
{  174      }       174,
{  175      }       175,
{  176      }       176,
{  177      }       177,
{  178      }       178,
{  179      }       179,
{  180      }       180,
{  181      }       181,
{  182      }       182,
{  183      }       183,
{  184      }       184,
{  185      }       185,
{  186      }       186,
{  187      }       187,
{  188      }       188,
{  189      }       189,
{  190      }       190,
{  191      }       191,
{  192      }       192,
{  193      }       193,
{  194      }       194,
{  195      }       195,
{  196      }       196,
{  197      }       197,
{  198      }       198,
{  199      }       199,
{  200      }       200,
{  201      }       201,
{  202      }       202,
{  203      }       203,
{  204      }       204,
{  205      }       205,
{  206      }       206,
{  207      }       207,
{  208      }       208,
{  209      }       209,
{  210      }       210,
{  211      }       211,
{  212      }       212,
{  213      }       213,
{  214      }       214,
{  215      }       215,
{  216      }       216,
{  217      }       217,
{  218      }       218,
{  219      }       219,
{  220      }       220,
{  221      }       221,
{  222      }       222,
{  223      }       223,
{  224      }       224,
{  225      }       225,
{  226      }       226,
{  227      }       227,
{  228      }       228,
{  229      }       229,
{  230      }       230,
{  231      }       231,
{  232      }       232,
{  233      }       233,
{  234      }       234,
{  235      }       235,
{  236      }       236,
{  237      }       237,
{  238      }       238,
{  239      }       239,
{  240      }       240,
{  241      }       241,
{  242      }       242,
{  243      }       243,
{  244      }       244,
{  245      }       245,
{  246      }       246,
{  247      }       247,
{  248      }       248,
{  249      }       249,
{  250      }       250,
{  251      }       251,
{  252      }       252,
{  253      }       253,
{  254      }       254,
{  255      }       255,
{  256      }       256,
{  257      }       257,
{  258      }       258,
{  259      }       259,
{  260      }       260,
{  261      }       261,
{  262      }       262,
{  263      }       263,
{  264      }       264,
{  265      }       265,
{  266      }       266,
{  267      }       267,
{  268      }       268,
{  269      }       269,
{  270      }       270,
{  271      }       271,
{  272      }       272,
{  273      }       273,
{  274      }       274,
{  275      }       275,
{  276      }       276,
{  277      }       277,
{  278      }       278,
{  279      }       279,
{  280      }       280,
{  281      }       281,
{  282      }       282,
{  283      }       283,
{  284      }       284,
{  285      }       285,
{  286      }       286,
{  287      }       287,
{  288      }       288,
{  289      }       289,
{  290      }       290,
{  291      }       291,
{  292      }       292,
{  293      }       293,
{  294      }       294,
{  295      }       295,
{  296      }       296,
{  297      }       297,
{  298      }       298,
{  299      }       299,
{  300      }       300,
{  301      }       301,
{  302      }       302,
{  303      }       303,
{  304      }       304,
{  305      }       305,
{  306      }       306,
{  307      }       307,
{  308      }       308,
{  309      }       309,
{  310      }       310,
{  311      }       311,
{  312      }       312,
{  313      }       313,
{  314      }       314,
{  315      }       315,
{  316      }       316,
{  317      }       317,
{  318      }       318,
{  319      }       319,
{  320      }       320,
{  321      }       321,
{  322      }       322,
{  323      }       323,
{  324      }       324,
{  325      }       325,
{  326      }       326,
{  327      }       327,
{  328      }       328,
{  329      }       329,
{  330      }       330,
{  331      }       331,
{  332      }       332,
{  333      }       333,
{  334      }       334,
{  335      }       335,
{  336      }       336,
{  337      }       337,
{  338      }       338,
{  339      }       339,
{  340      }       340,
{  341      }       341,
{  342      }       342,
{  343      }       343,
{  344      }       344,
{  345      }       345,
{  346      }       346,
{  347      }       347,
{  348      }       348,
{  349      }       349,
{  350      }       350,
{  351      }       351,
{  352      }       352,
{  353      }       353,
{  354      }       354,
{  355      }       355,
{  356      }       356,
{  357      }       357,
{  358      }       358,
{  359      }       359,
{  360      }       360,
{  361      }       361,
{  362      }       362,
{  363      }       363,
{  364      }       364,
{  365      }       365,
{  366      }       366,
{  367      }       367,
{  368      }       368,
{  369      }       369,
{  370      }       370,
{  371      }       371,
{  372      }       372,
{  373      }       373,
{  374      }       374,
{  375      }       375,
{  376      }       376,
{  377      }       377,
{  378      }       378,
{  379      }       379,
{  380      }       380,
{  381      }       381,
{  382      }       382,
{  383      }       383,
{  384      }       384,
{  385      }       385,
{  386      }       386,
{  387      }       387,
{  388      }       388,
{  389      }       389,
{  390      }       390,
{  391      }       391,
{  392      }       392,
{  393      }       393,
{  394      }       394,
{  395      }       395,
{  396      }       396,
{  397      }       397,
{  398      }       398,
{  399      }       399);

Function GetKey : Integer; Var
   Ch : Integer;
Begin
   Ch := -1;
   ch := BiosKbdGetElmt;

   If (Ch >= 0) And (Ch <= 386) Then
      Getkey := KeyTable[ch];
End;

Begin
end.