home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 2 / RISC_DISC_2.iso / pd_share / utilities / disc / kleinfs / !KleinFS / !Run < prev    next >
Encoding:
Text File  |  1993-10-28  |  1.2 KB  |  38 lines
  1. |
  2. |    Andysoft Software's KleinFS: Read Only
  3. |
  4. | Versions - FS module       0.23 (17 Oct 1993)
  5. |            Support module  0.13 (24 Sep 1993)
  6. |            Filer module    0.08 (28 Oct 1993)
  7. |
  8. |    © Andysoft Software / PTW Software 1993
  9. |
  10.  
  11. If "<Wimp$ScrapDir>" = "" Then Error 0 KleinFS needs to know where the Wimp Scrap directory is: please run !Scrap
  12. CDir <Wimp$ScrapDir>.KleinFS
  13.  
  14. Set KleinFS_Disc$Dir <Obey$Dir>
  15. IconSprites <KleinFS_Disc$Dir>.!Sprites
  16. IconSprites <KleinFS_Disc$Dir>.Sprites
  17.  
  18. RMEnsure KleinFSSupport 0.13 RMLoad <KleinFS_Disc$Dir>.Support
  19. RMEnsure KleinFSSupport 0.13 Error 0 KleinFS support module not present/ too old
  20.  
  21. RMEnsure KleinFS 0.22 RMLoad <KleinFS_Disc$Dir>.KFS
  22. RMEnsure KleinFS 0.22 Error 0 KleinFS module not found/ too old
  23.  
  24. Set File$Type_FCA Squash
  25. Set Alias$@RunType_FCA Run KleinFS#%*0
  26. Set Alias$@LoadType_FCA Load KleinFS#%*0
  27.  
  28. | Patch up the ADFS Filer module, if possible
  29. Filer_Run <KleinFS_Disc$Dir>.PatchObey
  30.  
  31. | and now start up the filer
  32. Unset KleinFS$Loaded
  33. Set KleinFS$Start Warm
  34. RMEnsure KleinFS_Resources 0.07 Set KleinFS$Start Cold
  35.  
  36. If "<KleinFS$Start>" = "Cold" Then Run <KleinFS_Disc$Dir>.!LoadFiler
  37. If "<KleinFS$Start>" <> "Cold" Then Filer_Run KleinFS#Resources:$.Apps.!KFS_Filer
  38.