home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Acorn User 10
/
AU_CD10.iso
/
Updates
/
FTPc
/
!FTPc
/
!run
< prev
next >
Wrap
Text File
|
2000-05-24
|
2KB
|
39 lines
run <obey$dir>.!boot
run <FTPc$dir>.resources.resfind FTPc
RMEnsure UtilityModule 3.10 Error This application is only suitable for use with RISC OS 3.10 or later versions
RMEnsure FilterManager 0.00 RMLoad System:modules.FilterMgr
RMEnsure FilterManager 0.08 Error You Need filter manager 0.08 or later
RMEnsure BorderUtils 0.05 RMEnsure WindowManager 3.17 RMLoad System:modules.BorderUtil
RMEnsure Toolbox 0.00 RMLoad System:modules.toolbox.toolbox
RMEnsure Toolbox 1.36 Error You need toolbox 1.36 or later to run !FTPc
RMEnsure Window 0.00 RMLoad System:modules.toolbox.window
RMEnsure Window 1.31 Error You need window 1.31 or later to run !FTPc
RMEnsure Menu 0.00 RMLoad System:modules.toolbox.menu
RMEnsure Menu 0.24 Error You need menu 0.24 or later to run !FTPc
RMEnsure Iconbar 0.00 RMLoad System:modules.toolbox.iconbar
RMEnsure Iconbar 1.13 Error You need iconbar 1.13 or later to run !FTPc
RMEnsure ProgInfo 0.00 RMLoad System:modules.toolbox.proginfo
RMEnsure ProgInfo 0.05 Error You need proginfo 0.05 or later to run !FTPc
set FTPc$temp 0
If "<InetDBase$Path>" <> "" then if "<Inet$MimeMappings>" = "" then set FTPc$temp 1
If "<FTPc$temp>" = "1" then <FTPc$dir>.IfThere InetDBase:Mimemap then set FTPc$temp 2
if "<FTPc$temp>" = "2" then Set Inet$MimeMappings InetDBase:Mimemap
set FTPc$temp 0
RMEnsure MimeMap 0.05 set FTPc$temp 1
if "<FTPc$temp>" = "1" then if "<Inet$MimeMappings>" <> "" then set FTPc$temp 2
if "<FTPc$temp>" = "2" then <FTPc$dir>.IfThere System:Modules.Network.MimeMap Then set FTPc$temp 3
if "<FTPc$temp>" = "3" then RMLoad System:Modules.Network.MimeMap
unset FTPc$temp
wimpslot -min 256k -max 256k
|run <FTPc$dir>.!runimage %*0 2> <FTPc$dir>.^.log
run <FTPc$dir>.!runimage %*0