home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1995 November / PCWK1195.iso / inne / podstawy / dos / 4dos / 4uzytki / 4mica26.exe / 4MICA.BTM next >
Encoding:
Text File  |  1992-06-25  |  12.1 KB  |  537 lines
  1.  
  2. :SETUP
  3. setlocal
  4. unalias *
  5. echo off
  6. alias spt scrput
  7. alias srn screen
  8. alias clswhbl cls whi on bla
  9. alias clsbluwh cls blu on whi
  10. alias db drawbox
  11. set ART=1
  12. set CF=0
  13. set CE=0
  14. set ND=%_CWD
  15. set CDR=` Path: `%_CWD 
  16. set FT=%@PATH[%@SEARCH[4MICA.BTM]]
  17.  
  18. :BEGIN
  19. clsbluwh
  20. db 7 18 15 58 1 bri whi on blu fill blu sha
  21. spt 8 19 bri blu on cya `▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄`
  22. spt 9 19 bri blu on bla `█                                     █`
  23. spt 9 24 bri yel on blu `∙ 4MICA FILE CONTROL SHELL ∙`
  24. spt 10 19 bri blu on cya `▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀`
  25. spt 11 19 bri whi on blu `    version 2.60  -  June 25, 1992  `
  26. spt 12 19 bri whi on blu `      Registration is only $9.95    `
  27. spt 13 19 bri whi on blu `    Fill out and print REGISTER.ME  `
  28. spt 14 19 bri whi on blu `               - TODAY -            `
  29. spt 18 9 bri whi on blu ` ┌────┐┌─┐┌─┐┌────┐┌────┐┌────┐┌─┬─┬─┐┌────┐┌────┐┌────┐ ┌─┐`
  30. spt 19 9 bri whi on blu ` │   ─┤│ └┘ ││ ≡≡ ││≡≡  ││  ──┤│ │ │ ││ ≡≡ ││≡≡  ││  ──┤ │ │`
  31. spt 20 9 bri whi on blu ` ├─   ││ ┌┐ ││ ┌┐ ││  ┌┐││  ──┤│     ││ ┌┐ ││  ┌┐││  ──┤ ├─┤`
  32. spt 21 9 bri whi on blu ` └────┘└─┘└─┘└─┘└─┘└──┘└┘└────┘└──┴──┘└─┘└─┘└──┘└┘└────┘ └─┘`
  33. DELAY 3
  34. clsbluwh
  35.  
  36. :START
  37. cls blu on whi
  38. spt 24 8 whi on blu ` copyright 1991, 1992 Geoff Taylor & CelestialWare, All Rights Reserved `
  39. db 1 24 5 55 1 whi on blu shadow
  40. set ULR=18
  41. set ULC=21
  42. set LRR=20
  43. gosub PUT
  44. spt 2 25 cya on bla `▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄`
  45. spt 3 25 cya on bla `█                            █`
  46. spt 3 26 bri whi on blu `∙ 4MICA FILE CONTROL SHELL ∙`
  47. spt 4 25 cya on bla `▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀`
  48. set FND=%FT%4mica.ndx
  49. set OPT=
  50. set OPT=%@SELECT[%fnd,8,19,17,60]
  51. set OPT=%@SUBSTR[%opt,1,3]
  52. iff "%OPT"=="" then
  53.  goto EXIT
  54. elseiff "%OPT"=="Cre" then
  55.  goto SCR
  56. elseiff "%OPT"=="Con" then
  57.  goto SCN
  58. elseiff "%OPT"=="Inf" then
  59.  goto INFO
  60. elseiff "%OPT"=="Vie" then
  61.  goto SVW
  62. elseiff "%OPT"=="Min" then
  63.  gosub SMN
  64.  goto START
  65. elseiff "%OPT"=="Ext" then
  66.  goto SXT
  67. endiff
  68. goto START
  69.  
  70. :PUT
  71. set LRC=%@LEN[%CDR]
  72. set LRC=%@EVAL[%LRC+%ULC+1]
  73. db %ULR %ULC %LRR %LRC 1 bri whi on blu fill blu sha
  74. spt %@EVAL[%ULR+1] %@EVAL[%ULC+1] bri whi on blu %CDR
  75. return
  76.  
  77. :INFO
  78. cls bri whi on bla
  79. text
  80.  
  81.   4MICA version 2.60
  82.   Geoff Taylor
  83.   CelestialWare
  84.   3549 Laurel View Lane
  85.   Birmingham, AL 35216
  86.   (205)/823-0444
  87.  
  88.      4MICA is released into SHAREWARE by Geoff Taylor of CelestialWare.
  89.      4MICA v2.60 is in every  way I can see, bug free.  At any rate, PLEASE
  90.      take precautions against data loss. I can not be held  responsible for
  91.      any such losses that might occur but, most likely this will not happen.
  92.  
  93.      4MICA IS NOT FREE ! ! !  You are hereby  licensed to use  this product
  94.      for a trial  period of thirty (30) days free of charge. If you  decide
  95.      that you  would like to  continue  using  4MICA,  please complete  the
  96.      registration  form (REGISTER.ME)  and   return  it with  the  required
  97.      registration  fee ($9.95 + S/H) enclosed.
  98.  
  99.      4DOS is a registered trademark of J.P. Software
  100.      ARJ is a registered trademarks of Robert K. Jung
  101.      LHA is a registered trademark of Haruyasu Yoshizaki
  102.      PKZIP is a registered trademark of PKWARE
  103.  
  104. endtext
  105. pause Hit any Key...
  106. goto START
  107.  
  108. :SCN
  109. cls blu on whi
  110. set ULR=11
  111. set ULC=4
  112. set LRR=13
  113. gosub PUT
  114. set FND=%FT%convert.ndx
  115. set OPT=
  116. set OPT=%@SELECT[%fnd,2,2,8,21,Convert Archieve]
  117. set OPT=%@SUBSTR[%opt,1,2]
  118. if exist zip del /q zip
  119. if exist arj del /q arj
  120. if exist lha del /q lha
  121. iff "%OPT"=="" then
  122.  goto START
  123. elseiff "%OPT"=="ZI" then
  124.  set art=1
  125.  if exist *.zip goto SCN1
  126.  if exist *.arj goto SCN1
  127.  set nae=ZIP OR ARJ FILES
  128.  gosub MSG
  129.  goto SCN
  130. elseiff "%OPT"=="AR" then
  131.  set art=0
  132.  if exist *.arj goto SCN1
  133.  if exist *.lzh goto SCN1
  134.  set nae=ARJ OR LHA FILES
  135.  gosub MSG
  136.  goto SCN
  137. elseiff "%OPT"=="LH" then
  138.  set art=2
  139.  if exist *.lzh goto SCN1
  140.  if exist *.zip goto SCN1
  141.  set nae=LHA OR ZIP FILES
  142.  gosub MSG
  143.  goto SCN
  144. elseiff "%OPT"=="Mi" then
  145.  gosub SMN
  146.  goto SCN
  147. elseiff "%OPT"=="Ma" then
  148.  goto START
  149. elseiff "%OPT"=="Ex" then
  150.  goto EXIT
  151. endiff
  152. goto SCN
  153.  
  154. :SCN1
  155. md 4mtemp
  156. set nm=0
  157. set ln=0
  158. if "%art"=="0" select dir /b [*.arj;*.lzh] >> dearc.tmp
  159. if "%art"=="1" select dir /b [*.zip;*.arj] >> dearc.tmp
  160. if "%art"=="2" select dir /b [*.lzh;*.zip] >> dearc.tmp
  161. if exist dearc.tmp goto PRNT
  162. rd 4mtemp
  163. goto SCN
  164.  
  165. :PRNT
  166. set ln=%@LINE[dearc.tmp,%nm]
  167. if "%ln"=="**EOF**" goto FIN
  168. set fs=%@FILESIZE[%ln,b]
  169. set fln=%ln
  170. set ln=%@NAME[%ln]
  171. if "%art"=="0" goto RJ
  172. if "%art"=="2" goto RL
  173.  
  174. if exist %ln%.lzh goto FEXT
  175. if "%@EXT[%fln]"=="zip" pkunzip %ln %_CWD%\4mtemp
  176. if "%@EXT[%fln]"=="arj" arj x -y+ %ln %_CWD%\4mtemp
  177. echo.
  178. pushd
  179. cd 4mtemp
  180. lha a %ln *.*
  181. popd
  182. copy /q 4mtemp\*.lzh %_cwd
  183. if "%@EXT[%fln]"=="zip" del /q %ln%.zip
  184. if "%@EXT[%fln]"=="arj" del /q %ln%.arj
  185. goto ART1
  186.  
  187. :RJ
  188. if exist %ln%.zip goto FEXT
  189. if "%@EXT[%fln]"=="arj" arj x -y+ %ln %_CWD%\4mtemp
  190. if "%@EXT[%fln]"=="lzh" lha x %ln%.lzh %_CWD%\4mtemp\
  191. echo.
  192. pushd
  193. cd 4mtemp
  194. pkzip -wHS %ln *.*
  195. popd
  196. copy /q 4mtemp\*.zip %_cwd
  197. if "%@EXT[%fln]"=="arj" del /q %ln%.arj
  198. if "%@EXT[%fln]"=="lzh" del /q %ln%.lzh
  199. goto ART1
  200.  
  201. :RL
  202. if exist %ln%.arj goto FEXT
  203. if "%@EXT[%fln]"=="lzh" lha x %ln %_CWD%\4mtemp\
  204. if "%@EXT[%fln]"=="zip" pkunzip %ln %_CWD%\4mtemp
  205. echo.
  206. pushd
  207. cd 4mtemp
  208. arj a -y+ -jm1 -jt %ln *.*
  209. popd
  210. copy /q 4mtemp\*.arj %_cwd
  211. if "%@EXT[%fln]"=="lzh" del /q %ln%.lzh
  212. if "%@EXT[%fln]"=="zip" del /q %ln%.zip
  213.  
  214. :ART1
  215. iff "%art"=="0" then set fs1=%@FILESIZE[%ln%.zip,b]
  216.   elseiff "%art"=="1" then set fs1=%@FILESIZE[%ln%.lzh,b]
  217.   elseiff "%art"=="2" then set fs1=%@FILESIZE[%ln%.arj,b]
  218. endiff
  219. echo.
  220. echo Original Size -  %fs
  221. echo New Size      -  %fs1
  222. echo Savings Size  -  %@EVAL[%fs-%fs1]
  223. *del /qy 4mtemp\*.*
  224. set nm=%@EVAL[%nm+1]
  225. set ts=%@EVAL[%ts+%fs]
  226. set ts1=%@EVAL[%ts1+%fs1]
  227. goto PRNT
  228.  
  229. :FIN
  230. rd 4mtemp
  231. del /q dearc.tmp
  232. echo.
  233. echo Total Files   -  %nm
  234. echo Total Size    -  %ts
  235. echo New Size      -  %ts1
  236. echo Savings Size  -  %@EVAL[%ts-%ts1]
  237. echo.
  238. set fs=
  239. set fs1=
  240. set ts=
  241. set ts1=
  242. pause Hit any key...
  243. goto SCN
  244.  
  245. :FEXT
  246. echo File cannot be converted! It already exists!
  247. rd 4mtemp
  248. del /q dearc.tmp
  249. pause Hit any key...
  250. goto SCN
  251.  
  252. :SVW
  253. cls blu on whi
  254. set ULR=9
  255. set ULC=4
  256. set LRR=11
  257. gosub PUT
  258.  set FND=%FT%view.ndx
  259.  set OPT=
  260.  set OPT=%@SELECT[%FND,2,2,7,25,View File Archieve]
  261.  set OPT=%@SUBSTR[%OPT,1,2]
  262. iff "%OPT"=="" then
  263.  goto START
  264. elseiff "%OPT"=="Se" then
  265.  if exist *.arj .or. exist *.zip .or. exist .lzh. goto CNT
  266. gosub NOARC
  267. goto SVW
  268.  
  269. :CNT
  270.  set pa=
  271.  color bri whi on bla
  272.  dir /k/m *.arj;*.lzh;*.zip > vwfiles.tmp
  273.  set PA=%@SELECT[vwfiles.tmp,2,2,7,42,Select File to View]
  274. *del /q vwfiles.tmp
  275.  set PA=%@SUBSTR[%PA,0,12]
  276.  set EXT=%@EXT[%PA]
  277.  cls
  278.  iff "%EXT"=="zip" then
  279.   pkunzip -v %PA
  280.  elseiff "%EXT"=="arj" then
  281.   arj l %PA
  282.  elseiff "%EXT"=="lzh" then
  283.   lha l %PA
  284.  endiff
  285.  if "%pa"==""goto SVW
  286.  pause Hit any key...
  287.  goto SVW
  288. elseiff "%OPT"=="Mi" then
  289. gosub SMN
  290.  goto SVW
  291. elseiff "%OPT"=="Ma" then
  292.  goto START
  293. elseiff "%OPT"=="Ex" then
  294.  goto EXIT
  295. endiff
  296. goto SVW
  297.  
  298. :SCR
  299. cls blu on whi
  300. db 10 3 13 36 1 bri whi on blu fill blu sha
  301. spt 11 4 bri whi on blu %CDR
  302. spt 12 5 bri whi on blu `Archiver: `
  303. if "%CF"=="0" spt 12 15 bri whi on blu `ARJ w/ verify ON`
  304. if "%CF"=="1" spt 12 15 bri whi on blu `ARJ w/ verify OFF`
  305. if "%CF"=="2" spt 12 15 bri whi on blu `PKZIP`
  306. if "%CF"=="3" spt 12 15 bri whi on blu `LHA`
  307. set FND=%FT%create.ndx
  308. set OPT=
  309. set OPT=%@SELECT[%FND,2,2,8,26,Create File Archieve]
  310. set OPT=%@SUBSTR[%OPT,1,2]
  311. iff "%OPT"=="" then
  312.  goto START
  313. elseiff "%OPT"=="Co" then
  314.  color bri whi on blu
  315.  db 2 1 5 35 1 bri whi on blu fill blu sha
  316.  spt 2 1 bri whi on blu ┌─────── Create Archieve
  317.  srn 4 3
  318.  input Archieve filename: %%fn
  319.  if "%FN"=="" goto SCR
  320.  if "%CF"=="0" goto an
  321.  if "%CF"=="1" goto af
  322.  if "%CF"=="2" goto zn
  323.  if "%CF"=="3" goto ln
  324.  goto SCR
  325. elseiff "%OPT"=="Se" then
  326.  set FND=%FT%select.ndx
  327.  set OPT=
  328.  set OPT=%@SELECT[%FND,2,2,8,22,Compression Formats]
  329.  set FRM=%@SUBSTR[%OPT,1,1]
  330.  set OPT=%@substr[%opt,13,1]
  331.  if "%FRM"=="A" .and. "%OPT"=="n" set CF=0
  332.  if "%FRM"=="A" .and. "%OPT"=="f" set CF=1
  333.  if "%FRM"=="P" set CF=2
  334.  if "%FRM"=="L" set CF=3
  335.  goto SCR
  336. elseiff "%OPT"=="Mi" then
  337.  gosub SMN
  338.  goto SCR
  339. elseiff "%OPT"=="Ma" then
  340.  goto START
  341. elseiff "%OPT"=="Ex" then
  342.  goto EXIT
  343. endiff
  344. goto SCR
  345.  
  346. :AN
  347. clswhbl
  348. select /d arj a -r -jf1 -jt %FN [*.*]
  349. pause Hit any key...
  350. goto SCR
  351.  
  352. :AF
  353. clswhbl
  354. select /d arj a -r -jf1 %FN [*.*]
  355. pause Hit any key...
  356. goto SCR
  357.  
  358. :ZN
  359. clswhbl
  360. select /d pkzip -P %FN [*.*]
  361. pause Hit any key...
  362. goto SCR
  363.  
  364. :LN
  365. clswhbl
  366. select /d lha a %FN [*.*]
  367. pause Hit any key...
  368. goto SCR
  369.  
  370. :SMN
  371. cls blu on whi
  372. set ULR=13
  373. set ULC=4
  374. set LRR=15
  375. set CDR=` Path: `%_CWD
  376. gosub PUT
  377. set FND=%FT%mini.ndx
  378. set OPT=
  379. set OPT=%@SELECT[%FND,2,2,12,21,Mini-DOS]
  380. set OPT=%@SUBSTR[%OPT,1,3]
  381. iff "%OPT"=="" then
  382.  return
  383. elseiff "%OPT"=="Cha" then
  384.  gosub SFL
  385.  if "%SFN" NE "" cd %SFN
  386.  goto SMN
  387. elseiff "%OPT"=="Vie" then
  388.  cls bri whi on bla
  389.  dir /2/p
  390.  pause Hit any key...
  391.  goto SMN
  392. elseiff "%OPT"=="Got" then
  393.  db 2 1 5 31 1 bri whi on blu fill blu sha
  394.  color bri whi on blu
  395.  srn 2 1 ┌─────── Goto File
  396.  srn 4 3
  397.  input Filename: %%PA
  398.  if "%PA"=="" goto SMN
  399.  pushd %_CWP
  400.  cd \
  401.  alias gotit `popd^srn 3 3 File Not Found ! ! !^srn 4 3^pause Hit any key...`
  402.  global /q if exist %PA alias gotit cd%_CWP
  403.  gotit
  404.  unalias gotit
  405.  popd *
  406.  goto SMN
  407. elseiff "%OPT"=="Mov" then
  408.  gosub SFL
  409.  if "%SFN"=="" goto SMN
  410.  set PA=%SFN
  411.  color bri whi on bla
  412.  select /d move [*.*] %PA
  413.  pause Hit any key...
  414.  goto SMN
  415.  elseiff "%OPT"=="Cop" then
  416.  gosub SFL
  417.  if "%SFN"=="" goto SMN
  418.  set PA=%SFN
  419.  color bri whi on bla
  420.  select /d copy [*.*] %PA
  421.  pause Hit any key...
  422.  goto SMN
  423. elseiff "%OPT"=="Ren" then
  424.  dir /k/m > rename.tmp
  425.  set PA=%@SELECT[rename.tmp,2,2,9,42,Select File to Rename]
  426.  set PA=%@SUBSTR[%PA,0,12]
  427.  del /q rename.tmp
  428.  if "%PA"=="" goto SMN
  429.  db 2 1 5 35 1 bri whi on blu fill blu sha
  430.  color bri whi on blu
  431.  srn 2 1 ┌──── Renaming %@UPPER[%PA] 
  432.  srn 4 3
  433.  input New filename: %%PA2
  434.  if "%PA2"=="" goto SMN
  435.  echo.
  436.  if exist %PA2 goto EXIST
  437.  cls
  438.  ren %PA %PA2
  439.  echo.
  440.  pause Hit any key...
  441.  goto SMN
  442.  
  443. :EXIST
  444. srn 3 3 %PA2 already exists!       
  445. srn 4 3
  446. pause Hit any key...
  447. goto SMN
  448. elseiff "%OPT"=="Del" then
  449.  color bri whi on bla
  450.  select /d del [*.*]
  451.  pause Hit any key...
  452.  goto SMN
  453. endiff
  454. goto SMN
  455.  
  456. :SXT
  457. cls blu on whi
  458. db 10 3 13 37 1 bri whi on blu fill blu sha
  459. spt 11 4 bri whi on blu %CDR
  460. spt 12 4 bri whi on blu ` Destination: `%ND 
  461. set FND=%FT%extract.ndx
  462. set OPT=
  463. set OPT=%@SELECT[%FND,2,2,9,27,Extract File Archieve]
  464. set OPT=%@SUBSTR[%OPT,1,3]
  465. iff "%OPT"=="Dec" then
  466.  if exist *.arj .or. exist *.zip goto CONT
  467. gosub NOARC
  468. goto SXT
  469.  
  470. :CONT
  471.  set pa=
  472.  color bri whi on bla
  473.  dir /k/m *.arj;*.lzh;*.zip > vwfiles.tmp
  474.  set PA=%@SELECT[vwfiles.tmp,2,2,7,42,Select Archive to Decompile]
  475.  del /q vwfiles.tmp
  476.  set PA=%@SUBSTR[%PA,0,12]
  477.  set EXT=%@EXT[%PA]
  478.  cls
  479.  iff "%EXT"=="zip" then
  480.  pkunzip %PA %ND
  481.  if "%?"=="1" echo %@UPPER[%PA] is password protected!
  482.  if "%?"=="2" echo %@UPPER[%PA] isn't a PKZIP file!
  483.  elseiff "%EXT"=="arj" then
  484.  arj x %PA %ND
  485.  if "%?"=="1" echo %@UPPER[%PA] is password protected!
  486.  if "%?"=="2" echo %@UPPER[%PA] isn't an ARJ file!
  487.  elseiff "%EXT"=="lzh" then
  488.  lha x %PA %ND%\
  489.  if "%?"=="1" echo %@UPPER[%PA] is password protected!
  490.  if "%?"=="2" echo %@UPPER[%PA] isn't a LHA file!
  491.  endiff
  492.  if "%pa"=="" goto SXT
  493.  pause Hit any key...
  494.  goto SXT
  495. elseiff "%OPT"=="" then
  496.  goto START
  497. elseiff "%OPT"=="Set" then
  498.  gosub SFL
  499.  if "%SFN"=="" goto SXT
  500.  set ND=%SFN
  501.  goto SXT
  502. elseiff "%OPT"=="Min" then
  503.  gosub SMN
  504.  goto SXT
  505. elseiff "%OPT"=="Exi" then
  506.  goto EXIT
  507. endiff
  508. goto SXT
  509.  
  510. :SFL
  511.  if exist c:\dstpth.tmp goto EXST
  512.  pushd^cd \
  513.  (global /iq echo %_CWD) >> c:\dstpth.tmp
  514.  popd
  515.  
  516. :EXST
  517.  set SFN=
  518.  set SFN=%@SELECT[c:\dstpth.tmp,1,3,7,35,Destination Path]
  519.  return
  520.  
  521. :NOARC
  522.  set nae=ARCHIVES
  523.  
  524. :MSG
  525.  db 2 3 5 29 1 bri whi on blu fill blu sha
  526.  spt 3 4 bri whi on blu NO %NAE EXIST
  527.  spt 4 9 bri whi on blu IN THIS PATH !!
  528.  srn 8 2
  529.  pause Hit any key...
  530.  return
  531.  
  532. :EXIT
  533. endlocal
  534. if exist c:\dstpth.tmp del /q c:\dstpth.tmp
  535. cls bri whi on bla
  536. cancel
  537.