;redcode-lp ;name Grained Paper ;author Christian Schmidt ;strategy paper ;assert 1 pStep equ 3290 pDist equ 2857 pAwa equ 422 zero equ qbomb qtab3 equ qbomb qbomb dat >qoff, >qc2 dat 0, 0 pPtr dat from+pAwa, 1 for 2 dat 0, 0 rof dat zero - 1, qa1 qtab1 dat zero - 1, qa2 for 42 dat 0, 0 rof qc2 equ ((1 + (qtab3-qptr)*qy) % CORESIZE) qb1 equ ((1 + (qtab2-1-qptr)*qy) % CORESIZE) qb2 equ ((1 + (qtab2-qptr)*qy) % CORESIZE) qb3 equ ((1 + (qtab2+1-qptr)*qy) % CORESIZE) qa1 equ ((1 + (qtab1-1-qptr)*qy) % CORESIZE) qa2 equ ((1 + (qtab1-qptr)*qy) % CORESIZE) qz equ 2108 qy equ 243 qgo sne qptr + qz*qc2, qptr + qz*qc2 + qb2 seq qptr, qptr + qz + (qb2-1) jmp q2,