;redcode-tiny
;name Tiny Stone
;strategy stone
;assert CORESIZE==800

	ORG	stone

        sStep 	EQU  17		; <-- first value
        sTime	EQU  100	; <-- second value

stone	spl	# 0,		0
sLoop	mov.i	sBomb,		@ sPtr
sHit	add.ab	# sStep,        sPtr
sPtr	djn.f 	sLoop,		* sHit-sStep*sTime

sBomb	dat.f	1,		> 1

	END