Category : Utilities for DOS and Windows Machines
Archive   : 4MICA25A.ZIP
Filename : 4MICA.BTM

 
Output of file : 4MICA.BTM contained in archive : 4MICA25A.ZIP
setlocal
echo off
alias spt scrput
alias srn screen
alias cswb cls whi on bla
alias db drawbox
set ART=1
set CF=0
set CE=0
set ND=%_CWD
set CDR=`ÿPath: `%_CWDÿ
set FT=%@PATH[%@SEARCH[4MICA.BTM]]
:start
cls blu on whi
spt 24 8 whi on blu ` copyright 1991, 1992 Geoff Taylor & CelestialWare, All Rights Reserved `
db 1 24 5 55 1 whi on blu shadow
set ULR=19
set ULC=21
set LRR=21
gosub PUT
spt 20 22 bri whi on blu %CDR
spt 2 25 cya on bla `ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ`
spt 3 25 cya on bla `Û Û`
spt 3 26 bri whi on blu `ù 4MICA FILE CONTROL SHELL ù`
spt 4 25 cya on bla `ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß`
set FND=%FT%4mica.ndx
set OPT=
set OPT=%@SELECT[%fnd,8,19,17,60]
set OPT=%@SUBSTR[%opt,1,3]
iff "%OPT"=="Cre" then
goto SCR
elseiff "%OPT"=="Con" then
goto SCN
elseiff "%OPT"=="Inf" then
goto INFO
elseiff "%OPT"=="Vie" then
goto SVW
elseiff "%OPT"=="Min" then
gosub SMN
goto start
elseiff "%OPT"=="Ext" then
goto SXT
elseiff "%OPT"=="Exi" then
cls bri whi on bla
goto EXIT
endiff
goto start
:PUT
set LRC=%@LEN[%CDR]
set LRC=%@EVAL[%LRC+%ULC+1]
db %ULR %ULC %LRR %LRC 1 bri whi on blu fill blu sha
spt %@EVAL[%ULR+1] %@EVAL[%ULC+1] bri whi on blu %CDR
return
:INFO
cls bri whi on bla
text
ÿ
4MICA version 2.50a
Geoff Taylor
CelestialWare
1000 N. Donahue Drive Apt#12-22
Auburn, AL 36830
(205)/826-7858

4MICA is released into SHAREWARE by Geoff Taylor of CelestialWare.
This sixth released version includes modifications to update 4MICA to
work with ARJ v2.30, bug fixes and cosmetic changes. 4MICA v2.50a is
in every way I can see, bug free. At any rate, PLEASE take precautions
against data loss. I can not be held responsible for any such losses
that might occur, but most likely this will never happen.

4MICA IS NOT FREE ! ! ! You are hereby licensed to use this product
for a trial period of thirty (30) days free of charge. If you decide
that you would like to continue using 4MICA, please complete the
registration form (REGISTER.ME) and return it with the required
registration fee ($8.95 + S/H) enclosed.

4DOS is a registered trademark of J.P. Software
ARJ is a registered trademarks of Robert K. Jung
PKZIP is a registered trademark of PKWARE

endtext
pause Hit any Key...
goto start
:SCN
cls blu on whi
set ULR=11
set ULC=4
set LRR=13
gosub PUT
set FND=%FT%convert.ndx
set OPT=
set OPT=%@SELECT[%fnd,2,2,8,21,Convert Archieve]
set OPT=%@SUBSTR[%opt,1,2]
if exist zip *del /q zip
if exist arj *del /q arj
iff "%OPT"=="ZI" then
set art=1
if exist *.zip goto SCN1
gosub NOZIP
goto SCN
elseiff "%OPT"=="AR" then
set art=0
if exist *.arj goto SCN1
gosub NOARJ
goto SCN
elseiff "%OPT"=="Mi" then
gosub SMN
goto SCN
elseiff "%OPT"=="Ma" then
goto start
elseiff "%OPT"=="Ex" then
cls bri whi on bla
goto EXIT
endiff
goto SCN
:SCN1
md c:\4mtemp
set nm=0
set ln=0
if "%art"=="0" select dir /b [*.arj] >> dearc.tmp
if "%art"=="1" select dir /b [*.zip] >> dearc.tmp
if exist dearc.tmp goto PRNT
*rd c:\4mtemp
goto SCN
:PRNT
set ln=%@LINE[dearc.tmp,%nm]
if "%ln"=="**EOF**" goto FIN
set fs=%@FILESIZE[%ln,b]
set ln=%@NAME[%ln]
if "%art"=="0" goto RJ
if exist %ln%.arj goto FEXT
pkunzip %ln c:\4mtemp
echo ÿ
pushd
cdd c:\4mtemp
arj a -y+ -jm1 -jt %ln%.arj *.*
popd
copy /q c:\4mtemp\*.arj %_cwd
*del /q %ln%.zip
goto ART1
:RJ
if exist %ln%.zip goto FEXT
arj x -y+ %ln c:\4mtemp
*del /q %ln%.arj
echo ÿ
pushd
cdd c:\4mtemp
pkzip -wHS %ln%.zip *.*
popd
copy /q c:\4mtemp\*.zip %_cwd
:ART1
if "%art"=="0" set fs1=%@FILESIZE[%ln%.zip,b]
if "%art"=="1" set fs1=%@FILESIZE[%ln%.arj,b]
echo ÿ
echo Original Size - %fs
echo New Size - %fs1
echo Savings Size - %@EVAL[%fs-%fs1]
*del /qy c:\4mtemp\*.*
set nm=%@EVAL[%nm+1]
set ts=%@EVAL[%ts+%fs]
set ts1=%@EVAL[%ts1+%fs1]
goto PRNT
:FIN
rd c:\4mtemp
*del /q dearc.tmp
echo ÿ
echo Total Files - %@EVAL[%nm]
echo Total Size - %ts
echo New Size - %ts1
echo Savings Size - %@EVAL[%ts-%ts1]
echo ÿ
set fs=
set fs1=
set ts=
set ts1=
pause Hit any key...
goto SCN
:FEXT
echo File cannot be converted! It already exists!
rd c:\4mtemp
*del /q dearc.tmp
pause Hit any key...
goto SCN
:SVW
cls blu on whi
set ULR=10
set ULC=4
set LRR=12
gosub PUT
set FND=%FT%view.ndx
set OPT=
set OPT=%@SELECT[%FND,2,2,7,25,View File Archieve]
set OPT=%@SUBSTR[%OPT,1,2]
iff "%OPT"=="Se" then
if exist *.arj .or. exist *.zip goto CNT
gosub NOARC
goto SVW
:CNT
set pa=
color bri whi on bla
dir /k/m *.arj;*.zip > vwfiles.tmp
set PA=%@SELECT[vwfiles.tmp,2,2,7,42,Select File to View]
*del /q vwfiles.tmp
set PA=%@SUBSTR[%PA,0,12]
set EXT=%@EXT[%PA]
cls
iff "%EXT"=="" then
goto SVW
elseiff "%EXT"=="zip" then
pkunzip -v %PA
elseiff "%EXT"=="arj" then
arj l %PA
endiff
if "%pa"==""goto SVW
pause Hit any key...
goto SVW
elseiff "%OPT"=="Mi" then
gosub SMN
goto SVW
elseiff "%OPT"=="Ma" then
goto START
elseiff "%OPT"=="Ex" then
goto EXIT
endiff
goto SVW
:SCR
cls blu on whi
db 11 3 14 36 1 bri whi on blu fill blu sha
spt 12 4 bri whi on blu %CDR
spt 13 5 bri whi on blu `Archiver: `
if "%CF"=="0" spt 13 15 bri whi on blu `ARJ w/ verify ON`
if "%CF"=="1" spt 13 15 bri whi on blu `ARJ w/ verify OFF`
if "%CF"=="2" spt 13 15 bri whi on blu `PKZIP`
set FND=%FT%create.ndx
set OPT=
set OPT=%@SELECT[%FND,2,2,8,26,Create File Archieve]
set OPT=%@SUBSTR[%OPT,1,2]
iff "%OPT"=="Co" then
color bri whi on blu
db 2 1 5 35 1 bri whi on blu fill blu sha
spt 2 1 bri whi on blu ÚÄÄÄÄÄÄÄ Create Archieve
srn 4 3
input Archieve filename: %%fn
if "%FN"=="" goto SCR
if "%CF"=="0" goto an
if "%CF"=="1" goto af
if "%CF"=="2" goto zn
goto SCR
elseiff "%OPT"=="Se" then
set FND=%FT%select.ndx
set OPT=
set OPT=%@SELECT[%FND,2,2,8,22,Compression Formats]
set FRM=%@SUBSTR[%OPT,1,1]
set OPT=%@substr[%opt,13,1]
if "%FRM"=="A" .and. "%OPT"=="n" set CF=0
if "%FRM"=="A" .and. "%OPT"=="f" set CF=1
if "%FRM"=="P" set CF=2
goto SCR
elseiff "%OPT"=="Mi" then
gosub SMN
goto SCR
elseiff "%OPT"=="Ma" then
goto start
elseiff "%OPT"=="Ex" then
goto EXIT
endiff
goto SCR
:AN
cswb
select /d arj a -r -jf1 -jt %FN [*.*]
pause Hit any key...
goto SCR
:AF
cswb
select /d arj a -r -jf1 %FN [*.*]
pause Hit any key...
goto SCR
:ZN
cswb
select /d pkzip -P %FN [*.*]
pause Hit any key...
goto SCR
:SMN
cls blu on whi
set ULR=14
set ULC=4
set LRR=16
set CDR=` Path: `%_CWD
gosub PUT
set FND=%FT%mini.ndx
set OPT=
set OPT=%@SELECT[%FND,2,2,11,21,Mini-DOS]
set OPT=%@SUBSTR[%OPT,1,2]
iff "%OPT"=="Ch" then
gosub SFL
if "%SFN"=="" goto SMN
cdd %SFN
goto SMN
elseiff "%OPT"=="Vi" then
cls bri whi on bla
*dir /2/p
pause Hit any key...
goto SMN
elseiff "%OPT"=="Go" then
db 2 1 5 31 1 bri whi on blu fill blu sha
color bri whi on blu
srn 2 1 ÚÄÄÄÄÄÄÄ Goto File
srn 4 3
input Filename: %%PA
if "%PA"=="" goto SMN
pushd %_CWP
cd \
alias gotit `popd^srn 3 3 File Not Found ! ! !^srn 4 3^pause Hit any key...`
global /q if exist %PA alias gotit cd%_CWP
gotit
unalias gotit
popd *
goto SMN
elseiff "%OPT"=="Mo" then
gosub SFL
if "%SFN"=="" goto SMN
set PA=%SFN
color bri whi on bla
select /d move [*.*] %PA
pause Hit any key...
goto SMN
elseiff "%OPT"=="Co" then
gosub SFL
if "%SFN"=="" goto SMN
set PA=%SFN
color bri whi on bla
select /d copy [*.*] %PA
pause Hit any key...
goto SMN
elseiff "%OPT"=="Re" then
*dir /k/m > rename.tmp
set PA=%@SELECT[rename.tmp,2,2,9,42,Select File to Rename]
set PA=%@SUBSTR[%PA,0,12]
*del /q rename.tmp
if "%PA"=="" goto SMN
db 2 1 5 35 1 bri whi on blu fill blu sha
color bri whi on blu
srn 2 1 ÚÄÄÄÄ Renaming %@UPPER[%PA]ÿ
srn 4 3
input New filename: %%PA2
if "%PA2"=="" goto SMN
echo ÿ
if exist %PA2 goto EXIST
cls
*ren %PA %PA2
echo.
pause Hit any key...
goto SMN
:EXIST
srn 3 3 %PA2 already exists!ÿÿÿÿÿÿÿ
srn 4 3
pause Hit any key...
goto SMN
elseiff "%OPT"=="De" then
color bri whi on bla
select /d *del [*.*]
pause Hit any key...
goto SMN
elseiff "%OPT"=="Ex" then
set PA=
return
endiff
goto SMN
:SXT
cls blu on whi
db 11 3 14 37 1 bri whi on blu fill blu sha
spt 12 4 bri whi on blu %CDR
spt 13 4 bri whi on blu `ÿDestination: `%NDÿ
set FND=%FT%extract.ndx
set OPT=
set OPT=%@SELECT[%FND,2,2,9,27,Extract File Archieve]
set OPT=%@SUBSTR[%OPT,1,3]
iff "%OPT"=="Dec" then
if exist *.arj .or. exist *.zip goto CONT
gosub NOARC
goto SXT
:CONT
set pa=
color bri whi on bla
dir /k/m *.arj;*.zip > vwfiles.tmp
set PA=%@SELECT[vwfiles.tmp,2,2,7,42,Select Archive to Decompile]
*del /q vwfiles.tmp
set PA=%@SUBSTR[%PA,0,12]
set EXT=%@EXT[%PA]
cls
iff "%EXT"=="zip" then
pkunzip %PA %ND
if "%?"=="1" echo %@UPPER[%PA] is password protected!
if "%?"=="2" echo %@UPPER[%PA] isn't a PKZIP file!
elseiff "%EXT"=="arj" then
arj x %PA %ND
if "%?"=="1" echo %@UPPER[%PA] is password protected!
if "%?"=="2" echo %@UPPER[%PA] isn't an ARJ file!
endiff
if "%pa"=="" goto SXT
pause Hit any key...
goto SXT
elseiff "%OPT"=="Set" then
gosub SFL
if "%SFN"=="" goto SXT
set ND=%SFN
goto SXT
elseiff "%OPT"=="Min" then
gosub SMN
goto SXT
elseiff "%OPT"=="Mai" then
goto start
elseiff "%OPT"=="Exi" then
goto EXIT
endiff
goto SXT
:SFL
if exist c:\dstpth.tmp goto EXST
pushd^cd \
(global /iq echo %_CWD) >> c:\dstpth.tmp
popd
:EXST
set SFN=
set SFN=%@SELECT[c:\dstpth.tmp,2,3,8,35,Destination Path]
return
:NOARC
set nae=ARCHIVES
goto MSG
:NOARJ
set nae=ARJ FILES
goto MSG
:NOZIP
set nae=ZIP FILES
:MSG
db 2 3 5 22 1 bri whi on blu fill blu sha
spt 3 4 bri whi on blu NO %NAE EXIST
spt 4 5 bri whi on blu IN THIS PATH !!
srn 8 2
pause Hit any key...
return
:EXIT
endlocal
if exist c:\dstpth.tmp *del /q c:\dstpth.tmp
cls bri whi on bla
cancel


  3 Responses to “Category : Utilities for DOS and Windows Machines
Archive   : 4MICA25A.ZIP
Filename : 4MICA.BTM

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/