  LOCATE ,,0 ',15,15        'turn the cursor off
  DIM HELP$(22)
  DIM GSCRN(2000)
  CALL CALCATTR(1,7,HELPBORDERATTR) : CALL CALCATTR(6,7,HELPTITLEATTR)
  HELPROW = 1 : HELPBOTTOMROW = 24 : HELPWINDOWWIDTH = 60
  HELPCOL = 10
  HBAR$ = STRING$(HELPWINDOWWIDTH,205)

  WHERE=VARPTR(GSCRN(1))
  CALL SCRSAVE(WHERE)
  OLDCOL=POS(0): OLDROW=CSRLIN
  FOR J = HELPROW+1 TO HELPBOTTOMROW-1
    CALL XQPRINTD("º"+SPACE$(HELPWINDOWWIDTH)+"º",J,HELPCOL,HELPBORDERATTR,0)
  NEXT J
  CALL XQPRINTD("È"+HBAR$+"¼",HELPBOTTOMROW,HELPCOL,HELPBORDERATTR,0)
  HELP$(1)= "KEY              DESCRIPTION "
  HELP$(2)= CHR$(24)+"            Moves cursor up one line."
  HELP$(3)= CHR$(25)+"            Moves cursor down one line."
  HELP$(4)= CHR$(26)+"            Moves cursor right one character."
  HELP$(5)= CHR$(27)+"            Moves cursor left one character."
  HELP$(6)= "ALT-B        Blank input field."
  HELP$(7)= "ALT-K        Toggle auto-cap on/off."
  HELP$(8)= "ALT-U        Undo last change."
  HELP$(9)= "BACKSPACE    Deletes previous character.  Text to"
  HELP$(10)= "             the right moves left one position."
  HELP$(11)= "CAPS LOCK    Toggle all caps on/off."
  HELP$(12)= "Ctrl "+CHR$(26)+"       Moves cursor to next word."
  HELP$(13)= "Ctrl "+CHR$(27)+"       Moves cursor to previous word."
  HELP$(14)= "Ctrl End     Deletes from cursor to the end-of-line."
  HELP$(15)= "DEL          Delete character under cursor."
  HELP$(16)= "END          Moves cursor to the last field postion."
  HELP$(17)= "ESC          Cancel Entry."
  HELP$(18)= "HOME         Move cursor to the first field postion."
  HELP$(19)= "INS          Toggle insert on/off."
  HELP$(20)= "NUM LOCK     Toggle numeric/cursor pad."
  HELP$(21)= "TAB          Next Entry."
  HELP$(22)= "SHIFT TAB    Previous Entry."

  FOR I = 1 TO UBOUND(HELP$)
    IF I = 1 THEN
      CALL XQPRINTD(HELP$(I),HELPROW+I,HELPCOL+5,HELPTITLEATTR,0)
    ELSE
      CALL XQPRINTD(HELP$(I),HELPROW+I,HELPCOL+5,HELPBORDERATTR,0)
    END IF
  NEXT I
  CALL XQPRINTD(" HIT ANY KEY TO RETURN ",HELPBOTTOMROW+1,HELPCOL+19,HELPBORDERATTR,0)
  CALL CLRKBD
  DO
  H$ = INKEY$
  LOOP WHILE H$ = ""
  WHERE=VARPTR(GSCRN(1))
  CALL SCRREST(WHERE)
  LOCATE OLDROW,OLDCOL
  LOCATE ,,1,CU2: GOTO INKEY 'Turn the cursor back on
