;redcode ;name Scissors ;Tournament: ICWST'90 ;Standard: CWS'88 ;author Matthew Householder ;assert 1 start mov #-101, ptr-5084 look add # 5084, ptr look2 jmz look, @ ptr ptr mov stun2, ptr mov stun1, < ptr add # 5084+1, ptr jmn look2, ptr jmp 1 halt mov bomb, < bptr jmp halt stun1 spl 0 stun2 jmp -1 bomb dat #halt-bptr bptr dat #look end start