c23456789--snip--
      program wie
      jeden zweiten dienstag = 2992142
chaostreff am 3. Februar ab 19:00 im
      keuzchen = 841959

      do 10 immer wieder = 1, 10
        kommen die hacker dort hin =
     +jeden zweiten dienstag - (jeden zweiten dienstag / 20) * 20
        write(*,*) char(kommen die hacker dort hin+65)
        jeden zweiten dienstag = jeden zweiten dienstag / 20
        if (jeden zweiten dienstag .EQ. 0)
     +jeden zweiten dienstag = keuzchen
 10   continue

      stop
      end
c23456789--snap--