Fido *.MSG questions?

 BBS: Inland Empire Archive
Date: 05-02-92 (21:04)             Number: 196
From: RICARDO LANDRAU OF 1:367/    Refer#: NONE
  To: MARSHAL EMM                   Recvd: NO  
Subj: Fido *.MSG questions?          Conf: (2) Quik_Bas

 > TYPE msghdr
 >  FromUserName AS STRING * 36
 >    ToUserName AS STRING * 36
 >       Subject AS STRING * 72
 >      DateTime AS STRING * 20
 >     TimesRead AS INTEGER
I copied this program and modified it myself for a program
I need.  Here is the code and it works but when front door
will call the NEC it won't pick the message I created.
When I look at it on the Folder Manager it has no status
flag on it what is wrong?

f$ = "d:\lang\qb45\10.msg"
F1$ = "d:\fd\mail\999.msg"
KILL F1$
TYPE msghdr
 FromUserName AS STRING * 36
   ToUserName AS STRING * 36
      Subject AS STRING * 72
     DateTime AS STRING * 20
    TimesRead AS INTEGER
     DestNode AS INTEGER
     OrigNode AS INTEGER
         Cost AS INTEGER
      OrigNet AS INTEGER
      DestNet AS INTEGER
         Fill AS STRING * 8
      ReplyTo AS INTEGER
    Attribute AS INTEGER
    NextReply AS INTEGER
END TYPE

DIM Header AS msghdr
OPEN F1$ FOR BINARY AS 2
OPEN f$ FOR BINARY AS 1
  GET 1, 1, Header
  SIZE = LOF(1) - LEN(Header) + 1:  message$ = STRING$(SIZE, 0)
  GET 1, LEN(Header) + 1, message$ 'text of message, i.e.
  '                                everything after the header
'CLOSE

PRINT "Message file: "; f$
PRINT "FromUserName: "; Header.FromUserName
PRINT "  ToUserName: "; Header.ToUserName
PRINT "     Subject: "; Header.Subject
PRINT "     OrigNet: "; Header.OrigNet
PRINT "    OrigNode: "; Header.OrigNode
PRINT "     DestNet: "; Header.DestNet
PRINT "    DestNode: "; Header.DestNode
PRINT "    DateTime: "; Header.DateTime
PRINT "   TimesRead: "; Header.TimesRead
PRINT "        Cost: "; Header.Cost
PRINT "     ReplyTo: "; Header.ReplyTo
PRINT "   Attribute: "; Header.Attribute
PRINT "   NextReply: "; Header.NextReply
PRINT "--------------------------"
PRINT message$
'now the fun starts if you want to format the text of Message$, which
'is a single "line."
Header.FromUserName = "Ricardo Landrau of 1:367/28.0"
Header.ToUserName = "Dennis Ayala"
Header.Subject = "testing alfa program"
Header.OrigNet = 367
Header.OrigNode = 28
Header.DestNet = 367
Header.DestNode = 23
Header.DateTime = "mon 04-20-92 09:49hr"
Header.TimesRead = 0
Header.Cost = 1
message$ = "this is a test of mail receipt 1.0A" + CHR$(13)
+ "responde si lo recives"

  PUT 2, 1, Header
  CLOSE
  OPEN F1$ FOR APPEND AS #2
  PRINT #2, message$
 CLOSE

---
 * Origin: The Island Wolf (RBBS/FIDO) (1:367/28)