!*************************************************************************
! TRKSRT.BAS - TRKANA SORT ROUTINE
!
! Sorts a *.TRK file that has already had TRKANA run on it.
!
! by Dave Heyliger - AMUS Staff
!*************************************************************************
! Ask for necessary file and sort information
!
? TAB(-1,0); TAB(5,10);
INPUT "Enter the analysis file to be sorted: "; IN'FILE
? TAB(7,10);
INPUT "Enter the desired output (sorted) filename: "; SORT'FILE
? TAB(9,10);
INPUT "(A)ssending order or (D)ecending order: "; ASC'DEC
ASC'DEC = UCS(ASC'DEC)
IF ASC'DEC = "A" THEN A'D = 0 ELSE A'D = 1