/* $VER: Varez 2.6 (01 NOV 1999) */
options results

libs="rexxtricks.library rxsocket.library rexxkuang11.library rmh.library locale.library"
DO UNTIL libs='';PARSE VAR libs lib libs;IF EXISTS('libs:'lib)|EXISTS('Libs/'lib)|EXISTS(lib) THEN DO
IF ~show('L',lib) THEN call addlib(lib,0,-30,0);END;ELSE DO;Say 'Unable to open 'lib;Say 'Make sure that you use AmigaOS 3.0 or later!'
address Varez ;quit;END;END

if show(l,'locale.library') then catalog=opencatalog('Varez.catalog','english',0)

call tags
SELECT
WHEN arg(1)="REFRESH" then call gethostip
WHEN arg(1)="CHECKVERSION" then call download('info')
WHEN arg(1)="DOWNLOAD" then call download('VRZ')
WHEN arg(1)="GOTOURL" then openurl('http://resistance.ourfamily.com')
WHEN arg(1)="CHECKNEWS" then call getnews('news')
WHEN arg(1)="CHECKVERSIONGUI" then call checkversiongui
WHEN arg(1)="GETHOSTIP" then call iphostgui
WHEN arg(1)="ABOUT" then call about
WHEN arg(1)="STA1" then call sta(1)
WHEN arg(1)="STA2" then call sta(2)
 OTHERWISE call init
end
exit

init:
address Varez

WINDOW ID WAIT ATTRS 0x80421923 0 0x8042045d 0
  LABEL "\033b\033cVarez v2.6\033n\n\033c©1999 rESiSTANCE\nhttp://resistance.ourfamily.com\n\n\033bWritten & Optimized for AmigaOS 3.5"
ENDWINDOW

window ID VRZ TITLE '"Varez v2.6"' COMMAND '"quit"' PORT Varez ATTRS MUIA_Window_ScreenTitle '"Varez 2.6 (01 NOV 1999) ©1999 rESiSTANCE cODED bY dA sOCIETY/rSE"'
 menu LABEL "Varez"
  item COMMAND '"Varez.rexx CHECKVERSIONGUI"' ATTRS MUIA_Menuitem_Shortcut 'V' LABEL locale(1,"Check version")
  item COMMAND '"Varez.rexx CHECKNEWS"' ATTRS MUIA_Menuitem_Shortcut 'C' LABEL locale(53,"Get News")
  item COMMAND '"Varez.rexx GETHOSTIP"' ATTRS MUIA_Menuitem_Shortcut 'H' LABEL locale(55,"Get Host/IP")
  item COMMAND '"Varez.rexx GOTOURL"' ATTRS MUIA_Menuitem_Shortcut 'P' LABEL locale(2,"Visit Homepage")
  item ATTRS MUIA_Menuitem_Title '-1'
  item COMMAND '"Varez.rexx ABOUT"' ATTRS MUIA_Menuitem_Shortcut 'A' LABEL locale(3,"About")
  item COMMAND '"method 'MUIM_Application_AboutMUI' 0"' PORT Varez ATTRS MUIA_Menuitem_Shortcut 'M' LABEL locale(4,"About MUI")
  item ATTRS MUIA_Menuitem_Title '-1'
  item COMMAND '"quit"' PORT Varez ATTRS MUIA_Menuitem_Shortcut 'Q' LABEL locale(5,"Quit")
 endmenu
 menu LABEL "Settings"
  item COMMAND '"method 'MUIM_Application_OpenConfigWindow'"' PORT Varez LABEL locale(6,"MUI Prefs...")
 endmenu
 text ATTRS MUIA_Frame MUIV_Frame_Group MUIA_Background MUII_HSHADOWSHADOW help '"Varez v2.6 by\nsOCIETY^rSE (http://resistance.ourfamily.com)\nIf you use this program, you are required to\nE-Mail the author (society@amigascne.org).\n\033rsigned: sOCIETY^rSE"',
 label "\0338\033c\033b\Varez v2.6\033n\n\033c©1999 rESiSTANCE\n\033chttp://resistance.ourfamily.com"

group frame label "Scene News"
 group HORIZ node "News_Check"
  group
   string ID NEWS1 ATTRS MUIA_CycleChain 1 MUIA_String_Format MUIV_String_Format_Center help '"'locale(51,"Shows latest News!")'"' content "©1999 rESiSTANCE cODED bY dA [sOC]\rSE"
  endgroup
 endgroup
endgroup

group node "HowTo_Main"
group register labels "AmigaWarez,MacWarez,PCWarez,ConsoleWarez,MP3,Pixel,Demo,XXX-Rated"
/* BEGIN OF AMIGA */
  group frame
    button ID LOGSA COMMAND '"plugins/Amiga.rexx AmigaFTP"' ATTRS MUIA_CycleChain 1 MUIA_Weight 10 help '"'locale(7,"View all the FTP server.")'"' label locale(46,"FTP Server")
    button ID LOGSA COMMAND '"plugins/Amiga.rexx AmigaBBS"' ATTRS MUIA_CycleChain 1 MUIA_Weight 10 help '"'locale(8,"View all the BulletinBoardSystems.")'"' label locale(47,"BulletinBoardSystems")
    button ID LOGSA COMMAND '"plugins/Amiga.rexx AmigaWWW"' ATTRS MUIA_CycleChain 1 MUIA_Weight 10 help '"'locale(9,"View all the WWW sitez.")'"' label locale(48,"WWW Sitez")
    button ID LOGSA COMMAND '"plugins/Amiga.rexx AmigaSRN"' ATTRS MUIA_CycleChain 1 MUIA_Weight 10 help '"'locale(10,"View all the Serialnumbers.")'"' label locale(49,"Serialz")
  endgroup
/* END OF AMIGA */

/* BEGIN OF MAC */
  group frame
    button ID LOGSA COMMAND '"plugins/Mac.rexx MacFTP"' ATTRS MUIA_CycleChain 1 MUIA_Weight 10 help '"'locale(7,"View all the FTP server.")'"' label locale(46,"FTP Server")
    button ID LOGSA COMMAND '"plugins/Mac.rexx MacBBS"' ATTRS MUIA_CycleChain 1 MUIA_Weight 10 help '"'locale(8,"View all the BulletinBoardSystems.")'"' label locale(47,"BulletinBoardSystems")
    button ID LOGSA COMMAND '"plugins/Mac.rexx MacWWW"' ATTRS MUIA_CycleChain 1 MUIA_Weight 10 help '"'locale(9,"View all the WWW sitez.")'"' label locale(48,"WWW Sitez")
    button ID LOGSA COMMAND '"plugins/Mac.rexx MacSRN"' ATTRS MUIA_CycleChain 1 MUIA_Weight 10 help '"'locale(10,"View all the Serialnumbers.")'"' label locale(49,"Serialz")
  endgroup
/* END OF MAC   */

/* BEGIN OF PC  */
  group frame
    button ID LOGSA COMMAND '"plugins/PC.rexx PCFTP"' ATTRS MUIA_CycleChain 1 MUIA_Weight 10 help '"'locale(7,"View all the FTP server.")'"' label locale(46,"FTP Server")
    button ID LOGSA COMMAND '"plugins/PC.rexx PCBBS"' ATTRS MUIA_CycleChain 1 MUIA_Weight 10 help '"'locale(8,"View all the BulletinBoardSystems.")'"' label locale(47,"BulletinBoardSystems")
    button ID LOGSA COMMAND '"plugins/PC.rexx PCWWW"' ATTRS MUIA_CycleChain 1 MUIA_Weight 10 help '"'locale(9,"View all the WWW sitez.")'"' label locale(48,"WWW Sitez")
    button ID LOGSA COMMAND '"plugins/PC.rexx PCSRN"' ATTRS MUIA_CycleChain 1 MUIA_Weight 10 help '"'locale(10,"View all the Serialnumbers.")'"' label locale(49,"Serialz")
  endgroup
/* END OF PC    */

/* BEGIN OF Console  */
  group frame
    button ID LOGSA COMMAND '"plugins/Console.rexx ConsoleFTP"' ATTRS MUIA_CycleChain 1 MUIA_Weight 10 help '"'locale(7,"View all the FTP server.")'"' label locale(46,"FTP Server")
    button ID LOGSA COMMAND '"plugins/Console.rexx ConsoleBBS"' ATTRS MUIA_CycleChain 1 MUIA_Weight 10 help '"'locale(8,"View all the BulletinBoardSystems.")'"' label locale(47,"BulletinBoardSystems")
    button ID LOGSA COMMAND '"plugins/Console.rexx ConsoleWWW"' ATTRS MUIA_CycleChain 1 MUIA_Weight 10 help '"'locale(9,"View all the WWW sitez.")'"' label locale(48,"WWW Sitez")
  endgroup
/* END OF Console    */

/* BEGIN OF MPEG  */
  group frame
    button ID LOGSA COMMAND '"plugins/MP3.rexx MP3FTP"' ATTRS MUIA_CycleChain 1 MUIA_Weight 10 help '"'locale(7,"View all the FTP server.")'"' label locale(46,"FTP Server")
    button ID LOGSA COMMAND '"plugins/MP3.rexx MP3BBS"' ATTRS MUIA_CycleChain 1 MUIA_Weight 10 help '"'locale(8,"View all the BulletinBoardSystems.")'"' label locale(47,"BulletinBoardSystems")
    button ID LOGSA COMMAND '"plugins/MP3.rexx MP3WWW"' ATTRS MUIA_CycleChain 1 MUIA_Weight 10 help '"'locale(9,"View all the WWW sitez.")'"' label locale(48,"WWW Sitez")
  endgroup
/* END OF MPEG    */

/* BEGIN OF PIXEL  */
  group frame
    button ID LOGSA COMMAND '"plugins/Pixel.rexx PixelFTP"' ATTRS MUIA_CycleChain 1 MUIA_Weight 10 help '"'locale(7,"View all the FTP server.")'"' label locale(46,"FTP Server")
    button ID LOGSA COMMAND '"plugins/Pixel.rexx PixelBBS"' ATTRS MUIA_CycleChain 1 MUIA_Weight 10 help '"'locale(8,"View all the BulletinBoardSystems.")'"' label locale(47,"BulletinBoardSystems")
    button ID LOGSA COMMAND '"plugins/Pixel.rexx PixelWWW"' ATTRS MUIA_CycleChain 1 MUIA_Weight 10 help '"'locale(9,"View all the WWW sitez.")'"' label locale(48,"WWW Sitez")
  endgroup
/* END OF PIXEL    */

/* BEGIN OF DEMO  */
  group frame
    button ID LOGSA COMMAND '"plugins/Demo.rexx DemoFTP"' ATTRS MUIA_CycleChain 1 MUIA_Weight 10 help '"'locale(7,"View all the FTP server.")'"' label locale(46,"FTP Server")
    button ID LOGSA COMMAND '"plugins/Demo.rexx DemoBBS"' ATTRS MUIA_CycleChain 1 MUIA_Weight 10 help '"'locale(8,"View all the BulletinBoardSystems.")'"' label locale(47,"BulletinBoardSystems")
    button ID LOGSA COMMAND '"plugins/Demo.rexx DemoWWW"' ATTRS MUIA_CycleChain 1 MUIA_Weight 10 help '"'locale(9,"View all the WWW sitez.")'"' label locale(48,"WWW Sitez")
  endgroup
/* END OF DEMO    */

/* BEGIN OF XXX  */
  group frame
    button ID LOGSA COMMAND '"plugins/XXX.rexx XXXFTP"' ATTRS MUIA_CycleChain 1 MUIA_Weight 10 help '"'locale(7,"View all the FTP server.")'"' label locale(46,"FTP Server")
    button ID LOGSA COMMAND '"plugins/XXX.rexx XXXBBS"' ATTRS MUIA_CycleChain 1 MUIA_Weight 10 help '"'locale(8,"View all the BulletinBoardSystems.")'"' label locale(47,"BulletinBoardSystems")
    button ID LOGSA COMMAND '"plugins/XXX.rexx XXXWWW"' ATTRS MUIA_CycleChain 1 MUIA_Weight 10 help '"'locale(9,"View all the WWW sitez.")'"' label locale(48,"WWW Sitez")
  endgroup
/* END OF XXX    */
endgroup


group frame label "Resistance News"
 group HORIZ node "RSENews_Check"
  group
   string ID NEWS2 ATTRS MUIA_CycleChain 1 MUIA_String_Format MUIV_String_Format_Center help '"'locale(51,"Shows latest News!")'"' content "... You get only what you want! ..."
  endgroup
 endgroup
endgroup


group frame horiz
    button ID NEWS3 COMMAND '"Varez.rexx CHECKNEWS"' ATTRS MUIA_CycleChain 1 help '"'locale(52,"Connects via http to a news-file and\nprompt the latest news.")'"' label locale(53,"Get News")
    button ID GEHST COMMAND '"Varez.rexx GETHOSTIP"' ATTRS MUIA_CycleChain 1 help '"'locale(54,"Get your Hostname and IP")'"' label locale(55,"Get Host/IP")
    button ID LOGSA COMMAND '"Varez.rexx CHECKVERSIONGUI"' ATTRS MUIA_CycleChain 1 MUIA_Weight 10 help '"'locale(33,"Check for a new Version of Varez.")'"' label locale(1,"Check version") 
    button ID LOGSA COMMAND '"Varez.rexx ABOUT"' ATTRS MUIA_CycleChain 1 MUIA_Weight 10 help '"Varez 2.6"' label locale(3,"About")
endgroup

endgroup
endwindow

WINDOW ID WAIT CLOSE
return

checkversiongui:
address Varez
window ID CHVER Title '"'locale(1,"Check Version")'"' COMMAND '"window ID CHVER close"' PORT Varez
 text ATTRS MUIA_Frame MUIV_Frame_Group MUIA_Background MUII_HSHADOWSHADOW label '\0338\033b\033c'locale(33,"Check for a new Version of Varez.")
group frame
 group HORIZ node "HowTo_Version"
  group ATTRS MUIA_Group_Columns 2
   label locale(34,"This version:")
   string ID OLDV help '"'locale(36,"Shows what version you are using.")'"' content VERSION
   label locale(35,"Available version:")
   string ID NEWV help '"'locale(37,"Shows what version that\nis available on my homepage.")'"'
  endgroup
  group
   button ID CHCHE COMMAND '"Varez.rexx CHECKVERSION"' ATTRS MUIA_CycleChain 1 help '"'locale(38,"Connects via http to a file and\nchecks whats the newest version is.")'"' label locale(1,"Check Version")
   button ID CHDOW COMMAND '"Varez.rexx DOWNLOAD"' ATTRS MUIA_CycleChain 1 MUIA_Disabled 1 help '"'locale(39,"Connects via http and downloads\nthe Varez archive.")'"' label locale(40,"Download Varez")
  endgroup
 endgroup
endgroup
 group
  gauge ID GAUG ATTRS MUIA_Gauge_Horiz TRUE LABEL locale(50,"Next finished Update")
  object CLASS '"Scale.mui"'
 endgroup
endwindow
string ID THISV content VERSION
return

about:
address Varez
window ID ABOUT Title '"'locale(3,"About")' Varez v2.6"' COMMAND '"window ID ABOUT close"' PORT Varez
 text ATTRS MUIA_Frame MUIV_Frame_Group MUIA_Background MUII_HSHADOWSHADOW label "\0338\033c\033bVarez v2.6\033n\n\033cE-Mailware"
group frame
 button ID ABO COMMAND '"text ID STATUS LABEL ResistanceLogo"' PORT Varez ICON "Data/VarezLogo"
 label "\033cLast Update: "DATE""
 text label "\033cProgramming:sOCIETY\nGraphic: sOCIETY\nGUI: sOCIETY\n\n The idea taken from WarezWorld.\nThanks Gurufreek\n\n\033cPlease visit our homepage:\nhttp://resistance.ourfamily.com\n\nPlease E-Mail me if you like/hate the program!\nsociety@amigascne.org\n\n\033b©Copyright 1999 rESiSTANCE\n\n\033c"||locale(41,"Using built-in English translation.\nWhy not write one in your language?")
 group HORIZ
  button ID ABGOU COMMAND '"Varez.rexx GOTOURL"' ATTRS MUIA_CycleChain 1 label locale(42,"Visit Homepage")
  space HORIZ
  button ID CAB COMMAND '"window ID ABOUT close"' PORT Varez ATTRS MUIA_CycleChain 1 label locale(43,"Ok")
 endgroup
endgroup
endwindow
return

download:
if ~IsLibOn("SOCKET") then do
 call nosock
 return
end
if arg(1)="info" then do
 IF ~FWRITEURL('T:varezversion.txt','HTTP://www.seeseiten.de/user/meganet/files/varezversion.txt') THEN exit
 call OPEN("info",'T:varezversion.txt',"r")
 NFO=READLN("info")
 call CLOSE("info")
 RAD=SUBWORD(NFO,2,1)
 X=SUBWORD(NFO,4,1)
 address Varez
 string ID NEWV content RAD
 if VERSION~=RAD then button ID CHDOW ATTRS MUIA_Disabled 0
 gauge ID GAUG ATTRS MUIA_Gauge_Current x
end
if arg(1) = "VRZ" then do
 address Varez
 IF ~FWRITEURL('RAM:VarezUpdate.lha','HTTP://www.seeseiten.de/user/meganet/files/VarezUpdate.lha') THEN exit
end
return

getnews:
if ~IsLibOn("SOCKET") then do
 call nosock
 return
end
if arg(1)="news" then do
 IF ~FWRITEURL('news.txt','HTTP://www.seeseiten.de/user/meganet/files/news.txt') THEN exit
 call OPEN("news",'news.txt',"r")
 NEW=READLN("news")
 call CLOSE("news")
 NEW=DELSTR(NEW,1,6)
 address Varez
 string ID NEWS1 content NEW
end
if arg(1)="news" then do
 IF ~FWRITEURL('rsenews.txt','HTTP://www.seeseiten.de/user/meganet/files/rsenews.txt') THEN exit
 call OPEN("rsenews",'rsenews.txt',"r")
 RSENEW=READLN("rsenews")
 call CLOSE("rsenews")
 RSENEW=DELSTR(RSENEW,1,6)
 address Varez
 string ID NEWS2 content RSENEW
end
return


gethostip:
if ~IsLibOn("SOCKET") then do
 call nosock
 return
end
got_ip=GetHostID()
Address Varez
string ID IP
old_ip=result
string ID IP content got_ip
host=GetHostName(got_host)
string ID HOS
old_host=result
string ID HOS content got_host
return


iphostgui:
address Varez
window ID IPHOST Title "IP-Hostname" COMMAND '"window ID IPHOST close"' PORT Varez
 text ATTRS MUIA_Frame MUIV_Frame_Group MUIA_Background MUII_HSHADOWSHADOW label "\0338\033b\033cInternet - IP & Hostname"
  group label "IP"
   menu LABEL "IP"
    item COMMAND '"Varez.rexx STA1"' LABEL locale(56,"Send IP to AmIRC")
   endmenu
   string ID IP ATTRS MUIA_CycleChain 1 MUIA_String_Format MUIV_String_Format_Center
  endgroup
  group label "HostName"
   menu LABEL "HostName"
    item COMMAND '"Varez.rexx STA2"' LABEL locale(57,"Send HostName to AmIRC")
   endmenu
   string ID HOS ATTRS MUIA_CycleChain 1 MUIA_String_Format MUIV_String_Format_Center
  endgroup
endgroup
endwindow
 call gethostip
return


sta:
if OPEN("lp","data/AmIRCSend.prefs","R") then do
 mess=READLN("lp")
 call CLOSE("lp")
end
else do
 say locale(58,"Could not find the prefsfile!")
 return
end
address Varez
if arg(1)=1 then do
 string ID IP
 SENDING=result
end
if arg(1)=2 then do
 string ID HOS
 SENDING=result
end

mess2=""
len=LENGTH(mess)
do x=1 to len
 tecken=SUBSTR(mess,x,1)
 if tecken="%" then do
  x=x+1
  tecken=SUBSTR(mess,x,1)
  SELECT
   WHEN tecken="c" then mess2=mess2||""
   WHEN tecken="i" then mess2=mess2||SENDING
    OTHERWISE mess2=mess2"%"tecken
  end
 end
 else mess2=mess2||tecken
end
if SHOW('P','AMIRC.1')=0 then do
 window ID NOAC ATTRS MUIA_Window_DragBar 0 MUIA_Window_DepthGadget 0 MUIA_Window_SizeGadget 0
  text label "AMIRC.1 ?"
  button COMMAND '"window ID NOAC close"' PORT Varez ATTRS MUIA_CycleChain 1 label locale(43,"OK")
 endwindow
 exit
end
ADDRESS AMIRC.1
"SAY "mess2
return


nosock:
address Varez
window ID NOSOC ATTRS MUIA_Window_DragBar 0 MUIA_Window_DepthGadget 0 MUIA_Window_SizeGadget 0
 text label locale(44,"\033cCouldn't find bsdsocket.library!\nMake sure you have started a\nTCP/IP stack, like Miami.")
 button ID NOSCL COMMAND '"window ID NOSOC close"' PORT Varez ATTRS MUIA_CycleChain 1 label locale(43,"OK")
endwindow
return

tags:
TRUE = 1
FALSE = 0
MUIA_Application_Title     = 0x804281b8
MUIA_Application_Version   = 0x8042b33f
MUIA_Application_Copyright = 0x8042ef4d
MUIA_Application_Author    = 0x80424842
MUIA_Application_Base      = 0x8042e07a
MUIA_Application_OpenConfigWindow = 0x804299ba
MUIA_Application_AboutMUI  = 0x8042d21d
MUIA_Background            = 0x8042545b
MUIA_Image_FreeHoriz       = 0x8042da84
MUIA_Image_FontMatchWidth  = 0x804239bf
MUIA_Image_FontMatchHeight = 0x804239c0
MUIA_Width                 = 0x8042b59c
MUIA_Image_FontMatch       = 0x8042815d
MUIA_Image_FontMatchHeight = 0x80429f26
MUIA_FixWidthTxt           = 0x8042d044
MUIA_Pressed               = 0x80423535
MUIA_ShowMe                = 0x80429ba8
MUIA_Slider_Horiz          = 0x8042fad1
MUIA_Slider_Min            = 0x8042e404
MUIA_Slider_Max            = 0x8042d78a
MUIA_Slider_Level          = 0x8042ae3a
MUIA_String_Accept         = 0x8042e3e1
MUIA_Frame                 = 0x8042ac64
MUIA_Screen_Accept         = 0x8042e3e1
MUIA_Screen_MaxLen         = 0x80424984
MUIA_List_Format           = 0x80423c0a
MUIA_Cycle_Active          = 0x80421788
MUIA_Menuitem_Shortcut     = 0x80422030
MUIA_Menuitem_Title        = 0x804218be
MUIA_Selected              = 0x8042654b
MUIA_Disabled              = 0x80423661
MUIA_Group_Columns         = 0x8042f416
MUIA_ControlChar           = 0x8042120b
MUIA_Application_Sleep     = 0x80425711
MUIA_AppMessage            = 0x80421955
MUIA_CycleChain            = 0x80421ce7
MUIA_Disabled              = 0x80423661
MUIA_Group_Columns         = 0x8042f416
MUIA_List_Entries          = 0x80421654
MUIA_List_Format           = 0x80423c0a
MUIA_Menuitem_Shortcut     = 0x80422030
MUIA_Menuitem_Title        = 0x804218be
MUIA_Selected              = 0x8042654b
MUIA_String_Format         = 0x80427484
MUIA_Weight                = 0x80421d1f
MUIA_Window_DepthGadget    = 0x80421923
MUIA_Window_DragBar        = 0x8042045d
MUIA_Window_ScreenTitle    = 0x804234b0
MUIA_Window_SizeGadget     = 0x8042e33d
MUIM_Application_AboutMUI  = 0x8042d21d
MUIM_Application_OpenConfigWindow = 0x804299ba
MUIV_String_Format_Center  = 1
ASLFR_DrawersOnly          = 0x8008002F
ASLFR_Accept               = 0x8008000A
ASLFR_OldColours           = 0x8008002C
ASLFR_NoInfoFiles          = 0x8008003C
ASLFR_DoPatterns           = 0x8008002E
MUIV_Frame_Text            = 3
MUIV_Frame_Group           = 9
MUII_BACKGROUND            = 128
MUII_SHADOWFILL            = 133
MUII_HSHADOWBACK           = 140
MUII_HSHADOWSHADOW         = 142
MUIA_Gauge_Current        = '0x8042f0dd'
MUIA_Gauge_Divide         = '0x8042d8df'
MUIA_Gauge_Horiz          = '0x804232dd'
MUIA_Gauge_Max            = '0x8042bcdb'
R='0A'X
VERSION                    = 2.6
DATE                       = 01 NOV 1999
return

locale:
 parse arg msgno,msgstring
 if catalog~=0 then msgstring=getcatalogstr(catalog,msgno,msgstring)
 do i=3 to arg()
  parse var msgstring before '%s' after
  msgstring=before||arg(i)||after
 end
return(msgstring)