home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a014 / 1.ddi / CDBINC.EXE / CRE_DF.PRG < prev    next >
Encoding:
Text File  |  1990-06-13  |  380 b   |  30 lines
  1. PARA NAME
  2. SELE 10
  3. USE WIN
  4. ZAP
  5. APPE FROM &NAME DELI WITH #
  6. CREA WINDOW FROM WIN
  7. USE WIN
  8. FD=' '
  9. I=1
  10. DO WHILE .NOT.EOF()
  11.   IF I<10
  12.     J=STR(I,1)
  13.   ELSE
  14.     IF I<100
  15.       J=STR(I,2)
  16.     ELSE
  17.       J=STR(I,3)
  18.     ENDIF
  19.   ENDIF
  20.   DF&J=TRIM(FIELD_NAME)
  21.   IF LEN(LINK)=0
  22.     FD=FD+DF&J+','
  23.   ENDIF
  24.   I=I+1
  25.   SKIP
  26. ENDDO
  27. FD=SUBSTR(FD,1,LEN(FD)-1)
  28. USE
  29. RETURN
  30.