�>DEFKEYS
 � keys$(200),keys%(200)
 � choice%(4)
 � ***KEYS***
(� � A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,0,1,2,3,4,5,6,7,8,9,<,-,.,/,[,\,],;,TAB,~,#,INSERT,HOME,PAGE UP,PAGE DOWN,',SHIFT L,SHIFT R
2� � CTRL L,CTRL R,ALT L,ALT R,SPACE,DELETE,RET,COPY,CUR UP,CUR L,CUR R,CUR DOWN,K0,K1,K2,K3,K4,K5,K6,K7,K8,K9,K+,K-,K.,K/,K#,K*,K ENTER,MOUSE L,MOUSE M,MOUSE R
< � **INKEYS**
F� � 66,101,83,51,35,68,84,85,38,70,71,87,102,86,55,56,17,52,82,36,54,100,34,67,69,98,40,49,50,18,19,20,53,37,22,39,103,24,104,105,57,121,89,88,97,46,47,62,63,64,79,80,4,7,5,8,6,9,99,90,74,106,58,26
PO � 122,42,107,108,125,109,123,124,27,28,43,44,59,60,77,75,91,92,61,10,11,12
Z
� �Th@
d� n%=0 � 85
n� a$
xkeys$(n%)=a$
�
�a$,n%
�� n%
�
� �DF@
�� n%=0 � 85
�� a%
�keys%(n%)=-a%
��-a%,n%
�� n%
�� n%=0 � 85
��keys$(n%),keys%(n%)
�� n%
�exit%=0
�j%=0
�ȕ exit%=0
�Ȏ j% �
�� 0
��0,0)"PRESS A KEY FOR UP"
�� 1
� �0,0)"PRESS A KEY FOR DOWN"
�� 2

 �0,0)"PRESS A KEY FOR LEFT"


� 3

!�0,0)"PRESS A KEY FOR RIGHT"

�


k%=0:m%=0

ȕ k%<86

J� �(keys%(k%)) � choice%(j%)=k%:j%=j%+1:� m%=0 � 2000:� m%:m%=1:k%=100

k%=k%+1

� k%>85 � m%=0 � k%=0

"�

,� j%=4 � exit%=1

6�

@p1_up%=keys%(choice%(0))

Jp1_down%=keys%(choice%(1))

Tp1_left%=keys%(choice%(2))

^p1_right%=keys%(choice%(3))

hp1_up$=keys$(choice%(0))

rp1_down$=keys$(choice%(1))

|p1_left$=keys$(choice%(2))

�p1_right$=keys$(choice%(3))

��"UP",p1_up%,p1_up$

��"DOWN",p1_down%,p1_down$

��"LEFT",p1_left%,p1_left$

� �"RIGHT",p1_right%,p1_right$
�

00000000  0d 00 0a 0e 20 f4 3e 44  45 46 4b 45 59 53 0d 00  |.... .>DEFKEYS..|
00000010  14 1c 20 de 20 6b 65 79  73 24 28 32 30 30 29 2c  |.. . keys$(200),|
00000020  6b 65 79 73 25 28 32 30  30 29 0d 00 15 11 20 de  |keys%(200).... .|
00000030  20 63 68 6f 69 63 65 25  28 34 29 0d 00 1e 11 20  | choice%(4).... |
00000040  f4 20 2a 2a 2a 4b 45 59  53 2a 2a 2a 0d 00 28 96  |. ***KEYS***..(.|
00000050  20 dc 20 41 2c 42 2c 43  2c 44 2c 45 2c 46 2c 47  | . A,B,C,D,E,F,G|
00000060  2c 48 2c 49 2c 4a 2c 4b  2c 4c 2c 4d 2c 4e 2c 4f  |,H,I,J,K,L,M,N,O|
00000070  2c 50 2c 51 2c 52 2c 53  2c 54 2c 55 2c 56 2c 57  |,P,Q,R,S,T,U,V,W|
00000080  2c 58 2c 59 2c 5a 2c 30  2c 31 2c 32 2c 33 2c 34  |,X,Y,Z,0,1,2,3,4|
00000090  2c 35 2c 36 2c 37 2c 38  2c 39 2c 3c 2c 2d 2c 2e  |,5,6,7,8,9,<,-,.|
000000a0  2c 2f 2c 5b 2c 5c 2c 5d  2c 3b 2c 54 41 42 2c 7e  |,/,[,\,],;,TAB,~|
000000b0  2c 23 2c 49 4e 53 45 52  54 2c 48 4f 4d 45 2c 50  |,#,INSERT,HOME,P|
000000c0  41 47 45 20 55 50 2c 50  41 47 45 20 44 4f 57 4e  |AGE UP,PAGE DOWN|
000000d0  2c 27 2c 53 48 49 46 54  20 4c 2c 53 48 49 46 54  |,',SHIFT L,SHIFT|
000000e0  20 52 0d 00 32 a2 20 dc  20 43 54 52 4c 20 4c 2c  | R..2. . CTRL L,|
000000f0  43 54 52 4c 20 52 2c 41  4c 54 20 4c 2c 41 4c 54  |CTRL R,ALT L,ALT|
00000100  20 52 2c 53 50 41 43 45  2c 44 45 4c 45 54 45 2c  | R,SPACE,DELETE,|
00000110  52 45 54 2c 43 4f 50 59  2c 43 55 52 20 55 50 2c  |RET,COPY,CUR UP,|
00000120  43 55 52 20 4c 2c 43 55  52 20 52 2c 43 55 52 20  |CUR L,CUR R,CUR |
00000130  44 4f 57 4e 2c 4b 30 2c  4b 31 2c 4b 32 2c 4b 33  |DOWN,K0,K1,K2,K3|
00000140  2c 4b 34 2c 4b 35 2c 4b  36 2c 4b 37 2c 4b 38 2c  |,K4,K5,K6,K7,K8,|
00000150  4b 39 2c 4b 2b 2c 4b 2d  2c 4b 2e 2c 4b 2f 2c 4b  |K9,K+,K-,K.,K/,K|
00000160  23 2c 4b 2a 2c 4b 20 45  4e 54 45 52 2c 4d 4f 55  |#,K*,K ENTER,MOU|
00000170  53 45 20 4c 2c 4d 4f 55  53 45 20 4d 2c 4d 4f 55  |SE L,MOUSE M,MOU|
00000180  53 45 20 52 0d 00 3c 11  20 f4 20 2a 2a 49 4e 4b  |SE R..<. . **INK|
00000190  45 59 53 2a 2a 0d 00 46  c8 20 dc 20 36 36 2c 31  |EYS**..F. . 66,1|
000001a0  30 31 2c 38 33 2c 35 31  2c 33 35 2c 36 38 2c 38  |01,83,51,35,68,8|
000001b0  34 2c 38 35 2c 33 38 2c  37 30 2c 37 31 2c 38 37  |4,85,38,70,71,87|
000001c0  2c 31 30 32 2c 38 36 2c  35 35 2c 35 36 2c 31 37  |,102,86,55,56,17|
000001d0  2c 35 32 2c 38 32 2c 33  36 2c 35 34 2c 31 30 30  |,52,82,36,54,100|
000001e0  2c 33 34 2c 36 37 2c 36  39 2c 39 38 2c 34 30 2c  |,34,67,69,98,40,|
000001f0  34 39 2c 35 30 2c 31 38  2c 31 39 2c 32 30 2c 35  |49,50,18,19,20,5|
00000200  33 2c 33 37 2c 32 32 2c  33 39 2c 31 30 33 2c 32  |3,37,22,39,103,2|
00000210  34 2c 31 30 34 2c 31 30  35 2c 35 37 2c 31 32 31  |4,104,105,57,121|
00000220  2c 38 39 2c 38 38 2c 39  37 2c 34 36 2c 34 37 2c  |,89,88,97,46,47,|
00000230  36 32 2c 36 33 2c 36 34  2c 37 39 2c 38 30 2c 34  |62,63,64,79,80,4|
00000240  2c 37 2c 35 2c 38 2c 36  2c 39 2c 39 39 2c 39 30  |,7,5,8,6,9,99,90|
00000250  2c 37 34 2c 31 30 36 2c  35 38 2c 32 36 0d 00 50  |,74,106,58,26..P|
00000260  4f 20 dc 20 31 32 32 2c  34 32 2c 31 30 37 2c 31  |O . 122,42,107,1|
00000270  30 38 2c 31 32 35 2c 31  30 39 2c 31 32 33 2c 31  |08,125,109,123,1|
00000280  32 34 2c 32 37 2c 32 38  2c 34 33 2c 34 34 2c 35  |24,27,28,43,44,5|
00000290  39 2c 36 30 2c 37 37 2c  37 35 2c 39 31 2c 39 32  |9,60,77,75,91,92|
000002a0  2c 36 31 2c 31 30 2c 31  31 2c 31 32 0d 00 5a 0a  |,61,10,11,12..Z.|
000002b0  f7 20 8d 54 68 40 0d 00  64 0f e3 20 6e 25 3d 30  |. .Th@..d.. n%=0|
000002c0  20 b8 20 38 35 0d 00 6e  08 f3 20 61 24 0d 00 78  | . 85..n.. a$..x|
000002d0  10 6b 65 79 73 24 28 6e  25 29 3d 61 24 0d 00 82  |.keys$(n%)=a$...|
000002e0  0a f1 61 24 2c 6e 25 0d  00 8c 08 ed 20 6e 25 0d  |..a$,n%..... n%.|
000002f0  00 96 0a f7 20 8d 44 46  40 0d 00 a0 0f e3 20 6e  |.... .DF@..... n|
00000300  25 3d 30 20 b8 20 38 35  0d 00 aa 08 f3 20 61 25  |%=0 . 85..... a%|
00000310  0d 00 b4 11 6b 65 79 73  25 28 6e 25 29 3d 2d 61  |....keys%(n%)=-a|
00000320  25 0d 00 be 0b f1 2d 61  25 2c 6e 25 0d 00 c8 08  |%.....-a%,n%....|
00000330  ed 20 6e 25 0d 00 d2 0f  e3 20 6e 25 3d 30 20 b8  |. n%..... n%=0 .|
00000340  20 38 35 0d 00 dc 18 f1  6b 65 79 73 24 28 6e 25  | 85.....keys$(n%|
00000350  29 2c 6b 65 79 73 25 28  6e 25 29 0d 00 e6 08 ed  |),keys%(n%).....|
00000360  20 6e 25 0d 00 e7 0b 65  78 69 74 25 3d 30 0d 00  | n%....exit%=0..|
00000370  e8 08 6a 25 3d 30 0d 00  f0 0e c8 95 20 65 78 69  |..j%=0...... exi|
00000380  74 25 3d 30 0d 00 fa 0b  c8 8e 20 6a 25 20 ca 0d  |t%=0...... j% ..|
00000390  00 fb 07 c9 20 30 0d 00  fc 1e f1 8a 30 2c 30 29  |.... 0......0,0)|
000003a0  22 50 52 45 53 53 20 41  20 4b 45 59 20 46 4f 52  |"PRESS A KEY FOR|
000003b0  20 55 50 22 0d 00 fd 07  c9 20 31 0d 00 fe 20 f1  | UP"..... 1... .|
000003c0  8a 30 2c 30 29 22 50 52  45 53 53 20 41 20 4b 45  |.0,0)"PRESS A KE|
000003d0  59 20 46 4f 52 20 44 4f  57 4e 22 0d 00 ff 07 c9  |Y FOR DOWN".....|
000003e0  20 32 0d 01 00 20 f1 8a  30 2c 30 29 22 50 52 45  | 2... ..0,0)"PRE|
000003f0  53 53 20 41 20 4b 45 59  20 46 4f 52 20 4c 45 46  |SS A KEY FOR LEF|
00000400  54 22 0d 01 01 07 c9 20  33 0d 01 02 21 f1 8a 30  |T"..... 3...!..0|
00000410  2c 30 29 22 50 52 45 53  53 20 41 20 4b 45 59 20  |,0)"PRESS A KEY |
00000420  46 4f 52 20 52 49 47 48  54 22 0d 01 04 05 cb 0d  |FOR RIGHT"......|
00000430  01 0e 0d 6b 25 3d 30 3a  6d 25 3d 30 0d 01 0f 0c  |...k%=0:m%=0....|
00000440  c8 95 20 6b 25 3c 38 36  0d 01 18 4a e7 20 a6 28  |.. k%<86...J. .(|
00000450  6b 65 79 73 25 28 6b 25  29 29 20 8c 20 63 68 6f  |keys%(k%)) . cho|
00000460  69 63 65 25 28 6a 25 29  3d 6b 25 3a 6a 25 3d 6a  |ice%(j%)=k%:j%=j|
00000470  25 2b 31 3a e3 20 6d 25  3d 30 20 b8 20 32 30 30  |%+1:. m%=0 . 200|
00000480  30 3a ed 20 6d 25 3a 6d  25 3d 31 3a 6b 25 3d 31  |0:. m%:m%=1:k%=1|
00000490  30 30 0d 01 19 0b 6b 25  3d 6b 25 2b 31 0d 01 1a  |00....k%=k%+1...|
000004a0  19 e7 20 6b 25 3e 38 35  20 80 20 6d 25 3d 30 20  |.. k%>85 . m%=0 |
000004b0  8c 20 6b 25 3d 30 0d 01  22 05 ce 0d 01 2c 14 e7  |. k%=0.."....,..|
000004c0  20 6a 25 3d 34 20 8c 20  65 78 69 74 25 3d 31 0d  | j%=4 . exit%=1.|
000004d0  01 36 05 ce 0d 01 40 1c  70 31 5f 75 70 25 3d 6b  |.6....@.p1_up%=k|
000004e0  65 79 73 25 28 63 68 6f  69 63 65 25 28 30 29 29  |eys%(choice%(0))|
000004f0  0d 01 4a 1e 70 31 5f 64  6f 77 6e 25 3d 6b 65 79  |..J.p1_down%=key|
00000500  73 25 28 63 68 6f 69 63  65 25 28 31 29 29 0d 01  |s%(choice%(1))..|
00000510  54 1e 70 31 5f 6c 65 66  74 25 3d 6b 65 79 73 25  |T.p1_left%=keys%|
00000520  28 63 68 6f 69 63 65 25  28 32 29 29 0d 01 5e 1f  |(choice%(2))..^.|
00000530  70 31 5f 72 69 67 68 74  25 3d 6b 65 79 73 25 28  |p1_right%=keys%(|
00000540  63 68 6f 69 63 65 25 28  33 29 29 0d 01 68 1c 70  |choice%(3))..h.p|
00000550  31 5f 75 70 24 3d 6b 65  79 73 24 28 63 68 6f 69  |1_up$=keys$(choi|
00000560  63 65 25 28 30 29 29 0d  01 72 1e 70 31 5f 64 6f  |ce%(0))..r.p1_do|
00000570  77 6e 24 3d 6b 65 79 73  24 28 63 68 6f 69 63 65  |wn$=keys$(choice|
00000580  25 28 31 29 29 0d 01 7c  1e 70 31 5f 6c 65 66 74  |%(1))..|.p1_left|
00000590  24 3d 6b 65 79 73 24 28  63 68 6f 69 63 65 25 28  |$=keys$(choice%(|
000005a0  32 29 29 0d 01 86 1f 70  31 5f 72 69 67 68 74 24  |2))....p1_right$|
000005b0  3d 6b 65 79 73 24 28 63  68 6f 69 63 65 25 28 33  |=keys$(choice%(3|
000005c0  29 29 0d 01 90 17 f1 22  55 50 22 2c 70 31 5f 75  |))....."UP",p1_u|
000005d0  70 25 2c 70 31 5f 75 70  24 0d 01 9a 1d f1 22 44  |p%,p1_up$....."D|
000005e0  4f 57 4e 22 2c 70 31 5f  64 6f 77 6e 25 2c 70 31  |OWN",p1_down%,p1|
000005f0  5f 64 6f 77 6e 24 0d 01  a4 1d f1 22 4c 45 46 54  |_down$....."LEFT|
00000600  22 2c 70 31 5f 6c 65 66  74 25 2c 70 31 5f 6c 65  |",p1_left%,p1_le|
00000610  66 74 24 0d 01 ae 20 f1  22 52 49 47 48 54 22 2c  |ft$... ."RIGHT",|
00000620  70 31 5f 72 69 67 68 74  25 2c 70 31 5f 72 69 67  |p1_right%,p1_rig|
00000630  68 74 24 0d ff                                    |ht$..|
00000635