;redcode-nano
;name Crisis
;author John Metcalf
;strategy clear
;assert CORESIZE==80

        mov    <23,      41

x       spl    #9,       <x-5
clear   mov    }d,       }x
d       mov    <x+25,    <x-5
        djn.f  clear,    <x+54

        end