Category : Windows 3.X Files
Archive   : FC-20K.ZIP
Filename : WWWFC1.MN_

 
Output of file : WWWFC1.MN_ contained in archive : FC-20K.ZIP
; Da AutoExec Section is on top here. Actually runs before File Manager
; 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




  3 Responses to “Category : Windows 3.X Files
Archive   : FC-20K.ZIP
Filename : WWWFC1.MN_

  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/