home *** CD-ROM | disk | FTP | other *** search
/ Shareware 1 2 the Maxx / sw_1.zip / sw_1 / TEXT / PDX_ALL.ZIP / TI367.ASC < prev    next >
Text File  |  1991-09-11  |  941b  |  67 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.   PRODUCT  :  PARADOX                                NUMBER  :  367
  9.   VERSION  :  1.X, 2.X, 3.X
  10.        OS  :  DOS
  11.      DATE  :  September 11, 1991                       PAGE  :  1/1
  12.  
  13.     TITLE  :  HOW TO COPY EACH RECORD A SPECIFIED NUMBER OF TIMES
  14.  
  15.  
  16.  
  17.  
  18.   The following script will copy a record any number of times.  The
  19.   script illustrates the use of the PAL commands ACCEPT, EDIT,
  20.   COPYTOARRAY and FOR.  For additional information on these PAL
  21.   commands, see the PAL User's Guide.
  22.  
  23.   @10,10
  24.   ??"How many copies do you want of this record?   "
  25.   ACCEPT "N" to x
  26.  
  27.   EDIT "tbl"                ;where "tbl" is your table name
  28.   COPYTOARRAY A             ;copies your record to an array
  29.   END
  30.   FOR i FROM 1 to x-1
  31.   DOWN                      ;inserts a blank row
  32.   COPYFROMARRAY A           ;copies the array to a blank row
  33.   ENDFOR
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.