;redcode-94nop ;name Simplicity ;author John Metcalf ;strategy qscan -> silk-imps ;assert CORESIZE==8000 org qscan qfac equ 6241 qdec equ 3362 qa equ (qfac*(qtab0-1-qptr)+1) qb equ (qfac*(qtab0-qptr)+1) qc equ (qfac*(qtab1-1-qptr)+1) qd equ (qfac*(qtab1-qptr)+1) qe equ (qfac*(qtab1+1-qptr)+1) qf equ (qfac*(qtab2-qptr)+1) qtime equ 18 qstep equ -7 qgap equ 87 qdecode mul.b *q1, qptr q0 sne papera, }papera paperb spl step2 mov >paperb, }paperb paperc spl step3 mov >paperc, }paperc mov.i #-step1*2, }step1 mov.i #-step2*2, }step2 mov.i #-step3*2, }step3 end