home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / ADDRLIST / ADDRLIST.PRG < prev   
Encoding:
Text File  |  1993-01-31  |  919 b   |  18 lines
  1. *****************************************************************
  2. *     * 09/92               ADDRLIST.PRG                        *
  3. *****************************************************************
  4. *     * Author's Name: Jeb Long                                 *
  5. *     *                                                         *
  6. *     * Description:                                            *
  7. *     * This program illustrates the use of READ OBJECT clause  *
  8. *     *                                                         *
  9. *****************************************************************
  10. USE ADDRLIST
  11. STORE 1 to PushButton
  12. @ 4,1 SAY " Last Name:" GET LastName   && Object # 1
  13. @ 5,1 SAY "First name: " GET FirstName  && Object # 2
  14. @ 6,1 SAY "   Address: " GET Address    && Object # 3
  15. *                        Object  #4  #5    #6
  16. @ 8,1 GET PushButton PICTURE "@*H OK;Cancel;Panic"
  17. READ OBJECT 5
  18.