home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 3 / AUCD3.iso / airport / utils / imagemap / !ImageMap / !Run < prev    next >
Text File  |  1997-04-01  |  1KB  |  42 lines
  1. Set ImageMap$Dir <Obey$Dir>
  2. Set ImageMap$Path <ImageMap$Dir>.
  3.  
  4. IconSprites <ImageMap$Dir>.!Sprites
  5.  
  6. | Set up file names
  7. |
  8. If "<File$Type_FAF>" = "" then Set File$Type_FAF HTML
  9. If "<File$Type_B09>" = "" then Set File$Type_B09 ImageMap
  10. If "<File$Type_695>" = "" then Set File$Type_695 GIF
  11. If "<File$Type_1BC>" = "" then Set File$Type_1BC Imagen
  12. If "<File$Type_259>" = "" then Set File$Type_259 Server
  13. If "<File$Type_FF1>" = "" then Set File$Type_FF1 RawData
  14.  
  15. | Set up double click actions
  16. |
  17. Set Alias$@RunType_259 Run <ImageMap$Dir>.!Run -load %%*0
  18. Set Alias$@RunType_1BC Run <ImageMap$Dir>.!Run -load %%*0
  19. Set Alias$@RunType_B09 Run <ImageMap$Dir>.!Run -load %%*0
  20.  
  21. | Relevent Dosmap commands
  22. |
  23. DosMap MAP  &259
  24. DosMap GIF  &695
  25. DosMap HTM  &FAF
  26.  
  27. | Check for DrawFile module
  28. |
  29. RMEnsure DrawFile 1.20 RMload System:Modules.DrawFile
  30. RMEnsure DrawFile 1.20 Error DrawFile module is not available or is too old.
  31.  
  32. | Check for PCA support module
  33. |
  34. RMEnsure PCASupport 0.08 RMload ImageMap:Resources.PCA
  35. RMEnsure PCASupport 0.08 PCA Support module is too old and must be updated.
  36.  
  37. | Run main code
  38. |
  39. WimpSlot -min 164K -max 164K
  40.  
  41. Run <ImageMap$Dir>.!RunImage %*0
  42.