home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP11_5.PRG < prev    next >
Encoding:
Text File  |  1994-01-15  |  1.4 KB  |  52 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: EXP11_6.PRG                                          ⌐ª
  3. *⌐ª     Function: ON KEY= ├ⁿ┴ε╙ª╙├╡─╖╢└².                              ⌐ª
  4. *⌐ª   DBF & File: SONG.DBF    SONG.FPT                                 ⌐ª
  5. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  6. SET TALK OFF
  7. SET SAFETY OFF
  8. ON KEY=315 DO myhelp WITH PROGRAM(),VARREAD()
  9. *  ╔Φ╢¿░┤ F1 ╝ⁿ╛═╓┤╨╨│╠╨≥ myhelp
  10. USE song
  11. COPY TO test
  12. USE TEST
  13.  
  14. DEFINE WINDOW win1 FROM 4,16 TO 14,64 FLOAT GROW SHADOW COLOR SCHEME 5
  15. ACTIVATE WINDOW win1
  16. DO WHILE NOT EOF()
  17.    @ 1,10 SAY "╕Φ╩╓╨╒├√: " GET singer
  18.    @ 2,10 SAY "╕Φ╟·├√│╞: " GET songname
  19.    @ 3,10 SAY "    ╫≈┤╩: " GET word
  20.    @ 4,10 SAY "    ╫≈╟·: " GET tune
  21.    @ 5,10 SAY "╖ó╨╨╣½╦╛: " GET company
  22.    @ 8,10 SAY "    [F1]:  ╕≈╫╓╢╬╡─╕¿╓·╦╡├≈ "
  23.    READ
  24.    IF LASTKEY()=27
  25.       CLOSE DATABASES
  26.       CLEAR WINDOWS
  27.       CLEAR ALL
  28.       ERASE TEST.DBF
  29.       CLEAR
  30.       EXIT
  31.    ENDIF
  32.    SKIP
  33. ENDDO
  34.  
  35. PROCEDURE myhelp
  36. PARAMETERS mPRO,mVAR
  37. DEFINE WINDOW win2;
  38.    FROM 21,2 TO 23,77 ;
  39.    TITLE " ╕¿╓·╦╡├≈┤░┐┌ " ;
  40.    FLOAT ;
  41.    SHADOW ;
  42.    DOUBLE ;
  43.    COLOR SCHEME 7
  44. SET CURSOR OFF
  45. ACTIVATE WINDOW win2
  46. @ 00,10 SAY " ╬┤╕°│÷ "+mPRO+" │╠╨≥╓╨ "+mVAR+;
  47. " ╫╓╢╬╜¿┴ó╡─╕¿╓·╦╡├≈╣ª─▄ "
  48. WAIT " ╟δ░┤╚╬╥╗╝ⁿ╝╠╨° " WINDOW TIMEOUT 10
  49. DEACTIVATE WINDOW win2
  50. SET CURSOR ON
  51. RETURN
  52.