COPY/T ;		* * * * * * * * * * * * *
 ;		*  Program by Kim Watt  *
 ;		* Breeze Computing Inc. *
 ;		*     P.O. Box  1013    *
 ;		* Berkley, Mich.  48072 *
 ;		*    (313)  288-9422    *
 ;		* * * * * * * * * * * * *
 ;
 ;
 ;
 ;
 ;
 ;
 ;
 ;
 	ORG	5200H
 START	CALL	DISPLY
 	DEFW	1F1CH
 	DEFM	'- BREEZE SPECIAL COPY UTILITY -'
 	DEFW	0D0DH
 	DEFM	'Source disk to be mounted on Drive 0.'
 	DEFW	0D0DH
 	DEFB	0
 	LD	A,2
 	LD	C,1
 	LD	B,3
 	LD	IX,ONES
 	LD	(IX),99
 	INC	IX
 GETLP	PUSH	BC
 	PUSH	AF
 	LD	A,C
 	CALL	ASCII
 	LD	A,B
 	LD	(WHDRIV),A
 BAD7	CALL	DISPLY
 	DEFB	0DH
 	DEFM	'Do you want to copy to Drive '
 WHDRIV	DEFM	'0 ? '
 	DEFB	0
 	LD	B,3
 	CALL	GETSTR
 	CP	'Y'
 	JR	Z,OKYES
 	CP	'N'
 	JR	NZ,BAD7
 	LD	A,99
 	LD	(IX),A
 	JR	NEXT
 OKYES	POP	AF
 	LD	(IX),A
 	PUSH	AF
 NEXT	POP	AF
 	POP	BC
 	INC	IX
 	RLA
 	INC	C
 	DJNZ	GETLP
 	LD	IX,ONES+1
 	CALL	STATCK
 	LD	IX,ONES+1
 	LD	IY,TRACKS
 BAD88	CALL	DISPLY
 	DEFB	0DH
 	DEFM	'Enter diskette track count (2-96): '
 	DEFB	0
 	LD	B,2
 	CALL	GETSTR
 	JR	Z,BAD8
 	CALL	VALUE
 	LD	A,E
 	CP	2
 	JR	C,BAD88
 	CP	61H
 	JR	NC,BAD88
 	JR	RESUME2
 BAD8	CALL	DISPLY
 	DEFB	0DH
 	DEFM	'35 Tracks assumed !'
 	DEFB	0
 	LD	A,35
 RESUM2	LD	(IY),A
 	JR	Z,BAD8
 	CALL	VALUE
 	LD	A,E
 	CP	2
 	JR	C,BAD88
 	CP	61H
 	JR	NC,BAD88
 	JR	RESUME2
 BAD8	CALL	DISPLY
 	DEFB	0DH
 	DEFM	'35 Tracks assume