Category : Windows 3.X Files
Archive   : FC-20K.ZIP
Filename : WWWFC1.MN_
; actually appears on the screen
TAB=num2char(9)
CR=strcat(num2char(13),num2char(10))
AppName="File Commander"
IniFile="WWW-PROD.INI"
IniSection="FileCmdr"
Change File Commander menus ;Edit - with notepad, the file extender macros
Edit Menu Scripts
t1=IniReadPvt(IniSection,"MenuTitle1","FC1","WINFILE.INI")
t2=IniReadPvt(IniSection,"MenuTitle2","FC2","WINFILE.INI")
t3=IniReadPvt(IniSection,"MenuTitle3","FC3","WINFILE.INI")
t4=IniReadPvt(IniSection,"MenuTitle4","FC4","WINFILE.INI")
f1=IniReadPvt(IniSection,"MenuFile1","WWWFC1.MNU","WINFILE.INI")
f2=IniReadPvt(IniSection,"MenuFile2","WWWFC2.MNU","WINFILE.INI")
f3=IniReadPvt(IniSection,"MenuFile3","WWWFC3.MNU","WINFILE.INI")
f4=IniReadPvt(IniSection,"MenuFile4","WWWFC4.MNU","WINFILE.INI")
a=strcat(f1,TAB,t1,"~",f2,TAB,t2,"~",f3,TAB,t3,"~",f4,TAB,t4)
drop(t1,t2,t3,t4,f1,f2,f3,f4)
a=TextSelect("Choose Menu to Edit",a,"~")
if a=="" then exit
b=ItemExtract(1,a,TAB)
a=FileLocate(b)
adir=FilePath(a)
DirChange(adir)
broot=FileRoot(b)
bname=strcat(broot,".BAK")
FileCopy(b,bname,@FALSE)
run("notepad.exe",b)
Change Toplevel Menu Titles
t1=IniReadPvt(IniSection,"MenuTitle1","FC1","WINFILE.INI")
t2=IniReadPvt(IniSection,"MenuTitle2","FC2","WINFILE.INI")
t3=IniReadPvt(IniSection,"MenuTitle3","FC3","WINFILE.INI")
t4=IniReadPvt(IniSection,"MenuTitle4","FC4","WINFILE.INI")
a=strcat(t1,TAB,t2,TAB,t3,TAB,t4)
b=TextSelect("Choose Title to Change",a,TAB)
if b=="" then exit
c=ItemLocate(b,a,TAB)
d=AskLine("Menu Title Change","Old title is -> %b%%CR%Enter new title. Use && to show hotkey.%CR%(e.g. FC&&1 gives FC&1",b)
if d=="" then exit
IniWritePvt(IniSection,"MenuTitle%c%",d,"WINFILE.INI")
Reload() ; Reload FM Extensions
; Dialog Editor
; run("wwwdlged.exe","")
_Load &WIL Help File
a=FileLocate("WIL.HLP");
if a=="" then a=IniReadPvt("WWWSetup","FileCommander","",IniFile) ; Get installed directory
then a="%a%\HELP\WIL.HLP" ; add HELP path
Terminate(!FileExist(a),"Install Error","Cannot find WIL.HLP")
WinHelp("%a%","CONTENTS","")
_Bro&wse... ;Browse hilited file
l=strcat(CurrentPath(),CurrentFile())
run("browser.exe",l)
drop(a,l)
&Edit... ;Edit hilited file
l=CurrentFile()
if l=="" || l==" " then goto NULL
a=strscan(l,".\",0,@BACKSCAN)
if a==0 then l=strcat(l,".")
if a==0 then goto NULL
if strsub(l,a,1)!="." then l=strcat(l,".")
:NULL
run("notepad.exe",strtrim(l))
drop(a,b,l)
File System
&Size of ENTIRE file/dir structure
call("wwwmenus.dll","DIRSIZE")
File &Info ; Display information on hilited files
call("wwwmenus.dll","FILEINFO")
&Freespace on Local Drives
call("wwwmenus.dll","FREESPACE")
Floppy Space and selected files
A:
message(strcat("Drive A ",DiskFree("A")),strcat("Selected Files ",FileSize(FileItemize(""))))
B:
message(strcat("Drive B ",DiskFree("B")),strcat("Selected Files ",FileSize(FileItemize(""))))
Clipboard Tricks
Path and Filename to Clipboard
Clipput(strcat(DirGet(),CurrentFile()))
Copy &Directory to Clipboard
a=FileItemize("*.*")
a=ItemSort(a," ")
a=StrReplace(a," ",cr)
ClipPut(a)
Drop(a)
Copy &Hilited files to Clipboard
a=FileItemize("")
a=ItemSort(a," ")
a=StrReplace(a," ",cr)
ClipPut(a)
Drop(a)
Copy &Hilited dirs to Clipboard
a=DirItemize("")
a=ItemSort(a," ")
a=StrReplace(a," ",cr)
ClipPut(a)
Drop(a)
Run Character Mapper
Run("charmap.exe","")
Copy &Special Characters to Clipboard
a=" ¡| ¢| £| ¤| ¥| ¦| §| ¨| ©| ª|" ;161 thru 170
b=" «| ¬| | ®| ¯| °| ±| ²| ³| ´|" ;171 thru 180
c=" µ| ¶| ·| ¸| ¹| º| »| ¼| ½| ¾|" ;181 thru 190
d=" ¿| À| Á| Â| Ã| Ä| Å| Æ| Ç| È|" ;191 thru 200
e=" É| Ê| Ë| Ì| Í| Î| Ï| Ð| Ñ| Ò|" ;201 thru 210
f=" Ó| Ô| Õ| Ö| ×| Ø| Ù| Ú| Û| Ü|" ;211 thru 220
g=" Ý| Þ| ß| à| á| â| ã| ä| å| æ|" ;221 thru 230
h=" ç| è| é| ê| ë| ì| í| î| ï| ð|" ;231 thru 240
i=" ñ| ò| ó| ô| õ| ö| ÷| ø| ù| ú|" ;241 thru 250
j=" û| ü| ý| þ| ÿ" ;251 thru 255
a=strcat(a,b,c,d,e,f,g,h,i,j)
Drop(b,c,d,e,f,g,h,i,j)
a=ItemSelect("Choose a character",a,"|")
a=strsub(a,2,1)
ClipPut(a)
Drop(a)
_Start Clipboard
run("clipbrd.exe","")
|Applications
Ami Pro (Lotus)
a=FileLocate("amipro.exe") ; Try brute force path search
if a=="" then a=IniRead("extensions","sam","") ; No? Try via [extensions] section
terminate(a=="","Error","AmiPro not found") ; Not installed normally
b=strindex(a," ",0,@FWDSCAN) ; Find first space
if b==0 then b=strlen(a)+1 ; None? ...adjust b
b=strsub(a,1,b-1) ; Pick off ^.sam stuff
run(b,"") ; Run AmiPro
Corel Draw! (Corel)
a=IniRead("CorelDraw","Dir","") ; Try via INI file info
terminate(a=="","Error","Corel Draw not found") ; Not installed normally
a=strcat(a,"\coreldrw.exe")
run(a,"") ;Corel Drw
DynaComm (FutureSoft)
a=FileLocate("dynacomm.exe") ; Try brute force path search
if a=="" then a=IniRead("extensions","dcm","") ; No? Try via [extensions] section
terminate(a=="","Error","Dynacomm not found") ; Not installed normally
b=strindex(a," ",0,@FWDSCAN) ; Find first space
if b==0 then b=strlen(a)+1 ; None? ...adjust b
b=strsub(a,1,b-1) ; Pick off ^.dcm stuff
run(b,"") ; Run Dynacomm
Designer/Draw (Micrografx)
a=IniRead("extensions","drw","") ; Try via [extensions] section
terminate(a=="","Error","Drawing tool not found") ; Not installed normally
b=strindex(a," ",0,@FWDSCAN) ; Find first space
if b==0 then b=strlen(a)+1 ; None? ...adjust b
b=strsub(a,1,b-1) ; Pick off ^.drw stuff
run(b,"") ; Run DRW tool
Excel (Microsoft)
a=FileLocate("excel.exe") ; Try brute force path search
if a=="" then a=IniRead("extensions","xls","") ; No? Try via [extensions] section
terminate(a=="","Error","Excel not found") ; Not installed normally
b=strindex(a," ",0,@FWDSCAN) ; Find first space
if b==0 then b=strlen(a)+1 ; None? ...adjust b
b=strsub(a,1,b-1) ; Pick off ^.xls stuff
run(b,"") ; Run Excel
PowerPoint (Microsoft)
a=FileLocate("powerpnt.exe") ; Try brute force path search
if a=="" then a=IniRead("extensions","ppt","") ; No? Try via [extensions] section
terminate(a=="","Error","PowerPoint not found") ; Not installed normally
b=strindex(a," ",0,@FWDSCAN) ; Find first space
if b==0 then b=strlen(a)+1 ; None? ...adjust b
b=strsub(a,1,b-1) ; Pick off ^.ppt stuff
run(b,"") ; Run PowerPoint
Project (Microsoft)
a=FileLocate("winproj.exe") ; Try brute force path search
if a=="" then a=IniRead("extensions","mpp","") ; No? Try via [extensions] section
terminate(a=="","Error","Project not found") ; Not installed normally
b=strindex(a," ",0,@FWDSCAN) ; Find first space
if b==0 then b=strlen(a)+1 ; None? ...adjust b
b=strsub(a,1,b-1) ; Pick off ^.mpp stuff
run(b,"") ; Run PowerPoint
Publisher (Microsoft)
a=FileLocate("mspub.exe") ; Try brute force path search
if a=="" then a=IniRead("extensions","pub","") ; No? Try via [extensions] section
terminate(a=="","Error","Publisher not found") ; Not installed normally
b=strindex(a," ",0,@FWDSCAN) ; Find first space
if b==0 then b=strlen(a)+1 ; None? ...adjust b
b=strsub(a,1,b-1) ; Pick off ^.pub stuff
run(b,"") ; Run Visual Basic
Word For Windows (Microsoft)
a=FileLocate("winword.exe") ; Try brute force path search
if a=="" then a=IniRead("extensions","dot","") ; No? Try via [extensions] section
terminate(a=="","Error","WinWord not found") ; Not installed normally
b=strindex(a," ",0,@FWDSCAN) ; Find first space
if b==0 then b=strlen(a)+1 ; None? ...adjust b
b=strsub(a,1,b-1) ; Pick off ^.dot stuff
run(b,"") ; Run WinWord
Visual Basic (Microsoft)
a=FileLocate("vb.exe") ; Try brute force path search
if a=="" then a=IniRead("extensions","frm","") ; No? Try via [extensions] section
terminate(a=="","Error","Visual Basic not found"); Not installed normally
b=strindex(a," ",0,@FWDSCAN) ; Find first space
if b==0 then b=strlen(a)+1 ; None? ...adjust b
b=strsub(a,1,b-1) ; Pick off ^.frm stuff
run(b,"") ; Run Visual Basic
_Control &Panel
run("control.exe","")
&System Information
call("wwwmenus.dll","SYSINFO 'File Commander'")
_Blank Screen Now!
a=IniReadPvt("Boot","SCRNSAVE.EXE","SSMYST.SCR","SYSTEM.INI")
a=strreplace(a,".","*") ;e.g. change ssmyst.scr to ssmyst*scr
run(a,"/s") ;Is is possible to run wierd extensions IF one
;replaces the .ext with *ext
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
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/