home bbs files messages ]

Just a sample of the Echomail archive

Cooperative anarchy at its finest, still active today. Darkrealms is the Zone 1 Hub.

   MYSTIC      Mystic support echo      16,010 messages   

[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]

   Message 13,442 of 16,010   
   g00r00 to Andy Gorman   
   Re: Reading dat files   
   07 May 21 17:59:53   
   
   TID: Mystic BBS 1.12 A47   
   MSGID: 1:129/215 38836bca   
   REPLY: 1:229/426.52 e6e7463d   
   TZUTC: -0400   
    AG> Second, when I loop through the file using the structure g00r00 has   
    AG> provided (th ank you! :) ), it seems that the byte count gets thrown off   
    AG> by one right after t he Birthday field.  Which she is    
      
   I don't know how to help you here without seeing code.  But here is a very   
   simple loop through the users using the barebones file I/O with no buffering   
   or streaming, etc.  If this doesnt work for you let me know it could be   
   possible that the latest records aren't the ones that are included.   
      
   Program ReadUsers;   
      
   {$DEFINE WINDOWS}   
   {$DEFINE 32BIT}   
      
   {$I RECORDS.112}   
      
   {$I-}   
      
   Var   
     F : File of RecUser;   
     U : RecUser;   
   Begin   
     Assign (F, 'users.dat');   
     Reset  (F);   
      
     If IoResult <> 0 Then   
       Halt(1);   
      
     While Not Eof(F) Do Begin   
       Read (F, U);   
      
       WriteLn ('Name: ' + U.Handle);   
     End;   
      
     Close (F);   
   End.   
   --- Mystic BBS v1.12 A47 2021/05/02 (Windows/64)   
    * Origin: Sector 7 | Mystic WHQ (1:129/215)   
   SEEN-BY: 1/123 30/0 80/1 90/1 105/81 120/340 457 616 123/10 131 129/215   
   SEEN-BY: 129/305 154/10 30 40 50 700 203/0 218/700 220/80 90 221/6   
   SEEN-BY: 226/30 227/114 201 702 229/101 310 424 426 452 550 664 700   
   SEEN-BY: 229/981 1016 1017 240/1120 5832 249/206 307 317 400 280/464   
   SEEN-BY: 282/1038 292/854 301/0 1 101 113 317/3 322/757 341/66 342/200   
   SEEN-BY: 633/280 712/848 770/1 3634/12 5020/1042 5058/104   
   PATH: 129/215 154/10 301/1 229/426   
      

[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]


(c) 1994,  bbs@darkrealms.ca