  /*ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿*/
  /*³Generates ASCII file of ALL Messages in a given Message Base   ³*/
  /*ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ*/
START
VIRTUAL
  msg_file      STRING  32      "C:\GAP\MAIN\MSGS.DAT" /* Config to your */
                                                       /* own system     */
  str_number    STRING  12      LNG_STR(number)
  left_date     DATE     4      date
  read_date     DATE     4      (STRIP(to) <> "ALL" AND date_read = 0)
                                 ? 1 : date_read
  referto       STRING  12      (refer = 0) ? "None" : LNG_STR(refer)
  vf1           INT2     2      (type <> 82 AND type <> 83) ? 1 : 0
  vf2           INT2     2      (type = 82) ? 2 : 0
  vf3           INT2     2      vf1 + vf2
  security      STRING 10      : vf3
                                 0 "Password"
                                 1 "None"
                                 2 "Private"
SEARCH 
  FILE msg_file USING_KEY number_index /* Add a # after "index" for base */
                                       /* ie - index1 is Forum 1         */
SELECT
  ALL
SORT USING_KEY
  INTEGER       number            /* sort by message number */
DISPLAY
  DEVICE        OUTFILE            /* send report to a file */
  PAGE_LENGTH   0                  /* no page formatting    */
IMAGE
BODY
+     To : @xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx      Number : @xxxxx
           to                                            str_number
+   From : @xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx    Refer To : @xxxxx
           from                                          referto
+Subject : @xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx        Read : @xxxxxxxxxxxxxxxxxxx
           subject                                       read_date
+   Date : @xxxxxxxx                          Security : @xxxxxxx
           left_date                                     security
+
+@DM
   text
+
EXIT
