Category : Databases and related files
Archive   : DLITE10.ZIP
Filename : UTIL.FRB

 
Output of file : UTIL.FRB contained in archive : DLITE10.ZIP
RFÞÜ© 
 UTILITY -
 FILENAMEd3
ˆ4@S
ˆN@s
„@“
ˆ$@­ H­ 
)Í to abort. to proceed. ÍÍÍ­ Nï
USE &FILENAME-ÿ
 3
AFLAG
TMP

INDXCOUNT
 INDXPICK
X
INDXFIX­
„ð?3

INDXCOUNT­=
„3
 INDXPICK­=
3
INDXFIX­=OÓ
 INDXNAME)(
„¡ ­!ï
SET INDEX TO &INDXNAME-ÿ
„@3
X­=
„ð?3
„“
Current indexes available:­:
„@3
„“
0 - Natural Order­:/Ó

INDXCOUNT
„ @!

INDXCOUNT)3)(
„¡ ­+OÓ
 LEADINDX)P
.d

INDXCOUNT)3)P
 LEADINDX)(
„ ­!
X

INDXCOUNTd3
„“

INDXCOUNT
„ð?II
 - d

INDXCOUNT)3)Pd

<-- LEADd­:

INDXCOUNT3
 INDXPICK­=O­*
X

INDXCOUNTd3
„“

INDXCOUNT
„ð?II
 - d

INDXCOUNT)3)Pd­:O­'

INDXCOUNT3

INDXCOUNT­=/­(
X

INDXCOUNTd3
„S
 INDXPICKs
9“
Enter choice of lead index: ­:
X

INDXCOUNTdV3
„S
INDXFIXs
Y“
Do you want indexes REBUILT?­:O­'
3
INDXNEW­=
3
 STRULIST­=
X

INDXCOUNTd3
Ȁ@@S
 STRULISTs
Y“
List DB structure?­:
X

INDXCOUNTdV3
ˆA@S
INDXNEWs
Y“
Create new INDEX?­:­OÓ &
ˆ;@¡
INDXNEW ­!­4
„ @)F3
INDXNEW­=
X

INDXCOUNTdv3
„S
INDXNEWs
 !!!!!!!!“
"Enter new index file name (.NDX):­:­
X

INDXCOUNTdv3
„­:
INDXNEW)N3
INDXNEW­=OÓ
INDXNEW)(
„¡ &
ˆ;@¡ ­!­4OÓ
INDXNEW
.NDXd) ­!
3
 INDXEXPN­=
X

INDXCOUNTdv3
„S
 INDXEXPNs
Y“
 Index file
INDXNEWd
 exists. Overwrite?d­:­
X

INDXCOUNTdv3
„­:O­'OÓ
 INDXEXPN ­!
ˆN@)F3
 INDXEXPN­=
X

INDXCOUNTdv3
„S
 INDXEXPN“
Index expression:­:­
X

INDXCOUNTdv3
„­:
 INDXEXPN)N3
 INDXEXPN­=OÓ
 INDXEXPN)(
„ &
ˆ;@¡ ­!
X

INDXCOUNTdv3
„“
Creating new index . . . ­:ï
INDEX ON &INDXEXPN TO &INDXNEW-ÿ
X

INDXCOUNTdv3
„­:ï
SET INDEX TO &INDXNAME-ÿO­'O­'O­'O­'OÓ &
ˆ;@¡
INDXFIX ­!
X

INDXCOUNTdv3
„“
'Rebuilding indexes. Please wait . . . ­:­
X

INDXCOUNTdv3
„­:O­'OÓ &
ˆ;@¡
 INDXPICK

INDXCOUNT! ­!OÓ
 INDXPICK
„A ­!
3
 LEADINDX­=O­*
 INDXPICK)3)P3
 LEADINDX­=
 LEADINDX
„ð?
.
 LEADINDXI
„ð?„iK3
 LEADINDX­=
3
AFLAG­=/Ó
AFLAG ­+
\
 LEADINDXI3
TMP­=OÓ
TMP
„A ­!
3
AFLAG­=­O­*
 LEADINDX
TMP
 LEADINDX)(
TMP„
„ð?diK3
 LEADINDX­=O­'/­(O­'O­'OÓ &
ˆ;@¡
 STRULIST ­!­4­,­O­'­4­3­3­

  3 Responses to “Category : Databases and related files
Archive   : DLITE10.ZIP
Filename : UTIL.FRB
”

  1. Daniel says:
    January 27, 2013 at 3:59 pm

    Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. Joshie says:
    March 18, 2014 at 4:57 pm

    This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. DiskingRound says:
    January 14, 2015 at 10:57 pm

    But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/