
   10   Rem Copyright 1981 by David E. Trachtenbarg
   11   Dim Today$(5),Last'edited$(5),Last'sorted$(5)
   12   Dim Edit'file$(13),Data'file$(13),Sort'file$(13)
   20   Dim File$(73),Name$(34)
   25   Endcommon
   30   Dim Sort'key$(39)
   40   Set 0,-1
   60 *Zip'sort
   70   Kopen\1\Data'file$
   80   On Esc Goto Escape
   90   @ : @"Creating sort file......."
  100   On Error Goto 120
  110   Erase Sort'file$
  120   On Error Stop
  130   Kcreate\0,40\Sort'file$
  140   Kopen\2\Sort'file$
  150   @ : @"Sorting......." : @
  160   On Error Goto 230
  170   Kgetfwd\1\File$(-1)
  180   Kretrieve\1\Name$(-1)
  190   Sort'key$=File$(46,50)+Name$
  200   Kadd\2,Sort'key$(-1)\
  210   @ Sort'key$(0,4);"  ";Name$(15);" ";Name$(0,14)
  220   Goto 170
  230   Close
  260   Open\1,6\Edit'file$
  270   Get\1,0\Today$(-1)
  280   Put\1,2\Today$(-1)
  290   Close\1\
  295 *Escape
  300   @ : @"Returning to printing index......" : @
  310   Close
  320   Run"REC-PRN.SAV"

          