home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / FMTCRALL.PRG < prev    next >
Encoding:
Text File  |  1990-04-29  |  1.4 KB  |  83 lines
  1. ****** ╜¿┴ó╦∙╙╨╬─╝■╡─╞┴─╗▒α╝¡╕±╩╜╬─╝■ FMTCRALL.PRG ******
  2. ******  DO FMTCRALL                                ******
  3. HS=25
  4. SELE 2
  5. USE DBD INDE DBD
  6. SELE 1
  7. USE FILE
  8. SET FILT TO SYSFILE='3'
  9. GO TOP
  10. DO WHILE .NOT.EOF()
  11. FN=TRIM(F_NAME)
  12. CFN=TRIM(C_FNAME)
  13. CLEAR
  14. @ 3,INT((80-25-LEN(CFN)-LEN(FN))/2) SAY '╔·│╔ &CFN.(&FN..DBF)╡─╞┴─╗╕±╩╜╬─╝■'
  15. K=1
  16. @ 5,16 SAY '╥╗╨╨╫ε╢α╘╩╨φ╝║╕÷╩²╛▌╧ε[0,1--10][0-▒φ╩╛▓╗╔·│╔]:' GET K PICT '99' RANG 0,10
  17. READ
  18. IF K=0
  19. SELE 1
  20. SKIP
  21. LOOP
  22. ENDIF
  23. @ 7,27 SAY '╧╡═│╒²╘┌╘╦╨╨!!!╟δ╔╘║≥......'
  24. F1=TRIM(F_NAME)
  25. FNO=F_NO
  26. SET CONS OFF
  27. SET ALTE TO &F1..FMT
  28. SET ALTE ON
  29. SELE 2
  30. SET FILT TO F_NO=FNO
  31. GO TOP
  32. ? "@  1,10 SAY '    ****  "+TRIM(FILE->C_FNAME)+"  ****     '"
  33. ? "@  1,COL()+1 SAY '╝╟┬╝║┼: ['+STR(RECNO(),5)+']'"
  34. I=1
  35. N=80
  36. L=0
  37. N1=LEN(TRIM(C_NAME))+FIELD_LEN+2+LEN(TRIM(NOTE))+1
  38. DO WHILE .NOT. EOF()
  39. I=I+INT((N-1)/80)
  40. IF N+N1>80
  41. I=I+1
  42. N=N1
  43. L=0
  44. COL='0'
  45. ELSE
  46. IF L>=K
  47. L=0
  48. I=I+1
  49. N=N1
  50. COL='0'
  51. ELSE
  52. N=N+N1
  53. COL='COL()+1'
  54. ENDIF
  55. ENDIF
  56. IF I=HS
  57. ? "READ"
  58. ? '@ 0,0 CLEAR'
  59. ? "@ 1,10 SAY '   *** <<'+TRIM(FILE->C_FNAME)+'>> ***   '"
  60. ? "@ 1,COL()+1 SAY '╝╟┬╝║┼:['+STR(RECNO(),5)+']'"
  61. I=2
  62. ENDIF
  63. J=STR(I,2)
  64. ? "@ &J,&COL SAY '"+TRIM(C_NAME)+"' GET "+FIELD_NAME
  65. IF LEN(TRIM(NOTE))<>0
  66. ? "@ &J,COL()+1 SAY '"+TRIM(NOTE)+"'"
  67. ENDIF
  68. L=L+1
  69. SKIP
  70. N1=LEN(TRIM(C_NAME))+FIELD_LEN+2+LEN(TRIM(NOTE))+1
  71. ENDDO
  72. I=I+INT(N/80)+1
  73. J=STR(I,2)
  74. SET ALTE OFF
  75. SET ALTE TO
  76. SELE 1
  77. SKIP
  78. SET CONS ON
  79. ENDDO
  80. CLOS DATA
  81. RETU
  82. ** END OF FMTCRALL.PRG **
  83.