TERM      ORIG 1000
START     ENT1 5
          LDA 2000
          MUL 2000
          STX 2001
          SRC 5
          MUL 2001
          SRC 5
          DEC1 1
          J1NZ 1005
          MUL 2000
          SRC 5
          HLT 0
          END START