TKASCII ;PG&A,TOOLKIT I,1.41,ASCII CHART (Create ^TKASCII);24SEP87 3:22P [ 11/22/2000  10:45 AM ]
 ;Copyright (C) 1985, Patterson, Gray and Assoc., Inc.
ASCII S ^TKASCII=$P($T(ASCII+2),";",2,99) F I=3:1:23 S ^TKASCII(I-2)=$P($T(ASCII+I),";",2,99)
 Q
 ;S T=^TK($I),G1=^TK(0,T,"G1"),G0=^("G0"),J=^("HL"),J=J_J_J_J_J_J_J_J_J_J_J,K=^("VL"),L=^("LO"),H=^("HI") W L,!,G1,^("TLC"),J,J,J,J,J,J,J,^("TRC"),!,K,G0,$J("ASCII TABLE",43),$J("",34),G1,K,! X ^TKASCII(1),^(2),^(3) K J,K,L,H,I,T
 ;W G1,K,$J("",77),K,!,K,G0 F I=1:1:7 W " CHAR DEC  "
 ;W G1,K,G0,! F I=4:1:21 W G1,K,G0,H,^TKASCII(I),"  ",L,G1,K,G0,!
 ;W G1,^TK(0,T,"BLC"),J,J,J,J,J,J,J,^("BRC"),G0,$C(13)
 ;  SOH   1    DC3  19     %   37     7   55     I   73     [   91     m  109
 ;  STX   2    DC4  20     &   38     8   56     J   74     \   92     n  110
 ;  ETX   3    NAK  21     '   39     9   57     K   75     ]   93     o  111
 ;  EOT   4    SYN  22     (   40     :   58     L   76     ^   94     p  112
 ;  ENQ   5    ETB  23     )   41     ;   59     M   77     _   95     q  113
 ;  ACK   6    CAN  24     *   42     <   60     N   78     `   96     r  114
 ;  BEL   7    EM   25     +   43     =   61     O   79     a   97     s  115
 ;  BS    8    SUB  26     ,   44     >   62     P   80     b   98     t  116
 ;  HT    9    ESC  27     -   45     ?   63     Q   81     c   99     u  117
 ;  LF   10    FS   28     .   46     @   64     R   82     d  100     v  118
 ;  VT   11    GS   29     /   47     A   65     S   83     e  101     w  119
 ;  FF   12    RS   30     0   48     B   66     T   84     f  102     x  120
 ;  CR   13    US   31     1   49     C   67     U   85     g  103     y  121
 ;  SO   14   space 32     2   50     D   68     V   86     h  104     z  122
 ;  SI   15     !   33     3   51     E   69     W   87     i  105     {  123
 ;  DLE  16     "   34     4   52     F   70     X   88     j  106     |  124
 ;  DC1  17     #   35     5   53     G   71     Y   89     k  107     }  125
 ;  DC2  18     $   36     6   54     H   72     Z   90     l  108     ~  126