;redcode-94 quiet ;name Keystone t33 ;kill Keystone ;author P.Kline ;strategy stone + anti-vamp ;macro spacing equ 2517 ; mod-1, approximates a mod-4 step for 29 dat #-(start*8),2667 rof start mov #-6,hideto+5582 ; avamp pointer mov #100,hideto+5582+78 mov hide4,inc-2269 mov -27 ; moved by stone onto hide3 hide6 djn.f #0,<-25 ; moved by stone onto cnt for gate hideto dat #7242-2073-8+527 hidefr dat #hide3+1 hptr2 dat #hide6+2512+527+1 hide7 djn.f 0,>-26 ; moved by stone onto hide3 hide8 djn.f #0,<-24 ; moved by stone onto cnt for gate for 37 dat #-(start*8),2667 rof end start