home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / MULTWIND / MULTWIND.PRG < prev   
Encoding:
Text File  |  1992-08-06  |  1.6 KB  |  47 lines
  1. ***************************************************************
  2. *     * 07/31/92            MULTWIND.PRG            9:12:22   *
  3. ***************************************************************
  4. *     *                                                       *
  5. *     * Description:                                          *
  6. *     * This program illustrates multiple window READs        *
  7. ***************************************************************
  8. SET TALK OFF
  9. CLEAR ALL
  10. CLEAR
  11. USE INFOFILE
  12. STORE 2 TO CHOICE
  13. DEFINE WINDOW A FROM 3,3 TO 8,45 TITLE "Personal Data";
  14.                 FLOAT SHADOW DOUBLE COLOR SCHEME 5
  15. DEFINE WINDOW B FROM 10,3 TO 18,45 TITLE "Company Info";
  16.                 FLOAT SHADOW DOUBLE COLOR SCHEME 5
  17. DEFINE WINDOW C FROM 10,30 TO 16,70 TITLE "Confirmation";
  18.                 FLOAT SHADOW COLOR SCHEME 10
  19. ACTIVATE WINDOW A
  20. @ 1,1 SAY "    Name:" GET Name
  21. @ 2,1 SAY "     Age:" GET Age
  22. ACTIVATE WINDOW B
  23. @ 1,1 SAY " Company:" GET Company
  24. @ 2,1 SAY " Address:" GET Address
  25. @ 3,1 SAY "    City:" GET City
  26. @ 4,1 SAY "   State:" GET State
  27. @ 5,1 SAY "     Zip:" GET Zip
  28. READ cycle DEACTIVATE CheckExit() ;
  29.            ACTIVATE ShowPrompt()
  30. CLEAR ALL
  31. RETURN
  32. ****************************************************
  33. FUNCTION CheckExit
  34. IF WONTOP() = "A"
  35.      Choice = 2
  36.      ACTIVATE WINDOW C
  37.      @ 1,3 SAY "Have you finished making changes?" 
  38.      @ 3,5 GET Choice PICTURE '@*H Yes;No' SIZE 1, 8, 12
  39.      READ MODAL CYCLE
  40.      DEACTIVATE WINDOW C
  41.      RETURN (Choice = 1)
  42. ENDIF
  43. RETURN .F.
  44. ***************************************************
  45. FUNCTION ShowPrompt
  46. WAIT WINDOW NOWAIT "Please correct the information"
  47. RETURN .T.