home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP11_1.PRG < prev    next >
Encoding:
Text File  |  1994-01-15  |  1.5 KB  |  55 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: EXP11_1.PRG                                          ⌐ª
  3. *⌐ª     Function: INKEY() ║»╩²╙ª╙├╖╢└².                                ⌐ª
  4. *⌐ª   DBF & File: SONG.DBF                                             ⌐ª
  5. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  6. SET TALK OFF
  7. SET SAFETY OFF
  8. CLOSE ALL
  9. IF FILE("song.dbf")
  10.    USE song
  11.    COPY STRUCTURE TO test FIELDS singer,songname,word,tune,company CDX
  12. ELSE
  13.    CANCEL
  14. ENDIF
  15.  
  16. * ╢¿╥σ╥╗╕÷▒α╝¡┤░┐┌
  17. DEFINE WINDOW win ;
  18.         FROM INT((SROWS()-11)/2),INT((SCOLS()-40)/2) ;
  19.         TO INT((SROWS()-11)/2)+10,INT((SCOLS()-40)/2)+39 ;
  20.         TITLE "▒α╝¡┤░┐┌" ;
  21.         FLOAT ;
  22.         NOCLOSE ;
  23.         SHADOW ;
  24.         DOUBLE ;
  25.         COLOR SCHEME 7
  26. USE test
  27. CLEAR
  28. ACTIVATE WINDOW win
  29. DO WHILE .T.
  30.    APPEND BLANK
  31.    @ 0,3 SAY "╕Φ╩╓╨╒├√: " GET SINGER
  32.    @ 2,3 SAY "╕Φ╟·├√│╞: " GET SONGNAME
  33.    @ 4,3 SAY "    ╫≈┤╩: " GET WORD
  34.    @ 6,3 SAY "    ╫≈╟·: " GET TUNE
  35.    @ 8,3 SAY "╖ó╨╨╣½╦╛: " GET COMPANY
  36.    mykey=INKEY(5,"HM")
  37.    * ╡╚┤² 5├δ╓╙, ╥■▓╪╙╬▒Ω, ╓º│╓╩≤▒Ω, ╜½░┤╝ⁿ╡─╢╘╙ª╓╡┤µ╚δ▒Σ┴┐ mykey ╓╨
  38.    IF mykey=0
  39.       *  ╚τ╣√╩╣╙├╒▀ 5├δ╓╙─┌├╗╙╨░┤╚╬║╬╝ⁿ║═╩≤▒Ω░┤┼Ñ, ╘≥ INKEY() ║»╩²┤½╗╪
  40.       *  ╩²╓╡ 0, ╚╗║≤╟σ│²┤░┐┌, ╣╪▒╒╦∙╙╨╬─╝■, ╖╡╗╪ FOXPRO  ╡─├ⁿ┴ε┤░┐┌
  41.       CLEAR WINDOWS
  42.       CLEAR GETS
  43.       LIST
  44.       CLOSE ALL
  45.       EXIT
  46.    ELSE
  47.       IF mykey <> 151
  48.          * ░┤╩≤▒Ω╡─╫≤░┤┼ñ, INKEY() ║»╩²┤½╗╪ 151
  49.          KEYBOARD CHR(mykey)
  50.       ENDIF
  51.       READ
  52.    ENDIF
  53. ENDDO
  54. RETURN
  55.