home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #3 / amigamamagazinepolishissue1998.iso / bazy / muivideo / arexx / playtime_quick.rexx < prev    next >
OS/2 REXX Batch file  |  1996-11-24  |  2KB  |  61 lines
  1. /*
  2.  * playtime_quick.rexx
  3.  *
  4.  * ARexx-Script für MUIVideo
  5.  * Berechnet die Länge der Filme auf einer Videocassette
  6.  * unter Verwendung des in V1.13 eingeführten Befehls
  7.  * GETQUICK
  8.  *
  9.  * $VER: playtime_quick.rexx V1.1 (24.11.96)
  10.  * Copyright 1995/96 by Christoph Kirsch
  11.  *
  12.  */
  13.  
  14. address 'MUIVIDEO.1'
  15. options results
  16.  
  17. sleep                           /* Eingaben unterbinden */
  18.  
  19. get CASSETTE                    /* Kassettennummer holen */
  20. c = result
  21.  
  22. count                           /* Anzahl der Filme holen */
  23. num = result
  24.  
  25. timelp  = 0                     /* Zeit der LP-Filme */
  26. timesp  = 0                     /* Zeit der SP-Filme */
  27. timeall = 0                     /* Gesammtzeit */
  28.  
  29. do i=0 to num-1                 /* bei allen Datensätzen ... */
  30.  
  31.   getquick i CASSETTE           /* Cassettennummer lesen */
  32.   cas = result
  33.  
  34.   if cas = c then do            /* wenn die gleiche Cassette ... */
  35.     getquick i LAENGE           /* ... dann Länge und ... */
  36.     l = result
  37.     getquick i GESCHWINDIGKEIT  /* ... Geschwindigkeit ermitteln */
  38.     g = result
  39.  
  40.     if g = 'LP' then do         /* Filmlängen addieren */
  41.       timelp = timelp + l
  42.       end
  43.     else do
  44.       timesp = timesp + l
  45.       end
  46.  
  47.   end
  48.  
  49. end
  50.  
  51. timeall = timesp + timelp/2      /* Gesammtzeit berechnen */
  52.  
  53.                                  /* Text erstellen */
  54.  
  55. text = """" || "Cassette " || c || "|in ShortPlay = " || timesp || " min" || "|in LongPlay = " || timelp || " min" || "|Summe = " || timeall || " min" || """"
  56.  
  57. wake                             /* Eingaben erlauben */
  58.  
  59. requestnotify text               /* Requester mit Ergebnis anzeigen */
  60.  
  61.