home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP16_4.PRG < prev    next >
Encoding:
Text File  |  1994-01-12  |  1.3 KB  |  54 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: EXP16_4.PRG                                        ⌐ª
  3. *⌐ª     Function: ╩╣╙├ FGETS() ║═ FPLUS() ║»╩²╓≡╨╨╢┴╚í╬─╝■▓ó╝╙       ⌐ª
  4. *⌐ª               ╔╧╨╨║┼║≤╓≡╨╨╨┤╚δ┴φ╥╗╬─╝■╡─╖╢└².                    ⌐ª
  5. *⌐ª   DBF & File: SYS.DBF       SYS.FPT                              ⌐ª
  6. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  7. SET TALK OFF
  8. SET SAFETY OFF
  9. CLOSE ALL
  10. CLEAR
  11.  
  12. IF FILE("EXP16_4.PRG")
  13.    COPY FILE EXP16_4.PRG TO TEST.TXT
  14. ELSE
  15.    RETURN
  16. ENDIF
  17.  
  18. handle1 = FOPEN("TEST.TXT")
  19. * ┤≥┐¬╬─╝■ TEST.TXT, ┤½╗╪╬─╝■┐╪╓╞┬δ╕° handle1
  20. IF handle1 < 0
  21.    WAIT " ╬▐╖¿┤≥┐¬┤╦╬─╝■, ░┤╚╬╥╗╝ⁿ╝╠╨° " WINDOW
  22.    RETURN
  23. ENDIF
  24.  
  25. handle2 = FCREATE("TEMP.ACT")
  26. IF handle2 < 0
  27.    WAIT " ╬▐╖¿╜¿┴ó┤╦╬─╝■, ░┤╚╬╥╗╝ⁿ╝╠╨° " WINDOW
  28.    RETURN
  29. ENDIF
  30.  
  31. I = 1
  32. * ╓≡╨╨╢┴╚í╬─╝■▓ó╝╙╔╧╨╨║┼▓ó╓≡╨╨╨┤╚δ TEMP.ACT
  33. DO WHILE !FEOF(handle1)
  34.    linestring = STR(I,4)+SPACE(1)+FGETS(handle1,80)
  35.    =FPUTS(handle2,linestring)
  36.    I = I+1
  37. ENDDO
  38.  
  39. * ╣╪▒╒╬─╝■
  40. =FCLOSE(handle1)
  41. =FCLOSE(handle2)
  42.  
  43. * ╜½╬─╝■ TEMP.ACT ┐╜▒┤╡╜ SYS.DBF ╡─▒╕╫ó╫╓╢╬╓╨
  44. USE SYS
  45. DEFINE WINDOW listwin FROM 1,0 TO 23,79 ;
  46.        SHADOW COLOR SCHEME 5
  47. APPEND MEMO sysmem FROM TEMP.ACT OVERWRITE
  48. MODIFY MEMO sysmem NOEDIT WINDOW listwin
  49.  
  50. RELEASE WINDOWS listwin
  51. SET TALK ON
  52. SET SAFETY ON
  53. RETURN
  54.