home *** CD-ROM | disk | FTP | other *** search
/ Aminet 10 / aminetcdnumber101996.iso / Aminet / text / edit / FrexxEdA.lha / FrexxEd / fpl / BlockSum.FPL < prev    next >
Text File  |  1995-07-23  |  368b  |  17 lines
  1. export BlockSum()
  2. {
  3.   int newid;
  4.   int sum=0;
  5.  
  6.   newid=New();
  7.   if (newid) {
  8.     int count;
  9.     StringToBlock(GetBlock(), newid);
  10.     for (count=ReadInfo("lines", newid); count>0; count--)
  11.       sum+=atoi(GetLine(count, newid));
  12.     Clean("Kill("+ltostr(newid)+");");
  13.     Request("Sum is: "+ltostr(sum), "BlockSum", "OK");
  14.   }
  15. }
  16. AssignKey("BlockSum();", "Amiga B +");
  17.