home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Share Gallery 1
/
share_gal_1.zip
/
share_gal_1
/
UT
/
UT130.ZIP
/
ALLEYCAT.ZIP
/
JSBOUT.MDX
(
.txt
)
< prev
next >
Wrap
dBASE Multiple Index
|
1990-10-04
|
6KB
|
66 lines
JSBOUT
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
?' XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
?' XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
?' XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
?' XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
SET PRIN OFF
SET CONS ON
ENDC
ENDD
CLEA
RETU
PROC JEXT
SELE B
DO BOX3
@15,15 SAY '
DISK2
FILE2
INDEX BEING CREATED........
@17,15 SAY '
@18,15 SAY '
PLEASE WAIT A FEW MOMENTS
@19,15 SAY '
INDE ON SUBS(FILE,AT(".", FILE)+1,3)+FILE+DISK TAG JEXT OF JCAT
STOR 'FILE EXT + FILE + DISK' TO MCORDER
SET INDE TO JCAT
SET ORDE TO JEXT
PROC JLOC
SELE B
DO BOX3
@15,15 SAY '
@16,15 SAY '
FILE LOCATION TEMPORARY INDEX BEING CREATED........
@17,15 SAY '
@18,15 SAY '
PLEASE WAIT A FEW MOMENTS
@19,15 SAY '
INDE ON LOCATION+DISK+FILE TAG JLOC OF JCAT
STOR 'LOCATION + DISK + FILE' TO MCORDER
SET INDE TO JCAT
SET ORDE TO JLOC
PROC JBYTES
SELE B
DO BOX3
@15,15 SAY '
@16,15 SAY '
FILE BYTES SIZE TEMPORARY INDEX IS BEING CREATED....
@17,15 SAY '
@18,15 SAY '
PLEASE WAIT A FEW MOMENTS
@19,15 SAY '
INDE ON BYTES TAG JBYTES OF JCAT
STOR 'FILE BYTE SIZE' TO MCORDER
SET INDE TO JCAT
SET ORDE TO JBYTES
PROC JDATE
SELE B
DO BOX3
DISK+FILE+EXT
AFILE
FILE+EXT+DISK
ADISK