#config armor=2         ; consumes 2 points
#config scanner=3       ; gives us 5 points
#config engine=3        ; gives us 2 points
#config heatsinks=1     ; gives us 1 point
#config mines=0         ; consumes 5 points
#config weapon=3        ; gives us 2 points
#config shield=0        ; consumes 3 points
int 3
#def pls
opo 17, 64
opo 22, 12
opo 22, 12
:1
ipo 2, ax
cmp ax, 200
jgr 11
opo 11, 100
ipo 17, bx
ipo 7, ax
cmp ax, 1500
jgr 2
jmp 3

:2
ipo 17, bx
cmp bx, 64
jeq 4
add bx, bx
opo 17, bx
jmp 100

:4
opo 12, 128
jmp 100

!left
mpy bx, -1
opo 12, bx
ipo 17, bx
cmp bx, 8
jls 5
jmp 100

!right
opo 12, bx
!good
ipo 17, bx
cmp bx, 8
jls 5
jmp 100

:3
ipo 17, bx
shr bx, 1
opo 17, bx
mpy bx, @3
opo 12, bx
opo 15
ipo 7, fx
ipo 8, ax
cmp ax, 0
jgr !left
jls !right
jeq !good

:5
cmp bx, 4
jeq 6
jls 9
:8
mov fx, @3
shl fx, 1
ipo 2, ax
cmp ax, 75
jls 7
!fire
opo 15, fx
opo 15, fx
opo 18, 0
jmp 100

:7
opo 18, 1
jmp !fire

:6
mov fx, @3
ipo 2, ax
cmp ax, 75
jls 7
jmp !fire

:9
cmp bx, 2
jeq 10
jmp 8
:10
opo 17, 4
jmp 8

:11
err 999
mov ax, 10
mov ex, 0
:12
inc ex
opo 14, 32
opo 11, 100
delay 100
cmp ex, bx
jls 12

:100
ipo 3, pls
int 2
cmp fx, 900
jgr 500
cmp fx, 100
jls 400
cmp ex, 900
jgr 700
cmp ex, 100
jls 800
jmp 1

:700
cmp pls, 128
jgr 1
cmp pls, 64
jgr 200
jmp 300
:800
cmp pls, 128
jls 1
cmp pls, 192
jgr 200
jmp 300

:400
cmp pls, 192
jls 600
jmp 300

:500
cmp pls, 128
jgr 700
jmp 300

:600
cmp pls, 64
jgr 1
jmp 200

:700
cmp pls, 192
jls 200
jmp 1

:200
opo 14, 64
jmp 1

:300
opo 14, -64
jmp 1