home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / MASK.ZIP / MASK.HLP < prev    next >
Encoding:
Text File  |  1987-12-30  |  2.0 KB  |  45 lines
  1. LOCATE ,,0,15,15        'turn the cursor off
  2. '***************** temp for help screen for demo only *********************
  3. DIM help$(20), gscrn(1300)
  4. call calcattr(1,7,helpborderattr%) : call calcattr(6,7,helptitleattr%)
  5. helprow% = 5 : helpbottomrow% = 20 : helpwindowwidth% = 60
  6. helpcol% = 10
  7. HBAR$ = STRING$(helpwindowwidth%,205)
  8. '**************************************************************************
  9.  
  10. CALL GetScreen(gscrn(0),helprow%,helpcol%,helprow%+helpbottomrow%+2,helpcol%+helpwindowwidth%+1,0,0)
  11. CALL XqPrint("╔"+hbar$+"╗",helprow%,helpcol%,helpborderattr%,0)
  12. FOR j% = helprow%+1 TO helpbottomrow%-1
  13.     CALL XqPrint("║"+space$(helpwindowwidth%)+"║",j%,helpcol%,helpborderattr%,0)
  14. NEXT j%
  15. CALL XqPrint("╚"+hbar$+"╝",helpbottomrow%,helpcol%,helpborderattr%,0)
  16. help$(1) = "KEY              DESCRIPTION "
  17. help$(2) = ""
  18. help$(3)= "F1           HELP (This Screen)"
  19. help$(4)= "ALT-B        Blank Input Field"
  20. help$(5)= "ALT-U        Undo last change"
  21. help$(6)= "INS          Toggle insert on/off"
  22. help$(7)= "BACKSPACE    Deletes previous character. If Insert"
  23. help$(8)= "             is on then all text to the right moves"
  24. help$(9)= "             left one position."
  25. help$(10)= "Ctrl        Moves cursor to next word"
  26. help$(11)= "Ctrl"+ chr$(27)   +  "        Moves cursor to previous word"
  27. help$(12)= "Ctrl End     Deletes from cursor to the end-of-line"
  28. help$(13)= "HOME         Move cursor to the first field postion"
  29. help$(14)= "END          Moves cursor to the last field postion"
  30. for i% = 1 TO ubound(help$)
  31.     if i% = 1 then
  32.         call xqprint(help$(i%),helprow%+i%,helpcol%+5,helptitleattr%,0)
  33.     else
  34.         call xqprint(help$(i%),helprow%+i%,helpcol%+5,helpborderattr%,0)
  35.     end if
  36. next i%
  37. call xqprint("HIT ANY KEY TO RETURN",helpbottomrow%+2,helpcol%+20,helpborderattr%,0)
  38. CALL CLRKBD
  39. do
  40.     h$ = inkey$
  41. loop while h$ = ""
  42. CALL PutScreen(gscrn(0),helprow%,helpcol%,helprow%+helpbottomrow%+2,helpcol%+helpwindowwidth%+1,0,0)
  43. LOCATE ,,1          'turn the cursor back on
  44. GOTO GETKEYS
  45.