home *** CD-ROM | disk | FTP | other *** search
/ PSION CD 2 / PsionCDVol2.iso / Programs / 12 / Macro5SIS.sis / M5Macros.sis / RunMacro.opl (.txt) < prev    next >
Encoding:
EPOC OPL Source  |  2000-10-17  |  882 b   |  35 lines
  1.  
  2.  
  3. REM Macro RunMacro version 1.00
  4. REM Run a macro selected in the list
  5. REM of all the macros in the macros folder
  6. REM Very useful to run a not affected macro
  7. REM By Pascal NICOLAS, to be used with Macro5
  8. REM Last edited on 1 June 1998
  9.  
  10. PROC orcaMnuR:
  11.     Local File$(255),Name$(50),l%,l3%,m%
  12.     l%=Len(Macros$)+1 :l3%=l%+3
  13.     dInit "Run Macro"
  14.     File$=Dir$(Macros$+"*.opo")
  15.     While File$ <> ""    
  16.         Name$=Mid$(File$,l%,Len(File$)-l3%)
  17.         File$=Dir$("")
  18.         If File$ = ""
  19.             dChoice m%,"",Name$
  20.         Else
  21.             dChoice m%,"",Name$+",..."
  22.         Endif
  23.     EndWh
  24.     If Dialog
  25.         File$=Dir$(Macros$+"*.opo")
  26.         While m% > 1
  27.             File$=Dir$("")
  28.             m%=m%-1
  29.         EndWh
  30.         FgMacro:(File$)
  31.     Endif
  32. ENDP
  33.  
  34.  
  35.