home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP11_3.PRG < prev    next >
Encoding:
Text File  |  1994-01-15  |  1.4 KB  |  51 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: EXP11_3.PRG                                          ⌐ª
  3. *⌐ª     Function: READKEY() ║»╩²╙ª╙├╡─╖╢└².                            ⌐ª
  4. *⌐ª   DBF & File: PERSONAL.DBF   PERSONAL.FPT                          ⌐ª
  5. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  6. SET TALK OFF
  7. SET SAFETY OFF
  8. SET DATE ANSI
  9. CLEAR ALL
  10. DEFINE WINDOW win FROM 5,14 TO 19,59 ;
  11.        TITLE "╫╩┴╧┤ª└φ" ;
  12.        DOUBLE ;
  13.        SHADOW ;
  14.        FOOTER "[ ░┤ Esc ╝ⁿ└δ┐¬ ]";
  15.        COLOR SCHEME 5
  16.  
  17. COPY FILE PERSONAL.DBF TO TEST1.DBF
  18. COPY FILE PERSONAL.FPT TO TEST1.FPT
  19. USE TEST1
  20. CLEAR
  21. ACTIVATE WINDOW win
  22. *@ 12,12 SAY "<╟δ░┤  ESC  ╝ⁿ└δ┐¬>"
  23. DO WHILE  !EOF()
  24.    @ 1,11 SAY "    ╨╒├√:" GET A5
  25.    @ 2,11 SAY "    ╡Ñ╬╗:" GET A2
  26.    @ 3,11 SAY "    ╨╘▒≡:" GET A6
  27.    @ 4,11 SAY "│÷╔·╚╒╞┌:" GET A9
  28.    @ 5,11 SAY "╨╨╒■╓░╬±:" GET A13
  29.    @ 6,11 SAY "╫¿╥╡╓░│╞:" GET A14
  30.    @ 7,11 SAY "╬─╗»│╠╢╚:" GET A17
  31.    @ 8,11 SAY "▒╧╥╡╘║╨ú:" GET A19
  32.    @ 9,11 SAY "╦∙╤º╫¿╥╡:" GET A20
  33.    @10,11 SAY "╦∙╤º═Γ╙∩:" GET A22
  34.    READ
  35.    IF UPDATED()
  36.       IF READKEY()=268    && ▒φ╩╛╨▐╕─╣² GET ╫╓╢╬╟╥░┤╧┬ [ESC] ╝ⁿ
  37.          EXIT
  38.       ENDIF
  39.    ELSE
  40.       IF READKEY()=12     && ▒φ╩╛╬┤╨▐╕─╣² GET ╫╓╢╬╟╥░┤╧┬ [ESC] ╝ⁿ
  41.          EXIT
  42.       ENDIF
  43.    ENDIF
  44.    SKIP
  45. ENDDO
  46. CLEAR WINDOWS
  47. CLOSE ALL
  48. ERASE TEST1.DBF
  49. ERASE TEST1.FPT
  50. RETURN
  51.