#config scanner=4
#config weapon=2
#config engine=3
#config armor=2
#config heatsinks=1

mov ax, 2
int 3

!nt
opo 12, 64
call !move
!32
opo 17, 32
ipo 7, fx
cmp fx, 2000
jgr !nt
mov bx, @3
shl bx, 4
opo 12, bx
!8
int 9
err ex
opo 11, 100
opo 17, 8
ipo 7, fx
cmp fx, 2000
jgr !32
cmp fx, 200
jgr !hop
cmp ax, 0
je !hop
opo 22, 12
dec ax
!hop
call !move
mov bx, @3
shl bx, 2
opo 12, bx
ipo 2, bx
cmp bx, 200
jgr !8
opo 15
je !8
jne !8

!move
int 2
cmp @9, 100
jls !clear
cmp ex,	100
jls !mleft
cmp ex,	900
jgr !mright
cmp fx,	100
jls !mup
cmp fx,	900
jgr !mdown
opo 14, 64
!clear
opo 11, 100
ret


!mleft
int 19
ipo 3, bx
mov dx, 64
sub dx, bx
opo 14, dx
opo 11, 100
ret

!mright
int 19
ipo 3, bx
mov dx, 192
sub dx, bx
opo 14, dx
opo 11,	100
ret

!mdown
int 19
ipo 3, bx
mov dx, 0
sub dx, bx
opo 14, dx
opo 11, 100
ret

!mup
int 19
ipo 3, bx
mov dx, 128
sub dx, bx
opo 14, dx
opo 11,	100
ret