;redcode
;name New Shears
;author W. Mintardjo
;strategy Developed from Color Shears
;assert CORESIZE==8000
step EQU 3315+1
init EQU step-1
data DAT <-33, <-34
main MOV hold, @3
MOV snow, <2
ADD #step, @-1
JMN main, #init
snow SPL 0, <-32
MOV data, <-2
hold JMP -1, <-34
END main