;redcode
;name thE caSing
;author Lukasz Adamowski
;strategy 52 characters
;strategy JMZ-scanner -> multipass coreclear
;assert 1

a	jmz	#s,	>99	; 10
	mov	*a,	<98	; 9
	jmp	a		; 4
	FOR	50		; 5
	dat	0,	0	; 6
	ROF			; 3
s	spl	#1-a		; 8
	dat		-101	; 7