home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / WINDOWS / MISC / CMDP72D.ZIP / CMDUSER.CP$ < prev    next >
Encoding:
Text File  |  1992-02-26  |  6.5 KB  |  208 lines
  1. ; The AUTOEXEC section of the menu is up here, before the first menu item
  2. ; Here is a sample autoexec section
  3.  
  4.        Terminate(IsRunning(),"","")   ;Only do autoexec on 1st CmdPost
  5.        Dirchange("C:\")               ;Change to root of C drive
  6.            SetDisplay("","","")           ;Lock dirchange into display
  7.            crlf=strcat(num2char(13),num2char(10))
  8.           ;Run("clock.exe","")            ;sample run line
  9.  
  10. &Accessories
  11.  &Appointment Calendar
  12.            run("Calendar.exe","appoint.cal")
  13.  
  14.  Cloc&k
  15.            run("clock.exe","")
  16.  
  17.  &Calculator
  18.            run("calc.exe","")
  19.  
  20.  Card&file
  21.            run("cardfile.exe","")
  22.  
  23.  Paint &Brush
  24.            run("pbrush.exe","")
  25.  
  26.  &PIF Editor
  27.            run("pifedit.exe","")
  28.  
  29.  P&IF Editor <w/filename>
  30.            run("pifedit.exe",CurrentFile())
  31.  
  32.  &Recorder
  33.            run("recorder.exe","")
  34.  
  35.  &Terminal
  36.        run("terminal.exe","")
  37.  
  38.  &Write
  39.            run("write.exe","")
  40.  
  41.  
  42. &Winapps
  43.  &Excel
  44.            Message("EXCEL","Your newest release of Excel goes here!%crlf% Edit this menuitem to make it run your copy of Excel")
  45.        ;DirChange("C:\EXCEL")
  46.        ;run("excel.exe","")
  47.  
  48.  &PageMaker
  49.            Message("PageMaker","Your newest release of PageMaker goes here!%crlf% Edit this menuitem to make it run your copy of PageMaker")
  50.        ;DirChange("C:\PM")
  51.        ;run("pm.exe","")
  52.  
  53.  &Corel Draw
  54.            Message("COREL DRAW","Your newest release of Corel Draw goes here!%crlf% Edit this menuitem to make it run your copy of Corel Draw")
  55.        ;DirChange("C:\COREL")
  56.        ;run("coreldrw.exe","")
  57.  
  58.  &SuperBase 4
  59.            Message("SuperBase 4","Your newest release of SuperBase 4 goes here!%crlf% Edit this menuitem to make it run your copy of SuperBase 4")
  60.        ;DirChange("C:\SB4")
  61.        ;run("sb4w.exe","")
  62.  
  63.  &Word 4 Windows
  64.            Message("Word For Windows","Your newest release of Word for Windows goes here!%crlf% Edit this menuitem to make it run your copy of Word for Windows")
  65.        ;DirChange("C:\WINWORD")
  66.        ;run("winword.exe","")
  67.  
  68.  
  69.  _&How do I add my stuff to these menus
  70.     crlf=strcat(num2char(13),num2char(10))
  71.         a= "The best way to start is to read the manual."
  72.         b= "Next, edit CMDUSER.CPM to add your own menus."
  73.         c= "It can be as easy as writing .BAT files."
  74.     d= "But it can be as powerful and complex as you need."
  75.         a= strcat (a,crlf, b,crlf,crlf, c,crlf, d)
  76.         Message ("How-2-do-Menus",a)
  77.         drop(a,b,c,d)
  78.  
  79. &Games
  80. ; These games here are available either with Windows or on many Windows BBS systems
  81. ; There are a LOT of games for windows available
  82.  &BackGammon
  83.     runzoom("backgamm.exe","")
  84.  &Fish  (from lake Bill)
  85.     runzoom("fish.exe","")
  86.  &Guts
  87.     runzoom("guts.exe","")
  88.  &Reversi
  89.     runzoom("reversi.exe","")
  90.  &Solitare
  91.     runzoom("sol.exe","")
  92.  &Mines
  93.         runzoom("winmine.exe","")
  94.  _Games
  95.         Message("GAMES","Edit this menu item to tell CmdPost where your game directroy is")
  96.         ;DirChange("O:\MAIN\MUSEMENT")
  97.         ;a=FileItemize("*.exe")
  98.         ;a=ItemSelect("Choose a Game",a," ")
  99.         ;runzoom(a,"")
  100.  
  101. &SubDirs
  102.  &Windows
  103.        DirChange(DirWindows(0))
  104.        SetDisplay("","","")   ;The setdisplay stmt locks in the current dir
  105.  &DOS
  106.        DirChange("C:\DOS")
  107.        SetDisplay("","","") 
  108.  &TEMP
  109.        DirChange(Environment("TEMP"))
  110.        SetDisplay("","","")
  111.  
  112. &Clipboarding
  113.  Path and Filename to Clipboard
  114.         Clipput(strcat(DirGet(),CurrentFile()))
  115.  Copy &Directory to Clipboard
  116.     a=FileItemize("*.*")
  117.     a=StrReplace(a," ",crlf)
  118.     ClipPut(a)
  119.     Drop(a)
  120.  Copy &Hilited files to Clipboard
  121.     a=FileItemize("")
  122.     a=StrReplace(a," ",crlf)
  123.     ClipPut(a)
  124.     Drop(a)
  125.  Copy &Special Characters to Clipboard
  126.        a=" í| ó| ú| ñ| Ñ| ª| º| ¿| ⌐| ¬|"       ;161 thru 170
  127.        b=" ½| ¼| ¡| «| »| ░| ▒| ▓| │| ┤|"       ;171 thru 180
  128.        c=" ╡| ╢| ╖| ╕| ╣| ║| ╗| ╝| ╜| ╛|"       ;181 thru 190
  129.        d=" ┐| └| ┴| ┬| ├| ─| ┼| ╞| ╟| ╚|"       ;191 thru 200
  130.        e=" ╔| ╩| ╦| ╠| ═| ╬| ╧| ╨| ╤| ╥|"       ;201 thru 210
  131.        f=" ╙| ╘| ╒| ╓| ╫| ╪| ┘| ┌| █| ▄|"       ;211 thru 220
  132.        g=" ▌| ▐| ▀| α| ß| Γ| π| Σ| σ| µ|"       ;221 thru 230
  133.        h=" τ| Φ| Θ| Ω| δ| ∞| φ| ε| ∩| ≡|"       ;231 thru 240
  134.        i=" ±| ≥| ≤| ⌠| ⌡| ÷| ≈| °| ∙| ·|"       ;241 thru 250
  135.        j=" √| ⁿ| ²| ■|  "                       ;251 thru 255
  136.        a=strcat(a,b,c,d,e,f,g,h,i,j)
  137.        Drop(b,c,d,e,f,g,h,i,j)
  138.        a=ItemSelect("Choose a character",a,"|")
  139.        a=strsub(a,2,1)
  140.        ClipPut(a)
  141.        Drop(a)
  142.  _Start &Clipboard
  143.         errormode(@off)
  144.         terminate(winactivate("Clipboard"),"","") ;Already Running
  145.         errormode(@cancel)
  146.         run("Clipbrd.exe","")
  147. PKZIP
  148.  Zip Current File
  149.         f=CurrentFile()
  150.         fr=strcat(FileRoot(f),".zip")
  151.         a=AskLine("Zip File","Enter desired ZIP name",fr)
  152.         if a=="" then exit
  153.         Run("pkzip.exe","%a% %f%")
  154.  
  155.  Zip Directory
  156.         a=AskLine("Zip Directory","Enter desired ZIP name","")
  157.         if a=="" then exit
  158.         Run("pkzip.exe","-m %a% *.*")
  159.         
  160.  Zip Structure
  161.         a=AskLine("Zip Structure","Enter desired ZIP name","")
  162.         if a=="" then exit
  163.         Run("pkzip.exe","-m -r -p %a% *.*")
  164.         
  165.  
  166.  View Zip file
  167.         a=CurrentFile()
  168.         if FileExtension(a)=="ZIP" then goto cont
  169.         b=FileItemize("*.ZIP")
  170.         terminate(b=="","View Zip File","No ZIP files found")
  171.         a=itemselect("View Zip File",FileItemize("*.ZIP")," ")
  172.         if a=="" then exit
  173.         :cont
  174.         Run("cp_pause.bat","pkunzip.exe -v %a%")
  175. &Multimedia
  176.  Play WAV file
  177.         a=CurrentFile()
  178.         if FileExtension(a)=="WAV" then goto play
  179.         a=FileItemize("*.wav")
  180.         if a!="" then goto sel
  181.         dirchange(DirWindows(0))
  182.         ;dirchange("o:\main\mmdata")   ;wherever you keep your WAV files
  183.         a=fileitemize("*.wav")
  184.         :sel
  185.         a=itemselect("Waveform",a," ")
  186.         if a=="" then exit
  187.         :play
  188.         playwaveform(a,1)
  189.  Play MID file       
  190.         a=CurrentFile()
  191.         if FileExtension(a)=="MID" then goto play
  192.         a=FileItemize("*.mid")
  193.         if a!="" then goto sel
  194.         dirchange(DirWindows(0))
  195.         ;dirchange("o:\main\mmdata")  ; whereever you keep your MID files
  196.         a=fileitemize("*.mid")
  197.         :sel
  198.         a=itemselect("MIDI Player",a," ")
  199.         if a=="" then exit
  200.         :play
  201.         a=strcat(DirGet(),a)
  202.         playmidi(a,1)
  203.  Play a Music CD
  204.         PlayMedia("open cdaudio shareable alias dona notify")
  205.         PlayMedia("set dona time format tmsf")
  206.         PlayMedia("play dona from 1")
  207.         PlayMedia("close dona")
  208.