'===========================================================================
' Subject: KEY GENERATOR                      Date: 02-12-97 (15:23)       
'  Author: Nick Kochakian                     Code: QB, QBasic, PDS        
'  Origin: NickK@worldnet.att.net           Packet: KEYBOARD.ABC
'===========================================================================
'----------------------------------------------------------------------------
'Fast key getter
'
'1/20/97
'1997 By: - Nick Kochakian -
'
'Use this to get keys for a game, etc.
'
'If you have any comments or questions please e-mail me at:
'
'nickK@worldnet.att.net
'
'Have fun! :)
'----------------------------------------------------------------------------

'To exit just press: ESC -> ( CHR$(27) )

'How to use the information with your program:
'Say the computer returns something like this:
'CHR$( 0 ) + ;
'What you'd need to enter into your program to make it work would be:
'IF A$=CHR$(0)+; THEN  ,etc...

CLS

A = 255
DIM A$(A)
FOR A = 1 TO 255
READ A$(A)
NEXT A

A = 1

PRINT "Press any key... Press ESC to exit..."
DO

DO
A$(A) = INKEY$
LOOP UNTIL A$(A) <> ""
PRINT "CHR$(";
PRINT ASC(A$(A));
PRINT ") + "; A$(A)
'A$(A) = INEKY$
LOOP UNTIL A$(A) = CHR$(27)


'Up: IF a$(a) = CHR$(0) + "H" THEN BEEP
'Down: IF a$(a) = CHR$(0) + "P" THEN BEEP
'CHR$(0)+"K"  <- Left
'CHR$(0)+"M"  <- Right
'CHR$(0)+";"  <- F1
'all chr$(0)+""""" from here
'< <- F2
'= <- F3
'> <- F4
'? <- F5
'@ <- F6

END
DATA  1
DATA  2
DATA  3
DATA  4
DATA  5
DATA  6
DATA  7
DATA  8
DATA  9
DATA  10
DATA  11
DATA  12
DATA  13
DATA  14
DATA  15
DATA  16
DATA  17
DATA  18
DATA  19
DATA  20
DATA  21
DATA  22
DATA  23
DATA  24
DATA  25
DATA  26
DATA  27
DATA  28
DATA  29
DATA  30
DATA  31
DATA  32
DATA  33
DATA  34
DATA  35
DATA  36
DATA  37
DATA  38
DATA  39
DATA  40
DATA  41
DATA  42
DATA  43
DATA  44
DATA  45
DATA  46
DATA  47
DATA  48
DATA  49
DATA  50
DATA  51
DATA  52
DATA  53
DATA  54
DATA  55
DATA  56
DATA  57
DATA  58
DATA  59
DATA  60
DATA  61
DATA  62
DATA  63
DATA  64
DATA  65
DATA  66
DATA  67
DATA  68
DATA  69
DATA  70
DATA  71
DATA  72
DATA  73
DATA  74
DATA  75
DATA  76
DATA  77
DATA  78
DATA  79
DATA  80
DATA  81
DATA  82
DATA  83
DATA  84
DATA  85
DATA  86
DATA  87
DATA  88
DATA  89
DATA  90
DATA  91
DATA  92
DATA  93
DATA  94
DATA  95
DATA  96
DATA  97
DATA  98
DATA  99
DATA  100
DATA  101
DATA  102
DATA  103
DATA  104
DATA  105
DATA  106
DATA  107
DATA  108
DATA  109
DATA  110
DATA  111
DATA  112
DATA  113
DATA  114
DATA  115
DATA  116
DATA  117
DATA  118
DATA  119
DATA  120
DATA  121
DATA  122
DATA  123
DATA  124
DATA  125
DATA  126
DATA  127
DATA  128
DATA  129
DATA  130
DATA  131
DATA  132
DATA  133
DATA  134
DATA  135
DATA  136
DATA  137
DATA  138
DATA  139
DATA  140
DATA  141
DATA  142
DATA  143
DATA  144
DATA  145
DATA  146
DATA  147
DATA  148
DATA  149
DATA  150
DATA  151
DATA  152
DATA  153
DATA  154
DATA  155
DATA  156
DATA  157
DATA  158
DATA  159
DATA  160
DATA  161
DATA  162
DATA  163
DATA  164
DATA  165
DATA  166
DATA  167
DATA  168
DATA  169
DATA  170
DATA  171
DATA  172
DATA  173
DATA  174
DATA  175
DATA  176
DATA  177
DATA  178
DATA  179
DATA  180
DATA  181
DATA  182
DATA  183
DATA  184
DATA  185
DATA  186
DATA  187
DATA  188
DATA  189
DATA  190
DATA  191
DATA  192
DATA  193
DATA  194
DATA  195
DATA  196
DATA  197
DATA  198
DATA  199
DATA  200
DATA  201
DATA  202
DATA  203
DATA  204
DATA  205
DATA  206
DATA  207
DATA  208
DATA  209
DATA  210
DATA  211
DATA  212
DATA  213
DATA  214
DATA  215
DATA  216
DATA  217
DATA  218
DATA  219
DATA  220
DATA  221
DATA  222
DATA  223
DATA  224
DATA  225
DATA  226
DATA  227
DATA  228
DATA  229
DATA  230
DATA  231
DATA  232
DATA  233
DATA  234
DATA  235
DATA  236
DATA  237
DATA  238
DATA  239
DATA  240
DATA  241
DATA  242
DATA  243
DATA  244
DATA  245
DATA  246
DATA  247
DATA  248
DATA  249
DATA  250
DATA  251
DATA  252
DATA  253
DATA  254
DATA  255