;redcode-94
;name More
;author Flox

	org	scr

bomb	jmp	err,	0
scr	add.ab	#20,	bomb
	sub.a	#20,	bomb
	mov	bomb,	@bomb
	slt.ab	#-21,	bomb
	jmp	scr,	0
	slt.ab	#-11,	bomb
	jmp	again,	0
date	mov	dbom,	err+2
	slt	date,	#-1
	add	#4,	date
	jmp	date,	>date
dbom	dat	0,	0
again	add	#30,	bomb
	sub.a	#30,	bomb
	jmp	scr,	0
err	spl	0,	0
	jmp	err,	0