Maximus bbs and quickbas

 BBS: Inland Empire Archive
Date: 01-29-93 (01:29)             Number: 354
From: DIK COATES                   Refer#: NONE
  To: JOHN GALLAS                   Recvd: NO  
Subj: Maximus bbs and quickbas       Conf: (2) Quik_Bas

>>>> QUOTING John Gallas to Robert Lee <<<<
 JG> If you can netmail me the C struct, I can change it to a QB type
 JG> format and send it back.

From an earlier posting...

- Area: Quik_Bas -------------------------------------------------------------
  Msg#: 286                                          Date: 01-26-93  00:00
  From: Stan Foy                                     Read: Yes    Replied: No
    To: Robert Lee                                   Mark:
Save
  Subj: Re: maximus bbs and quic
___

 -=> Quoting Robert Lee to All <=-

 RL> Does anybody out there have  Maximus's structure
 RL> configured in a QuickBasic TYPE/END TYPE method?

Robert,
  I jumped the gun and sent the TYPE a bit sooner than I should have, the
following is a cleaned up version of the TYPE:
___-!!!!!!!!!!!!!!!!!!!!!!!!!-CUT HERE-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!-
TYPE UserRec
   Name        AS STRING * 36Z
   City        AS STRING * 36   '  72
   Alias       AS STRING * 21   '  93
   Phone       AS STRING * 15   ' 108
   LastRead    AS INTEGER       ' 110
   TimeRemain  AS INTEGER       ' 112
   Password    AS STRING * 16   ' 128
   TimesCalled AS INTEGER       ' 130
   Help        AS STRING * 1    ' 131
   Rsvd1       AS STRING * 2    ' 133
   Video       AS STRING * 1    ' 134
   Nulls       AS STRING * 1    ' 135
   Bits1       AS STRING * 1    ' 136
   Rsvd2       AS STRING * 2    ' 138
   Bits2       AS STRING * 2    ' 140
   Priv        AS STRING * 1    ' 141
   Rsvd3       AS STRING * 19   ' 160
   StructLen   AS STRING * 2    ' 162
   OnLineTime  AS INTEGER       ' 164
   DelFlag     AS INTEGER       ' 166
   Rsvd4       AS STRING * 8    ' 174
   ScrWidth    AS STRING * 1    ' 175
   ScrLength   AS STRING * 1    ' 176
   Credit      AS INTEGER       ' 178
   Debit       AS INTEGER       ' 180
   XPriv       AS STRING * 2    ' 182
   XPDate      AS INTEGER       ' 184  Need Date to INT Routine
   XPTime      AS INTEGER       ' 186  Need Time to INT Routine
   XMins       AS STRING * 4    ' 190
   XFlags      AS STRING * 1    ' 191
   XReserved   AS STRING * 1    ' 192
   LUDate      AS INTEGER       ' 194  Need Date to INT Routine
   LuTime      AS INTEGER       ' 196  Need Time to INT Routine
   UserKeys    AS STRING * 4    ' 200            /\
   Language    AS STRING * 1    ' 201            ||
   Protocol    AS STRING * 1    ' 202      Available in Tom
   KUpload     AS LONG          ' 206      Hanlin's PBCLONE
   KDnload     AS LONG          ' 210          Library
   KDnloadTdy  AS LONG          ' 214
   LMsgArea    AS STRING * 10   ' 224
   LFilArea    AS STRING * 10   ' 234
   Compress    AS STRING * 1    ' 235
   Rsvd5       AS STRING * 1    ' 236
   Extra       AS STRING * 4    ' 240
END TYPE

Regards Dik, Oshawa, Canada

... At the prompt, remove disk, spit on it, then retry.
___ Blue Wave/QWK v2.10

--- Maximus 2.00
 * Origin: Durham Systems (ONLINE!) (1:229/110)