home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / PDXOS2-1.ZIP / SAMPLE / MKLIB.SC < prev    next >
Encoding:
Text File  |  1988-12-29  |  1.4 KB  |  41 lines
  1. ; SCRIPT:     MKLIB.SC
  2. ; Version:    2.0
  3. ; Date:       2 May 1987
  4. ;
  5. ;
  6. ; This script plays each of the scripts that contain procedures used in
  7. ; STOCKS and creates a library of procedures. Note that we use the library
  8. ; name of PARADOX, which is the default AUTOLIB.
  9.  
  10. LibName = "Paradox"
  11. IF ISFILE(LibName+".lib")     ; Does AUTOLIB already exist?
  12.     THEN MESSAGE LibName+".lib already exists"
  13.          SHOWMENU "NO":"Don't overwrite existing library",
  14.                   "YES":"Overwrite existing library"
  15.          TO Choice
  16.          IF Choice = "NO"
  17.               THEN MESSAGE "Cancelling creation of "+LibName+" library."
  18.                    QUIT      ; Exit the script and don't create library
  19.          ENDIF
  20. ENDIF
  21.  
  22. ; If we get to this point, library didn't exist, or user selected "YES"
  23.  
  24. MESSAGE "Writing new "+LibName+" library."
  25. CREATELIB LibName
  26. PLAY "Board"
  27. WRITELIB LibName SeeBoard,ShowNSleep,SleepRefresh
  28. PLAY "Ticker"
  29. WRITELIB LibName AddChar,TickerTape,DoTicker
  30. PLAY "Portfol"
  31. WRITELIB LibName SpecificPort,SpecQuery1,AskPortName
  32. PLAY "Holdings"
  33. WRITELIB LibName PortAggr,PortPric,PortSum
  34. PLAY "DoFeed"
  35. WRITELIB LibName DoFeed,TryToInitialize,ClearBackground,PutMessage,
  36.                  ClearMessage,Startup,TestWaitForInitialize,
  37.                  TestInitialize,DoneInitialize,DoneFeed
  38. MESSAGE LibName+" library created."
  39.  
  40. ; Once we've gotten this far, we can PLAY "stocks" to start application
  41.