FileWrite(dlg,"[rbPa^1 Include Pathnames (default)]") ; (Ex: mydir\*.*)] ") p=""
FileWrite(dlg,"[rbPa^2 Do NOT Include Pathnames]") ; (add files only)]") p=-e
FileWrite(dlg,"")
FileWrite(dlg,"Note: Paths may be stripped on extraction...")
FileClose(dlg)
:createoptions2
DialogBox("Main Options...","xjwnopt")
if cbRe == @True then r = "-r"
if cbUp == @True then u = "-u"
if cbUp == @True && rbmenu == 4 then message("Update option has been changed...","To update Self-Extracting archives use the CREATE ARCHIVE selection NOT create Self-Extractor. Archive will NOT be updated...")
if cbMv == @True && rbmenu == 4 then message("Multiple Volume Selection Has Been Changed.","Self-Extracting archives may not contain Multiple Volumes...")
if exist == @True && cbMv == 1 then u = "-u"
if cbUp == @True && rbmenu == 4 then u = ""
if cbMv == @True && rbmenu == 4 then v = ""
If cbLi == @True then Lst = AskLine("Create/Update Archive...","Enter file(s) to ARJ (Enter/OK=ALL)","*.BAT *.EXE *.BRD")
If Lst == "*.BAT *.EXE *.BRD" then Lst = ""
If Lst == "%sp%" then Lst="" ;added
if Lst == "" then goto except
stronly = strReplace(Lst," ",crlf)
wr = FileOpen("xjwnzlst.lst","write")
FileWrite(wr,"%stronly%")
FileClose(wr)
Lst="!xjwnzlst.lst"
:except
if cbEx == @True then Ex = AskLine("These files will NOT be ARJed","Enter files to Exclude. Multiple exclusions are allowed. Put a SPACE between each...","MYFILE.TXT *.BAT \WP51\MYDIR")
if Ex == "MYFILE.TXT *.BAT \WP51\MYDIR" then Ex =""
if Ex == "%sp%" then Ex=""
if Ex == "" then goto volumes
str1 = strReplace(Ex," ",crlf)
wr = FileOpen("xjwnz.lst","write")
FileWrite(wr,"%str1%")
FileClose(wr)
x="-x!xjwnz.lst"
:volumes
if se == "self" then goto next
if cbMv == @False then goto next
vol = FileOpen("xjwnmv","write")
FileWrite(vol,"[rbMv^1 Auto Sense Disk Space]")
FileWrite(vol,"[rbMv^2 1.2M (5.25 HC)]")
FileWrite(vol,"[rbMv^3 1.44M (3.5 HC)]")
FileWrite(vol,"[rbMv^4 360k (5.25 DD)]")
FileWrite(vol,"[rbMv^5 720k (3.5 DD)]")
FileWrite(vol,"")
FileWrite(vol,"[cbMvv+1 Do NOT prompt for volumes (default=prompt)]")
FileWrite(vol," Floppies MUST prompt...")
FileClose(vol)
dialogBox("Multiple Volumes...","xjwnmv")
if rbMv == 1 then v= "-vva"
if rbMv == 2 then v= "-vv1200"
if rbMv == 3 then v= "-vv1440"
if rbMv == 4 then v= "-vv360"
if rbMv == 5 then v= "-vv720"
if cbMvv == @True then y = "-y"
:next
if cbIn == @True then In = AskLine("Create Index File...","Enter Index Filename","\index.fil")
if cbIn == @True then ji = "-ji"
if In == "" then ji = ""
if In == "%sp%" then ji = ""
if rbPa == 1 then p = ""
if rbPa == 2 then p = "-e"
if cbIn == @False then goto run
:error ;used for creation & extraction
ask = @Yes
ask2 = @Yes
err1 = FileExist("%In%")
if err1 == @True then ask = AskYesNo("Index filename MUST be unique","%In% already exists. Append to it?") ;do or don't append
if ask == @Yes then goto run
if err1 == @True && ask == @No then ask2 = AskYesNo("Index filename MUST be unique","Overwrite %In%?")
if ask == @No && ask2 == @Yes then FileDelete("%In%")
if ask2 == @No then In = AskLine("Index filename MUST be unique","Enter new Index FileName (Enter/OK = None)","")
if In == "" then ji=""
if In !="" then err1 = FileExist("%In%")
if err1 == @True then goto error
goto run
:extoptions
dlg=FileOpen("xjwnopt", "write")
FileWrite(dlg,"[cbUp+1 Update Disk (Extract New or Newer Files Only)")
FileWrite(dlg,"[cbIn+1 Create Index File List...]")
FileWrite(dlg,"[cbMv+1 Enable Multiple Volumes]")
FileWrite(dlg,"")
FileWrite(dlg,"[rbPa^1 ARJ E - Do NOT extract Pathnames]")
FileWrite(dlg,"[rbPa^2 ARJ X - Extract With Pathnames (if exists)]") ; (Ex: dir\*.*) (ARJ X)) cmd=x LATER
FileWrite(dlg,"")
FileClose(dlg)
DialogBox("Choose Options...","xjwnopt")
if cbUp == @True then u = "-u"
if cbMv == @True then v = "-vv"
if cbIn == @True then ji = "-ji"
If cbLi == @True then Lst = AskLine("Extracting Files...","Enter files to extract...","MYFILE.TXT or *.BAT")
If Lst == "MYFILE.TXT or *.BAT" then Lst = ""
if cbEx == @True then Ex = AskLine("These files will NOT be ARJed","Enter files to Exclude. Multiple exclusions are allowed. Put a SPACE between each...","MYFILE.TXT *.BAT \WP51\MYDIR")
if Ex == "MYFILE.TXT *.BAT \WP51\MYDIR" then Ex =""
if Ex == "%sp%" then Ex = ""
if Ex == "" then goto exnext
str1 = strReplace(Ex," ",crlf)
wr = FileOpen("xjwnz.lst","write")
FileWrite(wr,"%str1%")
FileClose(wr)
x="-x!xjwnz.lst"
:exnext
if rbPa == 1 then cmd = "e"
if rbPa == 2 then cmd = "x"
if cbIn == @False then In = ""
if cbIn == @True then In = AskLine("Create Index File","Enter Index Filename","\index.fil")
Message("Remember...","If you ran ARJSETUP.WBT to install, ARJNDW.BAT has been associated with ARJ archives allowing you to double-click any ARJ archives(except self-extracting .exe files) in any drive window to view their contents...")
errormode (@off)
FileDelete("xjwnopen")
FileDelete("xjwnbk")
FileDelete("xjwnch")
FileDelete("xjwnopt")
FileDelete("xjwnz.lst")
FileDelete("xjwnconv")
FileDelete("xjwnmv")
FileDelete("xjwnzlst.lst")
FileDelete("xjwnlst.txt")
exit
:arjsfx
dlg = FileOpen("xjwnconv","write")
Filewrite(dlg,"[rbCo^1ARJSFX - Larger in size, but FULL FEATURED)]")
Filewrite(dlg,"[rbCo^2ARJSFXJR Smaller, but does NO PROMPTING )]")
Filewrite(dlg,"")
Filewrite(dlg,"ARJSFXJR will create directories and files")
Filewrite(dlg,"without prompting the user. If there are no")
Filewrite(dlg," pathnames it will extract to the directory in")
Filewrite(dlg,"which it is executed - WITHOUT PROMPTING.")
Filewrite(dlg,"It will NOT overwrite existing files...")
Fileclose(dlg)
Dialogbox("Choose One...","xjwnconv")
if rbCo == 1 then howbig = "-je"
if rbCo == 2 then howbig = "-je1"
if se == "self" then goto self
:conv
ask = ""
drive = AskLine("Converting ARJ archive to SELF EXTRACTOR...","Enter LOCATION + NAME of ARJ archive to create.","A:\ARJFILE.ARJ")
a = StrLower("%drive%")
fe = FileExtension("%a%")
if fe == "" then newdrive = "%a%.arj"
if fe == "arj" then newdrive = "%drive%"
exist = FileExist("%newdrive%")
ask = ""
if exist == @False then beep
if exist == @False then ask = message("CheckPoint!","File could not be found. Check File path/name...")
if ask == "1" then goto conv
ClipPut("y %drive% %howbig% -jt")
Call("jwnrun.wbt","")
Delay(3)
Message("Converting Arj Archive...","A COPY of %drive% has been converted to a Self-Extracting (EXE) file.")
drive = AskLine("REARJing Other Archives...","Enter LOCATION + NAME of archive to REARJ. Wildcards OK (*.zip)","A:\MYFILE.ZIP or *.PAK or *.LZH or *.ARC")
ask = AskYesNo("REARJing Other Archives..","Delete %drive% after REARJing?")
if ask == @Yes then d = "/d"
ClipPut("%drive% %d%")
Call("JWNREAR.WBT","")
Delay(3)
ErrorMode(@Off)
FileDelete("xjwnopen")
ErrorMode(@On)
Exit
:test
drive = AskLine("Testing ARJ archive...","Enter the LOCATION and NAME of ARJ archive.","A:\ARJFILE.ARJ")
ClipPut("t %drive%")
Call("JWNRUN.WBT","")
Delay(3)
ErrorMode(@Off)
Exit
:register
ask = FileExist("%editor%")
if ask == @False then Message("Registration","Editor could not found. Please see ARJNDW.TXT")
if ask == @False then goto end
ErrorMode(@Off)
dlg=FileOpen("HOWTOREG.TXT","write")
FileWrite(dlg," ARJ/NDW Interface copyright (c) 1992 Joe Newton")
FileWrite(dlg,"")
FileWrite(dlg,"Though not mandatory, If you find ArjNdw useful a registration fee of $5")
FileWrite(dlg,"would be greatly appreciated. In any event, thanks for giving it a try.")
FileWrite(dlg,"")
FileWrite(dlg,"Please send a check or money order to:")
FileWrite(dlg,"")
FileWrite(dlg," Joe Newton")
FileWrite(dlg," Eye of Newt Productions")
FileWrite(dlg,"")
FileWrite(dlg," 5540 Balboa Boulevard OR 2619 Wegworth Lane")
FileWrite(dlg," Encino, CA 91316-1505 Baltimore, MD 21230")
FileWrite(dlg,"")
FileWrite(dlg,"")
FileWrite(dlg,"Include your address and I'll keep you posted on ArjNdw updates as well")
FileWrite(dlg,"as other useful interfaces and utilities. If you have an ARJ option that")
FileWrite(dlg,"you use regularly that was NOT included in ArjNdw, and would like it to")
FileWrite(dlg,"be, contact me at one of the following numbers or the address above. I'm")
FileWrite(dlg,"certainly not a Batchrunner or Arj expert, but I've gotten to know both")
FileWrite(dlg,"pretty well with this little project and may be able to help you tweak")
FileWrite(dlg,"ArjNdw to your specs. I can be reached via modem @The Murph Zone (818)")
FileWrite(dlg,"766-7669, a free BBS in the San Fernando Valley, CA where I check in")
FileWrite(dlg,"regularly and @Compuserve #71500,140 (checked infrequently), and I")
FileWrite(dlg,"occasionally modem in on Symantec's BBS in San Jose.")
FileWrite(dlg,"")
FileWrite(dlg,"A Personal Note...")
FileWrite(dlg,"My primary business is music, and that includes MIDI. I'm a BMI")
FileWrite(dlg,"composer, SAG vocalist and spent several years on the road moving")
FileWrite(dlg,"through 37 states. For the past five years, I've been providing MIDI")
FileWrite(dlg,"music services. I'll always be involved with music, and I'll always be")
FileWrite(dlg,"involved with computers. I'm hoping to find a niche in the coming")
FileWrite(dlg,"multimedia explosion. If you've got an interesting music, computer or")
FileWrite(dlg,"multimedia project brewing please drop me a line!")
FileWrite(dlg,"")
FileWrite(dlg,"")
FileWrite(dlg,"Thank you for your support. I'd also like to thank Robert K Jung for the")
FileWrite(dlg,"BEST compression program I've ever had the pleasure to use - ARJ, and")
FileWrite(dlg,"Peter Norton's group and Symantec. I've always been a dedicated DOS user")
FileWrite(dlg,"but Norton Desktop for Windows sold me on Windows as well...")
FileWrite(dlg,"")
FileWrite(dlg,"")
FileWrite(dlg," ...Now for the legal mumbo/jumbo...")
FileWrite(dlg," BY USING THIS PROGRAM YOU AGREE TO THE FOLLOWING:")
FileWrite(dlg,"")
FileWrite(dlg,"You are free to use, copy and distribute ARJNDW as long as no fee is")
FileWrite(dlg,"charged or collected. You may use ARJNDW on any and all computers YOU")
FileWrite(dlg,"use. You may modify ARJNDW for your personal use. Any modifications")
FileWrite(dlg,"made by you must be clearly labeled as YOUR modification. You may NOT")
FileWrite(dlg,"copy or distribute any modified version of ARJNDW without WRITTEN")
FileWrite(dlg,"PERMISSION from the author. I've taken great care to ensure the program")
FileWrite(dlg,"performs as stated. Still, I cannot guarantee this will be the case on")
FileWrite(dlg,"every system. As such, you agree NOT to hold me responsible for ANY")
FileWrite(dlg,"damages directly or indirectly related to the use of ARJNDW. Finally, it")
FileWrite(dlg,"is YOUR responsibility to ensure your copy of ARJNDW is virus free.")
FileWrite(dlg,"")
FileWrite(dlg," IF YOU DO NOT AGREE TO THE FOREGOING, ")
FileWrite(dlg," YOU ARE NOT AUTHORIZED TO USE THIS PRODUCT.")
FileWrite(dlg,"")
FileWrite(dlg,"")
FileWrite(dlg,"")
FileWrite(dlg,"jwnarjndw")
FileClose(dlg)
Run("%editor%","HOWTOREG.TXT")
ErrorMode(@On)
:end
If In !="" then ask = AskYesNo("CheckPoint!","Load Index File (%In%)?")
If In !="" && ask == @Yes then Display(1,"Index File","Loading %In%...")
if In != "" && ask ==@Yes then Run("%editor%","%In%")