;redcode
;name ExtraExtra
;author P.Kline
inc      dat #0-4023,#4023
stone    mov <1,<1+24
         spl -1,<cnt-796
next     add inc,stone
cnt      djn stone,<-797
         dat #100
         dat #100
         dat #100
