CONST TYPE, VAR

     CONST
        DHELPKEY = #187;
        DHELPSTR:STRING[2] = 'F1';
        DTOGGLEKEY = #32;
        DTOGGLESTR: STRING[5] = 'SPACE';
        DZOOMKEY = #172;
        DZOOMSTR: STRING[5] = 'ALT-Z';
        DJUMPPARENTKEY = #176;
        DJUMPPARENTSTR: STRING[5] = 'ALT-B';
        DCHANGEDIRKEY = #174;
        DCHANGEDIRSTR: STRING[5] = 'ALT-C';
        DSORTORDERKEY = #152;
        DSORTORDERSTR: STRING[5] = 'ALT-O';
        DSORTSIZEKEY = #159;
        DSORTSIZESTR: STRING[5] = 'ALT-S';
        DSORTNAMEKEY = #177;
        DSORTNAMESTR: STRING[5] = 'ALT-N';
        DSORTEXTKEY = #146;
        DSORTEXTSTR: STRING[5] = 'ALT-E';
        DSORTTIMEKEY = #148;
        DSORTTIMESTR: STRING[5] = 'ALT-T';
        DSORTDOSKEY = #160;
        DSORTDOSSTR: STRING[5] = 'ALT-D';
        DSORTDOS  = 1;
        DSORTNAME = 2;
        DSORTEXT  = 3;
        DSORTSIZE = 4;
        DSORTTIME = 5;
        ASCENDING = 1;
        DESCENDING = 2;


     VAR
        DTTT : DIRDISPLAY;
        NOMEMORY : BOOLEAN;

     Each of the special keys has a character assignment and a string
     assignment. The string assignment is only used in the help screen
     display. The special keys settings can be replaced with alternate
     keys/strings if desired.

     The following declarations have not been previously discussed:

     DSort???? - these constants are used to identify the desired sort
     field. Set the DTTT.InitSort to the desired sort, e.g.

          DTTT.INITSORT := DSORTSIZE


     The Ascending and Descending constants are used to indicate the sort
     order, e.g.

          DTTT.ASC := ASCENDING