home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 2 / DATAFILE_PDCD2.iso / full_cat21 / _datafile_ / _run < prev    next >
Encoding:
Text File  |  1994-08-26  |  2.2 KB  |  71 lines
  1. | !Run file for the Datafile catalogue.
  2. |
  3. | fully copyrighted programme:
  4. |
  5. | (c) Dirk-Willem van Gulik,
  6. |     Enschede, The Netherlands
  7. |     14 November 1992
  8. |
  9. | This is a restricted  1.12 release
  10. | #marked: 1-009-.43 
  11. | 
  12. | Not to be copied, lent, sold, hired, duplicated,
  13. | distributed without prior written consent from
  14. | the author. 
  15. |
  16. | This is NOT PD, NOT ShareWare, NOT FreeWare
  17. | 
  18. set DataFile+$data <obey$dir>.cdata
  19. set DataFile+$dir <obey$dir>
  20.  
  21. set Xref$server <obey$dir>.!RunImage
  22. set Xref$serverdir <obey$dir>
  23.  
  24. | Load the ArcFS module ....
  25. | this is used to read the archived catalogue,
  26. | consult programmers/reference manual for 
  27. | information about the underlying principles
  28. |
  29.  
  30.   RMensure ArcFS 0.30 IF "<ARCFS$DIR>"="" THEN ERROR 1 No ArcFS can be found
  31.   RMensure ArcFS 0.30 RMLOAD <ARCFS$DIR>.ArcFSMod
  32.   RMensure ArcFS 0.30 ERROR 1 Cannot find 0.30 or higher version of ArcFS
  33. |                               
  34.   CloseArchive
  35.   OpenArchive <obey$dir>.cdata
  36.   set DataFile+$Data  arcfs#cdata:$
  37.  
  38. | For all those HD/Menon loving people..
  39. iconsprites <obey$dir>.!Sprites
  40.  
  41. | Here, the version of your windowmanager is checked. If it is
  42. | below 3.00 a programme 'interf_load' will be run. This programme
  43. | will search for the interface manager in several places, without
  44. | returning an error if it cannot find a decent version.
  45. |
  46. | You can comment them out if you have ro 3.00 or above.
  47. |  set old off
  48. |  rmensure WindowManager 3.00 set old on
  49. |  IF "<old>"="on" then rmensure interfacemanager 2.00 /<obey$dir>.intrf_load
  50. |  unset old
  51.  
  52. | If you want to be really sure that the interface module is loaded,
  53. | and to get an error if not, replace that last line with something
  54. | like this :
  55. | rmensure interfacemanager 2.00 rmload system:modules.interface
  56.  
  57. | check out carefully, not too sure for 1 Mb machines
  58. | with small memory chunks, on 'machine-hang' increase
  59. | to 64k. (With older BASICs, down to 32k has reported to
  60. | work ..!)
  61. |
  62. | Flag's..
  63. |   -D      overide 'drag-a-sprite' bit in CMOS ram, i.e.
  64. |           always try to use fancy drag sprite
  65. |   -F      use fancy fonts
  66. |
  67. wimpslot -min 150k -max 150k
  68. set flags "-F -D "
  69. rmensure utilitymodule 3.10 set flags ""
  70. run <xref$server> <flags> -C <DataFile+$dir>.!Config  -MAX 1300k
  71.