home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma69.dms / ma69.adf / ClipHistory / Rexx / Test.cliph < prev   
Encoding:
Text File  |  1995-03-04  |  700 b   |  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.