home *** CD-ROM | disk | FTP | other *** search
- ; Contains Licensed Material Copyright (C) 1987 Ansa Software -- MJP
-
- Reset
- Release Vars All
- LibName=sdir()+"Toolkit2"
- If not isfile(LibName+".LIB")
- Then Quit "Could not find Toolkit2 library file."
- Endif
- Readlib LibName InitTools,Err
- InitTools() ;Checks Paradox version number, availability of libraries, etc.
- Clear
- DirName=directory()
- Setdir sdir()
- Message "Just a moment..."
- Readlib TKLibName InitWait,SetKeycodes,SetPopup
- InitWait("FldSpec","KeySpec") ;Initialize special "DoWait" procedure
- SetKeycodes() ;Define keycode variables such as TKDel
- SetPopUp("Carriers") ;Prepare pop-up menu with info from carriers table
- Release Procs InitWait,SetKeycodes,SetPopup
- AreaCode="(415)"
- TaxRate=.0725
- Readlib sdir()+"DemoApp" DataEntry
- DataEntry()
- Setdir DirName