home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / utils / command.zip / CP_INST.SFX / lha / CMDUSER.CPM < prev    next >
Text File  |  1990-07-27  |  4KB  |  136 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.           ;Run("clock.exe","")            ;sample run line
  8.  
  9. &Accessories
  10.  &Appointment Calendar
  11.            run("Calendar.exe","appoint.cal")
  12.  
  13.  Cloc&k
  14.            run("clock.exe","")
  15.  
  16.  &Calculator
  17.            run("calc.exe","")
  18.  
  19.  Card&file
  20.            run("cardfile.exe","")
  21.  
  22.  Paint &Brush
  23.            run("pbrush.exe","")
  24.  
  25.  &PIF Editor
  26.            run("pifedit.exe","")
  27.  
  28.  P&IF Editor <w/filename>
  29.            run("pifedit.exe",CurrentFile())
  30.  
  31.  &Recorder
  32.            run("recorder.exe","")
  33.  
  34.  &Terminal
  35.        run("terminal.exe","")
  36.  
  37.  &Write
  38.            run("write.exe","")
  39.  
  40.  
  41. &Winapps
  42.  &Excel
  43.        Message("EXCEL","Your newest release of Excel goes here!")
  44.        ;DirChange("C:\EXCEL")
  45.        ;run("excel.exe","")
  46.  
  47.  &PageMaker
  48.        Message("EXCEL","Your newest release of Excel goes here!")
  49.        ;DirChange("C:\PM")
  50.        ;run("pm.exe","")
  51.  
  52.  &Corel Draw
  53.        Message("EXCEL","Your newest release of Excel goes here!")
  54.        ;DirChange("C:\COREL")
  55.        ;run("coreldrw.exe","")
  56.  
  57.  &Drafix CAD
  58.        Message("EXCEL","Your newest release of Excel goes here!")
  59.        ;DirChange("C:\DRAFIX")
  60.        ;run("drafix.exe","")
  61.  
  62.  &SuperBase 4
  63.        Message("EXCEL","Your newest release of Excel goes here!")
  64.        ;DirChange("C:\SB4")
  65.        ;run("sb4w.exe","")
  66.  
  67.  &Word 4 Windows
  68.        Message("EXCEL","Your newest release of Excel goes here!")
  69.        ;DirChange("C:\WINWORD")
  70.        ;run("winword.exe","")
  71.  
  72.  
  73.  _&How do I add my stuff to these menus
  74.     crlf=strcat(num2char(13),num2char(10))
  75.         a= "The best way to start is to read the manual."
  76.         b= "Next, edit CMDUSER.CPM to add your own menus."
  77.         c= "It can be as easy as writing .BAT files."
  78.     d= "But it can be as powerful and complex as you need."
  79.         a= strcat (a,crlf, b,crlf,crlf, c,crlf, d)
  80.         Message ("How-2-do-Menus",a)
  81.         drop(a,b,c,d)
  82.  
  83. &Games
  84.  &BackGammon
  85.     runzoom("backgamm.exe","")
  86.  &Fish  (from lake Bill)
  87.     runzoom("fish.exe","")
  88.  &Guts
  89.     runzoom("guts.exe","")
  90.  &Reversi
  91.     runzoom("reversi.exe","")
  92.  &Solitare
  93.     runzoom("sol.exe","")
  94.  
  95. &SubDirs
  96.  &Windows
  97.        DirChange(FilePath(FileLocate("WIN.INI")))
  98.        SetDisplay("","","")   ;The setdisplay stmt locks in the current dir
  99.  &DOS
  100.        DirChange("C:\DOS")
  101.        SetDisplay("","","") 
  102.  
  103. &Clipboarding
  104.  Copy &Directory to Clipboard
  105.     a=FileItemize("*.*")
  106.     a=StrReplace(a," ",crlf)
  107.     ClipPut(a)
  108.     Drop(a)
  109.  Copy &Hilited files to Clipboard
  110.     a=FileItemize("")
  111.     a=StrReplace(a," ",crlf)
  112.     ClipPut(a)
  113.     Drop(a)
  114.  Copy &Special Characters to Clipboard
  115.        a=" í| ó| ú| ñ| Ñ| ª| º| ¿| ⌐| ¬|"       ;161 thru 170
  116.        b=" ½| ¼| ¡| «| »| ░| ▒| ▓| │| ┤|"       ;171 thru 180
  117.        c=" ╡| ╢| ╖| ╕| ╣| ║| ╗| ╝| ╜| ╛|"       ;181 thru 190
  118.        d=" ┐| └| ┴| ┬| ├| ─| ┼| ╞| ╟| ╚|"       ;191 thru 200
  119.        e=" ╔| ╩| ╦| ╠| ═| ╬| ╧| ╨| ╤| ╥|"       ;201 thru 210
  120.        f=" ╙| ╘| ╒| ╓| ╫| ╪| ┘| ┌| █| ▄|"       ;211 thru 220
  121.        g=" ▌| ▐| ▀| α| ß| Γ| π| Σ| σ| µ|"       ;221 thru 230
  122.        h=" τ| Φ| Θ| Ω| δ| ∞| φ| ε| ∩| ≡|"       ;231 thru 240
  123.        i=" ±| ≥| ≤| ⌠| ⌡| ÷| ≈| °| ∙| ·|"       ;241 thru 250
  124.        j=" √| ⁿ| ²| ■|  "                       ;251 thru 255
  125.        a=strcat(a,b,c,d,e,f,g,h,i,j)
  126.        Drop(b,c,d,e,f,g,h,i,j)
  127.        a=ItemSelect("Choose a character",a,"|")
  128.        a=strsub(a,2,1)
  129.        ClipPut(a)
  130.        Drop(a)
  131.  _Start &Clipboard
  132.         errormode(@off)
  133.         terminate(winactivate("Clipboard"),"","") ;Already Running
  134.         errormode(@cancel)
  135.         run("Clipbrd.exe","")
  136.