home *** CD-ROM | disk | FTP | other *** search
/ DTP Toolbox / DTPToolbox.iso / goodies / adpro_files / commands / sort_direction < prev   
Encoding:
Text File  |  1996-04-22  |  282 b   |  16 lines
  1. /* $VER: Sort_Direction 1.01 (13.07.94)© Felix C. Coronado
  2. */
  3. ADDRESS "ADPro"
  4. OPTIONS RESULTS
  5. PSORT
  6. IF ADPro_Result=0 THEN DO
  7.  PSORT 1
  8.  ADPRO_TO_FRONT
  9.  OKAY1 'Sort_Direction: Lightest to Darkest'
  10. END
  11. ELSE DO
  12.  PSORT 0
  13.  ADPRO_TO_FRONT
  14.  OKAY1 'Sort_Direction: Darkest to Lightest'
  15. END
  16.