1. Forum
  2. FidoNet
  3. PASCAL

  • Something...

    From Sean Dennis@1:18/200 to Scott Little on Mon Oct 12 18:11:58 2009
    Hello, Scott.

    This is something I just did real fast...would the program be something like:

    === Cut ===
    {$I TELEGARD.INC}

    Var
    UF : Userflags; { Total of 8 flags }

    Begin
    UF := [Hiddenlog, Hiddenlist]
    End;
    === Cut ===

    That's missing opening the user's data, et al., but you get the jist. :) What I'm wondering is if that's how I'd set the two bits.

    Later,
    Sean

    //sean@nsbbs.info | http://nsbbs.info | ICQ: 19965647

    ... Got my tie caught in the fax -- suddenly I was in L.A....
    --- GoldED/2 3.0.1
    * Origin: Nocturnal State BBS - Johnson City, TN - bbs.nsbbs.info (1:18/200)
  • From Scott Little@3:712/848 to Sean Dennis on Tue Oct 13 13:51:24 2009
    [ On 2009-10-12 at 18:11:58, Sean Dennis wrote to Scott Little ]

    Thanks for your help in this. Since my car accident last year, it can
    be hard for me to wrap my mind around certain concepts after my concussion. :)

    Your brain is telling you "Sets? Life's too short for such trivialities - I wanna go party" ;)

    And the Homer Simpson response is: "shut-up brain or i'll stab you with a Q-tip"

    UF := [Hiddenlog, Hiddenlist]
    :) What I'm wondering is if that's how I'd set the two bits.

    That will set only those two bits and clear the rest. You probably want:

    UF := UF + [Hiddenlog, Hiddenlist]

    so that the other flags are preserved.


    -- Scott Little [fidonet#3:712/848 / sysgod@sysgod.org]

    --- Real Programmers don't drink decaf.
    * Origin: [sysgod.org] Life is like a box of ammo... (3:712/848)
  • From Sean Dennis@1:18/200 to Scott Little on Tue Oct 13 09:34:42 2009
    Hello, Scott.

    Tuesday October 13 2009 at 13:51, you wrote to me:

    Your brain is telling you "Sets? Life's too short for such
    trivialities - I wanna go party" ;)

    Something like that, yes. :)

    And the Homer Simpson response is: "shut-up brain or i'll stab you
    with a Q-tip"

    I'll have my wife shove a crayon up my nose-that will fix everything. :P

    UF := UF + [Hiddenlog, Hiddenlist]
    so that the other flags are preserved.

    Okay, that works. Now the last (!) question is would I have to write the changes to the data file (USERS.DAT) in order for it to take effect? I'm assuming that I'd have to do that.

    Later,
    Sean

    //sean@nsbbs.info | http://nsbbs.info | ICQ: 19965647

    ... If you really need an officer in a hurry, take a nap.
    --- GoldED/2 3.0.1
    * Origin: Nocturnal State BBS - Johnson City, TN - bbs.nsbbs.info (1:18/200)
  • From Scott Little@3:712/848 to Sean Dennis on Wed Oct 14 07:35:42 2009
    [ On 2009-10-13 at 09:34:42, Sean Dennis wrote to Scott Little ]

    Okay, that works. Now the last (!) question is would I have to write
    the changes to the data file (USERS.DAT) in order for it to take
    effect? I'm assuming that I'd have to do that.

    Yep. Make sure you overwrite the right record (ie. seek back one record).


    -- Scott Little [fidonet#3:712/848 / sysgod@sysgod.org]

    --- Everything can be filed under 'miscellaneous'.
    * Origin: [sysgod.org] To know me is to love me, punk! (3:712/848)
  • From Sean Dennis@1:18/200 to Scott Little on Tue Oct 13 19:29:26 2009
    Hello, Scott.

    Wednesday October 14 2009 at 07:35, you wrote to me:

    Yep. Make sure you overwrite the right record (ie. seek back one
    record).

    Okay, since it's for record 0 (me), I can just Seek(Filename, 0); correct?

    Is it kosher to post code in the echo? I might put the little proggie up for review once I get it done. I suddenly have extra time on my hands so I'll work
    on it tonight.

    Later,
    Sean

    //sean@nsbbs.info | http://nsbbs.info | ICQ: 19965647

    ... Sattinger's Law: It works better if you plug it in.
    --- GoldED/2 3.0.1
    * Origin: Nocturnal State BBS - Johnson City, TN - bbs.nsbbs.info (1:18/200)
  • From mark lewis@1:3634/12 to Sean Dennis on Wed Oct 14 22:54:25 2009

    Yep. Make sure you overwrite the right record (ie. seek back one
    record).

    Okay, since it's for record 0 (me), I can just Seek(Filename, 0);
    correct?

    that's ok for forcing the record... however, if you're trying to do it for your
    callers, then you need the math ;)

    Is it kosher to post code in the echo?

    absolutely!! that's how so much code got spread around in yonks past... if you have the SWAG collection, well over 50% of that code came from this echo... there's actually several of my own postings in SWAG and they all came from here
    ;)

    )\/(ark


    * Origin: (1:3634/12)