Task$="ChangeRun" .Purpose$="Change !Run File in Argo Fresco" %Author$=½(169)+" Richard Goodwin" Version$="1.00 (Aug 1998)" Þ block% 1024, temp% 256 :È™ "Wimp_Initialise",200,&4B534154,Task$ ¸ ,taskhandle  Fî … òerror(Task$+" has reported an error: "+ö$+" at line "+Ã(ž)):à )voyloaded$=¤getstr("VTiInternet$Dir") Šç voyloaded$="" Œ òerror("Voyager has not been seen by the computer - please load Voyager, or at least open the directory it's in."):à  òChangeTheRunFile à : Ý òChangeTheRunFile 3out%=®".Apps.Web.!Fresco.!Run" dç out%=0 Œ òerror("Unable to open the !Run file for writing - have you tried to load Fresco?"):á !Õ#out%,"Run .!Boot" VÕ#out%,"If """" = """" then Error 0 System resources cannot be found" ]Õ#out%,"If """" = """" then Error 0 InetSuite databases can not be found" [Õ#out%,"If """" = """" Then Set Inet$MimeMappings InetDBase:MimeMap" DÕ#out%,"RMEnsure SharedCLibrary 3.50 RMLoad System:Modules.Clib" KÕ#out%,"RMEnsure SharedCLibrary 3.50 Error You need Clib 3.50 or later" MÕ#out%,"RMEnsure ColourPicker 0.16 RMLoad .RMStore.Picker" SÕ#out%,"RMEnsure ColourPicker 0.16 Error You need ColourPicker 0.16 or later" MÕ#out%,"RMEnsure HTTP 0.97 RMLoad .RMStore.HTTPmod" NÕ#out%,"RMEnsure HTTP 0.97 Error You need HTTPMod 0.97 or later" OÕ#out%,"RMEnsure WebGopher 0.11 RMLoad .RMStore.WebGopher" PÕ#out%,"RMEnsure WebGopher 0.11 Error You need WebGopher 0.11 or later" LÕ#out%,"RMEnsure WebFTP 0.23 RMLoad .RMStore.WebFTP" MÕ#out%,"RMEnsure WebFTP 0.23 Error You need WebFTP 0.23 or later" MÕ#out%,"RMEnsure MimeMap 0.10 RMLoad .RMStore.MimeMap" !NÕ#out%,"RMEnsure MimeMap 0.10 Error You need MimeMap 0.10 or later" "NÕ#out%,"RMEnsure Resolver 0.54 RMLoad .RMStore.Resolver" #OÕ#out%,"RMEnsure Resolver 0.54 Error You need Resolver 0.54 or later" $)Õ#out%,"WimpSlot -min 608k -max 608K" %3Õ#out%,"Run .!RunImage %*0 2>null:" & Ù#out% 'AÈ™"OS_File",18,".Apps.Web.!Fresco.!Run",&feb (/òerror("Modification complete. Have fun!") )á *: +Ý ¤getstr(A$) ,ê H% --È™"XOS_ReadVarVal",A$,temp%,256,,3 ¸ ,,H% .temp%?H%=13 / =$temp% 0: 1Ý òerror(mess$) 2 !block%=0 3$(block%+4)=mess$+½0 4'È™"Wimp_ReportError",block%,0,Task$ 5á ÿ