LOCATE ,,0,16,16
'***************** temp for help screen for demo only *********************
DIM help$(20), gscrn(1300)
call calcattr(BGColor%,FGColor%,helpborderattr%) : call calcattr(BGColor%,FGColor%,helptitleattr%)
helprow% = 5 : helpbottomrow% = 20 : helpwindowwidth% = 60
helpcol% = 10
HBAR$ = STRING$(helpwindowwidth%,205)
'**************************************************************************

CALL GetScreen(gscrn(0),helprow%,helpcol%,helprow%+helpbottomrow%+2,helpcol%+helpwindowwidth%+1,0,0)
CALL XqPrint("É"+hbar$+"»",helprow%,helpcol%,helpborderattr%,0)
FOR j% = helprow%+1 TO helpbottomrow%-1
	CALL XqPrint("º"+space$(helpwindowwidth%)+"º",j%,helpcol%,helpborderattr%,0)
NEXT j%
CALL XqPrint("È"+hbar$+"¼",helpbottomrow%,helpcol%,helpborderattr%,0)
help$(1) = "KEY              DESCRIPTION "
help$(2) = ""
help$(3)= "F1           HELP (This Screen)"
help$(4)= "ALT-B        Blank Input Field"
help$(5)= "ALT-U        Undo last change"
help$(6)= "INS          Toggle insert on/off"
help$(7)= "BACKSPACE    Deletes previous character. If Insert"
help$(8)= "             is on then all text to the right moves"
help$(9)= "             left one position."
help$(10)= "Ctrl        Moves cursor to next word"
help$(11)= "Ctrl"+ chr$(27)   +  "        Moves cursor to previous word"
help$(12)= "Ctrl End     Deletes from cursor to the end-of-line"
help$(13)= "HOME         Move cursor to the first field postion"
help$(14)= "END          Moves cursor to the last field postion"
for i% = 1 TO ubound(help$)
	if i% = 1 then
		call xqprint(help$(i%),helprow%+i%,helpcol%+5,helptitleattr%,0)
	else
		call xqprint(help$(i%),helprow%+i%,helpcol%+5,helpborderattr%,0)
	end if
next i%
call xqprint("HIT ANY KEY TO RETURN",helpbottomrow%+2,helpcol%+20,helpborderattr%,0)
CALL CLRKBD
do
	h$ = inkey$
loop while h$ = ""
CALL PutScreen(gscrn(0),helprow%,helpcol%,helprow%+helpbottomrow%+2,helpcol%+helpwindowwidth%+1,0,0)
LOCATE ,,1
GOTO GETKEYS
