home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP16_1.PRG < prev    next >
Encoding:
Text File  |  1994-01-12  |  997 b   |  40 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤ 
  2. *⌐ª      Program: EXP16_1.PRG                                          ⌐ª
  3. *⌐ª     Function: ╩╣╙├ FREAD() ║»╩²╢┴╚í╒√╕÷╬─╝■─┌╚▌╡─╖╢└².             ⌐ª
  4. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  5. SET TALK OFF
  6. SET SAFETY OFF
  7. CLOSE ALL
  8. CLEAR
  9.  
  10. IF FILE("EXP16_1.PRG")
  11.    COPY FILE EXP16_1.PRG TO TEST.TXT
  12. ELSE
  13.    RETURN
  14. ENDIF
  15.  
  16. handle = FOPEN("TEST.TXT")
  17. * ┤≥┐¬╬─╝■ TEST.TXT, ┤½╗╪╬─╝■┐╪╓╞┬δ╕° handle
  18. file_size = FSEEK(handle,0,2)
  19. * ╜½╬─╝■╓╕╒δ╥╞╡╜╬─╝■╬▓, ╥╘╗±╡├╬─╝■│ñ╢╚
  20. file_top  = FSEEK(handle,0,0)
  21. * ╜½╬─╝■╓╕╒δ╥╞╡╜╬─╝■═╖
  22.  
  23. IF file_size <= 0
  24.    =FCLOSE(handle)  && ╣╪▒╒╬─╝■
  25.    WAIT " ┤╦╬─╝■╩╟┐╒╡─, ░┤╚╬╥╗╝ⁿ╝╠╨° " WINDOW
  26.    RETURN
  27. ELSE
  28.    mystring = FREAD(handle,file_size)
  29.    * ╜½╬─╝■─┌╚▌┤µ╚δ▒Σ┴┐ mystring
  30.    =FCLOSE(handle)
  31.    * ╣╪▒╒╬─╝■
  32.    @ 2,0 EDIT mystring SIZE 20,78 NOMODIFY SCROLL TAB COLOR SCHEME 5
  33.    READ
  34. ENDIF
  35.  
  36. CLEAR
  37. SET TALK ON
  38. SET SAFETY ON
  39. RETURN
  40.