home *** CD-ROM | disk | FTP | other *** search
/ PSION CD 2 / PsionCDVol2.iso / Programs / 1058 / MenuPlus.sis / MPdummy.opl (.txt) < prev    next >
Encoding:
EPOC OPL Source  |  2001-10-19  |  1.9 KB  |  79 lines
  1.  
  2.  
  3. REM    ##############################
  4. REM    MenuPlus ┬⌐2001 Wolfgang Golder
  5. REM             dummy Modul
  6. REM    ##############################
  7.  
  8. INCLUDE "MACRO.OPH"
  9.  
  10. PROC MenuPlus:
  11.     mINIT
  12.     mCARD "Men├╝","ReadMe",%r,"MenuPlus.hlp",-%h,"info",%i,"preferences",%k
  13.     mCARD "MenuPlus","JumpTo",%j,"C:\System\Apps\",-%a,"SwitchTo",-%s,"exit",%e
  14.     mCARDdoc:
  15.     mCARDtask:
  16.     MPMenu:
  17.  
  18.     IF key%=ASC("r")                                    REM ReadMe
  19.         MPbusy:("es wird das ReadMe angezeigt", -100)
  20.         IF EXIST ("C:\System\Apps\MenuPlus\ReadMe")
  21.             MPFgDoc:("C:\System\Apps\MenuPlus\ReadMe")
  22.         ELSEIF EXIST ("D:\System\Apps\MenuPlus\ReadMe")
  23.             MPFgDoc:("D:\System\Apps\MenuPlus\ReadMe")
  24.         ELSE
  25.             MPbusy:("ReadMe nicht gefunden", 100)
  26.         ENDIF
  27.     ELSEIF key%=ASC("h")                            REM MenuPlus.hlp
  28.         IF EXIST ("C:\System\Apps\MenuPlus\MenuPlus.hlp")
  29.             MPFgDoc:("C:\System\Apps\MenuPlus\MenuPlus.hlp")
  30.         ELSEIF exIST ("D:\System\Apps\MenuPlus\MenuPlus.hlp")
  31.             MPFgDoc:("D:\System\Apps\MenuPlus\MenuPlus.hlp")
  32.         ELSE
  33.             MPbusy:("MenuPlus.hlp nicht gefunden", 100)
  34.         ENDIF
  35.     ELSEIF key%=ASC("i")                            REM MPinfo
  36.         MPinfo:
  37.     ELSEIF key%=ASC("k")                            REM    Einstellungen
  38.         preferences:
  39.     ELSEIF key%=ASC("e")                            REM    ENDE
  40.         MPExit:
  41.     ELSEIF key%=ASC("j")                            REM    JumpTo
  42.         MPJumpTo:("")
  43.     ELSEIF key%=ASC("a")                            REM    JumpTo C:\System\Apps\
  44.         MPJumpTo:("C:\System\Apps\")
  45.     ELSEIF key%=ASC("s")                            REM    SwitchTo
  46.         MPSwitchTo:(&0)
  47.     ENDIF
  48. ENDP
  49.  
  50. PROC MPModuleKey1:
  51. ENDP
  52.  
  53. PROC MPModuleKey2:
  54. ENDP
  55.  
  56. PROC MPModuleKey3:
  57.     MPFgApp:("Z:\System\Apps\Calc\Calc.app")
  58. ENDP
  59.  
  60. PROC MPModuleKey4:
  61. ENDP
  62.  
  63. PROC MPModuleKey5:
  64. ENDP
  65.  
  66. PROC MPModuleKey6:
  67. ENDP
  68.  
  69. PROC MPModuleKey7:
  70.     MPFgApp:("Z:\System\Apps\Agenda\Agenda.app")
  71. ENDP
  72.  
  73. PROC MPModuleKey8:
  74.     MPFgMacro:(MPMacros$+"MPNotes.opo")
  75. ENDP
  76.  
  77.  
  78.  
  79.