home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / comdemos / progs / mtrader / !MTrader / !Run < prev    next >
Encoding:
Text File  |  1992-12-17  |  1.3 KB  |  31 lines
  1. | Run obey file for MicroTrader.
  2.  
  3. if "<Obey$Dir>" = "arcfs#93_02:$.MTrader.!MTrader" then error 0 'Micro-Trader' cannot run under ArcFS. Drag !MTrader Application to a hard disc directory or another floppy disc. See Help file.
  4.  
  5. if "<Obey$Dir>" = "ArcFS#93_02:$.MTrader.!MTrader" then error 0 'Micro-Trader' cannot run under ArcFS. Drag !MTrader Application to a hard disc directory or another floppy disc. See Help file.
  6.  
  7. if "<MTraderRunning>" <> "" then error 0 'Micro-Trader' already running!
  8.  
  9. IconSprites <Obey$Dir>.!Sprites
  10.  
  11. RMEnsure FPEmulator     2.80 RMLoad System:Modules.FPEmulator
  12. RMEnsure FPEmulator     2.80 Error You need FPEmulator 2.80 or later
  13.  
  14. RMEnsure SharedCLibrary 3.75 RMLoad System:Modules.CLib
  15. RMEnsure SharedCLibrary 3.75 Error You need SharedCLibrary V 3.75 or later.
  16.  
  17. | Micro Trader data directory paths.
  18.  
  19. Set MTrader$Dir         <Obey$Dir>
  20. Set MTraderSysData$Dir  <MTrader$Dir>.Data
  21. Set MTraderSales$Dir    <MTrader$Dir>.SalesData
  22. Set MTraderInvoice$Dir  <MTrader$Dir>.InvData
  23. Set MTraderPurchase$Dir <MTrader$Dir>.PurchData
  24. Set MTraderNominal$Dir  <MTrader$Dir>.NominData
  25. Set MTraderStock$Dir    <MTrader$Dir>.StockData
  26. Set MTraderMail$Dir     <MTrader$Dir>.MailData
  27.  
  28. WimpSlot 12K 12K
  29. Set StartUp$Dir <Obey$Dir>.StartUp
  30. Run <MTrader$Dir>.StartUp.!RunImage
  31.