home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 2 / DATAFILE_PDCD2.iso / utilities2 / _fileiconz / !FileIconz / !Run < prev    next >
Encoding:
Text File  |  2016-07-03  |  1.7 KB  |  52 lines
  1. | !Run file for !FileIconz v. 3.11
  2. | © Jon Noble / Aardvark Software 1994
  3. | Project Started 9/6/93
  4.  
  5. |
  6. | Further filetypes can be added by writing to me
  7. | (Address in !Help file), or doing it yourself,
  8. | but remember to send me any new versions.....
  9. |
  10. | Written on an ARM 3, 4 Meg, Risc Os 3.11 A3000,
  11. | with a DT Software IDE Interface and a 120 Meg.
  12. | drive, which is just *too* small :-(
  13.  
  14.  
  15. Set FIconz$Dir <Obey$Dir>
  16. Set Mortuary$Dir <Obey$Dir>.Mortuary
  17. wimpslot -min 50K -max 50K
  18. run <Mortuary$Dir>.Announce
  19. wimpslot -min 10K -max 10K
  20. IconSprites <FIconz$Dir>.!Sprites
  21.  
  22. If "<System$Path>" = "" Then Error System resources cannot be found. Please double click on a copy of !System and try again.
  23.  
  24. RmEnsure Memalloc 0.11 rmload System:Modules.Memalloc
  25. RmEnsure Memalloc 0.11 error Your copy of Memalloc is out of date / Non Existant, Please update it!
  26.  
  27.  
  28. RmEnsure Excellent 0 Rmload <Mortuary$Dir>.Excellent
  29.  
  30. RmEnsure UtilityModule 3.00 set RiscOS$Version "2"
  31. Rmensure UtilityModule 4.00 Set RiscOS$Version "3"
  32.  
  33. | If you don't want !FileIconz to appear in the Apps folder, 
  34. | put a ‘|’ (Shift + \) in front of ‘If’
  35.  
  36. If "<RiscOs$Version>"="3" Then Rmload <Mortuary$Dir>.FIMod
  37.  
  38. | If you don't want !FileIconz to change the “No Run Action Specified
  39. | For This Filetype” message, | put a ‘|’ (Shift + \) in front of ‘If’
  40.  
  41. If "<RiscOs$Version>"="3" Then Rmload <Mortuary$Dir>.Messages
  42.  
  43. | Done like this ‘cos I don't know whether 
  44. | The way I'm using for RO3 will work on RO2.
  45. | In a couple of weeks I will be back at school so
  46. | I can check it.
  47.  
  48. If "<RiscOs$Version>"="2" Then <Mortuary$Dir>.TinOpener
  49. If "<RiscOs$Version>"="3" Then Set FileIconz$Path <Obey$dir>.FileIconz.
  50. If "<RiscOs$Version>"="3" Then Filer_opendir FileIconz: 
  51.  
  52. Run <Mortuary$Dir>.Delay