[ENIAC] A006060

initiating {
  go P1-C:2
  clearin 0 P1-C:2
  clearout 0 P1-A:1
  }
accumulator 1 {
  power True
  masterclear True
  right 2
  }
accumulator 2 {
  power True
  masterclear True
  alpha D1-D
  s D1-C
  left 1
  program 1 {
    mode epsilon
    clear True
    programin P1-A:4
    }
  program 2 {
    mode S
    clear False
    programin P1-B:2
    }
  program 5 {
    mode 0
    clear True
    programin P1-B:5
    programout P1-B:6
    repeat 1
    }
  program 6 {
    mode alpha
    clear False
    programin P1-B:6
    programout P1-B:7
    repeat 1
    }
  }
accumulator 3 {
  masterclear True
  right 4
  }
accumulator 4 {
  power True
  masterclear True
  alpha D1-A
  beta D1-E
  a D1-D
  left 3
  program 1 {
    mode alpha
    clear False
    programin P1-A:4
    }
  program 2 {
    mode A
    clear False
    programin P1-B:4
    }
  program 3 {
    mode A
    clear True
    programin P1-B:6
    }
  program 5 {
    mode beta
    clear False
    programin P1-B:7
    programout P1-A:5
    repeat 1
    }
  }
accumulator 5 {
  masterclear True
  right 6
  }
accumulator 6 {
  power True
  masterclear True
  alpha D1-A
  beta D1-C
  gamma D1-D
  a D1-E
  left 5
  program 1 {
    mode A
    clear True
    programin P1-B:7
    }
  program 5 {
    mode alpha
    clear False
    programin P2-B:1
    programout P1-B:2
    repeat 1
    }
  program 6 {
    mode beta
    clear False
    programin P1-B:2
    programout P1-B:3
    repeat 1
    }
  program 7 {
    mode gamma
    clear False
    programin P1-B:4
    programout P1-B:3
    repeat 1
    }
  }
accumulator 7 {
  power True
  masterclear True
  alpha D1-A
  s D1-B
  program 5 {
    mode alpha
    clear False
    programin P1-A:2
    programout P1-A:3
    repeat 1
    }
  program 6 {
    mode S
    clear False
    programin P1-A:3
    repeat 1
    }
  }
accumulator 8 {
  power True
  masterclear True
  alpha D1-B
  a P2-B
  s P2-C
  program 1 {
    mode AS
    clear False
    programin P1-A:5
    }
  program 2 {
    mode gamma
    clear True
    programin P1-B:5
    }
  program 5 {
    mode alpha
    clear False
    programin P1-A:3
    programout P1-A:4
    repeat 1
    }
  }
constant {
  power True
  program 1 {
    mode l
    select l
    programin P1-A:2
    }
  program 9 {
    mode lr
    select l
    programin P1-A:4
    programout P1-A:5
    }
  program 10 {
    mode lr
    select r
    programin P2-B:1
    }
  outputa D1-A
  regj +0000000253
  regk +0000000060
  }
cardpunch {
  power True
  programin P2-C:1
  programout P1-C:2
  coupler 3 c
  print 1 off
  print 2 off
  print 5 off
  print 6 off
  print 7 off
  print 8 off
  print 9 off
  print 10 off
  print 11 off
  print 12 off
  print 13 off
  print 14 off
  print 15 off
  print 16 off
  }
cardreader {
  power True
  programin P1-A:1
  programout P1-A:2
  interlock P1-A:1
  }
master {
  power True
  decade 18 1 4
  decade 19 1 9
  decade 20 1 1
  association 8 B
  stepper B {
    clear 2
    in P1-B:3
    directclear P1-B:5
    out 1 P1-B:4
    out 2 P1-B:5
    }
  }