home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP12_5.PRG < prev    next >
Encoding:
Text File  |  1994-01-12  |  1.2 KB  |  46 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤ 
  2. *⌐ª      Program: EXP12_5.PRG                                          ⌐ª
  3. *⌐ª     Function: ╘┌╫╘╢¿╥σ╡─┤░┐┌└∩▒α╝¡▒╕╫ó╫╓╢╬╡─╖╢└².                  ⌐ª
  4. *⌐ª   DBF & File: SONG.DBF     SONG.FPT                                ⌐ª
  5. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  6. SET TALK OFF
  7. CLEAR ALL
  8. CLEAR
  9. USE SONG
  10. pre_scheme=SCHEME(17)
  11. IF ISCOLOR()
  12.    SET COLOR OF SCHEME 17 TO SCHEME 7
  13. ELSE
  14.    SET COLOR OF SCHEME 17 TO W+/ ,W/W,N+/N
  15. ENDIF
  16.  
  17. * ╢¿╥σ╥╗╕÷╩²╛▌▒α╝¡┤░┐┌ editing
  18. DEFINE WINDOW editing ;
  19.    FROM INT((SROW()-10)/2),INT((SCOL()-57)/2) ;
  20.    TO INT((SROW()-10)/2)+15,INT((SCOL()-57)/2)+56 ;
  21.    TITLE " ╩²╛▌▒α╝¡┤░┐┌ " ;
  22.    GROW ;
  23.    FLOAT ;
  24.    SHADOW ;
  25.    ZOOM ;
  26.    COLOR SCHEME 5
  27.  
  28. * ╢¿╥σ╥╗╕÷▒╕╫ó╫╓╢╬▒α╝¡┤░┐┌ memoedit
  29. DEFINE WINDOW memoedit ;
  30.    FROM INT((SROW()-20)/2),INT((SCOL()-57)/2) ;
  31.    TO INT((SROW()-20)/2)+10,INT((SCOL()-57)/2)+56 ;
  32.    TITLE " ▒╕╫ó╫╓╢╬▒α╝¡┤░┐┌ " ;
  33.    GROW ;
  34.    FLOAT ;
  35.    SHADOW ;
  36.    ZOOM ;
  37.    COLOR SCHEME 17
  38.  
  39. SET WINDOW OF MEMO TO memoedit
  40. * ╓╕╢¿ memoedit ┤░┐┌╬¬▒╕╫ó╫╓╢╬▒α╝¡┤░┐┌
  41. CHANGE WINDOW editing
  42. SET COLOR OF SCHEME 17 TO (pre_scheme)
  43. CLEAR WINDOWS
  44. SET TALK ON
  45. RETURN
  46.