home *** CD-ROM | disk | FTP | other *** search
/ Megahits 4 / MegaHits_Vol.4.iso / rexx / menu_learntokey.edge < prev    next >
Text File  |  1994-10-23  |  1KB  |  49 lines
  1. /*
  2. ** $VER: Menu_LearnToKey.edge 1.1 (19:37:28, 29 Sep 1993)
  3. **
  4. ** Makro aufnehmen und einer Taste zuweisen
  5. **
  6. ** Geschrieben von Thomas liljetoft & Eddie Churchill
  7. ** deutsche Kommentare von Thomas Heinze
  8. */
  9.  
  10.  
  11. options results
  12.  
  13. /* Fehlerstufe des Benutzers auslesen */
  14.  
  15. getenvvar _ge_errlevel
  16. errlevel = result
  17.  
  18. /* Nach der gewünschten Taste fragen */
  19. 'requestkey' title '"Taste, der das Makro zugewiesen werden soll:"'
  20. if RC == 0 then do
  21.  
  22.    /* soweit ok, jetzt einen Dateinamen auswählen */
  23.    key = result
  24.    parse var key 'KEY="' keycode '" Q="' qualcode '" QM="' maskcode '"' foo
  25.    name = translate(qualcode,'_',' ')'_'keycode'.edge'
  26.    name = 'ram:'strip(reverse(substr(reverse(name),1,30)),L)
  27.    
  28.    /* Taste hinzufügen */
  29.    'keyboard' key '"'name'"'
  30.    
  31.    /* alles ok? */
  32.    if RC == 0 then do
  33.    
  34.       /* Aufnahme starten und in die Datei umleiten */
  35.       'learn filename "'name'"'
  36.    
  37.       end
  38.          
  39.    end
  40.  
  41. if RC >= errlevel then do
  42.  
  43.    /* Etwas ist schiefgegangen, Fehlermeldung ausgeben */
  44.    'fault'
  45.    'requestnotify' result
  46.    end
  47.  
  48. exit(0)
  49.