home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / MISC / READLVL.PRG < prev    next >
Encoding:
Text File  |  1993-02-01  |  997 b   |  28 lines
  1. *****************************************************************
  2. *     * 09/92               READLVL.PRG                         *
  3. *****************************************************************
  4. *     * Author's Name: Jeb Long                                 *
  5. *     *                                                         *
  6. *     * Description:                                            *
  7. *     * This program illustrates what happens if you exceed     *
  8. *     * the maximum number of 5 read levels.                    *
  9. *****************************************************************
  10. = NESTER()
  11. WAIT WINDOW
  12. CLEAR ALL
  13. RETURN
  14. *************************************************
  15. FUNCTION Nester
  16. Index = RDLEVEL()+1
  17. Name = CHR(64 + Index)
  18. set talk off
  19. R = Index*3
  20. DEFINE WINDOW (Name) FROM R,10+R TO R+3,30+R
  21. STORE Index TO &Name
  22. ACTIVATE WINDOW (Name)
  23. @  0,0  SAY "Window:"  GET Name 
  24. @  1,0 SAY "Level: "+ LTRIM(STR(RDLEVEL()))
  25. READ WHEN Nester()
  26. RETURN .F.
  27.     
  28.