home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP4_5.PRG < prev    next >
Encoding:
Text File  |  1993-09-23  |  875 b   |  27 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª       Program: EXP4_5.PRG                                          ⌐ª
  3. *⌐ª      Function: ZOMM WINDOW ╩╣╙├ MIN AUTO ╡─╖╢└².                   ⌐ª
  4. *⌐ª    DBF & File: CUSTOMER.DBF                                        ⌐ª
  5. *⌐ª    Creat data: 93.9                                                ⌐ª
  6. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  7. SET TALK OFF
  8. CLEAR
  9.  
  10. USE CUSTOMER
  11. IF ! WEXIST("struct")
  12.    * ╚τ╣√┤░┐┌ "struct" ┤µ╘┌, ╘≥▓╗╙├╓╪╨┬╢¿╥σ.
  13.    DEFINE WINDOW struct FROM 1,1 TO 80,55;
  14.       SYSTEM FLOAT MINIMIZE CLOSE;
  15.       COLOR SCHEME 10;
  16.       TITLE "┐Γ╜ß╣╣"
  17. ENDIF
  18.  
  19. ACTIVATE WINDOW struct NOSHOW
  20. * ┤≥┐¬┤░┐┌ struct
  21. LIST STRUCTURE
  22. * ╧╘╩╛┐Γ╜ß╣╣
  23. ZOOM WINDOW struct MIN AUTO
  24. * ┤░┐┌╫ε╨í╗»▓ó╫╘╢»╦⌡╡╜╞┴─╗╙╥╧┬╜╟.
  25. SHOW WINDOW struct
  26. * ╫╝▒╕║├, ╣⌐╩╣╙├.
  27.