home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / sri314_b.zip / DEMOPRGS.ZIP / VECTOR.PRG < prev   
Text File  |  1990-04-11  |  7KB  |  190 lines

  1. ******************************************************************
  2. *** VECTOR.PRG **
  3. **  (C) Copyright 1990, Sub Rosa Publishing Inc.
  4. **  A demonstration program provided to SR-Info and VP-Info users.
  5. **  This program may be copied freely. If it is used in commercial code,
  6. **  please credit the source, Sub Rosa Publishing Inc.
  7. **
  8. *  VECTOR.prg   demonstration of correct use of data files put
  9. *               into use with macros, combined with referencing 
  10. *               its fields by vector referencing. Note: a data
  11. *               file must be placed into use (normally with the
  12. *               COMPILE keyword) before the USE macro command.
  13. *               Also uses screen-switching techniques for fun.
  14. *  (Author: Sidney L. Bursten)
  15. ******************************************************************
  16. *  Data file:         MATRIX.DBF
  17. *  Number of records:      0
  18. *  File number:       #1
  19. *  Field   Name       Type   Width  Dec
  20. *    1     FLD1         C        1
  21. *    2     FLD2         C        1
  22. *    3     FLD3         C        1
  23. *    4     FLD4         C        1
  24. *    5     FLD5         C        1
  25. *    6     FLD6         C        1
  26. *    7     FLD7         C        1
  27. *    8     FLD8         C        1
  28. *    9     FLD9         C        1
  29. *   10     FLD10        C        1
  30. *   11     FLD11        C        1
  31. *   12     FLD12        C        1
  32. *   13     FLD13        C        1
  33. *   14     FLD14        C        1
  34. *   15     FLD15        C        1
  35. *   16     FLD16        C        1
  36. *   17     FLD17        C        1
  37. *   18     FLD18        C        1
  38. *   19     FLD19        C        1
  39. *   20     FLD20        C        1
  40. *   21     FLD21        C        1
  41. *   22     FLD22        C        1
  42. *   23     FLD23        C        1
  43. *   24     FLD24        C        1
  44. *   25     FLD25        C        1
  45. *   26     FLD26        C        1
  46. *   27     FLD27        C        1
  47. *   28     FLD28        C        1
  48. *   29     FLD29        C        1
  49. *   30     FLD30        C        1
  50. *   31     FLD31        C        1
  51. *   32     FLD32        C        1
  52. *   33     FLD33        C        1
  53. *   34     FLD34        C        1
  54. *   35     FLD35        C        1
  55. *   36     FLD36        C        1
  56. *   37     FLD37        C        1
  57. *   38     FLD38        C        1
  58. *   39     FLD39        C        1
  59. *   40     FLD40        C        1
  60. *   41     FLD41        C        1
  61. *   42     FLD42        C        1
  62. *   43     FLD43        C        1
  63. *   44     FLD44        C        1
  64. *   45     FLD45        C        1
  65. *   46     FLD46        C        1
  66. *   47     FLD47        C        1
  67. *   48     FLD48        C        1
  68. *   49     FLD49        C        1
  69. *   50     FLD50        C        1
  70. *   51     FLD51        C        1
  71. *   52     FLD52        C        1
  72. *   53     FLD53        C        1
  73. *   54     FLD54        C        1
  74. *   55     FLD55        C        1
  75. *   56     FLD56        C        1
  76. *   57     FLD57        C        1
  77. *   58     FLD58        C        1
  78. *   59     FLD59        C        1
  79. *   60     FLD60        C        1
  80. *   61     FLD61        C        1
  81. *   62     FLD62        C        1
  82. *   63     FLD63        C        1
  83. *   64     FLD64        C        1
  84. *   65     FLD65        C        1
  85. *   66     FLD66        C        1
  86. *   67     FLD67        C        1
  87. *   68     FLD68        C        1
  88. *   69     FLD69        C        1
  89. *   70     FLD70        C        1
  90. *   71     FLD71        C        1
  91. *   72     FLD72        C        1
  92. *   73     FLD73        C        1
  93. *   74     FLD74        C        1
  94. *   75     FLD75        C        1
  95. *   76     FLD76        C        1
  96. *   77     FLD77        C        1
  97. *   78     FLD78        C        1
  98. *   79     FLD79        C        1
  99. *   80     FLD80        C        1
  100. *   81     FLD81        C        1
  101. *   82     FLD82        C        1
  102. *   83     FLD83        C        1
  103. *   84     FLD84        C        1
  104. *   85     FLD85        C        1
  105. *   86     FLD86        C        1
  106. *   87     FLD87        C        1
  107. *   88     FLD88        C        1
  108. *   89     FLD89        C        1
  109. *   90     FLD90        C        1
  110. *   91     FLD91        C        1
  111. *   92     FLD92        C        1
  112. *   93     FLD93        C        1
  113. *   94     FLD94        C        1
  114. *   95     FLD95        C        1
  115. *   96     FLD96        C        1
  116. *   97     FLD97        C        1
  117. *   98     FLD98        C        1
  118. *   99     FLD99        C        1
  119. *  100     FLD100       C        1
  120. *  101     FLD101       C        1
  121. *  102     FLD102       C        1
  122. *  103     FLD103       C        1
  123. *  104     FLD104       C        1
  124. *  105     FLD105       C        1
  125. *  106     FLD106       C        1
  126. *  107     FLD107       C        1
  127. *  108     FLD108       C        1
  128. *  109     FLD109       C        1
  129. *  110     FLD110       C        1
  130. *  111     FLD111       C        1
  131. *  112     FLD112       C        1
  132. *  113     FLD113       C        1
  133. *  114     FLD114       C        1
  134. *  115     FLD115       C        1
  135. *  116     FLD116       C        1
  136. *  117     FLD117       C        1
  137. *  118     FLD118       C        1
  138. *  119     FLD119       C        1
  139. *  120     FLD120       C        1
  140. *  121     FLD121       C        1
  141. *  122     FLD122       C        1
  142. *  123     FLD123       C        1
  143. *  124     FLD124       C        1
  144. *  125     FLD125       C        1
  145. *  126     FLD126       C        1
  146. *  127     FLD127       C        1
  147. *  128     FLD128       C        1
  148. *  ** Record Length **         129
  149. *  
  150. CLS
  151. TEXT
  152.    VECTOR.prg   demonstration of correct use of data files put
  153.                 into use with macros, combined with referencing 
  154.                 its fields by vector referencing. Note: a data
  155.                 file must be placed into use (normally with the
  156.                 COMPILE keyword) before the USE macro command.
  157.                 Also uses screen-switching techniques for fun.
  158. ENDTEXT
  159. ?
  160. DIR *.dbf
  161. blanks=replace(blank(11),' ','.')
  162. USE matrix compile
  163. CURSOR 22,0
  164. ACCEPT "Enter file name... " to fil_nam
  165. CLS
  166. USE &fil_nam
  167. SCREEN 1,2
  168. SCREEN 2
  169. DO WHILE .not. eof
  170.    CURSOR 0,20
  171.    ?? 'Record',ltrim(str(#,8)),'of',ltrim(str(dbf(recs),8)),'records'
  172.    REPEAT dbf(fld) times varying fnum
  173.       fld_name=insert(blanks,trim(fld(name,fnum)),1)
  174.       ? fld_name,matrix[fnum]
  175.       IF fnum=dbf(fld) .or. row()>20
  176.          @ 24,40 say 'Press spacebar to continue...'
  177.          SCREEN 2,1
  178.          SCREEN 1
  179.          CURSOR 24,75
  180.          ok=inkey()
  181.          SCREEN 2
  182.          CLS
  183.       ENDIF
  184.    ENDREPEAT
  185.    SKIP
  186. ENDDO
  187. SCREEN 1
  188. @ 24,0
  189. CURSOR 23,0
  190.