\START92\
\COMMENT=Single file dated Wed Dec  3 21:00:53 20
\NAME=part1
\FILE=day2.part1.92f
(str)
Func
Local p1,p2,dimstr,curr,result
0\->\result
1\->\p1
dim(str)\->\dimstr

While p1<dimstr
 inString(str,",",p1)\->\p2
 If p2\<=\0 Then
  dimstr+1\->\p2
 EndIf
 mid(str,p1,p2-p1)\->\curr
 p2+1\->\p1
 result+invids(curr)\->\result
EndWhile
Return result
EndFunc

\STOP92\