home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Updates / Perl / Non-RPC / !Perl / !Run < prev    next >
Text File  |  1998-04-23  |  327b  |  12 lines
  1. Obey -c <Obey$Dir>.!Boot
  2.  
  3. If "%0" = "" Then Filer_OpenDir <Obey$Dir>.Scripts
  4. If "%0" = "" Then WimpSlot -next 1024k
  5. If "%0" = "" Then Obey
  6.  
  7. | Reach here if not a double click, but a RunType for the !Perl application
  8.  
  9. If "<Wimp$Scrap>" = "" Then Error 0 !Scrap has not been seen by the Filer
  10. WimpSlot 1024k
  11. /<Obey$Dir>.Perl %*0
  12.