home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / h / hardback / !Backup / !Run < prev    next >
Text File  |  1995-12-12  |  2KB  |  51 lines
  1. | !Run for HardBack (Backup) last updated at v1.625 (12 Dec 95)
  2.  
  3. | To set the default file, set the variable HardBackD$Default to
  4. | the name of a script file, similar to that shown below:
  5. | Set HardBackD$Default adfs::HardDisc4.$.Utils.HardBack.Default
  6. | This needn't be in this file, and the script file can be anywhere
  7. | so it will work on read-only filing systems eg CD-Roms
  8.  
  9. Set HardBackD$Dir <Obey$Dir>
  10. Obey <HardBackD$Dir>.!Boot
  11.  
  12. | This isn't strictly necessary, but it means FileEnsure works in a neat way
  13. Set Run$PathTemp <Run$Path>
  14. Set Run$Path <Run$Path>,<HardBackD$Dir>.
  15.  
  16. | This section sets the variable RiscOS$V to the version of Risc OS
  17. SetEval RiscOS$V 500
  18. |RMEnsure UtilityModule 5.00 SetEval RiscOS$V 400
  19. RMEnsure UtilityModule 4.00 SetEval RiscOS$V 320
  20. RMEnsure UtilityModule 3.20 SetEval RiscOS$V 300
  21. RMEnsure UtilityModule 3.00 SetEval RiscOS$V 200
  22. RMEnsure UtilityModule 2.00 SetEval RiscOS$V 120
  23.  
  24. | This section deals with checking for the MessageTrans module
  25. Set HB$OK 1
  26. RMEnsure MessageTrans 0.00 Set HB$OK 0
  27. If "<System$Path>"="" AND "<HB$OK>"="0" AND "<RiscOS$V>"<300 Then Error "Open a directory containing !System."
  28. RMEnsure MessageTrans 0.00 If "<RiscOS$V>">=300 then RMReInit MessageTrans
  29. RMEnsure MessageTrans 0.00 FileEnsure System:Modules.MsgTrans "Error HardBack needs the MessageTrans module. It should be in !System.Modules as MsgTrans"
  30. RMEnsure MessageTrans 0.06 RMLoad System:Modules.MsgTrans
  31. RMEnsure MessageTrans 0.06 Error HardBack needs MessageTrans version 0.06 or later.
  32. Unset HB$OK
  33.  
  34. If "<HardBackD$Default>"="" Then Set HardBackD$Default2 <HardBackD$Dir>.!Default Else Set HardBackD$Default2 <HardBackD$Default>
  35.  
  36. | The value below is the total amount of memory in kilobytes initially taken
  37. | by the program including file buffers - see the manual for details.
  38. | It should not be less than the figure above
  39. SetEval HardBackD$Slot 400
  40.  
  41. Set Run$Path <Run$PathTemp>
  42. Unset Run$PathTemp
  43.  
  44. Wimpslot -min 100k -max 100k
  45. Run <HardBackD$Dir>.StartUp %*0
  46.  
  47. | The value below is the amount of memory taken up by the program itself, plus internal workspace.
  48. Wimpslot -min 188k -max 188K
  49.  
  50. RUN <HardBackD$Dir>.!RunImage %*0
  51.