2018-01

DEFLNG A-Z: INTMAX = 1E6
DIM n(10000) AS LONG, g(INTMAX) AS LONG, r AS STRING

'pt 1
OPEN "input01.txt" FOR INPUT AS #1
WHILE NOT EOF(1)
  INPUT #1, r: t = t + 1: n(t) = VAL(r): s = s + n(t)
WEND
CLOSE #1
PRINT "part 1:"; s

'pt 2
s = 0
DO
  FOR i = 1 TO t: s = s + n(i)
    h = s: IF h < 0 THEN h = h + INTMAX
    IF g(h) = 0 THEN g(h) = s ELSE EXIT DO
  NEXT
LOOP
PRINT "part 2:"; s