>Commando
> A curious worm creator

@-4
.impstomp mov #0,-1
          jmp -1
.ptr      dat -2
.aim      dat 90
          spl impstomp
          mov 12,113
          spl 112
          mov @ptr,@aim
          cmp ptr,#15
          jmp 4
          add #1,ptr
          add #1,aim
          jmp -5
          mov #-2,82
          mov #90,82
          mov #0,-14
          jmp 81
          mov 0,1        ; imp