home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug080.ark / ZIPSORT.STB < prev   
Encoding:
Text File  |  1984-04-29  |  1.0 KB  |  36 lines
  1.  
  2.    10   Rem Copyright 1981 by David E. Trachtenbarg
  3.    11   Dim Today$(5),Last'edited$(5),Last'sorted$(5)
  4.    12   Dim Edit'file$(13),Data'file$(13),Sort'file$(13)
  5.    20   Dim File$(73),Name$(34)
  6.    25   Endcommon
  7.    30   Dim Sort'key$(39)
  8.    40   Set 0,-1
  9.    60 *Zip'sort
  10.    70   Kopen\1\Data'file$
  11.    80   On Esc Goto Escape
  12.    90   @ : @"Creating sort file......."
  13.   100   On Error Goto 120
  14.   110   Erase Sort'file$
  15.   120   On Error Stop
  16.   130   Kcreate\0,40\Sort'file$
  17.   140   Kopen\2\Sort'file$
  18.   150   @ : @"Sorting......." : @
  19.   160   On Error Goto 230
  20.   170   Kgetfwd\1\File$(-1)
  21.   180   Kretrieve\1\Name$(-1)
  22.   190   Sort'key$=File$(46,50)+Name$
  23.   200   Kadd\2,Sort'key$(-1)\
  24.   210   @ Sort'key$(0,4);"  ";Name$(15);" ";Name$(0,14)
  25.   220   Goto 170
  26.   230   Close
  27.   260   Open\1,6\Edit'file$
  28.   270   Get\1,0\Today$(-1)
  29.   280   Put\1,2\Today$(-1)
  30.   290   Close\1\
  31.   295 *Escape
  32.   300   @ : @"Returning to printing index......" : @
  33.   310   Close
  34.   320   Run"REC-PRN.SAV"
  35.