home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a114 / 1.img / SAMPAPP / SAMPAPP.ZIP / MKLIB.SC < prev    next >
Encoding:
Text File  |  1990-08-25  |  2.2 KB  |  57 lines
  1. ; Script:     MKLIB.SC
  2. ; Version:    3.5
  3. ; Date:       23 March 1990
  4. ;
  5. ; This script plays each of the scripts that contain procedures used in
  6. ; STOCKS and creates a library of procedures. Note that we use the library
  7. ; name of PARADOX, which is the default autoload library.
  8.  
  9. LibName = "PARADOX"
  10.  
  11. IF ISFILE(LibName + ".LIB")     ; Does AUTOLIB already exist?
  12.     THEN MESSAGE LibName + ".lib already exists"
  13.          SHOWMENU
  14.            "No" :"Don't overwrite existing library",
  15.            "Yes":"Overwrite existing library"
  16.            TO Choice
  17.          IF Choice = "No" or Choice = "Esc"
  18.            THEN MESSAGE "Cancelling creation of "+ LibName +
  19.                         " library."
  20.                 SLEEP 1000
  21.                 QUIT      ; exit the script and don't create library
  22.          ENDIF
  23. ENDIF
  24.  
  25. ; If we get to this point, library didn't exist, or user chose Yes.
  26.  
  27. MESSAGE "Writing new " + LibName + " library."
  28. CREATELIB LibName
  29. PLAY "Board"
  30. WRITELIB LibName SeeBoard, ShowNSleep, SleepRefresh
  31. RELEASE PROCS SeeBoard, ShowNSleep, SleepRefresh
  32. PLAY "Ticker"
  33. WRITELIB LibName AddChar, TickerTape, DoTicker
  34. RELEASE PROCS AddChar, TickerTape, DoTicker
  35. PLAY "Portfol"
  36. WRITELIB LibName SpecificPort, SpecQuery1, AskPortName, PortMenu
  37. RELEASE PROCS SpecificPort, SpecQuery1, AskPortName, PortMenu
  38. PLAY "Holdings"
  39. WRITELIB LibName PortAggr, PortPric, PortSum
  40. RELEASE PROCS PortAggr, PortPric, PortSum
  41. PLAY "Graphs"
  42. WRITELIB LibName GraphMenu, SaveOldGraph, DoGraph, Graph1, Graph2,
  43.                  Graph3, Graph4
  44. RELEASE PROCS GraphMenu, SaveOldGraph, DoGraph, Graph1, Graph2, Graph3, Graph4
  45. PLAY "DoFeed"
  46. WRITELIB LibName SingleDoFeed, DoFeed, TryToInitialize, ClearBackground,
  47.                  PutMessage, ClearMessage, Startup, TestWaitForInitialize,
  48.                  TestInitialize, DoneInitialize, DoneFeed, ChangePrice
  49. RELEASE PROCS SingleDoFeed, DoFeed, TryToInitialize, ClearBackground,
  50.               PutMessage, ClearMessage, Startup, TestWaitForInitialize,
  51.               TestInitialize, DoneInitialize, DoneFeed, ChangePrice
  52.  
  53. MESSAGE LibName + " library created."
  54.  
  55. ; Once we've gotten this far, we can PLAY "stocks" to start application.
  56.  
  57.