home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / MISC / NESTED.PRG < prev    next >
Encoding:
Text File  |  1992-08-07  |  1.6 KB  |  52 lines
  1. ***************************************************************
  2. *     * 08/02/92            NESTED.PRG             9:11:32    *
  3. ***************************************************************
  4. *     *                                                       *
  5. *     * Description:                                          *
  6. *     * This program illustrates nested reads                 *
  7. ***************************************************************
  8. SET TALK OFF
  9. CLEAR ALL
  10. USE CENSUS
  11. STORE .F. TO QuitSys
  12. STORE 1 TO Choice
  13. DEFINE WINDOW Selection FROM 18,0 to 20,79
  14. DEFINE WINDOW MEMOWINDOW FROM 2,20 to 16,70
  15. DEFINE WINDOW EDIT FROM 0,0 TO 16,40 COLOR SCHEME 10
  16. DEFINE WINDOW BROWSE FROM 0,30 TO 16,79 COLOR SCHEME 10
  17. ACTIVATE WINDOW Selection
  18. @ 0,3 GET Choice SIZE 1,8,1 VALID Action() FUNCTION;
  19.     "*HN \<Browse;\<Edit;\<Memo;\<Top;B\<ottom;\<Next;\<Prev;\<Quit"
  20. READ CYCLE WITH BROWSE,EDIT,INFO VALID QuitSys
  21. CLEAR ALL
  22. FUNCTION Action
  23. DO CASE
  24.      CASE Choice = 1
  25.           BROWSE WINDOW BROWSE
  26.      CASE Choice = 2
  27.           DO NEST.SPR 
  28.      CASE Choice = 3
  29.           MODI COMM INFO
  30.      CASE Choice = 4
  31.           GO TOP
  32.      CASE Choice = 5
  33.           GO BOTTOM
  34.      CASE Choice = 6
  35.           IF RECNO() < RECCOUNT() 
  36.               SKIP
  37.           ELSE
  38.               WAIT WINDOW NOWAIT "End of File Encountered"
  39.           ENDIF        
  40.      CASE Choice = 7
  41.           IF RECNO() > 1
  42.               SKIP -1
  43.           ELSE
  44.               WAIT WINDOW NOWAIT "Beginning of File Encountered"
  45.           ENDIF        
  46.      CASE Choice = 8
  47.           QuitSys = .T.
  48.           CLEAR READ
  49.           RETURN .T.
  50. ENDCASE
  51. RETURN .F.
  52.