     /* Message Base SUBJECT THREAD Parser.  Output is an   */
     /* ASCII text file.  Single Thread is Parsed.          */
     /* Change "select" to desired thread.  Add "AND" and   */
     /* other subject titles for more than one thread.      */
START
VIRTUAL
  msg_file      STRING  21      "C:\GAP\MAIN\MSGS.DAT"
  select        INT2     2      (STRIP(subject) = "SCARIEST FILM MOMENT") ? 3 : 0
  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 # to "index" -- ie index1 */
                                        /* to the specific forum (1-40)  */
SELECT
  select = 3
SORT USING_KEY
  INTEGER       number
  DSC_NO_MOD    date
CONTROL
  1     subject
ACCUMULATOR
  thread_total  FRQ     subject
DISPLAY
  DEVICE        OUTFILE            /* send report to a file */
  PAGE_LENGTH   0                  /* no page formatting    */
IMAGE
REPORT_HDR                         /* Change Forum Name     */
+
+ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
+³      WRITERS FORUM MESSAGE THREAD REPORT - as of  @xxxxxxx    ³
                                                     SYS_DATE
+ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
+

CONTROL_HDR(1)
+
+Current Thread : @xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
                  subject
+ÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
+
+Number  Written To               Written By              Date
+ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
BODY
+@xxxxx  @xxxxxxxxxxxxxxxxxxxxxx  @xxxxxxxxxxxxxxxxxxxxx  @xxxxxxx
str_number to                      from                   left_date
CONTROL_FTR(1)
+
+Total Messages In Thread : @999
                            thread_total
+                            ÄÄÄ
+
EXIT
