;redcode-94x ;name Bicarb BX 28 ;author Steve Gunnell ;assert 1 BMB equ (cbase - 7167) GATE equ (ctop1 - 88) START1 equ 11999 START2 equ 5437 WAIT equ 101 GAP1 equ 11 GAP2 equ 13 GAP3 equ 11 STEP1 equ 29341 STEP2 equ 21395 CPTR dat #0 ,#100 for GAP1 dat.f $0 ,$0 rof cclr djn.b #0 ,#WAIT spl paper spl #0 ,0 mov clbmb ,>CPTR djn.f -1 ,>CPTR clbmb dat >2667 ,#ctop1-CPTR for GAP2 dat.f $0 ,$0 rof ctop1 spl #0 ,#0 spl cmov2 ,1 mov.i BMB ,1 cbase mov.i BMB ,-1 mov.i {tpap ,-1 ,