/* graph.tc

/* split char string s delimited by char string d into int array t

split int t(0);char s(0),d(0) [
 int y,ix,tx,sl,ds;ds=strlen(d);t(0)=s;sl=strlen(s)
 while (sl-tx) [
  ix=index(s+tx,sl-tx,d,ds)
  tx=tx+ix+ds-1;t(++y)=s+tx;s(tx-ds)=0
  ]
 return y
 ]

graph [
 char donate(600),a,amax,aster;int t(60),total,v(0),graphc
 pl "graph.tc - tct - 5/21/2010"
 pl "Please visit http://primepuzzle.com/tc/graph.html"
 pl "Eddie Gorecki Memorial Bench Fund";pl "";pl ""
 if ((graphc=readfile("graph.dat",donate,donate+600-1,1))<=0) [
  ps "error reading graph.dat";exit]
 donate(graphc-2)=0 /* crlf delimited file
 amax=split(t,donate," ")
 for (a=0;a<amax;a=a+2) [
  atoi(t(a+1),v);total=total+v(0);aster=v(0)/5+1
  ps t(a);ps ": ";while (--aster) ps "*"
  ps " (";MC v(0),14;ps ")";pl ""]
 pl "";ps "total to date : $";MC total,14;pl ""
 ]