aoc-2020-13

'AoC-2020, day 13
DIM r(20) AS LONG, u(20) AS LONG, i AS LONG
'OPEN "C:\test13" FOR INPUT AS #1
OPEN "C:\day13" FOR INPUT AS #1
INPUT #1, t0
WHILE NOT EOF(1)
  INPUT #1, a$: a = VAL(a$)
  IF a > 1 THEN n = n + 1: r(n) = a: u(n) = m
  m = m + 1
WEND
t1 = t0
DO
  FOR i = 1 TO n
    IF t1 MOD r(i) = 0 THEN EXIT DO
  NEXT
  t1 = t1 + 1
LOOP
PRINT "pt1: "; (t1 - t0); "*"; r(i); " = "; (t1 - t0) * r(i)

DIM t AS _INTEGER64, tstep AS _INTEGER64
t = 1: tstep = 1
FOR i = 1 TO n
  DO
    IF (t + u(i)) MOD r(i) = 0 THEN EXIT DO ELSE t = t + tstep
  LOOP
  tstep = tstep * r(i)
NEXT
PRINT "pt2: "; t