###    Cuesort  v.3.01  4/8/83 - SG

              *** цуесорт мацрофеатуре ***              

   Cuesort sorts a file by predefined categories.  The 
categories are designated A,B,C etc. up to S.  Each category
can have a predefined value of 1 up to 999999.

   To sort, you designate a value for each category on which
you wish to sort.  The value '0' means that the category is
irrelevant - all records will be selected regardless of that
particular category.  Categories are 'anded'; this means that
if you designate A=1 and B=1, only those records on which the
values of both A and B are 1 will be selected.               

   Records are taken from a master or source file.  The
selected records are written to a destination file.  The file
'CUSLIST.DEM' is a sample source file that can be used for
demonstration.

##
A       "10"            "Number of lines in each RECORD          "
B       " E"            "Final Sort Variable (S is maximum)      "
C       " 0"            "Strip Sort Line (1=Yes, 0=No)           "
#
:on -1 140
:in "#0/#13/#13/Specify the unsorted file                 #6/" %A
ro/%A/
:on $0 / 2 /
:pr "#0/#13/#13/#13/Specify a name for the sorted file        "
:in %A
wo/%A/
:on -1 112

:pr "#1/#13/#13/                        CUE SORT#13/#13/"
:pr "Enter target number when asked about each sort category
:pr "#13/If there is no target, enter a '0'.#13/#13/"



t/s//A B C D E F G H I J K L M N O P Q R S</
T/S/%A?/?/
D1/S//</t
:%U = !
:%0 = %0+1
:pr "%U"
:in %Z
:on ?-13 19 / 19
t/d1
:%4 = %0
:%0 = -1












:on $0 / 102 /
r%6
:on ?-46 130 / 130
s//x^/t/b0/h0/h1/e/u
e/s//A B C D E F G H I J K L M N O P Q R S</
:%8 = %4+%4+3
b1
:mc %8
d1/s//</
d




:%0 = %0+1
e/b1
:%U = !
s//^/
:%V = !
b0/d

:on %Z%T 74 74 /
:%X="%Z"
:on %X%T 78 74 /
e/s//%X/b0
:%Y=!
:%X=!<
b0/d/b


s/%U%Y/?/
:on ?-3 / 62
:on ?-48 74 / /
:on ?-58 69 / /
:on ?-96 / / 69

:on %0-%4 52 85 52



t/d%6+4
:%0 = -1
:ON -1  38




b0/d1/t/u/d
:%0 = -1
e/b1/d1
:on %5 / 95 /
t/S//.</
D1



t/w%6
:cp
d%6+4
:%2 = %2+1
:on -1 38



t/d100/h0/wd
:pr "#1/#13/#7/JOB COMPLETED - %2 records written to file"
:pr "#13/Hit any key to regain control"
:in
:on -1 200





:ss 7
:%T = "0"
:%0 = -1

:%6 = $A
:%A = $B
:%5 = $C
:sg %A %1
:on %1-96 123 / /
:%1=%1-32
:%A=""
:sp %A %1
:on -1 10 / /




:on ?-3 / 102 /
rd/wd
:cp
:pr "#0/#13/Error in read file - record does not start with cue line."
:pr "#13/Press any key to exit."
:in
t/d1000
:on -1 200 / /


:oe 150
:pr "#1/"
:on -1 2







:on $0 / 152 /
rd
:on $1 / 154 /
wd
:on -1 200