home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / window / cp-70s.lzh / CMDUSER.CP$ < prev    next >
Text File  |  1990-11-24  |  4KB  |  132 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("PageMaker","Your newest release of PageMaker goes here!")
  49.        ;DirChange("C:\PM")
  50.        ;run("pm.exe","")
  51.  
  52.  &Corel Draw
  53.        Message("COREL DRAW","Your newest release of Corel Draw goes here!")
  54.        ;DirChange("C:\COREL")
  55.        ;run("coreldrw.exe","")
  56.  
  57.  &SuperBase 4
  58.        Message("SuperBase 4","Your newest release of SuperBase 4 goes here!")
  59.        ;DirChange("C:\SB4")
  60.        ;run("sb4w.exe","")
  61.  
  62.  &Word 4 Windows
  63.        Message("Word For Windows","Your newest release of Word for Windows goes here!")
  64.        ;DirChange("C:\WINWORD")
  65.        ;run("winword.exe","")
  66.  
  67.  
  68.  _&How do I add my stuff to these menus
  69.     crlf=strcat(num2char(13),num2char(10))
  70.         a= "The best way to start is to read the manual."
  71.         b= "Next, edit CMDUSER.CPM to add your own menus."
  72.         c= "It can be as easy as writing .BAT files."
  73.     d= "But it can be as powerful and complex as you need."
  74.         a= strcat (a,crlf, b,crlf,crlf, c,crlf, d)
  75.         Message ("How-2-do-Menus",a)
  76.         drop(a,b,c,d)
  77.  
  78. &Games
  79. ; These games here are available on many Windows BBS systems
  80.  &BackGammon
  81.     runzoom("backgamm.exe","")
  82.  &Fish  (from lake Bill)
  83.     runzoom("fish.exe","")
  84.  &Guts
  85.     runzoom("guts.exe","")
  86.  &Reversi
  87.     runzoom("reversi.exe","")
  88.  &Solitare
  89.     runzoom("sol.exe","")
  90.  
  91. &SubDirs
  92.  &Windows
  93.        DirChange(FilePath(FileLocate("WIN.INI")))
  94.        SetDisplay("","","")   ;The setdisplay stmt locks in the current dir
  95.  &DOS
  96.        DirChange("C:\DOS")
  97.        SetDisplay("","","") 
  98.  
  99. &Clipboarding
  100.  Copy &Directory to Clipboard
  101.     a=FileItemize("*.*")
  102.     a=StrReplace(a," ",crlf)
  103.     ClipPut(a)
  104.     Drop(a)
  105.  Copy &Hilited files to Clipboard
  106.     a=FileItemize("")
  107.     a=StrReplace(a," ",crlf)
  108.     ClipPut(a)
  109.     Drop(a)
  110.  Copy &Special Characters to Clipboard
  111.        a=" í| ó| ú| ñ| Ñ| ª| º| ¿| ⌐| ¬|"       ;161 thru 170
  112.        b=" ½| ¼| ¡| «| »| ░| ▒| ▓| │| ┤|"       ;171 thru 180
  113.        c=" ╡| ╢| ╖| ╕| ╣| ║| ╗| ╝| ╜| ╛|"       ;181 thru 190
  114.        d=" ┐| └| ┴| ┬| ├| ─| ┼| ╞| ╟| ╚|"       ;191 thru 200
  115.        e=" ╔| ╩| ╦| ╠| ═| ╬| ╧| ╨| ╤| ╥|"       ;201 thru 210
  116.        f=" ╙| ╘| ╒| ╓| ╫| ╪| ┘| ┌| █| ▄|"       ;211 thru 220
  117.        g=" ▌| ▐| ▀| α| ß| Γ| π| Σ| σ| µ|"       ;221 thru 230
  118.        h=" τ| Φ| Θ| Ω| δ| ∞| φ| ε| ∩| ≡|"       ;231 thru 240
  119.        i=" ±| ≥| ≤| ⌠| ⌡| ÷| ≈| °| ∙| ·|"       ;241 thru 250
  120.        j=" √| ⁿ| ²| ■|  "                       ;251 thru 255
  121.        a=strcat(a,b,c,d,e,f,g,h,i,j)
  122.        Drop(b,c,d,e,f,g,h,i,j)
  123.        a=ItemSelect("Choose a character",a,"|")
  124.        a=strsub(a,2,1)
  125.        ClipPut(a)
  126.        Drop(a)
  127.  _Start &Clipboard
  128.         errormode(@off)
  129.         terminate(winactivate("Clipboard"),"","") ;Already Running
  130.         errormode(@cancel)
  131.         run("Clipbrd.exe","")
  132.