Category : Paradox DBMS
Archive   : GOLD13.ZIP
Filename : GOLDSC.DB

„‰



%
ôò(o&o
¶
„0ooGOLDSC.DBText8; ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»; º Gold Utilities Version 1.31 º; º Written By Harry Goldman º; º DataBase Designs, Inc. º; º (v) (708) 634-9355 (f) 708-634-9357 , Compuserve 75300,1733 º; º Copyright 1992 º; º All Rights Resevered º; º º; º This program can be modifeid and enhanced freely as º; º long as the copyright and original program credits are maintained. º; º If you enhance or modify this program, feel free to let me know, º; º you will be credited in the next release. Resale of this program º; º is prohibited without the written permission of the author º; º º; ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹
8; ºSpecial Thanks to Alan Zenreich, Dan Paolini and Phil Goulson for their º; ºideas and support. º; ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼRelease Procs ALLRelease Vars AllIf Version() > 3.4 Then SaveTablesEndifReset;============================================================================; To run The Gold Utilities properly, you will need to edit the line; that begins with PATH.A = and set that to the path where the Gold; Utilities have been installed. For example if The Gold Utilities have8; been installed on the C: drive in their own subdirectory, then use; PATH.A = "C:\\GOLD\\";============================================================================MainDir.a = Directory() ; Where we wereSetDirDefDir.a = Maindir.aIf Monitor() = "Color" Then RegMtr.n = 63 ; Regular Monitor ÄÄÄ¿ RevMtr.n = 79 ; Reverse ÃÄÄ Color BlkMtr.n = 79 + 128 ; Reverse Blink ÄÄÄÙ Color.l = TrueElse8 RegMtr.n = 9 ; Regular Monitor ÄÄÄ¿ RevMtr.n = 112 ; Reverse ÃÄÄ Mono BlkMtr.n = 112 + 128 ; Reverse Blink ÄÄÄÙ Color.l = FalseEndifCanvas OffView "GoldCfg" ; Check the config fileIf Isempty("GoldCfg") Or Isblank([GoldCfg->Path]) Or [GoldCfg->Path] = " " Then Autolib="Gold1" Cfg.u()Endif8Path.a = [Path]If Isblank([Setup]) Then GoldPSetup.a = " "Else GoldPSetup.a = [Setup]EndIfIf Isblank([Width]) Then GoldPWidth.n = 80Else GoldPWidth.n = [Width]EndIfIf Isblank([Lines]) Then8 GoldLines.n = 80Else GoldLines.n = [Lines]EndIfIf [Time] = "" Or Isblank([Time]) Then CoEditKey [Time] = Time() Do_It!Else If Isfile("Install.sc") Then Run "Del Install.sc" EndifEndif8SetSwap 30000SetDir Path.aIf Not Isfile("Gold1.lib") then Play "Goldutl1"EndifAutolib= Path.a+"Temp,"+Path.a+"Gold1"ClearallView "GOLDL1"PickForm "1"Cursor OffEcho NormalEcho Offpaintcanvas Fill "²" attribute 70 0, 0, 2, 79 8echo offSleep 500Canvas Off@ 12,0 ?? Format("W80,AC","A Table Documenting Utility")paintcanvas Fill "²" attribute 70 12, 0, 12, 19paintcanvas Fill "²" attribute 70 12, 60, 12, 79paintcanvas attribute 113 12, 20, 12, 59Canvas OnSleep 1000ClearallErrorProc = "Object_Error"GoldMain.u()
8View "GoldL1"Pickform "3"Cursor OffCanvas OffEcho NormalEcho Offpaintcanvas Fill "²" attribute 70 0, 0, 2, 79Canvas OnSleep 1000SetDir MainDir.aRelease Procs All „Release Vars AllReset