home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP12_3.PRG < prev    next >
Encoding:
Text File  |  1994-01-12  |  793 b   |  32 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤ 
  2. *⌐ª      Program: EXP12_3.PRG                                          ⌐ª
  3. *⌐ª     Function: ╧╘╩╛╩²╛▌┐Γ▒╕╫ó╫╓╢╬╡──┌╚▌╡─╖╢└².                      ⌐ª
  4. *⌐ª   DBF & File: SONG.DBF     SONG.FPT                                ⌐ª
  5. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  6. SET TALK OFF
  7. CLEAR ALL
  8. CLEAR
  9.  
  10. PRIVATE pre_width
  11. pre_width=SET("MEMOWIDTH")
  12. USE song
  13. SET MEMOWIDTH TO 70
  14.  
  15. SCAN
  16.    SIZE=MEMLINES(content)
  17.    IF SIZE = 0
  18.       STORE .T. TO nocontent
  19.       STORE 1 TO SIZE
  20.    ELSE
  21.       STORE .F. TO nocontent
  22.    ENDIF
  23.    ? "╕Φ╩╓╨╒├√: "+singer
  24.    ? "╕Φ┤╩─┌╚▌: "
  25.    ?? IIF(nocontent,"├╗╙╨╕Φ┤╩",content)
  26. ENDSCAN
  27.  
  28. USE
  29. SET MEMOWIDTH TO pre_width
  30. SET TALK ON
  31. RETURN
  32.