home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 September / Simtel20_Sept92.cdr / msdos / clipper / nannws24.arc / HELPDEMO.PRG < prev    next >
Text File  |  1988-05-18  |  670b  |  31 lines
  1. * Program: HELPDEMO.PRG
  2. * Author:  Ray Love
  3. * Version: Clipper Summer 87
  4. * Notes:   Demonstrates context sensitive help, SAVE and
  5. *                RESTORE SCREEN
  6. * Copyright (c) 1988 Nantucket Corp.
  7. *
  8. DO WHILE LASTKEY() <> 27
  9.    CLEAR
  10.    STORE SPACE(10) TO mem1,mem2
  11.    @ 1,0 TO 24,79
  12.    @ 10,10 SAY "Enter mem1 " GET mem1
  13.    @ 12,10 SAY "Enter mem2 " GET mem2
  14.    READ
  15.    WAIT
  16. ENDDO
  17. RETURN
  18.  
  19.  
  20. PROCEDURE HELP
  21. PARAMETERS proc,line,var
  22. SAVE SCREEN TO mem3
  23. @ 0,0 CLEAR
  24. @ 8,10 TO 16,70
  25. @ 10,20 SAY "PROCEDURE   =>  " + proc
  26. @ 12,20 SAY "LINE NUMBER =>  " + STR(line)
  27. @ 14,20 SAY "VARIABLE    =>  " + var
  28. INKEY(0)
  29. RESTORE SCREEN FROM mem3
  30. RETURN
  31.