home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / PDXOS2-1.ZIP / SAMPLE / ORDENTRY.SC < prev    next >
Encoding:
Text File  |  1988-12-29  |  809 b   |  25 lines

  1. ; Contains Licensed Material Copyright (C) 1987 Ansa Software -- MJP
  2.  
  3. Reset
  4. Release Vars All
  5. LibName=sdir()+"Toolkit2"
  6. If not isfile(LibName+".LIB")
  7.    Then Quit "Could not find Toolkit2 library file."
  8. Endif
  9. Readlib LibName InitTools,Err
  10. InitTools()   ;Checks Paradox version number, availability of libraries, etc.
  11. Clear
  12. DirName=directory()
  13. Setdir sdir()
  14. Message "Just a moment..."
  15. Readlib TKLibName InitWait,SetKeycodes,SetPopup
  16. InitWait("FldSpec","KeySpec") ;Initialize special "DoWait" procedure
  17. SetKeycodes()               ;Define keycode variables such as TKDel
  18. SetPopUp("Carriers")        ;Prepare pop-up menu with info from carriers table
  19. Release Procs InitWait,SetKeycodes,SetPopup
  20. AreaCode="(415)"
  21. TaxRate=.0725
  22. Readlib sdir()+"DemoApp" DataEntry
  23. DataEntry()
  24. Setdir DirName
  25.