home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0000 - 0009 / ibm0000-0009 / ibm0003.tar / ibm0003 / PRDX31.ZIP / SAMAPP / MKLIB.SC < prev    next >
Encoding:
Text File  |  1988-12-21  |  1.6 KB  |  45 lines
  1. ; SCRIPT:     MKLIB.SC
  2. ; Version:    3.0
  3. ; Date:       12 December 1988
  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. Autolib = LibName
  12.  
  13. IF Isfile(LibName+".lib")     ; Does AUTOLIB already exist?
  14.     THEN MESSAGE LibName+".lib already exists"
  15.          SHOWMENU "NO":"Don't overwrite existing library",
  16.                   "YES":"Overwrite existing library"
  17.          TO Choice
  18.          IF Choice = "NO" or Choice = "Esc"
  19.               THEN MESSAGE "Cancelling creation of "+LibName+" library." sleep 1000
  20.                    QUIT      ; Exit the script and don't create library
  21.          ENDIF
  22. ENDIF
  23.  
  24. ; If we get to this point, library didn't exist, or user selected "YES"
  25.  
  26. MESSAGE "Writing new "+LibName+" library."
  27. CREATELIB LibName
  28. PLAY "Board"
  29. WRITELIB LibName SeeBoard,ShowNSleep,SleepRefresh
  30. PLAY "Ticker"
  31. WRITELIB LibName AddChar,TickerTape,DoTicker
  32. PLAY "Portfol"
  33. WRITELIB LibName SpecificPort,SpecQuery1,AskPortName,PortMenu
  34. PLAY "Holdings"
  35. WRITELIB LibName PortAggr,PortPric,PortSum
  36. PLAY "Graphs"
  37. WRITELIB LibName GraphMenu,SaveOldGraph,DoGraph,Graph1,Graph2,Graph3,Graph4
  38. PLAY "DoFeed"
  39. WRITELIB LibName DoFeed,TryToInitialize,ClearBackground,PutMessage,
  40.                  ClearMessage,Startup,TestWaitForInitialize,
  41.                  TestInitialize,DoneInitialize,DoneFeed
  42. MESSAGE LibName+" library created."
  43.  
  44. ; Once we've gotten this far, we can PLAY "stocks" to start application
  45.