!****************
init'hot'spot:
!****************
!
! Initialize hot spot processing.
!
!  NOTE: Call once at top of program
!
! input:
!	none
!
! output:
!	none
!
	XCALL	WINFLG, hotspt, 162.0
	RETURN

!****************
set'hot'spot:
!****************
!
! Set the hot spots for this screen
!
! input:
!	hot'spot(x)	Set the hot spot table (hs'row, hs'col, hs'len).
!
! output:
!	none
!
	hot'cnt	= 0
	IF	hotspt = 0			&
		RETURN

	FOR	hs'x = 1 TO 75
	 IF	hs'row(hs'x) = ""		&
		hs'x	= 75			&
	    ELSE				&
		hot'cnt	= hot'cnt + 1

	NEXT	hs'x

	PRINT	TAB(-1,162);CHR$(hot'cnt+32);
	IF	hot'cnt = 0			&
		RETURN

	FOR	hs'x = 1 TO hot'cnt
	 hs'r	= VAL(hs'row(hs'x))
	 hs'c	= VAL(hs'col(hs'x))
	 hs'l	= VAL(hs'len(hs'x))
	 hs'key	= hs'str(hs'x)

	 PRINT	CHR$(LEN(hs'key)+32);hs'key;		&
		CHR(hs'r+31);

	 IF	hs'c > 96				&
		PRINT	CHR(25);CHR(hs'c-65);		&
	    ELSE					&
		PRINT	CHR(hs'c+31);
	

	 PRINT	CHR(hs'r+31);

	 hs'c	= hs'c + hs'l - 1
	 IF	hs'c > 96				&
		PRINT	CHR(25);CHR(hs'c-65);		&
	    ELSE					&
		PRINT	CHR(hs'c+31);

	NEXT	hs'x
	hot'cnt	= 0
	RETURN

!*****************
clear'hot'spot: 
!*****************
!
! Clear the hot spots
!
! input:
!	none
!
! output:
!	none
!
	hot'cnt	= 0
	IF	hotspt = 0			&
		RETURN

	FOR	hs'x = 1 TO 75
	 hs'row(hs'x)	= ""
	NEXT	hs'x
	PRINT	TAB(-1,159);
	RETURN

.