"� Display character definition
� by Stephen Wade
� (c) The Micro User
(� 7:� B% 8
2�
<$� "Display Character Definition"
F� �28,"=")
P�:�
Z� "Enter Ascii code: "C%
d&� C%>31 � C%<127 � C%>127 � C%<256
n�
x!A%=10:X%=B% � 256:Y%=B% � 256
�B%?0=C%:� &FFF1
�� Z%=1 � 8
��
�� �0,3)"Character: ";C%
�� �0,Z%+7)B%?Z%
�� �22,Z%+7)~B%?Z%
�� �16,Z%+7);
�� L%=1 � 8:� K%
� � B%?Z% � K% � "*"; � � ".";
��
��
�� �0,20)"Press any key..."
�	� � �

�

� 0

� 128,64,32,16,8,4,2,1
�

00000000  0d 00 0a 22 f4 20 44 69  73 70 6c 61 79 20 63 68  |...". Display ch|
00000010  61 72 61 63 74 65 72 20  64 65 66 69 6e 69 74 69  |aracter definiti|
00000020  6f 6e 0d 00 14 15 f4 20  62 79 20 53 74 65 70 68  |on..... by Steph|
00000030  65 6e 20 57 61 64 65 0d  00 1e 18 f4 20 28 63 29  |en Wade..... (c)|
00000040  20 54 68 65 20 4d 69 63  72 6f 20 55 73 65 72 0d  | The Micro User.|
00000050  00 28 0e eb 20 37 3a de  20 42 25 20 38 0d 00 32  |.(.. 7:. B% 8..2|
00000060  05 f5 0d 00 3c 24 f1 20  22 44 69 73 70 6c 61 79  |....<$. "Display|
00000070  20 43 68 61 72 61 63 74  65 72 20 44 65 66 69 6e  | Character Defin|
00000080  69 74 69 6f 6e 22 0d 00  46 0e f1 20 c4 32 38 2c  |ition"..F.. .28,|
00000090  22 3d 22 29 0d 00 50 07  f1 3a f5 0d 00 5a 1c e8  |"=")..P..:...Z..|
000000a0  20 22 45 6e 74 65 72 20  41 73 63 69 69 20 63 6f  | "Enter Ascii co|
000000b0  64 65 3a 20 22 43 25 0d  00 64 26 fd 20 43 25 3e  |de: "C%..d&. C%>|
000000c0  33 31 20 80 20 43 25 3c  31 32 37 20 84 20 43 25  |31 . C%<127 . C%|
000000d0  3e 31 32 37 20 80 20 43  25 3c 32 35 36 0d 00 6e  |>127 . C%<256..n|
000000e0  05 db 0d 00 78 21 41 25  3d 31 30 3a 58 25 3d 42  |....x!A%=10:X%=B|
000000f0  25 20 83 20 32 35 36 3a  59 25 3d 42 25 20 81 20  |% . 256:Y%=B% . |
00000100  32 35 36 0d 00 82 13 42  25 3f 30 3d 43 25 3a d6  |256....B%?0=C%:.|
00000110  20 26 46 46 46 31 0d 00  8c 0e e3 20 5a 25 3d 31  | &FFF1..... Z%=1|
00000120  20 b8 20 38 0d 00 96 05  f7 0d 00 a0 1b f1 20 8a  | . 8.......... .|
00000130  30 2c 33 29 22 43 68 61  72 61 63 74 65 72 3a 20  |0,3)"Character: |
00000140  22 3b 43 25 0d 00 aa 13  f1 20 8a 30 2c 5a 25 2b  |";C%..... .0,Z%+|
00000150  37 29 42 25 3f 5a 25 0d  00 b4 15 f1 20 8a 32 32  |7)B%?Z%..... .22|
00000160  2c 5a 25 2b 37 29 7e 42  25 3f 5a 25 0d 00 be 10  |,Z%+7)~B%?Z%....|
00000170  f1 20 8a 31 36 2c 5a 25  2b 37 29 3b 0d 00 c8 13  |. .16,Z%+7);....|
00000180  e3 20 4c 25 3d 31 20 b8  20 38 3a f3 20 4b 25 0d  |. L%=1 . 8:. K%.|
00000190  00 d2 20 e7 20 42 25 3f  5a 25 20 80 20 4b 25 20  |.. . B%?Z% . K% |
000001a0  f1 20 22 2a 22 3b 20 8b  20 f1 20 22 2e 22 3b 0d  |. "*"; . . ".";.|
000001b0  00 dc 05 ed 0d 00 e6 05  ed 0d 00 f0 1e f1 20 8a  |.............. .|
000001c0  30 2c 32 30 29 22 50 72  65 73 73 20 61 6e 79 20  |0,20)"Press any |
000001d0  6b 65 79 2e 2e 2e 22 0d  00 fa 09 f5 20 fd 20 a5  |key..."..... . .|
000001e0  0d 01 04 05 db 0d 01 0e  07 fd 20 30 0d 01 18 1a  |.......... 0....|
000001f0  dc 20 31 32 38 2c 36 34  2c 33 32 2c 31 36 2c 38  |. 128,64,32,16,8|
00000200  2c 34 2c 32 2c 31 0d ff                           |,4,2,1..|
00000208