opt	c-,l+
	section	hiscore,code
	xdef	hiscore,hiend,namestr
	xref	char,text,hiflg,pauza,again
	xref	turn,clrscr,setscr,getjoy2

	include	df0:Joystick.i

histart:move.b	#1,hiflg
	jmp	again

hiend:	move.b	#0,hiflg
	jmp	again

HISCORE JSR	HISTART

	JSR	TURN
	JSR	CLRSCR

	LEA	WELLSTR,A2
	MOVEQ	#4,D3
	MOVEQ	#0,D4
	JSR	TEXT

	LEA	TPLATE,A2
	MOVEQ	#3,D3
	MOVEQ	#2,D4
	JSR	TEXT

	LEA	DPLATE,A2
	MOVEQ	#8,D3
	MOVEQ	#3,D4
	JSR	TEXT

	LEA	LINEAA,A2
	MOVEQ	#0,D3
	MOVEQ	#5,D4
	JSR	TEXT

	LEA	LINEB,A2
	MOVEQ	#0,D3
	MOVEQ	#7,D4
	JSR	TEXT

	LEA	LINEC,A2
	MOVEQ	#0,D3
	MOVEQ	#9,D4
	JSR	TEXT
 
	LEA	LINED,A2
	MOVEQ	#0,D3
	MOVEQ	#11,D4
	JSR	TEXT
	JSR	SETSCR

	MOVEQ	#0,D1
	MOVEQ	#6,D2
	MOVE.L	#48,D0
	JSR	CHAR

	LEA	POSOF,A1
	MOVE.B	#0,(A1)
	LEA	KX,A1
	MOVE.B	#0,(A1)+
	MOVE.B	#6,(A1)
	LEA	NAMX,A1
	MOVE.B	#0,namx

HILOP:	JSR	GETJOY2
	btst	#lijevo,D0
	BNE	JLEFT
	btst	#desno,D0
	BNE	JRIGHT
	btst	#gore,D0
	BNE	JUP
	btst	#dolje,D0
	BNE	JDOWN
	btst	#fire,D0
	BNE	DOBUT
	BRA.S	HILOP

JLEFT:	pea	jleft0
	bra.s	jump
JRIGHT:	pea	jright0
	bra.s	jump
JUP:	pea	jup0
	bra.s	jump
JDOWN:	pea	jdown0
jump:	MOVEq	#0,D0
	moveq	#0,D1
	moveq	#0,D2
	MOVE.B	kx,D1
	MOVE.B	ky,D2
	JSR	CHAR
	MOVE.L	#48,D0
	moveq	#0,D1
	moveq	#0,D2
	MOVE.B	kx,D1
	MOVE.B	ky,D2
	rts
jleft0:	cmpi	#0,d1
	bne.s	jl00
	moveq	#18,d1
	addi.b	#9,posof
	bra.s	jl01
jl00:	subq	#2,d1
	subi.b	#1,posof
jl01:	move.b	d1,kx
	bra.s	jcont

jright0:CMPI.B	#18,d1
	Bne.s	JR00
	moveq	#0,d1
	subi.b	#9,posof
	bra.s	jr01
jr00:	ADDq	#2,D1
	ADDI.B	#1,posof
jr01:	move.b	d1,kx
	bra.s	jcont

jup0:	CMPI.B	#6,d2
	Bne.s	JU00
	moveq	#12,d2
	addi.b	#30,posof
	bra.s	ju01
ju00:	SUBq	#2,D2
	SUBI.B	#10,posof
ju01:	move.b	d2,ky
	bra.s	jcont

jdown0:	CMPI.B	#12,d2
	Bne.s	JD00
	moveq	#6,d2
	subi.b	#30,posof
	bra.s	jd01
jd00:	ADDq	#2,D2
	ADDI.B	#10,posof
jd01:	move.b	d2,ky
jcont:	JSR	CHAR
	JSR	PAUZA
	BRA	HILOP

DOBUT	LEA	HINTAB,A1
	LEA	POSOF,A2
	CLR.L	D0
	MOVE.B	(A2),D0
	MOVE.B	0(A1,D0),D0
	CMPI.B	#47,D0
	BEQ	ENHID
	CMPI.B	#45,D0
	BEQ	HIRUB
	LEA	NAMX,A3
	CLR.L	D5
	MOVE.B	(A3),D5
	CMPI.B	#8,D5
	BEQ	HILOP
	MOVEQ	#8,D1
	MOVEQ	#2,D2
	ADD.B	D5,D1
	LEA	NAMESTR,A5
	MOVE.B	D0,0(A5,D5)
	ADDI.B	#1,(A3)
	JSR	CHAR
	JSR	PAUZA
	BRA	HILOP

HIRUB	LEA	NAMX,A1
	CLR.L	D1
	MOVE.B	(A1),D1
	CMPI.B	#0,D1
	BEQ	HILOP
	SUBI.B	#1,(A1)
	SUBI.B	#1,D1
	MOVE.B	D1,D5
	LEA	NAMESTR,A1
	MOVE.B	#0,0(A1,D1)
	MOVEQ	#0,D0
	MOVEQ	#8,D1
	MOVEQ	#2,D2
	ADD.B	D5,D1
	JSR	CHAR
	JSR	PAUZA
	BRA	HILOP

ENHID	RTS


NAMESTR DC.B	0,0,0,0,0,0,0,0,0
NAMX	DC.B	0
POSOF	DC.B	0
KX	DC.B	0
ky:	dc.b	0
HINTAB	DC.B	1,2,3,4,5,6,7,8,9,10,11,12,14,15,16,17
	DC.B	18,19,20,21,22,23,24,25,26,27,28,29,30
	DC.B	31,32,33,34,35,36,37,38,44,45,47
	DC.B	0

WELLSTR DC.B	25,5,12,12,0,4,16,15,5,0,39,255
TPLATE	DC.B	15,1,14,5,49,255
DPLATE	DC.B	48,48,48,48,48,48,48,48,255
LINEAA	DC.B	1,0,2,0,3,0,4,0,5,0,6,0,7,0,8,0,9,0,10,255
LINEB	DC.B	11,0,12,0,14,0,15,0,16,0,17,0,18,0,19,0,20,0,21,255
LINEC	DC.B	22,0,23,0,24,0,25,0,26,0,27,0,28,0,29,0,30,0,31,255
LINED	DC.B	32,0,33,0,34,0,35,0,36,0,37,0,38,0,44,0,45,0,47,255