home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP16_2.PRG < prev    next >
Encoding:
Text File  |  1994-01-12  |  1.0 KB  |  47 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: EXP16_2.PRG                                          ⌐ª
  3. *⌐ª     Function: ╩╣╙├ FGETS() ║»╩²╢┴╚í╬─╝■─┌╚▌▓ó╝╙╔╧╨╨║┼╡─╖╢└².       ⌐ª
  4. *⌐ª   DBF & File: EXP16_1.PRG                                          ⌐ª
  5. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  6. SET TALK OFF
  7. SET SAFETY OFF
  8. CLOSE ALL
  9. CLEAR
  10.  
  11. IF FILE("EXP16_1.PRG")
  12.    COPY FILE EXP16_1.PRG TO TEST.TXT
  13. ELSE
  14.    RETURN
  15. ENDIF
  16.  
  17. handle = FOPEN("TEST.TXT")
  18. * ┤≥┐¬╬─╝■ TEST.TXT, ┤½╗╪╬─╝■┐╪╓╞┬δ╕° handle
  19.  
  20. IF handle < 0
  21.    WAIT " ╬▐╖¿┤≥┐¬┤╦╬─╝■, ░┤╚╬╥╗╝ⁿ╝╠╨° " WINDOW
  22.    RETURN
  23. ENDIF
  24. I = 1
  25. J = 0
  26.  
  27. * ╓≡╨╨╢┴╚í╬─╝■▓ó╝╙╔╧╨╨║┼
  28. DO WHILE !FEOF(handle)
  29.    @ J,0 SAY STR(I,3)+SPACE(1)+FGETS(handle,SCOLS())
  30.    I = I+1
  31.    J = J+1
  32.    IF J >= 23
  33.       @ SROWS()-1,0 SAY PADC(" ░┤╚╬╥╗╝ⁿ╝╠╨° ",SCOLS())
  34.       =INKEY(0,"HM")
  35.       CLEAR
  36.       J = 0
  37.    ENDIF
  38. ENDDO
  39.  
  40. =FCLOSE(handle) && ╣╪▒╒╬─╝■
  41.  
  42. WAIT "  ░┤╚╬╥╗╝ⁿ═╦│÷ !  " WINDOW
  43. CLEAR
  44. SET TALK ON
  45. SET SAFETY ON
  46. RETURN
  47.