*****************************************
*	number in d0.l			*
*	d1.l is base			*
*	d2,x cursor			*
*	d3,y cursor			*
*****************************************
prtnum:
	movem.l	d0/d1,-(sp)
	lea	posstring,a0
	add.w	#32,d3
	move.b	d3,2(a0)	
	move.b	d3,8(a0)	
	add.w	#32,d2
	move.b	d2,3(a0)
	move.b	d2,9(a0)	
	move.l	a0,-(sp)
	move.w	#9,-(sp)
	trap	#1
	addq.l	#6,sp
	movem.l	(sp)+,d0/d1

	lea	linebuffer,a0
	clr.l	(a0)+
	clr.l	(a0)+
	clr.l	(a0)+
	clr.l	(a0)+
	clr.l	(a0)+
loop1:
	divu	d1,d0
	swap	d0
	addi	#'0',d0
	cmpi.w	#'9',d0
	ble.s	ok
	addq.w	#7,d0
ok:
	move.b	d0,-(a0)
	clr	d0
	swap	d0
	bne	loop1
loop2:
	move.l	a0,-(sp)
	move.w	#9,-(sp)
	trap	#1
	addq.l	#6,sp
	rts


linebuffer:
	ds.l	5
digits:
	dc.b	0
posstring:	dc.b	27,'Y',0,0,' ',' ',27,'Y',0,0,0
	even



drive:	dc.w	0
fsuccess:
	dc.b	'[1][Disk formatting complete.|'
	dc.b	'This disk has 726016 bytes|'
	dc.b	'available.][ OK ]',0,0
ferroralert:
	dc.b	'[1][An error has occurred|'
	dc.b	'during formatting. Disk|'
	dc.b	'may be unusable.][ OK ]',0,0
formatexplain:
	dc.b	'[3][Formatting a disk will|'
	dc.b	'ERASE everything on it, click|'
	dc.b	'OK only if you are sure you|'
	dc.b	'wish to continue.]'
	dc.b	'[CANCEL|OK]',0,0
format2:
	dc.b	'[2][Which drive do you wish|'
	dc.b	'to format ?][ A | B ]',0,0
	even
fbuffer:	ds.b	$2000
