home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP16_3.PRG < prev    next >
Encoding:
Text File  |  1994-01-12  |  1.2 KB  |  54 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: EXP16_3.PRG                                          ⌐ª
  3. *⌐ª     Function: ╩╣╙├ Low-Level File ║»╩²┐╜▒┤╬─╝■╡─╙ª╙├╖╢└².          ⌐ª
  4. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  5. SET TALK OFF
  6. CLOSE ALL
  7. CLEAR
  8.  
  9. DEFINE WINDOW win16_3 FROM 8,10 TO 14,70 ;
  10.        SHADOW COLOR SCHEME 7
  11. ACTIVATE WINDOW win16_3
  12. @ 1,12 SAY "╟δ╩Σ╚δ╘¡╩╝╬─╝■├√: " GET source DEFAULT space(12)
  13. @ 3,12 SAY "╟δ╩Σ╚δ─┐▒Ω╬─╝■├√: " GET target DEFAULT space(12)
  14. READ
  15. RELEASE WINDOWS win16_3
  16.  
  17. * ┤≥┐¬╘¡╩╝╬─╝■
  18. ifile = FOPEN(source)
  19. IF ifile <= 0
  20.    WAIT " ╬▐╖¿┤≥┐¬╘¡╩╝╬─╝■:"+(source) WINDOW
  21.    RETURN
  22. ENDIF
  23.  
  24. * ╝╞╦π╬─╝■┤≤╨í
  25. file_size = FSEEK(ifile,0,2)
  26. * ░╤╬─╝■╓╕╒δ╥╞╡╜╬─╝■┐¬═╖
  27. =FSEEK(ifile,0,0)
  28.  
  29. * ╢┴╚í╬─╝■
  30. num_read = FREAD(ifile,file_size)
  31.  
  32. * ╜¿┴ó─┐▒Ω╬─╝■
  33. ofile = FCREATE(target)
  34.  
  35. IF ofile <= 0
  36.    WAIT " ╬▐╖¿┤≥┐¬─┐▒Ω╬─╝■:"+(target) WINDOW
  37.    RETURN
  38. ENDIF
  39.  
  40. * ╜½╘¡╩╝╬─╝■╨┤╚δ─┐▒Ω╬─╝■
  41. writing = FWRITE(ofile,num_read)
  42.  
  43. IF writing = 0
  44.    WAIT " ┐╜▒┤╩º░▄ ! " WINDOW
  45. ELSE
  46.    WAIT " ┐╜▒┤│╔╣ª ! " WINDOW
  47. ENDIF
  48.  
  49. * ╣╪▒╒╘¡╩╝╬─╝■║═─┐▒Ω╬─╝■
  50. =FCLOSE(ifile)
  51. =FCLOSE(ofile)
  52. SET TALK ON
  53. RETURN
  54.