;redcode-94 verbose ;name PGP ;author Steven Morrell ;strategy Encrypt P-space for added security. ;kill PGP org boot offset equ 500 stream equ 250 step equ 12 first equ (20+step) flag equ 167 ; stp equ nop ;uncomment to make this run when VERSION<80 x mov p,p+offset ;Sloppy!!! (Just used as pointer) boot mov }x,>x for 16 mov }x,>x rof jmp scan+offset p dat first,first+step dat last-p,p stp.i #last-p,}p spl #last-p,}p-20 d spl #step*-2,#step*-2 ;Also sloppy loop sub d,p scan sne *p,@p sub d,p sne *p,@p sub d,p sne *p,@p sub d,p sne *p,@p djn.f loop,