opo 17 5
:1
opo 11 100
ipo 10 ax
and ax 30
add ax 5
opo 14 ax

set bx ax
add bx -7
mpy bx -1
opo 12 bx


ipo 7 ax
cmp ax 1500
jgr 1
ipo 8 ax
mpy ax 3
ipo 2 cx
cmp cx 250
jgr 2
opo 15 ax
opo 15 ax
opo 15 ax
opo 15 ax
jmp 1
:2
cmp cx 300
jgr 1
opo 15 ax
jmp 1