Jdi Again

 BBS: Inland Empire Archive
Date: 05-31-92 (04:02)             Number: 186
From: JEFF FREEMAN                 Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: Jdi Again                      Conf: (2) Quik_Bas

Well, I shoulda tested that code before I uploaded the dang thing.

JDI20 (door routines, for those of you just entering the show) will not
catch error's correctly.

The ON UEVENT thing has to be in the main module (duh).

After calling OPENDOOR, you need to turn the thing on:

IF NOT JDI.IsLocal THEN UEVENT ON

Cute huh...   So move the ON UEVENT thing to the main module and place
that line up there after the call to OPENDOOR.

I also noticed the NCase$ function came through rather garbled.  Bummer,
that.  Awell, okay... here it is again:


FUNCTION NCase$ (Name$)

  Name$ = RTRIM$(LCASE$(Name$))
  IF Name$ = Null$ THEN EXIT FUNCTION
  MID$(Name$, 1, 1) = UCASE$(LEFT$(Name$, 1))
  FOR X = 1 TO LEN(Name$)
        IF MID$(Name$, X, 1) = CHR$(32) THEN
            MID$(Name$, X + 1, 1) = UCASE$(MID$(Name$, X + 1, 1))
        END IF
  NEXT X
  NCase$ = Name$

END FUNCTION

Sorry folks...  Like I said... mail me a disk and I'll compile the dang
thing for you and return it on your disk.  I only have 360k, 720k and
1.44m drives though... so don't send a high-density 5.25".

                Jeff Freeman
                9417 Mixon #235
                Dallas, TX  75220

If you're using PDS then I'm afraid I won't be able to compile it for
you, but I will send the code and QBSER21.  You can compile it yourself,
then.

Hasta!

---
 * Origin: Camelot BBS - Dallas, TX - (214) 339-8283 (1:124/1011)