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