UTILIT ;		* * * * * * * * * * * * *
 ;		*  PROGRAM BY KIM WATT  *
 ;		* BREEZE COMPUTING INC. *
 ;		*     P.O. BOX  1013    *
 ;		* BERKLEY, MICH.  48072 *
 ;		*    (313) 288-9422     *
 ;		*    FEBRUARY,  1980    *
 ;		* * * * * * * * * * * * *																											
 ;	UTILITY/TXT																														
 	ORG	7000H
 STACK	DEFB	0
 ENTRY	LD	SP,STACK
 	CALL	DISPLY		;DISPLAY FOLLOWING
 	DEFW	1F1CH		;CLEAR SCREEN
 	DEFM	'BREEZE SPECIAL UTILITY LOADER - '
 	DEFM	'VERSION 1.0'
 	DEFW	00H		;NO KEY INPUT REQUIRED
 	CALL	BOOT		;LOAD UTILITIES INTO MEM.
 	JP	7100H		;TRANSFER CONTROL
 DISPLY	POP	HL		;GET DATA POINTER
 AA	LD	A,(HL)		;GET BYTE
 	INC	HL		;POINT TO NEXT BYTE
 	OR	A		;SET FLAGS
 	JR	Z,AB		;END OF MESSAGE REACHED
 	CALL	33H		;DISPLAY BYTE
 	JR	AA		;DO IT AGAIN
 AB	LD	A,(HL)		;GET KEY REQUIREMENT
 	INC	HL		;POINT TO RETURN ADDRESS
 	PUSH	HL		;SAVE ADDRESS
 	OR	A		;SET FLAGS
 	RET	Z		;NO KEYBOARD REQUIRED
 	LD	B,A		;SAVE # OF CHARACTERS
 	LD	HL,(4020H)	;GET CURSOR POSITION
 	LD	(CURSOR),HL	;SAVE POSITION
 AC	PUSH	BC		;SAVE BYTE COUNT
 	CALL	49H		;GET A CHARACTER
 	POP	BC		;RESTORE BYTE COUNT
 	CP	08H		;BACKSPACE ?
 	JR	Z,AD		;OK
 	CP	18H		;SHIFT LEFT ARROW ?
 	JR	Z,AD		;OK
 	CP	2FH		;LESS THAN NUMERIC ?
 	JR	C,AC		;BAD INPUT
 	CP	5BH		;MORE THAN ALPHA ?
 	JR	NC,AC		;BAD INPUT
 	CP	3AH		;NUMERIC
 	JR	C,ALPNUM
 	CP	41H		;ALPHA
 	JR	NC,ALPNUM
 	JR	AC		;BAD INPUT
