;redcode-94 quiet ;name Keystone ;kill Keystone ;author P.Kline ;strategy stone with paper-defense + an abundance of redundance ;macro spacing equ 2517 ; mod-1, approximates a mod-4 step boot equ (-2526) for 6 dat n0+1,0 ; alternating ptrs to m0 & n0 dat m0+1,0 rof dat keystone,0 m0 spl mimp+5334 spl -1 ; continuous imp-ring launcher spl mimp+2667 ; activated by stone if needed mimp mov.i #0,2667 ; mov.i nimp,2666 ; backup in case mimp gets decremented for 7 dat 0,0 rof start mov #-277,cnt+11+5667-8 mov -27 ; hide3 djn.a -15,<-107 ; gbbs with hide5 for core-clear hide4 jmz.b *m0-boot-228,}0 ; escape to imp-launchers hide5 djn.a -1,<-107 ; moved by stone onto hide3 hide6 djn.f #0,<-25 ; moved by stone onto cnt for gate for 10 dat 0,0 rof for 6 dat m0+1,0 dat n0+1,0 ; alternating ptrs to m0 & n0 rof dat keystone,0 n0 spl nimp+5334 spl -1 ; continuous imp-ring launcher spl nimp+2667 ; activated by stone if needed nimp mov.i #0,2667 ; mov.i mimp,2666 ; backup in case nimp gets decremented p1 dat cnt+5352+boot p2 dat cnt+5576+boot p3 dat cnt+258+boot+3 for 2 dat 1,1 rof end start