home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #3 / amigamamagazinepolishissue1998.iso / bazy / muivideo / arexx / letztes_tape.rexx < prev    next >
OS/2 REXX Batch file  |  1995-11-24  |  738b  |  39 lines
  1. /*
  2.  * letztes_tape.rexx
  3.  *
  4.  * ARexx-Script für MUIVideo
  5.  * Ermittelt die höchste Cassettennummer
  6.  * unter Verwendung des in V1.13 eingeführten Befehls
  7.  * GETQUICK
  8.  *
  9.  * $VER: letztes_tape.rexx V1.0 (23.11.95)
  10.  * Copyright 1995 by Christoph Kirsch
  11.  *
  12.  */
  13.  
  14. address 'MUIVIDEO.1'
  15. options results
  16.  
  17. sleep                           /* Eingaben unterbinden */
  18.  
  19. count                           /* Anzahl der Filme holen */
  20. num = result
  21.  
  22. hoechste = 0
  23.  
  24. do i=0 to num-1                 /* bei allen Datensätzen ... */
  25.  
  26.     getquick i CASSETTE           /* Cassettennummer lesen */
  27.     cas = result
  28.  
  29.     if cas > hoechste then do
  30.         if cas < 'A' then hoechste = cas
  31.         end;
  32.  
  33. end
  34.  
  35. requestnotify hoechste
  36.  
  37. wake                             /* Eingaben erlauben */
  38.  
  39.