; The AUTOEXEC section of the menu is up here, before the first menu item
; Here is a sample autoexec section

	   Terminate(IsRunning(),"","")   ;Only do autoexec on 1st CmdPost
	   Dirchange("C:\")               ;Change to root of C drive
	   SetDisplay("","","") 	  ;Lock dirchange into display
          ;Run("clock.exe","")            ;sample run line

&Accessories
 &Appointment Calendar
           run("Calendar.exe","appoint.cal")

 Cloc&k
           run("clock.exe","")

 &Calculator
           run("calc.exe","")

 Card&file
           run("cardfile.exe","")

 Paint &Brush
           run("pbrush.exe","")

 &PIF Editor
           run("pifedit.exe","")

 P&IF Editor <w/filename>
           run("pifedit.exe",CurrentFile())

 &Recorder
           run("recorder.exe","")

 &Terminal
	   run("terminal.exe","")

 &Write
           run("write.exe","")


&Winapps
 &Excel
	   Message("EXCEL","Your newest release of Excel goes here!")
	   ;DirChange("C:\EXCEL")
	   ;run("excel.exe","")

 &PageMaker
	   Message("PageMaker","Your newest release of PageMaker goes here!")
	   ;DirChange("C:\PM")
	   ;run("pm.exe","")

 &Corel Draw
	   Message("COREL DRAW","Your newest release of Corel Draw goes here!")
	   ;DirChange("C:\COREL")
	   ;run("coreldrw.exe","")

 &SuperBase 4
	   Message("SuperBase 4","Your newest release of SuperBase 4 goes here!")
	   ;DirChange("C:\SB4")
	   ;run("sb4w.exe","")

 &Word 4 Windows
	   Message("Word For Windows","Your newest release of Word for Windows goes here!")
	   ;DirChange("C:\WINWORD")
	   ;run("winword.exe","")


 _&How do I add my stuff to these menus
	crlf=strcat(num2char(13),num2char(10))
        a= "The best way to start is to read the manual."
        b= "Next, edit CMDUSER.CPM to add your own menus."
        c= "It can be as easy as writing .BAT files."
	d= "But it can be as powerful and complex as you need."
        a= strcat (a,crlf, b,crlf,crlf, c,crlf, d)
        Message ("How-2-do-Menus",a)
        drop(a,b,c,d)

&Games
; These games here are available on many Windows BBS systems
 &BackGammon
	runzoom("backgamm.exe","")
 &Fish  (from lake Bill)
	runzoom("fish.exe","")
 &Guts
	runzoom("guts.exe","")
 &Reversi
	runzoom("reversi.exe","")
 &Solitare
	runzoom("sol.exe","")

&SubDirs
 &Windows
       DirChange(FilePath(FileLocate("WIN.INI")))
       SetDisplay("","","")   ;The setdisplay stmt locks in the current dir
 &DOS
       DirChange("C:\DOS")
       SetDisplay("","","") 

&Clipboarding
 Copy &Directory to Clipboard
	a=FileItemize("*.*")
	a=StrReplace(a," ",crlf)
	ClipPut(a)
	Drop(a)
 Copy &Hilited files to Clipboard
	a=FileItemize("")
	a=StrReplace(a," ",crlf)
	ClipPut(a)
	Drop(a)
 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
        errormode(@off)
        terminate(winactivate("Clipboard"),"","") ;Already Running
        errormode(@cancel)
        run("Clipbrd.exe","")