;redcode-94x ;name W.I.P.E. ;author Christian Schmidt ;strategy boot n clear ;assert 1 org boot bptr1 equ 200 bptr2 equ (bptr1+39) boot mov g1, bptr1 mov g2, bptr1 mov b, bptr2 mov b1, bptr2 boot2 mov {bptr3, g1-17 mov *b+18, >g2-17 cc djn.f -1, {g2-17 b dat #1, 45 b1 spl #-40, 45 bptr3 dat cc+1, boot2+bptr1+19 end