home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / util / cdity / cliphistory / rexx / test.cliph next >
Text File  |  1994-10-27  |  700b  |  31 lines
  1. /* Example ARexx script for ClipHistory 2.0+.
  2.  * Shows some information about the history.
  3.  */
  4.  
  5. OPTIONS RESULTS
  6. ADDRESS CLIPHISTORY0
  7.  
  8. HistoryInfo STEM Info.
  9.  
  10. IF Info.Items > 0 THEN DO
  11.     Chrs = 0
  12.     TextClips = 0
  13.  
  14.     DO i = 1 TO Info.Items
  15.         ItemInfo i STEM Clip.
  16.  
  17.         IF RC = 0 THEN DO
  18.             Chrs = Chrs + Clip.NumCHRS
  19.  
  20.             IF Clip.NumCHRS > 0 THEN
  21.                 TextClips = TextClips + 1
  22.         END
  23.     END
  24.  
  25.     SAY "The history contains" Info.Items "clips. There are" TextClips "clips that contain text."
  26.     SAY "Average clip size is" Info.Size / Info.Items "bytes."
  27.     SAY "There is a total of" Chrs "IFF FTXT CHRS chunks."
  28. END
  29. ELSE
  30.     SAY "The history is empty"
  31.