home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / 4 / 4arc131.zip / 4ARC.BTM next >
Text File  |  1992-09-08  |  56KB  |  2,008 lines
  1. echo off
  2. setlocal
  3. setdos /i-history
  4. unalias *
  5. alias db drawbox
  6. alias sp scrput
  7. set MB=blu
  8. set MF=%MB
  9. set BF=gre
  10. set BB=blu
  11. set WF=whi
  12. set WB=blu
  13. set TF=bla
  14. set TB=cya
  15. set HF=bri yel
  16. set HB=%BB
  17. set SF=bri yel
  18. set SB=blu
  19. set SC=whi
  20. set CB=cya
  21. set COLORDIR= arj zip lzh lha zoo arc:%SF;DIRS:%WF
  22. set AR=
  23. set AS= 
  24. set AS1= 
  25. set AS2= 
  26. set VC=
  27. set VI=
  28. set $T=%@UPPER[E:\$4TEMP]
  29. set DST=%_CWDS
  30. set CT=
  31. set ST=
  32. set HP=%@PATH[%@SEARCH[4ARC.BTM]]
  33. if exist %HP%4arc.cfg set /r %HP%4arc.cfg
  34. cls %MF on %MB
  35. sp 5 20 bri whi on %_BG ╓─┐╓─┐ ╓────┐ ╓─┐╓─┐  ╓───┐  ╓────┐
  36. sp 18 22 %HF on %WB ║ │    ║ │  ║ │  ║ │ ║ └┐  ║ └─╜ │
  37. sp 19 22 %HF on %WB ╙─┘    ╙─┘  ╙─┘  ╙─┘ ╙──┘  ╙─────┘
  38. sp 17 18 %HF on %WB ╙───╖ │    ║ ┌──╖ │  ║ ┌─╖ ┌┘  ║ │ ╓─┐
  39. sp 6 20 bri whi on %_BG ║ └╜┌┘ ║ ┌─╖│ ║ └╢ │  ║ ╓─┴┐ ║ ┌─╖│
  40. sp 16 18 %HF on %WB ║ └─╜ │    ║ └──╜ │  ║ └──╜ │  ║ │ ╙─┘
  41. sp 7 20 bri whi on %_BG ║ ┌╖└┐ ║ └─╜│ ║ ├╖ │  ║ ╙─ │ ║ └─╜│  Ware's
  42. sp 15 18 %HF on %WB ║ │ ║ │    ║ ┌──╖ │  ║ ┌──╖ │  ║ ┌─╖ │
  43. sp 8 20 bri whi on %_BG ╙─┘╙─┘ ╙────┘ ╙─┘╙─┘  ╙────┘ ╙────┘
  44. sp 14 18 %HF on %WB ╓─┐ ╓─┐    ╓──────┐  ╓──────┐  ╓─────┐
  45. sp 22 31 %WF on %WB Version 1.30
  46. :DRIVES
  47. pushd \
  48. echo A: >%HP%alldrive.tmp
  49. echo B: >>%HP%alldrive.tmp
  50. if isdir c:\ echo C:\ >>%HP%alldrive.tmp
  51. if isdir d:\ echo D:\ >>%HP%alldrive.tmp
  52. if isdir e:\ echo E:\ >>%HP%alldrive.tmp
  53. if isdir f:\ echo F:\ >>%HP%alldrive.tmp
  54. if isdir g:\ echo G:\ >>%HP%alldrive.tmp
  55. if isdir h:\ echo H:\ >>%HP%alldrive.tmp
  56. if isdir i:\ echo I:\ >>%HP%alldrive.tmp
  57. if isdir j:\ echo J:\ >>%HP%alldrive.tmp
  58. if isdir k:\ echo K:\ >>%HP%alldrive.tmp
  59. if isdir l:\ echo L:\ >>%HP%alldrive.tmp
  60. if isdir m:\ echo M:\ >>%HP%alldrive.tmp
  61. if isdir n:\ echo N:\ >>%HP%alldrive.tmp
  62. if isdir o:\ echo O:\ >>%HP%alldrive.tmp
  63. if isdir p:\ echo P:\ >>%HP%alldrive.tmp
  64. if isdir q:\ echo Q:\ >>%HP%alldrive.tmp
  65. if isdir r:\ echo R:\ >>%HP%alldrive.tmp
  66. if isdir s:\ echo S:\ >>%HP%alldrive.tmp
  67. if isdir t:\ echo T:\ >>%HP%alldrive.tmp
  68. if isdir u:\ echo U:\ >>%HP%alldrive.tmp
  69. if isdir v:\ echo V:\ >>%HP%alldrive.tmp
  70. if isdir w:\ echo W:\ >>%HP%alldrive.tmp
  71. if isdir x:\ echo X:\ >>%HP%alldrive.tmp
  72. if isdir y:\ echo Y:\ >>%HP%alldrive.tmp
  73. if isdir z:\ echo Z:\ >>%HP%alldrive.tmp
  74. dir /SADBF c:\ d:\ e:\ f:\ g:\ h:\ i:\ j:\ k:\ l:\ m:\ n:\ o:\ p:\ q:\ r:\ s:\ t:\ u:\ v:\ w:\ x:\ y:\ z:\ >>%HP%alldrive.tmp
  75. if "%NDR"=="Y" return
  76. copy /q %HP%alldrive.tmp %HP%alldrive.sav
  77. gosub frc
  78. popd
  79.  
  80. :BEGIN
  81. set MF=%MB
  82. set FF=
  83. set SC=white
  84. set CB=cyan
  85. set KF= bri yel
  86. if "%COL"=="mon" set SC=bri whi
  87. if "%COL"=="mon" set CB=whi
  88. if "%COL"=="mon" set KF=bri whi
  89. cls %MF on %MB
  90. db  0 22  2 50 2 %BF on %BB fill %WB sha
  91. db  0 64  2 75 2 %BF on %BB fill %WB sha
  92. db 18  2 21 76 1 %BF on %BB fill %WB sha
  93. db  4  2 16 20 3 %BF on %BB fill %WB sha
  94. db  4 22 16 45 3 %BF on %BB fill %WB sha
  95. db  4 47 16 76 3 %BF on %BB fill %WB sha
  96. sp 1 1 bri whi on %MB (C)opyright
  97. sp 2 1 bri whi on %MB 1992-94 KONGOWare
  98. sp 1 23 %TF on %TB  4ARC ARCHIV MANAGER  V1.3 
  99. sp 1 65 %TF on %TB  %_date 
  100. sp 4 4 %HF on %HB F2
  101. sp 4 11 %HF on %HB M
  102. sp 4 12 %BF on %BB ANAGER
  103. sp 5 4 %WF on %WB Current Path
  104. sp 6 4 %WF on %WB Destinationpath
  105. sp 7 4 %WF on %WB View Directory
  106. sp 8 4 %WF on %WB Copy File(s)
  107. sp 9 4 %WF on %WB Move File(s)
  108. sp 10 4 %WF on %WB Delete File(s)
  109. sp 11 4 %WF on %WB Rename File
  110. sp 12 4 %WF on %WB MD/RD Directory
  111. sp 13 4 %WF on %WB Vscan File(s)
  112. sp 14 4 %WF on %WB Shell to DOS
  113. sp 15 4 %WF on %WB Config Info
  114. sp 4 24 %HF on %HB F3
  115. sp 4 35 %HF on %HB A
  116. sp 4 36 %BF on %BB RCHIVER
  117. sp 5 24 %WF on %WB Create Archive
  118. sp 6 24 %WF on %WB Decompress Archive
  119. sp 7 24 %WF on %WB Extract Archive
  120. sp 8 24 %WF on %WB Convert Archive(s)
  121. sp 9 24 %WF on %WB View Archive
  122. sp 10 24 %WF on %WB Repair Archive
  123. sp 11 24 %WF on %WB Make SFX
  124. sp 12 24 %WF on %WB Comment Archive
  125. sp 13 24 %WF on %WB Vscan Archive
  126. sp 14 24 %WF on %WB PKlite Files
  127. sp 15 24 %WF on %WB LZexe Files
  128. sp 4 49 %HF on %HB F4
  129. sp 4 60 %HF on %HB S
  130. sp 4 61 %BF on %BB ETUP
  131. sp 5 49 %WF on %WB Archiver
  132. sp 18 34 %BF on %BB Messages
  133. color %HF on %WB
  134. if "%AR"=="PKZIP" sp 5 63 %SF on %SB       PKZIP   %G1
  135. if "%AR"=="ARJ"   sp 5 63 %SF on %SB       ARJ  %G2
  136. if "%AR"=="LHA"   sp 5 63 %SF on %SB       LHA
  137. if "%AR"=="PKPAK" sp 5 63 %SF on %SB       PKPAK   %G3
  138. if "%AR"=="ZOO"   sp 5 63 %SF on %SB       ZOO
  139. sp 6 48 %BF on %BB ────────────────────────────
  140. sp 7 49 %WF on %WB Virscanner:
  141. sp 8 48 %BF on %BB ────────────────────────────
  142. sp 9 49 %WF on %WB TempDir:
  143. sp 10 48 %BF on %BB ────────────────────────────
  144. sp 11 49 %WF on %WB Destination:
  145. sp 12 48 %BF on %BB ────────────────────────────
  146. sp 13 49 %WF on %WB Editor
  147. sp 14 48 %BF on %BB ────────────────────────────
  148. sp 15 49 %WF on %WB Colors...
  149. sp 7 61 %WF on %WB                
  150. if not "%VI"=="" sp 7 63 %SF on %SB %@UPPER[%@NAME[%VI].%@EXT[%VI]]
  151. set DDT=%DST
  152. if %@len[%DST] GT 12 set DDT=...%@substr[%DST,9,-9]
  153. iff "%VC"=="F-PROT" then
  154.  sp 7 74 %SF on %SB %AS
  155. elseiff "%VC"=="McAfee" then
  156.  sp 7 74 %SF on %SB %AS1
  157. else sp 7 74 %SF on %SB %AS2
  158. endiff
  159. if not "%EDI"=="" sp 13 63 %SF on %SB %@UPPER[%@NAME[%EDI].%@EXT[%EDI]]
  160. sp 9 63 %SF on %SB %@UPPER[%$T]
  161. sp 11 63 %SF on %SB %@UPPER[%DDT]
  162. sp 19 4 %MF on %WB                                         
  163. sp 20 4 %MF on %WB                                          
  164. sp 19 4 %WF on %WB Current Path:    %@upper[%_CWDS]
  165. sp 20 4 %WF on %WB Destinationpath: %@upper[%DST]
  166. color %MF on %MB
  167. sp 24 0 %MF on %MB                                                                                 
  168. if "%CC"=="Y" goto SCOL
  169.  
  170. :START
  171. sp 24 1 bla on %CB  Help 
  172. sp 24 9 bla on %CB  Manage
  173. sp 24 17 bla on %CB Archiv
  174. sp 24 25 bla on %CB Setup 
  175. sp 24 33 bla on %CB  Save 
  176. sp 24 41 bla on %CB  Vscan
  177. sp 24 49 bla on %CB  User 
  178. sp 24 57 bla on %CB Colors
  179. sp 24 65 bla on %CB Shell 
  180. sp 24 74 bla on %CB  Info 
  181. sp 24 0 %SC on bla  1
  182. sp 24 7 %SC on bla  2
  183. sp 24 15 %SC on bla  3
  184. sp 24 23 %SC on bla  4
  185. sp 24 31 %SC on bla  5
  186. sp 24 39 %SC on bla  6
  187. sp 24 47 %SC on bla  7
  188. sp 24 55 %SC on bla  8
  189. sp 24 63 %SC on bla  9
  190. sp 24 71 %SC on bla  10
  191. iff "%DP"=="Y" then
  192.  set DP=
  193.  goto SET
  194. elseiff "%TP"=="Y" then
  195.  set TP=
  196.  goto SET
  197. elseiff "%VP"=="N" then
  198.  set VP=
  199.  goto SVIR
  200. endiff
  201.  
  202. :START2
  203. set BP=%_CWDS
  204. inkey /K"ACEHIMRSVUL+][alt-1][alt-2][alt-3][alt-e][alt-r][TAB][F1][F2][F3][F4][F5][F6][F7][F8][F9][F10]" %%win
  205. iff "%WIN"=="" then
  206.  goto EXIT
  207. elseiff %WIN==@18 then
  208.  %EDI
  209.  goto BEGIN
  210. elseiff %WIN==@19 then
  211.  cls %WF on %WB
  212.  sp 10 25 %WF on %WB REREAD DIRECTORIES...
  213.  set NDR=Y
  214.  color %MF on %MB
  215.  gosub DRIVES
  216.  goto BEGIN
  217. elseiff %WIN==@59 .or. "%WIN"=="H" then
  218.  goto HELP
  219. elseiff %WIN==@60 .or. "%WIN"=="M" then
  220.  sp 24 0 %MF on %MB                                                                                  
  221.  goto MAN
  222. elseiff %WIN==@61 .or. "%WIN"=="A"  then
  223.  sp 24 0 %MF on %MB                                                                                  
  224.  goto ARC
  225. elseiff "%WIN"=="@62" .or. "%WIN"=="S"  then
  226.  sp 24 0 %MF on %MB                                                                                  
  227.  goto SET
  228. elseiff %WIN==@63 .or. "%WIN"=="E" then
  229.  goto SAVE
  230. elseiff %WIN==@64 .or. "%WIN"=="V" then
  231.  iff "%VI"=="" then
  232.  sp 17 24 bli %HF on %WB No Scanner selected
  233.  delay 1
  234.  sp 17 24 %MF on %MB                    
  235.  goto START2
  236.  elseiff "%VC"=="F-PROT" .and. "%SO"=="Y" then
  237.  cls %WF on %WB
  238.  %VI %SCO
  239.  pause Hit any key...
  240.  goto BEGIN
  241.  elseiff "%VC"=="McAfee" .and. "%SO1"=="Y" then
  242.  cls %WF on %WB
  243.  %VI %SCO1
  244.  pause Hit any key...
  245.  goto BEGIN
  246.  elseiff "%VC"!="McAfee" .and. "%VC"!="F-PROT" then
  247.  cls %WF on %WB
  248.  %VI %SCO2
  249.  pause Hit any key...
  250.  goto BEGIN
  251.  endiff
  252.  goto VIR
  253. elseiff %WIN==@66 .or. "%WIN"=="C"  then
  254.  sp 24 0 %MF on %MB                                                                                  
  255.  goto SETCOL
  256. elseiff %WIN==@67 .or. "%WIN"=="L"  then
  257.  cls
  258.  echo Shell to DOS... Type 'EXIT' to return to 4ARC
  259.  screen 23 1
  260.  call %_BOOT:\4DOS
  261.  goto BEGIN
  262. elseiff %WIN==@68 .or. "%WIN"=="I" then
  263.  goto INFO
  264. elseiff %WIN==@120 then
  265.  cls %WF on %WB
  266.  dir /2vp
  267.  pause Hit any key...
  268.  goto BEGIN
  269. elseiff %WIN==@121 then
  270.  cdd %DST
  271.  sp 19 4 %WF on %WB                                                                         
  272.  sp 19 4 %HF on %WB SWITCH TO   %@UPPER[%DST]
  273.  beep 1500 3
  274.  beep 10 2
  275.  sp 19 4 %WF on %WB                                                                         
  276.  goto PART2
  277. elseiff %WIN==@122 then
  278.  cls %WF on %WB
  279.  dir /vmk >%HP%dirlist.tmp
  280.  set EXC=%@select[%HP%dirlist.tmp,0,0,23,78,DIRECTORY OF %@UPPER[%_CWD]]
  281.  set EXC=%@SUBSTR[%EXC,0,12]
  282.  %EXC
  283.  del /q %HP%dirlist.tmp
  284.  pause Hit any key
  285.  goto BEGIN
  286. elseiff %WIN==@65 .or. "%WIN"=="U" then
  287.  set OPT=%@select[%HP%user.men,4,2,16,45,USER MENU]
  288.  set OPT=%@substr[%OPT,49,127]
  289.  if "%OPT"=="" goto START2
  290.  %OPT
  291.  goto BEGIN
  292. elseiff "%WIN"=="R" then
  293.  goto BEGIN
  294. elseiff %WIN==@78 .or. then
  295.  cls %WF on %WB
  296.  dir /2pv %DST
  297.  color %HF on %WB
  298.  inkey /K"YyNn"                SWITCH TO DESTINATION-DIRECTORY OR GO BACK [Y/N] %%SW
  299.  color %WF on %WB
  300.  if "%SW"=="Y" cdd %DST
  301.  if "%SW"=="N" goto BEGIN
  302.  goto BEGIN
  303. endiff
  304. goto START
  305.  
  306. :HELP
  307. list %HP%help.dat
  308. goto BEGIN
  309.  
  310. :INFO
  311. cls %WF on %WB
  312. text
  313.  
  314.  4ARC Archive Manager  V1.30                   (C)opyright KONGOWare 1992-94
  315.  
  316.  
  317.                            Thank you Using 4ARC !
  318.  
  319.    4ARC Archive Manager is a 4DOS-based Archivshell with multiple Functions.
  320.    First public Release in February 1992. This improved Version 1.30 is
  321.    released as SHAREWARE on 31th August 1992 by Volkmar Rosenow of KONGOWare.
  322.    Multi-featured Options like Support for 5 different Compression Programs,
  323.    including PKZIP, ARJ and LHA. DOS-Manager to handle Files quickly.
  324.    Flexible Virusscanning of Files in Conjunction with the popular VSCAN from
  325.    McAfee and the great F-PROT from Fridrik Skulason.
  326.    Point'n Shoot Usermenu, DOS-Shell, and more...
  327.  
  328.    You are granted an limited Trial Period of 30 Days to test this Software.
  329.    After the Trial Period you must register 4ARC.
  330.    The costs are only $13,95 or 15,-DM. Please support Shareware, so that
  331.    future Versions of this Program and other Projects are possible.
  332.    Read the File register.doc for more Information.
  333.  
  334.        KONGOWare
  335.    c/o Volkmar Rosenow
  336.        Gathersweg 19
  337.        4050 Mönchengladbach 1
  338.        GERMANY
  339. endtext
  340. pause >NUL
  341. color %MF on %MB
  342. goto BEGIN
  343.  
  344. :MAN
  345. screen 23 1
  346. set OPT=
  347. set OPT=%@SELECT[%HP%manage.dat,4,2,16,20,Manager]
  348. set OPT=%@SUBSTR[%OPT,1,3]
  349. iff "%OPT"=="" then
  350.  goto START
  351. elseiff "%OPT"=="Cur" then
  352.  goto NDIR
  353. elseiff "%OPT"=="Des" then
  354.  goto NDST
  355.  if "%DST" NE "" cd %DST
  356.  if "%NDI" NE "" cd %NDI
  357. elseiff "%OPT"=="Ref" then
  358.  goto BEGIN
  359. elseiff "%OPT"=="Vie" then
  360.  cls whi on blu
  361.  dir /2apv
  362.  pause hit any key...
  363.  goto BEGIN
  364. elseiff "%OPT"=="Cop" then
  365.  db 18 2 21 76 1 %BF on %BB fill %WB sha
  366.  color %WF on %WB
  367.  screen 19 4 
  368.  input Copy to (─┘ = %DST):  %%NDP
  369.  color %MF on %MB
  370.  sp 24 0 %MF on %MB                                                                                 
  371.  if "%NDP"=="" set NDP=%DST
  372.  select /d copy [*.*] %NDP
  373.  pause hit any key...
  374.  goto BEGIN
  375. elseiff "%OPT"=="Mov" then
  376.  db 18 2 21 76 1 %BF on %BB fill %WB sha
  377.  color %WF on %WB
  378.  screen 19 4 
  379.  input Move to (─┘ = %DST): %%NDP
  380.  color %MF on %MB
  381.  sp 24 0 %MF on %MB                                                                                 
  382.  if "%NDP"=="" set NDP=%DST
  383.  select /d move [*.*] %NDP
  384.  pause hit any key...
  385.  goto BEGIN
  386. elseiff "%OPT"=="Del" then
  387.  select /d del [*.*]
  388.  pause hit any key...
  389.  goto BEGIN
  390. elseiff "%OPT"=="Ren" then
  391.  dir /k/m %_CWDS >%HP%rename.tmp
  392.  set FN=%@SELECT[%HP%rename.tmp,4,1,22,76,Select File]
  393.  set FN=%@SUBSTR[%FN,0,12]
  394.  del /q %HP%rename.tmp
  395.  if "%FN"=="" goto MAN
  396.  db 18 2 21 76 1 %BF on %BB fill %WB sha
  397.  sp 19 4 %WF on %WB Renaming      %FN 
  398.  color blink %WF on %WB
  399.  screen 20 4 
  400.  input Input new filename: %%FN2
  401.  color %MF on %MB
  402.  sp 24 0 %MF on %MB                                                                                 
  403.  if "%FN2"=="" goto MAN
  404.  if exist %FN2 goto FEXT
  405.  ren /q %FN %FN2
  406.  goto PART
  407. elseiff "%OPT"=="MD/" then
  408.  db 18 2 21 76 1 %BF on %BB fill %WB sha
  409.  sp 19 4 %WF on %WB [M]AKE Directory:
  410.  sp 20 4 %WF on %WB [D]ELETE Directory:
  411.  sp 19 5 %HF on %WB M
  412.  sp 20 5 %HF on %WB D
  413.  color %MF on %MB
  414.  inkey /K"MmDd" %%CH
  415.  if "%CH"=="" goto PART
  416.  iff "%CH"=="M" then
  417.  screen 19 22
  418.  color %HF on %WB
  419.  input  %%MD
  420.  color %MF on %MB
  421.  if "%MD"=="" goto PART
  422.  if isdir %MD goto FEXT1
  423.  md %MD
  424.  goto PART
  425.  else
  426.  color %HF on %WB
  427.  screen 20 24
  428.  input %%MD
  429.  color %MF on %MB
  430.  if "%MD"=="" goto PART
  431.  if not isdir %MD goto FEXT2
  432.  if "%_CWD"=="%MD" cd\
  433.  rd %MD
  434.  goto PART
  435.  endiff
  436. elseiff "%OPT"=="Vsc" then
  437.  goto VIR
  438. elseiff "%OPT"=="She" then
  439.  cls
  440.  echo Shell to DOS... Type 'EXIT' to return to 4ARC
  441.  screen 23 1
  442.  call %_BOOT:\4DOS
  443. elseiff "%OPT"=="Con" then
  444.  cls %MF on %MB
  445.  db 1 1 21 76 4 bla on whi fill whi sha exp
  446.  sp 3 3 bri whi on whi ARCHIVER        PASSWORD           CFG-FILE                           USE
  447.  sp 4 1 bla on whi ├──────────────────────────────────────────────────────────────────────┤
  448.  sp 5 3 bla on whi PKZIP           ---                                                  ├
  449.  sp 6 3 bla on whi ARJ             ---                                                  ├
  450.  sp 7 3 bla on whi LHA             ---                                                  ├
  451.  sp 8 3 bla on whi PKPAK           ---                                                  ├
  452.  sp 9 3 bla on whi ZOO             ---                                                  ├
  453.  sp 12 3 bri whi on whi SCANNER   PATH                   OPTIONS
  454.  sp 13 1 bla on whi ├──────────────────────────────────────────────────────────────────────┤
  455.  db 1 1 10 72 4 bla on whi
  456.  db 1 72 21 76 4 bla on whi
  457.  db 10 1 17 72 4 bla on whi
  458.  vscrput 14 72 bla on whi ├├├╡│├├
  459.  sp 19 74 bli bri yel on whi √
  460.  sp 1 31 bla on whi CONFIGURATION
  461.  sp 14 3 bla on whi SCAN      %VI2
  462.  sp 15 3 bla on whi F-PROT    %VI1
  463.  sp 16 3 bla on whi OTHER     %VI3
  464.  if "%PASSW1" != "" sp 5 19 bla on whi %PASSW1
  465.  if "%PASSW2" != "" sp 6 19 bla on whi %PASSW2
  466.  if "%PASSW3" != "" sp 8 19 bla on whi %PASSW3
  467.  if "%ARJ_SW" != "" sp 6 38 bla on whi %ARJ_SW
  468.  if "%[PKZIP.CFG]" != "" sp 5 38 bla on whi %[PKZIP.CFG]\PKZIP.CFG
  469.  if "%SCO1" != "" sp 14 36 bla on whi %SCO1
  470.  if "%SCO" != "" sp 15 36 bla on whi %SCO
  471.  if "%SCO2" != "" sp 16 36 bla on whi %SCO2
  472.  sp 19 3 bri whi on whi TEMPDIRECTORY:
  473.  sp 19 21 bla on whi %$T
  474.  sp 20 3 bri whi on whi EDITOR:
  475.  if "%EDI" != "" sp 20 21 bla on whi %@UPPER[%EDI]
  476.  if "%EDI" != "" sp 20 74 bli bri yel on whi √
  477.  if "%AR"=="PKZIP" sp 5 74 bli bri yel on whi √
  478.  if "%AR"=="ARJ" sp 6 74 bli bri yel on whi √
  479.  if "%AR"=="LHA" sp 7 74 bli bri yel on whi √
  480.  if "%AR"=="PKPAK" sp 8 74 bli bri yel on whi √
  481.  if "%AR"=="ZOO" sp 9 74 bli bri yel on whi √
  482.  if "%VC"=="McAfee" sp 14 74 bli bri yel on whi √
  483.  if "%VC"=="F-PROT" sp 15 74 bli bri yel on whi √
  484.  if "%VC"=="OTHER" sp 16 74 bli bri yel on whi √
  485.  screen 23 3
  486.  color %WF on %WB
  487.  pause Hit any key...
  488. endiff
  489. goto BEGIN
  490.  
  491. :NDIR
  492. set CDI=
  493. set CDI=%@SELECT[%HP%alldrive.tmp,4,2,16,45,Change current Path]
  494. if "%CDI"=="A:" .or. "%CDI"=="B:" goto FDIR
  495. if "%CDI"=="" goto START
  496. set %_CWDS=%CDI
  497. cdd %CDI
  498. goto PART
  499.  
  500. :FDIR
  501. color %WF on %WB
  502. screen 18 1
  503. cdd %CDI
  504. cdd \
  505. color %MF on %MB
  506. sp 24 0 %MF on %MB                                                                                 
  507. (global /iq echo %_CWDS) >>%HP%alldrive.tmp
  508. set CDI=%@SELECT[%HP%alldrive.tmp,4,2,16,45,Change current Path]
  509. set %_CWDS=%CDI
  510. cdd %CDI
  511. del /q %HP%alldrive.tmp
  512. copy /q %HP%alldrive.sav %HP%alldrive.tmp
  513. goto PART
  514.  
  515. :NDST
  516. db 18 2 21 76 1 %BF on %BB fill %WB sha
  517. color %WF on %WB
  518. sp 19 4 %WF on %WB Old Destinationpath: %DST
  519. screen 20 4 
  520. input Input New Destinationpath (─┘ for List): %%DST
  521. color %MF on %MB
  522. sp 24 0 %MF on %MB                                                                                 
  523. if "%DST"=="" goto SALL
  524. pushd %DST
  525. set DST=%_CWDS
  526. popd
  527. goto PART
  528.  
  529. :SALL
  530. screen 23 1
  531. set DST=
  532. set DST=%@SELECT[%HP%alldrive.tmp,4,2,16,45,New Destinationpath]
  533. if "%DST"=="A:" .or. "%FDI"=="B:" goto FDST
  534. pushd %DST
  535. set DST=%_CWDS
  536. popd
  537. goto PART
  538.  
  539. :FDST
  540. color %WF on %WB
  541. screen 18 1
  542. pushd %DST\
  543. color %MF on %MB
  544. sp 24 0 %MF on %MB                                                                                 
  545. (global /iq echo %_CWDS) >>%HP%alldrive.tmp
  546. set DST=%@SELECT[%HP%alldrive.tmp,4,2,16,45,New Destinationpath]
  547. del /q %HP%alldrive.tmp
  548. copy /q %HP%alldrive.sav %HP%alldrive.tmp
  549. popd
  550. goto PART
  551.  
  552. :FEXT
  553. sp 19 52 bli %HF on %WB  FILE ALREADY EXIST !!! 
  554. pause >NUL
  555. goto PART
  556.  
  557. :FEXT1
  558. sp 19 47 bli %HF on %WB  DIRECTORY ALREADY EXIST !!! 
  559. delay 2
  560. goto PART
  561.  
  562. :FEXT2
  563. sp 20 46 bli %HF on %WB  DIRECTORY DOES NOT EXIST !!! 
  564. delay 2
  565. goto PART
  566.  
  567. :ARC
  568. screen 23 1
  569. set OPT=
  570. set OPT=%@SELECT[%HP%archive.dat,4,22,16,45,Archiver]
  571. set OPT=%@SUBSTR[%OPT,1,3]
  572. iff "%OPT"=="" then
  573.  goto START
  574. elseiff "%OPT"=="Cre" then
  575.  goto CRE
  576. elseiff "%OPT"=="Dec" then
  577.  goto DEC
  578. elseiff "%OPT"=="Ext" then
  579.  goto XDEC
  580. elseiff "%OPT"=="Con" then
  581.  sp 20 3 %MF on %MB                                                                          
  582.  sp 20 4 %WF on %MB Conversion Path: %@UPPER[%_CWD]
  583.  goto CON
  584. elseiff "%OPT"=="Vie" then
  585.  goto VIA
  586. elseiff "%OPT"=="Rep" then
  587.  goto REP
  588. elseiff "%OPT"=="Mak" then
  589.  goto MAK
  590. elseiff "%OPT"=="Com" then
  591.  goto COM
  592. elseiff "%OPT"=="Pas" then
  593.  goto PAS
  594. elseiff "%OPT"=="Vsc" then
  595.  goto VSA
  596. elseiff "%OPT"=="PKl" then
  597.  cls %WF on %WB
  598.  db 5 18 7 62 3 %BF on %BB fill %WB sha exp
  599.  sp 6 20 %WF on %WB (C)ompress or (E)xtract Files ? [C/E]
  600.  screen 6 59
  601.  inkey  /K"CcEe" %%CHO
  602.  if "%CHO"=="" goto BEGIN
  603.  if "%CHO"=="C" goto COMP
  604.  if "%CHO"=="E" goto EXT
  605.   :COMP
  606.   iff exist *.exe .or. exist *.com then
  607.   cls %WF on %WB
  608.   select /d pklite -b (*.com;*.exe)
  609.   cls %MF on %MB
  610.    iff exist *.bak then
  611.    db 5 25 7 55 3 %BF on %BB fill %WB sha exp
  612.    sp 6 28 bli %HF on %WB DELETE .BAK FILES ?
  613.    screen 6 48
  614.    inkey /K"YyNn" %%DB
  615.    if %DB==y del /qy *.bak
  616.    endiff
  617.   goto BEGIN
  618.   else
  619.   sp 20 42 bli %HF on %WB NO EXECUTABLES IN CURRENT PATH !
  620.   delay 1
  621.   sp 20 4 %WF on %WB                                                                         
  622.   goto PART2
  623.   endiff
  624.   goto START
  625.  :EXT
  626.  cls %WF on %WB
  627.  select /d pklite -x (*.exe;*.com)
  628.  goto BEGIN
  629. elseiff "%OPT"=="LZe" then
  630.  cls %WF on %WB
  631.  db 5 18 7 62 3 %BF on %BB fill %WB sha exp
  632.  sp 6 20 %WF on %WB (C)ompress or (E)xtract Files ? [C/E]
  633.  screen 6 59
  634.  inkey  /K"CcEe" %%CHO
  635.  if "%CHO"=="" goto BEGIN
  636.  if "%CHO"=="C" goto COMP1
  637.  if "%CHO"=="E" goto EXT1
  638.   :COMP1
  639.   iff exist *.exe .or. exist *.com then
  640.   cls %WF on %WB
  641.   db 5 10 7 68 4 %BF on %WB fill %WB sha exp
  642.   sp 6 12  %WF on %WB Delete original Files after Compression ?
  643.   screen 6 55
  644.   inkey /K"YyNn" %%DB
  645.   if "%DB"=="" goto BEGIN
  646.   select /d dir /b >>%HP%exec.tmp (*.com;*.exe)
  647.   set N=0
  648.   goto LOOP1
  649.   :AGA
  650.   cls %WF on %WB
  651.   set N=%@EVAL[%N+1]
  652.   if "%@LINE[%HP%exec.tmp,%n]"=="**EOF**" goto TOTAL
  653.   :LOOP1
  654.   if not exist %HP%exec.tmp goto BEGIN
  655.   set TAR=%@line[%HP%exec.tmp,%n]
  656.   set FS=%@FILESIZE[%TAR,b]
  657.   set TS=%@EVAL[%TS+%FS]
  658.   if "%TAR"=="EOF" goto BEGIN
  659.   if "%@EXT[%TAR]"=="com" comtoexe %TAR
  660.   lzexe %@NAME[%TAR]
  661.   set FS1=%@FILESIZE[%@NAME[%TAR].exe,b]
  662.   set TS1=%@EVAL[%TS1+%FS1]
  663.   if "%@EXT[%TAR]"=="com" del /qy *.old
  664.   if "%@EXT[%TAR]"=="com" .and. "%DB"=="Y" del /qy %TAR
  665.   if "%@EXT[%TAR]"=="exe" .and. "%DB"=="Y" del /qy *.old
  666.   goto AGA
  667.   else
  668.   sp 20 42 bli %HF on %WB NO EXECUTABLES IN CURRENT PATH !
  669.   delay 1
  670.   sp 20 4 %WF on %WB                                                                         
  671.   goto PART2
  672.   endiff
  673.  del /qy %HP%exec.tmp
  674.  :EXT1
  675.  cls %WF on %WB
  676.  select /d unlzexe (*.exe)
  677.  del /qy *.olz
  678.  goto BEGIN
  679. endiff
  680. goto BEGIN
  681. :TOTAL
  682. db 10 20 15 55 4 %HF on %HB fill %HB sha exp
  683. db 10 20 13 55 4 %HF on %HB fill %HB
  684. sp 11 49 whi on %WB bytes
  685. sp 12 49 whi on %WB bytes
  686. sp 14 49 bri whi on %WB bytes
  687. sp 11 22 whi on %WB Total Old Size   :
  688. sp 12 22 whi on %WB Total New Size   :
  689. sp 14 22 whi on %WB TOTAL DIFFERENCE
  690. sp 14 39 whi on %WB :
  691. sp 11 %@EVAL[47-%@LEN[%TS]] whi on %HB %TS
  692. sp 12 %@EVAL[47-%@LEN[%TS1]] whi on %HB %TS1
  693. sp 14 %@EVAL[47-%@LEN[%@EVAL[%TS1-%TS]]] bri whi on %HB %@EVAL[%TS1-%TS]
  694. set FS=
  695. set FS1=
  696. set TS=
  697. set TS1=
  698. pause Hit any key...
  699. goto BEGIN
  700.  
  701. :CRE
  702. db 18 2 21 76 1 %BF on %BB fill %WB sha
  703. color %WF on %WB
  704. sp 19 3 %WF on %WB                                         
  705. sp 20 3 %WF on %WB                                                   
  706. sp 19 4 %WF on %WB Create Archive:
  707. sp 20 54 %WF on %WB (─┘ change Archiver)
  708. screen 19 24
  709. input  %%AN
  710. color %MF on %MB
  711. sp 24 0 %MF on %MB                                                                                 
  712. iff "%AN"=="" then
  713.  goto SARC2
  714.  endiff
  715. cls %WF on %WB
  716. iff "%AR"=="ZOO" then
  717.  if exist %DST%%AN.ZOO gosub REN
  718.  goto ZOO
  719. elseiff "%AR"=="PKZIP" then
  720.  if exist %DST%%AN.ZIP gosub REN
  721.  select dir /b >>contents (*.*)
  722.  if "%PASS1"=="y" pkzip -s%PASSW1 %DST%%AN @contents
  723.  if "%PASS1"=="" pkzip %DST%%AN @contents
  724.  del /q contents
  725.  elseiff "%AR"=="LHA" then
  726.  if exist %DST%%AN.LZH gosub REN
  727.  select dir /b >>contents (*.*)
  728.  lha a %DST%%AN @contents
  729.  del /q contents
  730. elseiff "%AR"=="PKPAK" then
  731.  if exist %DST%%AN.ARC gosub REN
  732.  select dir /b >>contents (*.*)
  733.  if "%PASS3"=="y" pkpak -ag%PASSW3 %DST%%AN @contents
  734.  if "%PASS3"=="" pkpak -a %DST%%AN @contents
  735.  del /q contents
  736. elseiff "%AR"=="ARJ" then
  737.  if exist %DST%%AN.ARJ gosub REN
  738.  goto AR
  739. endiff
  740. goto BEGIN
  741.  
  742. :ZOO
  743. md %$T
  744. select dir /b >>contents (*.*)
  745. zoo aIP %$T\%AN <contents
  746. del /q contents
  747. move /q %$T\%AN.zoo %DST
  748. rd %$T
  749. goto BEGIN
  750.  
  751. :AR
  752. if "%CT"=="y" goto GO
  753. if "%ST"=="n" .or. "%ST"=="" goto GO1
  754. if "%ST"=="y" goto GO2
  755. sp 2 2 %WF on %WB Use your own predefined ARJ_SW Options [Y/N]
  756. screen 2 48
  757. inkey /K"YyNn" %%CT
  758. if "%CT"=="y" goto GO
  759. sp 4 2 %WF on %WB Test Archive after creating? [Y/N]
  760. screen 4 38
  761. inkey /K"YyNn" %%ST
  762. if "%ST"=="n" goto GO1
  763. if "%ST"=="y" goto GO2
  764.  
  765. :GO
  766. select dir /b >>contents (*.*)
  767. arj a %DST%%AN !contents
  768. del /q contents
  769. goto BEGIN
  770.  
  771. :GO1
  772. select dir /b >>contents (*.*)
  773. iff "%PASS2"=="" then
  774.   arj a -+ -jf1 -i2 -jm1 %DST%%AN !contents
  775. else arj a -+ -g%PASSW2 -jf1 -i2 -jm1 %DST%%AN !contents
  776.  endiff
  777.  del /q contents
  778. goto BEGIN
  779.  
  780. :GO2
  781. select dir /b >>contents (*.*)
  782. iff "%PASS2"=="" then
  783.  arj a -+ -jf1 -i2 -jt -jm1 %DST%%AN !contents
  784. else arj a -+ -g%PASSW2 -jf1 -i2 -jt -jm1 %DST%%AN !contents
  785. endiff
  786.  del /q contents
  787. goto BEGIN
  788.  
  789. :DEC
  790. dir /a-dkm *.zip;*.arj;*.lzh;*.lha;*.zoo;*.arc > %HP%arcs.tmp
  791. if not exist *.lzh .and. not exist *.lha .and. not exist *.arj .and. not exist *.zip .and. not exist *.zoo .and. not exist *.arc goto EMPTY
  792. set OPT=%@SELECT[%HP%arcs.tmp,4,2,16,45,Select Archive]
  793. set SA=%@SUBSTR[%OPT,0,12]
  794. set EXT=%@EXT[%SA]
  795. iff "%EXT"=="" then
  796.  goto START
  797. elseiff "%EXT"=="zip" then
  798.  cls %WF on %WB
  799.  iff "%PASS1"=="" then
  800.  pkunzip -q %SA %DST
  801.  else
  802.  pkunzip -q -s%PASSW1 %SA %DST
  803.  endiff
  804. elseiff "%EXT"=="arj" then
  805.  cls %WF on %WB
  806.  iff "%PASS2"=="" then
  807.  arj e -+ -jyyn %SA %DST
  808.  else
  809.  arj e -+ -jyyn -g%PASSW2 %SA %DST
  810.  endiff
  811. elseiff "%EXT"=="lzh" .or. "%EXT"=="lha" then
  812.  cls %WF on %WB
  813.  lha e %SA %DST
  814. elseiff "%EXT"=="zoo" then
  815.  md %$T
  816.  move /q %SA %$T
  817.  pushd
  818.  cdd %$T
  819.  cls %WF on %WB
  820.  zoo e %SA
  821.  cls %MF on %MB
  822.  del /q %SA %HP%arcs.tmp
  823.  move /q *.* %DST
  824.  popd
  825.  rd %$T
  826. elseiff "%EXT"=="arc" then
  827.  cls %WF on %WB
  828.  iff "%PASS3"=="" then
  829.  pkunpak  %SA %DST
  830.  else
  831.  pkunpak -g%PASSW3 %SA %DST
  832.  endiff
  833. endiff
  834. color %WF on %WB
  835. del /q %HP%arcs.tmp
  836. pause Hit any key...
  837. goto BEGIN
  838.  
  839. :XDEC
  840. if not exist *.lzh .and. not exist *.lha .and. not exist *.arj .and. not exist *.zip goto EMPTY2
  841. dir /a-dkm *.zip;*.arj;*.lzh;*.lha >> %HP%arcs.tmp
  842.  set OPT=%@SELECT[%HP%arcs.tmp,4,2,16,45,Select Archive]
  843.  del /q %HP%arcs.tmp
  844.  set SA=%@SUBSTR[%OPT,0,12]
  845.  set EXT=%@EXT[%SA]
  846. if "%EXT"=="" goto START
  847. iff "%EXT"=="zip" then
  848.  cls %WF on %WB
  849.  if "%PASS1"=="" pkunzip -q -d %SA %DST
  850.  if "%PASS1"=="y" pkunzip -q -d -s%PASSW1 %SA %DST
  851.  elseiff "%EXT"=="arj" then
  852.  cls %WF on %WB
  853.  if "%PASS2"=="" arj x -+ %SA %DST
  854.  if "%PASS2"=="y" arj x -+ -g%PASSW2 %SA %DST
  855. elseiff "%EXT"=="lzh" .or. "%EXT"=="lha" then
  856.  cls %WF on %WB
  857.  lha x %SA %DST
  858. endiff
  859. pause Hit any key...
  860. goto BEGIN
  861.  
  862. :EMPTY
  863. db 18 2 21 76 1 %BF on %BB fill %WB sha
  864. sp 19 4 %HF on %WB BEAM YOU UP, SCOTTY !!!
  865. sp 20 4 %HF on %WB THERE ISN'T JUST ONE ARCHIVE IN THIS PATH...
  866. delay 2
  867. if "%FF"=="R"goto BEGIN
  868. goto PART
  869.  
  870. :EMPTY2
  871. db 18 2 21 76 1 %BF on %BB fill %WB sha
  872. sp 19 4 %HF on %WB NO X-TRACTABLE ARCHIVE IN THIS PATH !!!
  873. sp 20 4 %HF on %WB (only ZIP, ARJ, and LHA support this Feature)
  874. delay 2
  875. if "%FF"=="R"goto BEGIN
  876. goto PART
  877.  
  878. :CON
  879. set OPT=%@SELECT[%HP%convert.dat,4,22,14,45,Convert Archives]
  880. set MOD=%@SUBSTR[%opt,12,3]
  881. if exist *.zip .or. exist *.arj .or. exist *.arc .or. exist *.lzh .or. exist *.lha goto CON1
  882. goto MSG
  883.  
  884. :CON1
  885. if not isdir %$T md %$T
  886. set COP=%_CWD
  887. if "%MOD"=="ZIP" select dir /b [*.arj;*.lzh;*.lha;*.arc;*.zoo] >%HP%listarc.tmp
  888. echo EOF >>%HP%listarc.tmp
  889. if "%MOD"=="ARJ" select dir /b [*.zip;*.lzh;*.lha;*.arc;*.zoo] >%HP%listarc.tmp
  890. echo EOF >>%HP%listarc.tmp
  891. if "%MOD"=="LZH" select dir /b [*.zip;*.arj;*.arc;*.zoo] >%HP%listarc.tmp
  892. echo EOF >>%HP%listarc.tmp
  893. if "%MOD"=="ARC" select dir /b [*.zip;*.arj;*.lzh;*.lha;*.zoo] >%HP%listarc.tmp
  894. echo EOF >>%HP%listarc.tmp
  895. if "%MOD"=="ZOO" select dir /b [*.zip;*.arj;*.lzh;*.lha;*.arc] >%HP%listarc.tmp
  896. echo EOF >>%HP%listarc.tmp
  897. set N=0
  898. goto LOOP
  899.  
  900. :AGAIN
  901. cls %WF on %WB
  902. set N=%@EVAL[%N+1]
  903. if "%@LINE[%HP%listarc.tmp,%n]"=="EOF" goto TOTC
  904.  
  905. :LOOP
  906. set TAR=%@line[%HP%listarc.tmp,%n]
  907. if "%TAR"=="EOF" .and. %N==0 goto BEGIN
  908. set FS=%@FILESIZE[%TAR,b]
  909. color %WF on %WB
  910. iff "%MOD"=="ZIP" then
  911.  if "%@EXT[%TAR]"=="arj" arj e -+ -jyyn %TAR %$T
  912.  if "%@EXT[%TAR]"=="arc" pkunpak %TAR  %$T
  913.  if "%@EXT[%TAR]"=="lha" .or. "%@EXT[%TAR]"=="lzh" lha e %TAR %$T\
  914.   iff "%@EXT[%TAR]"=="zoo" then
  915.   copy /q %TAR %$T
  916.   pushd %$T
  917.   zoo e %TAR
  918.   del /q %TAR
  919.   popd
  920.   endiff
  921.  pushd %$T
  922.  if exist %TAR del /q %TAR
  923.  pkzip -m %@NAME[%TAR]
  924.  set FS1=%@FILESIZE[%@NAME[%TAR].ZIP,b]
  925.  set NEW=%@NAME[%TAR]
  926.  if exist %COP\%@NAME[%TAR].ZIP gosub REN1
  927.  move /q *.zip %COP
  928.  cd..
  929.  popd
  930.  del /q %TAR
  931.  goto COUNT
  932. elseiff "%MOD"=="ARJ" then
  933.  if "%@EXT[%TAR]"=="zip" pkunzip -q %TAR %$T
  934.  if "%@EXT[%TAR]"=="arc" pkunpak %TAR %$T
  935.  if "%@EXT[%TAR]"=="lha" .or. "%@EXT[%TAR]"=="lzh" lha e %TAR %$T\
  936.   iff "%@EXT[%TAR]"=="zoo" then
  937.   copy /q %TAR %$T
  938.   pushd %$T
  939.   zoo e %TAR
  940.   del /q %TAR
  941.   popd
  942.   endiff
  943.  pushd %$T
  944.  if exist %TAR del /q %TAR
  945.  if "%ST"=="y" .and. "%CT"=="n" arj m -jm1 -jt %@NAME[%TAR]
  946.  if "%ST"=="n" .and. "%CT"=="n" arj m -jm1 %@NAME[%TAR]
  947.  if "%CT"=="y" arj m %@NAME[%TAR]
  948.  if "%CT"=="" arj m -jm1 %@NAME[%TAR]
  949.  set FS1=%@FILESIZE[%@NAME[%TAR].ARJ,b]
  950.  set NEW=%@NAME[%TAR]
  951.  if exist %COP\%@NAME[%TAR].ARJ gosub REN1
  952.  move /q *.arj %COP
  953.  cd..
  954.  popd
  955.  del /q %TAR
  956.  goto COUNT
  957. elseiff "%MOD"=="LZH" then
  958.  if "%@EXT[%TAR]"=="zip" pkunzip -q %TAR %$T
  959.  if "%@EXT[%TAR]"=="arj" arj e -+ -jyyn %TAR %$T
  960.  if "%@EXT[%TAR]"=="lzh" lha e %TAR %$T\
  961.  if "%@EXT[%TAR]"=="arc" pkunpak %TAR %$T
  962.   iff "%@EXT[%TAR]"=="zoo" then
  963.   copy /q %TAR %$T
  964.   pushd %$T
  965.   zoo e %TAR
  966.   del /q %TAR
  967.   popd
  968.   endiff
  969.  pushd %$T
  970.  if exist %TAR del /q %TAR
  971.  lha m %@NAME[%TAR]
  972.  set FS1=%@FILESIZE[%@NAME[%TAR].LZH,b]
  973.  set NEW=%@NAME[%TAR]
  974.  if exist %COP\%@NAME[%TAR].LZH gosub REN1
  975.  move /q *.lzh %COP
  976.  cd..
  977.  popd
  978.  del /q %TAR
  979.  goto COUNT
  980. elseiff "%MOD"=="ARC" then
  981.  if "%@EXT[%TAR]"=="zip" pkunzip -q %TAR %$T
  982.  if "%@EXT[%TAR]"=="arj" arj e -+ -jyyn %TAR %$T
  983.  if "%@EXT[%TAR]"=="lha" .or. "%@EXT[%TAR]"=="lzh" lha e %TAR %$T\
  984.   iff "%@EXT[%TAR]"=="zoo" then
  985.   copy /q %TAR %$T
  986.   pushd %$T
  987.   zoo e %TAR
  988.   del /q %TAR
  989.   popd
  990.   endiff
  991.  pushd %$T
  992.  if exist %TAR del /q %TAR
  993.  pkpak m %@NAME[%TAR]
  994.  set FS1=%@FILESIZE[%@NAME[%TAR].ARC,b]
  995.  set NEW=%@NAME[%TAR]
  996.  if exist %COP\%@NAME[%TAR].ARC gosub REN1
  997.  move /q *.arc %COP
  998.  cd..
  999.  popd
  1000.  del /q %TAR
  1001.  goto COUNT
  1002. elseiff "%MOD"=="ZOO" then
  1003.  if "%@EXT[%TAR]"=="zip" pkunzip -q %TAR %$T
  1004.  if "%@EXT[%TAR]"=="arj" arj e -+ -jyyn %TAR %$T
  1005.  if "%@EXT[%TAR]"=="lha" .or. "%@EXT[%TAR]"=="lzh" lha e %TAR %$T\
  1006.  if "%@EXT[%TAR]"=="arc" pkunpak %TAR %$T
  1007.  pushd %$T
  1008.  zoo aMP %@NAME[%TAR] *.* *
  1009.  set FS1=%@FILESIZE[%@NAME[%TAR].ZOO,b]
  1010.  set NEW=%@NAME[%TAR]
  1011.  if exist %COP\%@NAME[%TAR].ZOO gosub REN1
  1012.  move /q *.zoo %COP
  1013.  cd..
  1014.  popd
  1015.  del /q %TAR
  1016.  goto COUNT
  1017. endiff
  1018.  
  1019. :COUNT
  1020. cls %WF on %WB
  1021. db 10 1 15 37 2 %WF on %WB fill %WB sha exp
  1022. db 10 1 13 37 2 %WF on %WB fill %WB
  1023. sp 11 31 bri whi on %WB bytes
  1024. sp 12 31 bri whi on %WB bytes
  1025. sp 14 31 bri whi on %WB bytes
  1026. sp 11 3 bri whi on %WB %@UPPER[%TAR]  :
  1027. sp 12 3 bri whi on %WB %@UPPER[%NEW.%MOD]  :
  1028. sp 14 3 bri whi on %WB Difference  :
  1029. sp 11 %@EVAL[29-%@LEN[%FS]] bri whi on %WB %FS
  1030. sp 12 %@EVAL[29-%@LEN[%FS1]] bri whi on %WB %FS1
  1031. sp 14 %@EVAL[29-%@LEN[%@EVAL[%FS1-%FS]]] bri whi on %WB %@EVAL[%FS1-%FS]
  1032. set TS=%@EVAL[%TS+%FS]
  1033. set TS1=%@EVAL[%TS1+%FS1]
  1034. delay 3
  1035. goto AGAIN
  1036.  
  1037. :TOTC
  1038. rd %$T
  1039. del /q %HP%listarc.tmp
  1040. db 10 41 15 76 2 %HF on %HB fill %HB sha exp
  1041. db 10 41 13 76 2 %HF on %HB fill %HB
  1042. sp 9 43 bri whi on %HB ARCHIVES CONVERTED: %N
  1043. sp 11 70 bri whi on %WB bytes
  1044. sp 12 70 bri whi on %WB bytes
  1045. sp 14 70 bri whi on %WB bytes
  1046. sp 11 43 bri whi on %WB Total Old Size    :
  1047. sp 12 43 bri whi on %WB Total New Size    :
  1048. sp 14 43 bli bri whi on %WB TOTAL DIFFERENCE
  1049. sp 14 61 bri whi on %WB :
  1050. sp 11 %@EVAL[68-%@LEN[%TS]] bri whi on %HB %TS
  1051. sp 12 %@EVAL[68-%@LEN[%TS1]] bri whi on %HB %TS1
  1052. sp 14 %@EVAL[68-%@LEN[%@EVAL[%TS1-%TS]]] bri whi on %HB %@EVAL[%TS1-%TS]
  1053. if %@EVAL[%TS1-%TS] LT 0 sp 18 43 %HF on %HB HEY GREAT ! SAVED SOME SPACE...
  1054. if %@EVAL[%TS1-%TS] GT 0 sp 18 43 %HF on %HB OOPS ! BLOWING UP...think of it
  1055. set FS=
  1056. set FS1=
  1057. set TS=
  1058. set TS1=
  1059. pause Hit any key...
  1060. goto BEGIN
  1061.  
  1062. :VIA
  1063. dir /a-dkm *.zip;*.arj;*.lzh;*.lha;*.zoo;*.arc > %HP%via.tmp
  1064. if not exist *.lzh .and. not exist *.lha .and. not exist *.arj .and. not exist *.zip .and. not exist *.zoo .and. not exist *.arc goto EMPTY
  1065. set OPT=%@SELECT[%HP%via.tmp,4,2,16,45,List Archive]
  1066. del /q %HP%via.tmp
  1067. set SA=%@SUBSTR[%OPT,0,12]
  1068. set EXT=%@EXT[%SA]
  1069. if "%EXT"=="" goto START
  1070. iff "%EXT"=="zip" then
  1071.  cls %WF on %WB
  1072.  pkzip -v %SA
  1073.  pause Hit any key..
  1074.  goto BEGIN
  1075. elseiff "%EXT"=="arj" then
  1076.  cls %WF on %WB
  1077.  arj l %SA
  1078.  pause Hit any key...
  1079.  goto BEGIN
  1080. elseiff "%EXT"=="lzh" .or. "%EXT"=="lha" then
  1081.  cls %WF on %WB
  1082.  lha l %SA
  1083.  pause Hit any key...
  1084.  goto BEGIN
  1085. elseiff "%EXT"=="arc" then
  1086.  cls %WF on %WB
  1087.  pkpak -v %SA
  1088.  pause Hit any key...
  1089.  goto BEGIN
  1090. elseiff "%EXT"=="zoo" then
  1091.  cls %WF on %WB
  1092.  zoo VC %SA
  1093.  pause Hit any key...
  1094.  goto BEGIN
  1095. endiff
  1096. goto BEGIN
  1097.  
  1098.  
  1099. :REP
  1100. set FF=R
  1101. md %$T
  1102. if exist *.zip .or. exist *.arj .or. exist *.lzh .or. exist *.lha .or. exist *.arc .or. exist *.zoo dir /b *.zip;*.arj;*.lzh;*.lha;*.arc;*.zoo >%HP%repair.tmp
  1103. if not exist %HP%repair.tmp goto EMPTY
  1104. set OPT=%@SELECT[%HP%repair.tmp,4,2,16,45,Repair Archive]
  1105. set RA=%@SUBSTR[%OPT,0,12]
  1106. set EXT=%@EXT[%RA]
  1107. if "%EXT"=="" goto START
  1108. iff "%EXT"=="zip" then
  1109.  cls %WF on %WB
  1110.  pkzipfix %RA
  1111.  del /pq %RA
  1112. elseiff "%EXT"=="arj" then
  1113.  copy /q %RA %$T
  1114.  pushd %$T
  1115.  cls %WF on %WB
  1116.  arj e -+ -jr -jyyn %RA
  1117.  pause
  1118.  del /q %RA
  1119.  cls %WF on %WB
  1120.  dir /2kmv
  1121.  pause
  1122.  del *.*
  1123.  popd
  1124. elseiff "%EXT"=="lzh" .or. "%EXT"=="lha" then
  1125.  set PRO=LHA
  1126.  gosub SORRY
  1127.  lha t %RA
  1128.  pause Hit any key...
  1129. elseiff "%EXT"=="arc" then
  1130.  set PRO=PKPAK
  1131.  gosub SORRY
  1132.  pkunpak -t %RA
  1133.  pause Hit any key...
  1134. elseiff "%EXT"=="zoo" then
  1135.  gosub SORRY
  1136.  zoo xNd %RA
  1137.  pause Hit any key...
  1138. endiff
  1139. rd %$T
  1140. del /q %HP%repair.tmp
  1141. set PRO=
  1142. goto BEGIN
  1143.  
  1144. :SORRY
  1145. cls %WF on %WB
  1146. db 1 13 5 63 3 %BF on %BB fill %WB sha exp
  1147. sp 2 34 bli %HF on %HB SORRY !
  1148. sp 3 16 %WF on %WB %@UPPER[%PRO] isn't capable of Reconstructing Archives
  1149. sp 4 16 %WF on %WB You can only test Integrity of Archive.
  1150. screen 7 8
  1151. pause Hit any key to start Testing...
  1152. return
  1153.  
  1154. :MAK
  1155. if exist *.zip .or. exist *.arj .or. exist *.lzh .or. exist *.lha .or. exist *.arc dir /b *.zip;*.arj;*.lzh;*.lha;*.arc >%HP%sfx.tmp
  1156. if not exist %HP%sfx.tmp goto EMPTY
  1157. cls %WF on %WB
  1158. set OPT=%@SELECT[%HP%sfx.tmp,4,2,16,45,Make SFX]
  1159. set RA=%@SUBSTR[%OPT,0,12]
  1160. set EXT=%@EXT[%RA]
  1161. if "%EXT"=="" goto BEGIN
  1162. iff "%EXT"=="zip" then
  1163.   iff exist %@NAME[%RA].EXE then
  1164.   db 2 22 7 58 3 %BF on %BB fill %WB sha exp
  1165.   sp 3 24 bli %HF on %WB FILE %@NAME[%RA].EXE ALREADY EXISTS !!
  1166.   sp 5 24 %WF on %WB Input new Name:
  1167.   sp 6 24 %WF on %WB (─┘ for overwriting File)
  1168.   color bri whi on %WB
  1169.   screen 5 43
  1170.   input %%NN
  1171.   color %WF on %WB
  1172.    iff "%NN" NE "%RA" .and. "%NN" NE "" then
  1173.    ren /q %RA %NN.ZIP
  1174.    set RA=%NN
  1175.    endiff
  1176.   if "%NN"==""set NN=%RA
  1177.   screen 10 1
  1178.   endiff
  1179.  zip2exe %RA
  1180. elseiff "%EXT"=="arj" then
  1181.  arj y -je1 %RA
  1182. elseiff "%EXT"=="lzh" .or. "%EXT"=="lha" then
  1183.  lha s %RA
  1184. elseiff "%EXT"=="arc" then
  1185.  copy /b %@SEARCH[pksfx.pgm] + %RA %@NAME[%RA].EXE
  1186. endiff
  1187. del /q %HP%sfx.tmp
  1188. goto BEGIN
  1189.  
  1190. :COM
  1191. if exist *.zip .or. exist *.arj .or. exist *.arc .or. exist *.zoo dir /b *.zip;*.arj;*.arc;*.zoo >%HP%comment.tmp
  1192. if not exist %HP%comment.tmp goto EMPTY
  1193. set OPT=%@SELECT[%HP%comment.tmp,4,2,16,45,Comment Archive]
  1194. set RA=%@SUBSTR[%OPT,0,12]
  1195. goto COMM
  1196. :FRC
  1197. iff %@lines[%HP%4arc.btm] != 2006 then
  1198.  BEEP 1500 3
  1199.  sp 20 25 bli %HF on %WB FILE HAS BEEN CORRUPTED !!!
  1200.  goto EXIT
  1201. endiff
  1202. return
  1203. :COMM
  1204. set EXT=%@EXT[%RA]
  1205. if "%EXT"=="" goto START
  1206. cls %WF on %WB
  1207. iff "%EXT"=="zip" then
  1208.  pkzip -z %RA
  1209. elseiff "%EXT"=="arj" then
  1210.  db 1 2 3 76 3 %BF on %BB fill %WB sha
  1211.  sp 2 4 %WF on %WB Add Comments (M)anually or use (C)ommentfile ? [M/C]
  1212.  color %HF on %WB
  1213.  screen 2 57
  1214.  inkey /K"MmCc" %%CO
  1215.  color %WF on %WB
  1216.  screen 5 1
  1217.  if "%CO"=="" goto BEGIN
  1218.  if "%CO"=="M"  arj c -+ %RA
  1219.  iff "%CO"=="C" then
  1220.   db 5 2 8 76 3 %BF on %BB fill %WB sha
  1221.   sp 6 4 %WF on %WB Input Commentfile (full Path):
  1222.    color %HF on %WB
  1223.   screen 7 4
  1224.   input %%CF
  1225.   color %WF on %WB
  1226.   screen 10 1
  1227.   arj y -+ -z%CF %RA
  1228.   endiff
  1229. elseiff "%EXT"=="arc" then
  1230.  pkpak -x %RA
  1231. elseiff "%EXT"=="zoo" then
  1232.  zoo c %RA
  1233. endiff
  1234. del /q %HP%comment.tmp
  1235. goto BEGIN
  1236.  
  1237. :VSA
  1238. md %$T
  1239. dir /a-dkm *.zip;*.arj;*.lzh;*.lha;*.zoo;*.arc > %HP%vsc.tmp
  1240. if not exist *.lzh .and. not exist *.lha .and. not exist *.arj .and. not exist *.zip .and. not exist *.zoo .and. not exist *.arc goto EMPTY
  1241. set OPT=%@SELECT[%HP%vsc.tmp,4,2,16,45,Scan Archive]
  1242. del /q %HP%vsc.tmp
  1243. set SA=%@SUBSTR[%OPT,0,12]
  1244. set EXT=%@EXT[%SA]
  1245. if "%EXT"=="" goto START
  1246. iff "%VI"=="" then
  1247.  sp 17 24 bli %HF on %WB No Scanner selected
  1248.  delay 1
  1249.  sp 17 24 %MF on %MB                    
  1250.  goto START2
  1251. elseiff "%EXT"=="zip" then
  1252.  cls %WF on %WB
  1253.  pkunzip %SA %$T
  1254.  goto SCAN
  1255. elseiff "%EXT"=="arj" then
  1256.  cls %WF on %WB
  1257.  arj e -+ -jyyn %SA %$T
  1258.  goto SCAN
  1259. elseiff "%EXT"=="lha" .or. "%EXT"=="lzh" then
  1260.  copy /q %SA %$T
  1261.  pushd %$T
  1262.  cls %WF on %WB
  1263.  lha e %SA
  1264.  popd
  1265.  goto SCAN
  1266. elseiff "%EXT"=="arc" then
  1267.  cls %WF on %WB
  1268.  pkunpak %SA %$T
  1269.  goto SCAN
  1270. elseiff "%EXT"=="zoo" then
  1271.  copy /q %SA %$T
  1272.  pushd %$T
  1273.  cls %WF on %WB
  1274.  zoo e %SA
  1275.  popd
  1276.  goto SCAN
  1277. endiff
  1278. goto BEGIN
  1279.  
  1280. :SCAN
  1281. iff "%VC"=="McAfee" then
  1282.  %VI %$T\*.* /NOMEM /NOPAUSE /BELL /NOEXPIRE /REPORT %HP%arcvir.lst
  1283.  set RS=%_?
  1284.  del /yq %$T\*.*
  1285. elseiff "%VC"=="F-PROT" then
  1286.  %VI %$T\*.* -NOMEM -NOBREAK /REPORT=%HP%arcvir.lst
  1287.  set RS=%_?
  1288.  del /yq %$T\*.*
  1289. elseiff "%VC" != "McAfee" .and. "%VC" != "F-PROT" then
  1290.  %VI %$T\*.*
  1291.  set RS=%_?
  1292.  del /yq %$T\*.*
  1293. endiff
  1294. cls
  1295. db 5 15 9 63 3 %BF on %BB fill %WB sha exp
  1296. sp 6 32 %HF on %WB ARCHIVE SCANNED !
  1297. iff "%RS"=="0" then
  1298.  sp 8 24 %WF on %WB No Infection found in Archive.
  1299. elseiff "%RS"=="1" then
  1300.  sp 8 18 %WF on %WB *ALERT* Infection found in Archive. *ALERT*
  1301. endiff
  1302. sp 11 13 %WF on %WB Report is send to File 'ARCVIR.LST' in 4ARC Directory...
  1303. screen 14 22
  1304. pause Hit any key...
  1305. goto BEGIN
  1306.  
  1307. :VIR
  1308. iff not "%VC"=="McAfee" .and. not "%VC"=="F-PROT" then
  1309.   iff "%SO2"=="N" then
  1310.    goto VIR1
  1311.   elseiff "%VI"=="" then
  1312.    sp 17 24 bli %HF on %WB No Scanner selected
  1313.    delay 1
  1314.    sp 17 24 %MF on %MB                    
  1315.    goto START2
  1316.   endiff
  1317.    cls
  1318.   %VI %SCO2
  1319. elseiff "%VC"=="F-PROT" then
  1320.  cls
  1321.  db 2 2 17 76 3 %BF on %BB fill %WB sha exp
  1322.  db 18 2 21 76 1 %BF on %BB fill %WB sha exp
  1323.  sp 3 32 %HF on %WB SCANOPTIONS
  1324.  sp 1 3 %WF on %WB * = default
  1325.  sp 0 41 %HF on %WB F-PROT.EXE  Copyright Fridrik Skulason
  1326.  sp 4 3 %WF on %WB /BOOT   * Scan Boot-Sector         /APPEND   Append report to File
  1327.  sp 5 3 %WF on %WB /PACKED * Scan packed file         /AUTO     Autodelete/-disinfect
  1328.  sp 6 3 %WF on %WB /FILE   * Scan files               /COMMAND  Force commandline Mode
  1329.  sp 7 3 %WF on %WB /DELETE   Delete infected files    /DISINF   Disinfect Files
  1330.  sp 8 3 %WF on %WB /HARD     Scan entire Disk         /ALL      Scan all files
  1331.  sp 9 3 %WF on %WB /HELP     List help                /INTER    Interactive Mode
  1332.  sp 10 3 %WF on %WB /NET      Scan network             /NOBREAK  Disable 'ESC' during Scan
  1333.  sp 11 3 %WF on %WB /NOMEM    Don't scan mem           /MULTI    Scan multiple Disks
  1334.  sp 12 3 %WF on %WB /ANALYSE  Use heuristic Analysis   /QUICK    Faster Scan
  1335.  sp 13 3 %WF on %WB /LIST     Report to Screen         /SILENT   no Screen Output
  1336.  sp 14 3 %WF on %WB /TROJAN   Search Trojan horses     /USER     Scan for userdefined String
  1337.  sp 15 3 %WF on %WB /REPORT=file     create Report     /INTER    Force interactive Mode
  1338.  sp 19 4 %HF on %WB Input Scanoptions: [Drives, File or Directory]  [/Option]...[/Option]
  1339.  if "%HO"=="Y" return
  1340.  screen 20 5
  1341.  color %HF on %WB
  1342.  input  %%SCO
  1343.  if "%SCO"==""goto BEGIN
  1344.  cls
  1345.  %VI %SCO
  1346.  color %MF on %MB
  1347.  sp 24 0 %MF on %MB                                                                                 
  1348.  goto BEGIN
  1349. elseiff "%VC"=="McAfee" then
  1350.  cls
  1351.  db 2 2 17 76 3 %BF on %BB fill %WB sha exp
  1352.  db 18 2 21 76 1 %BF on %BB fill %WB sha exp
  1353.  sp 0 41 %HF on %WB SCAN.EXE  Copyright McAffee Associates
  1354.  sp 3 48 %HF on %WB (partial List)
  1355.  sp 4 4 %WF on %WB /? /H     Display help screen     /RV       Remove Validation codes
  1356.  sp 5 4 %WF on %WB /A        Scan all files          /SAVE     Save options as defaults
  1357.  sp 6 4 %WF on %WB /AV file  Add validation codes    /SUB      Scan subdirectories
  1358.  sp 7 4 %WF on %WB /CF file  Using recovery data     @file     Use configuration file
  1359.  sp 8 4 %WF on %WB /CHKHI    Memorycheck ≤ 1088Kb    /E .xxx   Scan overlay extensions
  1360.  sp 9 4 %WF on %WB /CG       Check Rec.-data         /BELL     Beep when a virus is found
  1361.  sp 10 4 %WF on %WB /D        Delete infected file    /CV       Check validation codes
  1362.  sp 11 4 %WF on %WB /FAST     Fast Scan
  1363.  sp 12 4 %WF on %WB /M        Memorycheck all viruses        \  RootDir and Bootarea only
  1364.  sp 13 4 %WF on %WB /MANY     Scan multiple floppies
  1365.  sp 14 4 %WF on %WB /NOBREAK  Disable Ctrl-C
  1366.  sp 15 4 %WF on %WB /NOMEM    Skip memory Check        *** Please consult VSCANxx.DOC ***
  1367.  sp 16 4 %WF on %WB /NOPAUSE  Disable screen pause     *** for complete Optionlist    ***
  1368.  sp 19 4 %HF on %WB Input Scanoptions: [Drives, File or Directory]  [/Option]...[/Option]
  1369.  if "%HO"=="Y" return
  1370.  screen 20 5
  1371.  color %HF on %WB
  1372.  input  %%SCO1
  1373.  if "%SCO1"==""goto BEGIN
  1374.  cls
  1375.  %VI %SCO1
  1376.  pause
  1377.  color %MF on %MB
  1378.  sp 24 0 %MF on %MB                                                                                 
  1379.  goto BEGIN
  1380. endiff
  1381. goto BEGIN
  1382.  
  1383. :VIR1
  1384. db 18 2 21 76 1 %BF on %BB fill %WB sha exp
  1385. sp 19 4 %HF on %WB Input Scanoptions:
  1386. screen 20 4
  1387. color %HF on %WB
  1388. input  %%SCO2
  1389. cls
  1390. %VI %SCO2
  1391. pause
  1392. color %MF on %MB
  1393. sp 24 0 %MF on %MB                                                                                 
  1394. goto BEGIN
  1395.  
  1396.  
  1397. :SET
  1398. screen 23 1
  1399. set OPT=%@SELECT[%HP%setup.dat,4,47,16,76,Setup]
  1400. set OPT=%@SUBSTR[%OPT,1,3]
  1401. iff "%OPT"=="" then
  1402.  goto START
  1403. elseiff "%OPT"=="Arc" then
  1404.  goto SARC
  1405. elseiff "%OPT"=="Vir" then
  1406.  goto SVIR
  1407. elseiff "%OPT"=="Tem" then
  1408.  goto STEM
  1409. elseiff "%OPT"=="Des" then
  1410.  goto SDIR
  1411. elseiff "%OPT"=="Col" then
  1412.  goto SETCOL
  1413. elseiff "%OPT"=="Edi" then
  1414.  db 18 2 21 76 1 %BF on %BB fill %WB sha
  1415.  color %WF on %WB
  1416.  screen 19 4 
  1417.  sp 20 55 %WF on %WB (invoke with ALT-E)
  1418.  input Use Editor: %%EDI
  1419.  color %MF on %MB
  1420.  sp 24 0 %MF on %MB                                                                                 
  1421.  if "%EDI"=="" goto PART
  1422.  goto PART
  1423. elseiff "%OPT"=="SAV" then
  1424.  :SAVE
  1425.  echo COL=%COL >%HP%4arc.cfg
  1426.  echo MB=%MB >>%HP%4arc.cfg
  1427.  echo MF=%MF >>%HP%4arc.cfg
  1428.  echo BF=%BF >>%HP%4arc.cfg
  1429.  echo BB=%BB >>%HP%4arc.cfg
  1430.  echo WF=%WF >>%HP%4arc.cfg
  1431.  echo WB=%WB >>%HP%4arc.cfg
  1432.  echo TF=%TF >>%HP%4arc.cfg
  1433.  echo TB=%TB >>%HP%4arc.cfg
  1434.  echo HF=%HF >>%HP%4arc.cfg
  1435.  echo HB=%HB >>%HP%4arc.cfg
  1436.  echo SF=%SF >>%HP%4arc.cfg
  1437.  echo SB=%SB >>%HP%4arc.cfg
  1438.  echo SO=%SO >>%HP%4arc.cfg
  1439.  echo SO1=%SO1 >>%HP%4arc.cfg
  1440.  echo SO2=%SO2 >>%HP%4arc.cfg
  1441.  echo SCO=%SCO >>%HP%4arc.cfg
  1442.  echo SCO1=%SCO1 >>%HP%4arc.cfg
  1443.  echo SCO2=%SCO2 >>%HP%4arc.cfg
  1444.  echo G1=%G1 >>%HP%4arc.cfg
  1445.  echo G2=%G2 >>%HP%4arc.cfg
  1446.  echo G3=%G3 >>%HP%4arc.cfg
  1447.  echo PASS1=%PASS1 >>%HP%4arc.cfg
  1448.  echo PASSW1=%PASSW1 >>%HP%4arc.cfg
  1449.  echo PASS2=%PASS2 >>%HP%4arc.cfg
  1450.  echo PASSW2=%PASSW2 >>%HP%4arc.cfg
  1451.  echo PASS3=%PASS3 >>%HP%4arc.cfg
  1452.  echo PASSW3=%PASSW3 >>%HP%4arc.cfg
  1453.  echo BL1=%BL1 >>%HP%4arc.cfg
  1454.  echo BL2=%BL2 >>%HP%4arc.cfg
  1455.  echo AS=%AS >>%HP%4arc.cfg
  1456.  echo AS1=%AS1 >>%HP%4arc.cfg
  1457.  echo AS2=%AS2 >>%HP%4arc.cfg
  1458.  echo AR=%AR >>%HP%4arc.cfg
  1459.  echo VC=%VC >>%HP%4arc.cfg
  1460.  echo VI=%VI >>%HP%4arc.cfg
  1461.  echo VI1=%VI1 >>%HP%4arc.cfg
  1462.  echo VI2=%VI2 >>%HP%4arc.cfg
  1463.  echo VI3=%VI3 >>%HP%4arc.cfg
  1464.  echo $T=%$T >>%HP%4arc.cfg
  1465.  echo COM=%COM >>%HP%4arc.cfg
  1466.  echo CT=%CT >>%HP%4arc.cfg
  1467.  echo ST=%ST >>%HP%4arc.cfg
  1468.  echo DST=%DST >>%HP%4arc.cfg
  1469.  echo EDI=%EDI >>%HP%4arc.cfg
  1470.  set DP=
  1471.  set TP=
  1472.  goto START
  1473. endiff
  1474. goto BEGIN
  1475.  
  1476. :SARC
  1477. set OPT=%@SELECT[%HP%arcs.dat,4,47,16,76,Select Archiver]
  1478. set OPT=%@SUBSTR[%OPT,1,3]
  1479. if "%OPT"=="" goto START
  1480. if "%OPT"=="ARJ" goto ARO
  1481. if "%OPT"=="LHA" set AR=LHA
  1482. if "%OPT"=="ZOO" set AR=ZOO
  1483. iff "%OPT"=="PKZ" then
  1484.  set AR=PKZIP
  1485.  db 18  2 21 76 1 %BF on %BB fill %WB sha
  1486.  sp 19 4 %WF on %WB Use Password for new Archives ? [Y/N]
  1487.  color %HF on %WB
  1488.  screen 19 42
  1489.  inkey /K"YyNn" %%PASS1
  1490.  iff "%PASS1"=="y" then
  1491.   set G1=Pass
  1492.   sp 20 4 %HF on %WB Password:
  1493.   screen 20 14
  1494.   input %%PASSW1
  1495.   color %WF on %WB
  1496.  else set PASS1=
  1497.  set G1=
  1498.  endiff
  1499. elseiff "%OPT"=="PKP" then
  1500.  db 18  2 21 76 1 %BF on %BB fill %WB sha
  1501.  set AR=PKPAK
  1502.  sp 19 4 %WF on %WB Use Password for new Archives ? [Y/N]
  1503.  color %HF on %WB
  1504.  screen 19 42
  1505.  inkey /K"YyNn" %%PASS3
  1506.  iff "%PASS3"=="y" then
  1507.   set G3=Pass
  1508.   sp 20 4 %HF on %WB Password:
  1509.   screen 20 14
  1510.   input %%PASSW3
  1511.   color %WF on %WB
  1512.  else set PASS3=
  1513.   set G3=
  1514.  endiff
  1515. endiff
  1516. sp 5 61 %WF on %WB                
  1517. sp 5 63 %SF on %SB %AR
  1518. goto PART
  1519.  
  1520. :ARO
  1521. set AR=ARJ
  1522. db 5 2 16 45 2 %BF on %BB fill %WB sha explode
  1523. sp 6 11 %HF on %WB ARJ CONFIGURATION OPTIONS
  1524. sp 7 4 %WF on %WB ARJ has the capability to use predefined
  1525. sp 8 4 %WF on %WB Options stored in a CFG-File and put in
  1526. sp 9 4 %WF on %WB the Environment as the ARJ_SW Variable.
  1527. sp 10 4 %WF on %WB ARJ can also check Archives for Errors
  1528. sp 11 4 %WF on %WB after Creating. You can permanently
  1529. sp 12 4 %WF on %WB dis-/enable these two Features for Use
  1530. sp 13 4 %WF on %WB with 4ARC. Choose your desired Options
  1531. sp 14 4 %WF on %WB and (optionally) save them as Default.
  1532. sp 15 4 %WF on %WB Press Return to continue...
  1533. screen 18 1
  1534. pause >NUL
  1535. db 5 2 16 45 4 %BF on %BB fill %WB sha explode
  1536. sp 7 4 %WF on %WB Use ARJ_SW Environment Variable [Y/N]
  1537. color %HF on %WB
  1538. screen 7 42
  1539. inkey /K"YyNn" %%CT
  1540.  iff "%CT"=="y" then
  1541.  set G2=SWI
  1542.  goto BEGIN
  1543.  endiff
  1544. sp 9 4 %WF on %WB Test Archive after creating? [Y/N]
  1545. screen 9 39
  1546. inkey /K"YyNn" %%ST
  1547. set GG=T-
  1548. if "%ST"=="Y" set GG=T+
  1549. sp 11 4 %WF on %WB Use Password for Archives ? [Y/N]
  1550. screen 11 39
  1551. inkey /K"YyNn" %%PASS2
  1552.  iff "%PASS2"=="y" then
  1553.  set G2=(%GG/P+)
  1554.  sp 13 4 %HF on %WB Password:
  1555.  screen 13 15
  1556.  input %%PASSW2
  1557.  else set PASS2=
  1558.  set G2=(%GG/P-)
  1559.  endiff
  1560. color %WF on %WB
  1561. goto BEGIN
  1562.  
  1563. :SARC2
  1564. set OPT=%@SELECT[%HP%arcs.dat,4,47,12,76,Select Archiver]
  1565. set OPT=%@SUBSTR[%OPT,1,3]
  1566. if "%OPT"=="" goto BEGIN
  1567. if "%OPT"=="PKZ" set AR=PKZIP
  1568. if "%OPT"=="ARJ" set AR=ARJ
  1569. if "%OPT"=="LHA" set AR=LHA
  1570. if "%OPT"=="ZOO" set AR=ZOO
  1571. if "%OPT"=="PKP" set AR=PKPAK
  1572. sp 5 63 %BB on %BB              
  1573. if "%AR"=="PKZIP" sp 5 63 %SF on %SB       PKZIP   %G1
  1574. if "%AR"=="ARJ"   sp 5 63 %SF on %SB       ARJ  %G2
  1575. if "%AR"=="LHA"   sp 5 63 %SF on %SB       LHA
  1576. if "%AR"=="PKPAK" sp 5 63 %SF on %SB       PKPAK   %G3
  1577. if "%AR"=="ZOO"   sp 5 63 %SF on %SB       ZOO
  1578. goto CRE
  1579.  
  1580. :SVIR
  1581. set UO=
  1582. screen 23 1
  1583. set OPT=%@SELECT[%HP%scan.dat,4,47,16,76,Select Scanner]
  1584. set OPT=%@SUBSTR[%OPT,1,4]
  1585. if "%OPT"=="" goto START
  1586. iff "%OPT"=="F-PR" then
  1587.  set VC=F-PROT
  1588.  db 18 2 21 76 1 %BF on %BB fill %WB sha
  1589.  color %WF on %WB
  1590.  sp 19 4 %MF on %MB                                                                        
  1591.  sp 19 4 %WF on %WB Use old Options for automatic Scan ? [Y/N]
  1592.  screen 19 47
  1593.  inkey /K"YyNn" %%OO
  1594.  iff "%OO"=="Y" then
  1595.  set VI=%VI1
  1596.  goto CVIR
  1597.  endiff
  1598.  sp 19 4 %MF on %MB                                                                        
  1599.  sp 19 4 %WF on %WB Input Programname (full Path)
  1600.  color bri %WF on %WB
  1601.  screen 20 4 
  1602.  input  %%VI1
  1603.  iff "%VI1"=="" then
  1604.  set SO=
  1605.  set VC= 
  1606.  goto PART1
  1607.  endiff
  1608.  iff not exist %VI1 then
  1609.   set VI= 
  1610.   set VC=
  1611.   sp 20 56 bli %HF on %WB INVALID PROGRAMNAME
  1612.   beep 10 3
  1613.   goto CVIR
  1614.  else
  1615.  set VI=%VI1
  1616.  sp 19 4 %MF on %MB                                                                        
  1617.  sp 20 3 %MF on %MB                                                                         
  1618.  sp 19 5 %WF on %WB Define Scanoptions for automatic Scanning ? [Y/N]
  1619.  screen 19 55
  1620.  inkey /K"YyNn"  %%SO
  1621.  iff "%SO"=="" .or. "%SO"=="N" then
  1622.  set AS=-
  1623.  goto CVIR
  1624.  endiff
  1625.  set HO=Y
  1626.  set SCO=
  1627.  gosub VIR
  1628.  set HO=
  1629.  color %HF on %WB
  1630.  screen 20 4
  1631.  input %%SCO
  1632.   iff "%SCO"=="" then
  1633.   set AS=-
  1634.   set SO=
  1635.   goto BEGIN
  1636.   endiff
  1637.  set AS=+
  1638.  set SO=y
  1639.  goto BEGIN
  1640.  endiff
  1641. elseiff "%OPT"=="McAf" then
  1642.  set VC=McAfee
  1643.  db 18 2 21 76 1 %BF on %BB fill %WB sha
  1644.  color %WF on %WB
  1645.  sp 19 4 %MF on %MB                                                                        
  1646.  sp 19 4 %WF on %WB Use old Options for automatic Scan ? [Y/N]
  1647.  screen 19 47
  1648.  inkey /K"YyNn" %%OO
  1649.  iff "%OO"=="Y" then
  1650.  set VI=%VI2
  1651.  goto CVIR
  1652.  endiff
  1653.  sp 19 4 %MF on %MB                                                                        
  1654.  sp 19 4 %WF on %WB Input Programname (full Path)
  1655.  color bri %WF on %WB
  1656.  screen 20 4
  1657.  input  %%VI2
  1658.  if "%VI"==""  goto PART1
  1659.  iff not exist %VI2 then
  1660.   set VI= 
  1661.   set VC=
  1662.   sp 20 56 bli %HF on %WB INVALID PROGRAMNAME
  1663.   beep 10 3
  1664.   goto CVIR
  1665.  else
  1666.  set VI=%VI2
  1667.  sp 19 4 %MF on %MB                                                                        
  1668.  sp 20 3 %MF on %MB                                                                         
  1669.  sp 19 5 %WF on %WB Define Scanoptions for automatic Scanning ? [Y/N]
  1670.  screen 19 55
  1671.  inkey /K"YyNn"  %%SO1
  1672.   iff "%SO1"=="" .or. "%SO1"=="N" then
  1673.   set AS1=-
  1674.   goto CVIR
  1675.   endiff
  1676.  set HO=Y
  1677.  set SCO1=
  1678.  gosub VIR
  1679.  set HO=
  1680.  color %HF on %WB
  1681.  screen 20 4
  1682.  input %%SCO1
  1683.   iff "%SCO1"=="" then
  1684.   set SO1=
  1685.   set AS1=-
  1686.   goto BEGIN
  1687.   endiff
  1688.   set AS1=+
  1689.   set SO1=y
  1690.   goto BEGIN
  1691.   endiff
  1692. elseiff "%OPT"=="OTHE" then
  1693.  set VC=Other
  1694.  db 18 2 21 76 1 %BF on %BB fill %WB sha
  1695.  color %WF on %WB
  1696.  sp 19 4 %MF on %MB                                                                        
  1697.  sp 19 4 %WF on %WB Use old Options for automatic Scan ? [Y/N]
  1698.  screen 19 47
  1699.  inkey /K"YyNn" %%OO
  1700.  iff "%OO"=="Y" then
  1701.  set VI=%VI3
  1702.  goto CVIR
  1703.  endiff
  1704.  sp 19 4 %MF on %MB                                                                        
  1705.  sp 19 4 %WF on %WB Input Programname (full Path)
  1706.  color bri %WF on %WB
  1707.  screen 20 4
  1708.  input  %%VI3
  1709.  if "%VI3"==""  goto PART1
  1710.   iff not exist %VI then
  1711.   set VI= 
  1712.   set VC=
  1713.   sp 20 56 bli %HF on %WB INVALID PROGRAMNAME
  1714.   beep 10 3
  1715.   goto CVIR
  1716.   endiff
  1717.  set VI=%VI3
  1718.  sp 19 4 %MF on %MB                                                                        
  1719.  sp 20 3 %MF on %MB                                                                         
  1720.  sp 19 4 %WF on %WB Define Scanoptions for automatic Scanning ? [Y/N]
  1721.  screen 19 55
  1722.  inkey /K"YyNn"  %%SO2
  1723.   iff "%SO2"=="" .or. "%SO2"=="N" then
  1724.   set AS2=-
  1725.   goto CVIR
  1726.   endiff
  1727.  screen 20 4
  1728.  color %HF on %WB
  1729.  input Input Scanoptions: %%SCO2
  1730.   iff "%SCO2"=="" then
  1731.   set AS2=-
  1732.   set SO2=
  1733.   goto BEGIN
  1734.   else
  1735.   set AS2=+
  1736.   set SO2=y
  1737.   endiff
  1738.   goto BEGIN
  1739. endiff
  1740. goto PART1
  1741.  
  1742. :CVIR
  1743. color %MF on %MB
  1744. sp 7 61 %WF on %WB                
  1745. sp 7 63 %SF on %SB %@UPPER[%@NAME[%VI].%@EXT[%VI]]
  1746. iff "%VC"=="F-PROT" then
  1747.  sp 7 63 %SF on %SB %@UPPER[%@NAME[%VI].%@EXT[%VI]]
  1748.  sp 7 74 %SF on %SB %AS
  1749. elseiff "%VC"=="McAfee" then
  1750.  sp 7 63 %SF on %SB %@UPPER[%@NAME[%VI].%@EXT[%VI]]
  1751.  sp 7 74 %SF on %SB %AS1
  1752. elseiff "%VC" != "McAfee" .and. "%VC" != "F-PROT" then
  1753.  sp 7 63 %SF on %SB %@UPPER[%@NAME[%VI].%@EXT[%VI]]
  1754.  sp 7 74 %SF on %SB %AS2
  1755. endiff
  1756. db 18 2 21 76 1 %BF on %BB fill %WB sha
  1757. sp 19 4 %WF on %WB Current Path:    %@upper[%_CWDS]
  1758. sp 20 4 %WF on %WB Destinationpath: %@upper[%DST]
  1759. goto START2
  1760.  
  1761. :STEM
  1762. set $T=
  1763. set TP=
  1764. db 18 2 21 76 4 %BF on %BB fill %WB sha
  1765. sp 19 3 %WF on %WB Current Tempdirectory: %@UPPER[%$T]
  1766. sp 20 3 %WF on %WB New Tempdirectory:      %@UPPER[%$T]:\$4TEMP
  1767. color %WF on %WB
  1768. screen 20 26
  1769. inkey /K"ABCDEFGHIJKLMNOPQRSTUVWXYZ" %%$T
  1770. set $T=%@UPPER[%$T:\$4TEMP]
  1771. color %MF on %MB
  1772. sp 24 0 %MF on %MB                                                                                 
  1773. sp 9 61 %WF on %WB                
  1774. sp 9 63 %SF on %SB %@UPPER[%$T]
  1775. set TP=Y
  1776. goto PART
  1777.  
  1778. :SETCOL
  1779. set SU=
  1780. screen 23 1
  1781. set COL=%@SELECT[%HP%setcol.dat,4,47,16,76,Select Colorset]
  1782. set COL=%@SUBSTR[%COL,1,3]
  1783. if "%COL"=="" goto START
  1784. if "%COL"=="Def" set /R %HP%default.col
  1785. if "%COL"=="Mon" set /R %HP%b&w.col
  1786. if "%COL"=="Oce" set /R %HP%ocean.col
  1787. if "%COL"=="Ter" set /R %HP%terra.col
  1788. if "%COL"=="Woo" set /R %HP%wood.col
  1789. if "%COL"=="Cus" goto SCOL
  1790. goto BEGIN
  1791.  
  1792. :SDIR
  1793. set DP=
  1794. set $D=%DST
  1795. db 18 2 21 76 4 %BF on %BB fill %WB sha
  1796. sp 19 3 %WF on %WB Current Destinationdirectory: %@UPPER[%DST]
  1797. sp 20 3 %WF on %WB New Destinationdirectory:
  1798. color %HF on %WB
  1799. screen 20 29
  1800. input  %%DST
  1801. if "%DST"=="" set DST=%$D
  1802. set $D=
  1803. color %MF on %MB
  1804. if %@len[%DST] GT 12 set DST=...%@substr[%DST,9,-9]
  1805. sp 24 0 %MF on %MB                                                                                 
  1806. sp 11 61 %WF on %WB                
  1807. sp 11 63 %SF on %SB %@UPPER[%DST]
  1808. set DP=Y
  1809. goto PART
  1810.  
  1811. :SCOL
  1812. set CC=
  1813. screen 23 1
  1814. set CC=N
  1815. set OPT=%@SELECT[%HP%col.dat,4,47,17,76,Select Colors]
  1816. set OPT=%@SUBSTR[%OPT,6,6]
  1817. if "%OPT"=="" goto START
  1818. iff "%OPT"=="Backgr" then
  1819.  set OPT=%@select[%HP%colors.dat,4,47,16,76,Main Background]
  1820.  set CC=Y
  1821.  set SU=%@SUBSTR[%opt,1,3]
  1822.  if "%SU"=="" set SU=%MB
  1823.  if "%SU"=="bri" goto SCOL
  1824.  set MB=%SU
  1825.  goto BEGIN
  1826.  set CC=N
  1827.  goto SCOL
  1828. elseiff "%OPT"=="r Fore" then
  1829.  set OPT=%@select[%HP%colors.dat,4,47,16,76,Border Foreground]
  1830.  set CC=Y
  1831.  set SU=%@SUBSTR[%opt,1,10]
  1832.  if "%SU"=="" set SU=%BF
  1833.  set BF=%SU
  1834.  goto BEGIN
  1835.  set CC=N
  1836.  goto SCOL
  1837. elseiff "%OPT"=="r Back" then
  1838.  set OPT=%@select[%HP%colors.dat,4,47,16,76,Border Background]
  1839.  set CC=Y
  1840.  set SU=%@SUBSTR[%opt,1,3]
  1841.  if "%SU"=="" set SU=%BB
  1842.  if "%SU"=="bri" goto SCOL
  1843.  set BB=%SU
  1844.  goto BEGIN
  1845.  set CC=N
  1846.  goto SCOL
  1847. elseiff "%OPT"=="w Fore" then
  1848.  set OPT=%@select[%HP%colors.dat,4,47,16,76,Windows Foreground]
  1849.  set CC=Y
  1850.  set SU=%@SUBSTR[%opt,1,10]
  1851.  if "%SU"=="" set SU=%WF
  1852.  set WF=%SU
  1853.  goto BEGIN
  1854.  set CC=N
  1855.  goto SCOL
  1856. elseiff "%OPT"=="w Back" then
  1857.  set OPT=%@select[%HP%colors.dat,4,47,16,76,Windows Background]
  1858.  set CC=Y
  1859.  set SU=%@SUBSTR[%opt,1,3]
  1860.  if "%SU"=="" set SU=%WB
  1861.  if "%SU"=="bri" goto SCOL
  1862.  set WB=%SU
  1863.  goto BEGIN
  1864.  set CC=N
  1865.  goto SCOL
  1866. elseiff "%OPT"==" Foreg" then
  1867.  set OPT=%@select[%HP%colors.dat,4,47,16,76,Title Foreground]
  1868.  set CC=Y
  1869.  set SU=%@SUBSTR[%opt,1,10]
  1870.  if "%SU"=="" set SU=%TF
  1871.  set TF=%SU
  1872.  goto BEGIN
  1873.  set CC=N
  1874.  goto SCOL
  1875. elseiff "%OPT"==" Backg" then
  1876.  set OPT=%@select[%HP%colors.dat,4,47,16,76,Title Background]
  1877.  set CC=Y
  1878.  set SU=%@SUBSTR[%opt,1,3]
  1879.  if "%SU"=="" set SU=%TB
  1880.  if "%SU"=="bri" goto SCOL
  1881.  set TB=%SU
  1882.  goto BEGIN
  1883.  set CC=N
  1884.  goto SCOL
  1885. elseiff "%OPT"=="ight F" then
  1886.  set OPT=%@select[%HP%colors.dat,4,47,16,76,Highlight Foreground]
  1887.  set CC=Y
  1888.  set SU=%@SUBSTR[%opt,1,10]
  1889.  if "%SU"=="" set SU=%HF
  1890.  set HF=%SU
  1891.  goto BEGIN
  1892.  set CC=N
  1893.  goto SCOL
  1894. elseiff "%OPT"=="ight B" then
  1895.  set OPT=%@select[%HP%colors.dat,4,47,16,76,Highlight Background]
  1896.  set CC=Y
  1897.  set SU=%@SUBSTR[%opt,1,3]
  1898.  if "%SU"=="" set SU=%HB
  1899.  if "%SU"=="bri" goto SCOL
  1900.  set HB=%SU
  1901.  goto BEGIN
  1902.  set CC=N
  1903.  goto SCOL
  1904. elseiff "%OPT"=="ngs Fo" then
  1905.  set OPT=%@select[%HP%colors.dat,4,47,16,76,Settings Foreground]
  1906.  set CC=Y
  1907.  set SU=%@SUBSTR[%opt,1,10]
  1908.  if "%SU"=="" set SU=%SF
  1909.  set SF=%SU
  1910.  goto BEGIN
  1911.  set CC=N
  1912.  goto SCOL
  1913. elseiff "%OPT"=="ngs Ba" then
  1914.  set OPT=%@select[%HP%colors.dat,4,47,16,76,Settings Background]
  1915.  set CC=Y
  1916.  set SU=%@SUBSTR[%opt,1,3]
  1917.  if "%SU"=="" set SU=%SB
  1918.  if "%SU"=="bri" goto SCOL
  1919.  set SB=%SU
  1920.  goto BEGIN
  1921.  set CC=N
  1922.  goto SCOL
  1923. endiff
  1924. goto BEGIN
  1925.  
  1926. :PART
  1927. if "%AR"=="PKZIP" sp 5 63 %SF on %SB       PKZIP   %G1
  1928. if "%AR"=="ARJ"   sp 5 63 %SF on %SB       ARJ  %G2
  1929. if "%AR"=="LHA"   sp 5 63 %SF on %SB       LHA
  1930. if "%AR"=="PKPAK" sp 5 63 %SF on %SB       PKPAK   %G3
  1931. if "%AR"=="ZOO"   sp 5 63 %SF on %SB       ZOO
  1932. sp 9 63 %SF on %WB %$T
  1933. set DDT=%DST
  1934. if %@len[%DST] GT 12 set DDT=...%@substr[%DST,9,-9]
  1935. sp 11 63 %SF on %SB %@UPPER[%DDT]
  1936. db 18 2 21 76 1 %BF on %BB fill %WB sha
  1937. sp 18 34 %BF on %BB Messages
  1938. sp 19 4 %WF on %WB Current Path:    %@upper[%_CWDS]
  1939. sp 20 4 %WF on %WB Destinationpath: %@upper[%DST]
  1940. color %MF on %MB
  1941. sp 24 0 %MF on %MB                                                                                 
  1942. goto START
  1943.  
  1944. :PART1
  1945. db 18 2 21 76 1 %BF on %BB fill %WB sha
  1946. sp 18 34 %BF on %BB Messages
  1947. sp 19 4 %WF on %WB Current Path:    %@upper[%_CWDS]
  1948. sp 20 4 %WF on %WB Destinationpath: %@upper[%DST]
  1949. color %MF on %MB
  1950. sp 7 63 %WB on %WB              
  1951. goto START2
  1952.  
  1953. :PART2
  1954. db 18 2 21 76 1 %BF on %BB fill %WB sha
  1955. sp 18 34 %BF on %BB Messages
  1956. sp 19 4 %WF on %WB Current Path:    %@upper[%_CWDS]
  1957. sp 20 4 %WF on %WB Destinationpath: %@upper[%DST]
  1958. color %MF on %MB
  1959. goto START2
  1960.  
  1961. :MSG
  1962. db 18 2 21 76 1 %BF on %BB fill %WB sha
  1963. sp 19 40 bli %HF on %WB  NO ARCHIVES IN THIS PATH !!!
  1964. sp 20 40 bli %WF on %WB  Nothing to do. Taking a nap...
  1965. pause >NUL
  1966. goto PART2
  1967.  
  1968. :REN
  1969. cls %MF on %MB
  1970. db 5 25 10 55 3 %BF on %BB fill %WB sha exp
  1971. sp 6 28 bli %HF on %WB ARCHIVE ALREADY EXISTS !!
  1972. sp 8 27 %WF on %WB Input new Name:
  1973. sp 9 27 %WF on %WB (─┘ for updating Archive)
  1974. color bri whi on %WB
  1975. screen 8 43
  1976. input %%AN1
  1977. color %MF on %MB
  1978. sp 24 0 %MF on %MB                                                                                 
  1979. if "%AN1"=="" set AN1=%AN
  1980. set AN=%AN1
  1981. return
  1982.  
  1983. :REN1
  1984. cls %MF on %MB
  1985. db 5 25 10 57 3 %BF on %BB fill %WB sha exp
  1986. sp 6 29 bli %HF on %WB ARCHIVE ALREADY EXISTS !!
  1987. sp 8 27 %WF on %WB Input new Name:
  1988. sp 9 27 %WF on %WB (─┘ for overwriting Archive)
  1989. color bri whi on %WB
  1990. screen 8 43
  1991. input %%NEW
  1992. color %MF on %MB
  1993. sp 24 0 %MF on %MB                                                                                 
  1994. if "%NEW"=="" set NEW=%@NAME[%TAR]
  1995. screen 20 10
  1996. ren /q *.%MOD %NEW.%MOD
  1997. return
  1998.  
  1999. :EXIT
  2000. screen 23 1
  2001. if exist %HP%*.tmp del /q %HP%*.tmp
  2002. if exist %HP%*.sav del /q %HP%*.sav
  2003. if "%_CWDS"=="%$T" cd\
  2004. rd %$T >NUL
  2005. endlocal
  2006. cls
  2007. cancel
  2008.