day2/part2.TXT


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

\START92\
\COMMENT=Single file dated Thu Dec  4 00:10:11 20
\NAME=part2
\FILE=day2.part2.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+invids2(curr)\->\result
EndWhile
Return result
EndFunc

\STOP92\