home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP11_2.PRG < prev    next >
Encoding:
Text File  |  1994-01-15  |  1.4 KB  |  55 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: EXP11_2.PRG                                          ⌐ª
  3. *⌐ª     Function: LASTKEY() ║»╩²╙ª╙├╡─╖╢└².                            ⌐ª
  4. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  5. SET TALK OFF
  6. SET SAFETY OFF
  7. CLOSE ALL
  8. IF FILE("song.dbf")
  9.    USE song
  10.    COPY TO test
  11. ELSE
  12.    CANCEL
  13. ENDIF
  14. DEFINE WINDOW win ;
  15.         FROM INT((SROWS()-11)/2),INT((SCOLS()-40)/2) ;
  16.         TO INT((SROWS()-11)/2)+10,INT((SCOLS()-40)/2)+39 ;
  17.         TITLE "▒α╝¡┤░┐┌" ;
  18.         FLOAT ;
  19.         NOCLOSE ;
  20.         SHADOW ;
  21.         DOUBLE ;
  22.         COLOR SCHEME 5
  23. USE test
  24. CLEAR
  25. ACTIVATE WINDOW win
  26. DO WHILE .T.
  27.    mSINGER=SPACE(LEN(singer))
  28.    mSONGNAME=SPACE(LEN(songname))
  29.    mWORD=SPACE(LEN(word))
  30.    mTUNE=SPACE(LEN(tune))
  31.    mCOMPANY=SPACE(LEN(company))
  32.    @ 0,3 SAY "╕Φ╩╓╨╒├√: " GET mSINGER
  33.    @ 2,3 SAY "╕Φ╟·├√│╞: " GET mSONGNAME
  34.    @ 4,3 SAY "    ╫≈┤╩: " GET mWORD
  35.    @ 6,3 SAY "    ╫≈╟·: " GET mTUNE
  36.    @ 8,3 SAY "╖ó╨╨╣½╦╛: " GET mCOMPANY
  37.    READ
  38.    IF LASTKEY()=27
  39.       CLEAR WINDOWS
  40.       CLEAR GETS
  41.       LIST
  42.       CLOSE ALL
  43.       ERASE test.dbf
  44.       EXIT
  45.    ELSE
  46.       APPEND BLANK
  47.       REPLACE singer WITH mSINGER
  48.       REPLACE songname WITH mSONGNAME
  49.       REPLACE word WITH mWORD
  50.       REPLACE tune WITH mTUNE
  51.       REPLACE company WITH mCOMPANY
  52.    ENDIF
  53. ENDDO
  54. RETURN
  55.