Category : BASIC Source Code
Archive   : MASK10.ZIP
Filename : MASK.HLP

 
Output of file : MASK.HLP contained in archive : MASK10.ZIP

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