home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP12_4.PRG < prev    next >
Encoding:
Text File  |  1994-01-12  |  1.1 KB  |  41 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: EXP12_4.PRG                                          ⌐ª
  3. *⌐ª     Function: ╩╣╙├╧╡═│▒Σ┴┐  _MLINE ╡─╙ª╙├╖╢└².                     ⌐ª
  4. *⌐ª   DBF & File: SONG.DBF    SONG.FPT                                 ⌐ª
  5. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  6. SET TALK OFF
  7. CLEAR ALL
  8. CLEAR
  9. USE SONG
  10. STORE SECONDS() TO start
  11. SCAN
  12.     FOR I=1 TO MEMLINES(CONTENT)
  13.         ? MLINE(CONTENT,I)
  14.     ENDFOR
  15. ENDSCAN
  16. mTOTAL1=SECONDS()-start
  17. ? "╫▄╣▓╗¿╖╤┴╦ ["+STR(mTOTAL1,4,2)+"] ├δ, ╧╘╩╛╦∙╙╨╝╟┬╝"+;
  18.   "╡─▒╕╫ó╫╓╢╬: CONTENT"
  19. ?
  20. WAIT "╟δ░┤╚╬╥╗╝ⁿ┐¬╩╝╙├┴φ═Γ╥╗╓╓╖╜╖¿ (_MLINE) ╧╘╩╛╦∙╙╨"+;
  21.      "╝╟┬╝╡─▒╕╫ó╫╓╢╬: CONTENT "
  22. CLEAR
  23. STORE 0 TO _MLINE
  24. STORE SECONDS() TO start
  25. SCAN
  26.     FOR I=1 TO MEMLINES(CONTENT)
  27.         ? MLINE(CONTENT,1,_MLINE)
  28.     ENDFOR
  29.     STORE 0 TO _MLINE
  30. ENDSCAN
  31. mTOTAL2=SECONDS()-start
  32. ? "╫▄╣▓╗¿╖╤┴╦ ["+STR(mTOTAL2,4,2)+"] ├δ, ╧╘╩╛╦∙╙╨╝╟┬╝"+;
  33.   "╡─▒╕╫ó╫╓╢╬: CONTENT"
  34. ? "╜┌╩í┴╦ ["+STR(mTOTAL1-mTOTAL2,4,2)+"] ├δ╡─╩▒╝Σ"
  35.  
  36. WAIT "╟δ░┤╚╬╥╗╝ⁿ╝╠╨°"
  37. CLEAR ALL
  38. CLEAR
  39. SET TALK ON
  40. RETURN
  41.