home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
SIMTEL
/
CPMUG
/
CPMUG080.ARK
/
ZIPSORT.STB
< prev
Wrap
Text File
|
1984-04-29
|
1KB
|
36 lines
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"