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)
Outer Court
Echo Basic Postings

Books at Amazon:

Back to BASIC: The History, Corruption, and Future of the Language

Hackers: Heroes of the Computer Revolution (including Tiny BASIC)

Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution

The Advent of the Algorithm: The Idea that Rules the World

Moths in the Machine: The Power and Perils of Programming

Mastering Visual Basic .NET