home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / h / hardback / !Restore / !Run < prev    next >
Text File  |  1995-12-12  |  1KB  |  34 lines
  1. |!Run for HardBack (Restore) last updated at v1.386
  2.  
  3. Set HardRestD$Dir <Obey$Dir>
  4. IconSprites <HardRestD$Dir>.!Sprites
  5.  
  6. | This isn't strictly necessary, but it means FileEnsure works in a neat way
  7. Set Run$PathTemp <Run$Path>
  8. Set Run$Path <Run$Path>,<HardRestD$Dir>.
  9.  
  10. | This section sets the variable RiscOS$V to the version of Risc OS
  11. SetEval RiscOS$V 500
  12. |RMEnsure UtilityModule 5.00 SetEval RiscOS$V 400
  13. RMEnsure UtilityModule 4.00 SetEval RiscOS$V 320
  14. RMEnsure UtilityModule 3.20 SetEval RiscOS$V 300
  15. RMEnsure UtilityModule 3.00 SetEval RiscOS$V 200
  16. RMEnsure UtilityModule 2.00 SetEval RiscOS$V 120
  17.  
  18. | This section deals with checking for the MessageTrans module
  19. Set HB$OK 1
  20. RMEnsure MessageTrans 0.00 Set HB$OK 0
  21. If "<System$Path>"="" AND "<HB$OK>"="0" AND "<RiscOS$V>"<300 Then Error "Open a directory containing !System."
  22. RMEnsure MessageTrans 0.00 If "<RiscOS$V>">=300 then RMReInit MessageTrans
  23. RMEnsure MessageTrans 0.00 FileEnsure System:Modules.MsgTrans "Error HardBack needs the MessageTrans module. It should be in !System.Modules as MsgTrans"
  24. RMEnsure MessageTrans 0.06 RMLoad System:Modules.MsgTrans
  25. RMEnsure MessageTrans 0.06 Error HardBack needs MessageTrans version 0.06 or later.
  26.  
  27. Set Run$Path <Run$PathTemp>
  28. Unset Run$PathTemp
  29. If "<RiscOS$V>"<320 Then IconSprites <HardRestD$Dir>.package
  30. WimpSlot -min 148K -max 148K
  31. SetEval HardRestD$Slot 400
  32. Run <HardRestD$Dir>.StartUp
  33. Run <HardRestD$Dir>.!RunImage
  34.