;
;    Warrior: Scissors
;  File name: scissors.red
; Tournament: ICWST'90
;   Standard: CWS'88
;     Author: Matthew Householder
;
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