###     Alphabetic Sort v.2.01  4/8/83  SG

              *** алпха нумериц сорт ***              
                     мацрофеатуре

   ALHPA will sort a customer list or other file in
ascending alphabetic or numeric order. It is assumed
that you have a properly formatted file on disk. The
results will be left in a named disk file.

   The file CUSLIST.DEM is formatted correctly to operate
correctly with the options as currently set.

##
A       "10       "     "Number of lines in each record          "
B       "2        "     "On which line do you wish to sort?      "
C       "4        "     "Field Description                       "
        ""              "          0 = Literal    1 = 1st word   "
        ""              "          2 = 2nd word   3 = Last word  "
        ""              "          4 = Name (First/Last)         "
D       "         "     "    Minimum target                      "
E       "ZZZZZZZZZ"     "    Maximum target                      "
H       "15       "     "How many characters for key field       "
I       "1        "     "Validation check  (0=no, 1=yes)         "
#
:ON -1 100
T/F%4/H0/H10000
:%5 = 0
:pr "#1/BEGIN SORT"
:%9 = %4+1

:on -1 75
:%9 = %9-1
:%3 = 0
t

:%A = !
f%9
:ON ?-3 / 30 /
:%B = !
:ON %A%B 20 / /
B%9/F1
:ON -1 12

B0/S/%B/%A/
B%9/S/%A/%B/
F1


:%3 = %3+1
:ON -1 12



:%5 = %5+1
:pr "#0/pass  %5,%3  "
:ON %3 9 7 9








t
s/</
:%7 = 0
:%6 = $2
:%C = "?????????????????????????????????????"
:sf %C %6-4
T
s/%C//
f1
:%7 = %7+1
:on %7-%4 48 / 48
T/S//</T/U/H0

WO/%E/
:%5 = 0
e/b1
:%6 = !-1
:on %6 70 / /
b0/d1
t
%1f%6
:%5 = %5+1
:PR "#0/#6/WRITING RECORD %5"
W%1
:on -1 56




WD/T/D5000/H0/L79
:PR "#1/#13/SORT DONE.  RESULTS ARE IN %E"
:IN
:on -1 400



:%6 = %9
:%9 = 512
:on %6-%9 / / 8
:%9 = 256
:on %6-%9 / / 8
:%9 = 128
:on %6-%9 / / 8
:%9 = 64
:on %6-%9 / / 8
:%9 = 32
:on %6-%9 / / 8
:%9 = 16
:on %6-%9 / / 8
:%9 = 8
:on %6-%9 / / 8
:%9 = 4
:on %6-%9 / / 8
:%9 = 2
:on %6-%9 / / 8
:%9 = 1
:on %6-%9 / / 8
:on -1 40

:oe 270
:ss 32
:%1 = $A
:%3 = $B
:%4 = $C
:%F = $D
:%G = $E
:%2 = $H
:%8 = $I
:pr "#1/"
:in "#0/#13/#3/#3/Filename of unsorted file:       " %D
ro/%D/
:on $0  /+2 / /+2
:PR "#1/#13/There is no file by name of %D - TRY AGAIN...   "
:ON -1 /-5
:in "#0/#13/#3/#3/#3/Filename of sorted file:         " %E

:pr "#1/#13/Processing the unsorted file ..."

L157

e
:%5=0

r%1
:%9 = $0
:on %9 128 / 128
:on ?-3 260 155 260
:%5 = %5+1
:on %8-1 143 / 143
:on ?-46 / 143 /
:on ?-65 / 143 /
S//╙/B0/S/</
:CP
B0/S/╙//
:PR "╙ еррор рецорд %5. CONTINUE?(Y/N)"
:in %C
:%B = "Y"
:on %B%C / 143 /
:%B = "N"
:on %B%C 133 / 133
L79/rd
:on -1 1000

:%9 = %3-1
d %9
f1
:%9 = %1-%3
d %9




:ON -1 124



:on %4-0 / 180 /
:on %4-4 / 160 /
t/sa/,/ /
t/sa/   / /
t/sa/  / /
t/sa/ </<
t/sa/< /</
:on %4-4 180 / 180
t/sa/ I</</
t/sa/ II</</
t/sa/ III</</
t/sa/*Jr.//
t/sa/*Sr.//
t
1000s/,/</d1









:%7=0
t

:on ?-3 / 225 /
:%C = ""
:%7 = %7+1
:on %4-2 209 / 192
:%C = !
:%C = !
:on -1 205

:%C = !

:on ?-13 / 205 /







:ON -1 192


:%A = %C
:on -1 210


:%A = !
:on %A%F 212 / /
:on %A%G 214 214 /
b0/d1
:on -1 184
B0/s//"/B0
:%B = !
:on %4-2 219 / /

:%B = "%C %B"
:SF %B %2
:se %B
b0/s//"%B %7</d1
:on -1 184


E
:%7 = $3-1
:pr "#1/There will be %7 records in the file created"
:pr "#13/procedure will take about 15m for 200 RECORDS"




E
:%4 = $3-1
:%8 = 0
:%7 = 0
RO/%D/


:on %8-%4 / 266 266
T/f%8
:%8 = %8+1
s/????</
:%6 = !
b0/s/????</%8</




:%9 = $0
:on %9 / 260 /
:%7 = %7+1
r%1
:ON ?-3 / 263 / 
:on %7-%6 /240 /
d%1
:on -1 250


:in "#1/Length error in last record. Hit return to exit"
L79/rd
:on -1 280
:IN "#1/Sort file will not fit in memory. Hit return to exit"
L79/RD
:on -1 280
rd
:on -1 2


l79
:on $0 / 273 /
rd
:on $1 / 275 /
wd
:on -1 280