home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / GETLESS / GETLESS.PRG < prev    next >
Encoding:
Text File  |  1993-01-16  |  1.7 KB  |  57 lines
  1. *****************************************************************
  2. *     * 07/19/92            GETLESS.PRG               1:12:02   *
  3. *****************************************************************
  4. *     *                                                         *
  5. *     * Description:                                            *
  6. *     * This program illustrates GETless (Foundation ) READs    *
  7. *****************************************************************
  8. SET TALK OFF
  9. CLEAR ALL
  10. savemenu = SET("SYSMENU")  && Save SET SYSMENU setting
  11. SET SYSMENU AUTOMATIC      && Make system menu accessible
  12. QuitIt = .F.
  13. USE Census ORDER STATE
  14. SELECT 2 
  15. USE Cities ORDER State
  16. SELECT 1
  17. ON KEY LABEL F3 DO GoCity    && Activate Cities window
  18. ON KEY LABEL F4 DO GoState     && Activate States window
  19. ON KEY LABEL F5 WAIT WINDOW NOWAIT "Read Level"+LTRIM(STR(RDLEVEL()))
  20. ON KEY LABEL F7 DO StopIt
  21.  
  22. READ VALID QuitIt
  23.  
  24. SET SYSMENU TO DEFAULT
  25. ON KEY                 && Restore function keys
  26. RETURN
  27. ***********************************************************
  28.  
  29. PROCEDURE STOPIT
  30. QuitIt = .T.
  31. CLEAR READ ALL
  32. RETURN
  33. ***********************************************************
  34. * SETCITY  - Initialize City Database Setup
  35. *             Called from CITIES.SPR
  36. PROCEDURE SETCITY
  37. SELECT 2
  38. IF !SEEK(census.state)
  39.     WAIT WINDOW NOWAIT "No cities in list for "+census.state
  40.     RETURN
  41. ENDIF
  42. RETURN
  43. ***********************************************************
  44. PROCEDURE GoCity
  45. IF WONTOP("CITIES") OR WLAST("CITIES")
  46.     RETURN
  47. ELSE
  48.     DO CITIES.SPR
  49. ENDIF
  50. ***********************************************************
  51. PROCEDURE GoState
  52. IF WONTOP("STATE") OR WLAST("STATE")
  53.     RETURN
  54. ELSE
  55.     DO State.SPR
  56. ENDIF
  57.