Hudson Base

 BBS: Inland Empire Archive
Date: 03-23-92 (19:45)             Number: 120
From: ZACK JONES                   Refer#: NONE
  To: JADE APISUKH                  Recvd: NO  
Subj: Hudson Base                    Conf: (2) Quik_Bas

 > Anyone got the Hudson message base structures in QuickBASIC?
 > I'm having a little trouble converting them to QB from TP...
I _think_ I may have what you need.  The entire file is
over 300 lines long so I can't post it here.  Here's a
sample, if it is what you need, let me know and we'll make
arrangements to get it to you!

' 
------
' QB 4.5 code for writing a QuickBBS msg base style msg.

' By Mark E. Moran
' (c) copyright 1991
' 1:273/603 Fidonet

' I make no guarantees on this code other than it'll take up disk space.
' IE., use it at your OWN risk  (BACKUP MSG*.BBS BEFORE you use this!)

' You may use this code as you you wish, for free, but I do retain
' a copyright on it.  This means you can't sell it, or redistribute it.

' If you do make improvements on this code I'd like to see them.  You
' can send them or any comments to the above FIDONET address.

' Special thanks to Mike Janke, who's QBSTRUCT.BAS gave me most of the
' file structure types

' 
------

TYPE MsgIdx                            ' MSGIDX.BBS
  MsgNum  AS INTEGER
  BoardNum AS STRING * 1
END TYPE

TYPE HdrRecord                         ' MSGHDR.BBS
    msgnumb     AS INTEGER
    replyto     AS INTEGER
    seealso     AS INTEGER
    tread       AS INTEGER
    startrec1   AS STRING * 1       ' Kludge because QB can't handle
    startrec2   AS STRING * 1       ' unsigned integers
    numrecs     AS INTEGER
    destnet     AS INTEGER
    destnode    AS INTEGER
    orignet     AS INTEGER
    orignode    AS INTEGER
    destzone    AS STRING * 1
    origzone    AS STRING * 1
    cost        AS INTEGER
    msgattr     AS STRING * 1
    netattr     AS STRING * 1
    board       AS STRING * 1
    lenposttime AS STRING * 1
    posttime    AS STRING * 5
    lenpostdate AS STRING * 1
    postdate    AS STRING * 8
    lenwhoto    AS STRING * 1
    whoto       AS STRING * 35
    lenwhofrom  AS STRING * 1
    whofrom     AS STRING * 35
    lensubj     AS STRING * 1
    subj        AS STRING * 72
END TYPE


Take Care, Zack Jones.

---
 * Origin: Zack's Shack (1:387/905.1)