home *** CD-ROM | disk | FTP | other *** search
/ Megahits 4 / MegaHits_Vol.4.iso / rexx / menu_playmdefmac.edge < prev    next >
Text File  |  1994-10-23  |  790b  |  38 lines
  1. /*
  2. ** $VER: Menu_PlayMDefMac.edge 1.3 (Thursday 11-Nov-93 19:17:19)
  3. **
  4. ** Das Standardmakro solange abspielen, bis es eine Fehlermeldung ausgibt
  5. **
  6. ** Geschrieben von Thomas liljetoft & Inovatronics
  7. ** deutsche Kommentare von Thomas Heinze
  8. */
  9.  
  10. options results
  11.  
  12. /* Prüfen, ob es existiert */
  13. if exists('ram:edge.macro') then do
  14.     
  15.     /* Edge für den Benutzer sperren */
  16.     disableuser
  17.     
  18.     /* Die Fehlerstufe erhöhen */
  19.     'putenvvar _WE_ErrorLevel 6'
  20.     
  21.     /* N mal abspielen */
  22.     do forever
  23.         'ram:edge.macro'
  24.         if result='RESULT' then nop
  25.         else if result~=0 then leave
  26.         
  27.         /* Prüfen, ob der Benutzer abbrechen möchte */
  28.         checkabort
  29.         if rc~=0 then leave
  30.     end
  31.         
  32.     /* Edge wieder freigeben */
  33.     enableuser
  34. end
  35.  
  36. /* Wenn nicht, dann beschweren */
  37. else 'requestnotify "Es existiert kein Standardmakro."'
  38.