Re: Door Routines

 BBS: Inland Empire Archive
Date: 12-18-92 (23:43)             Number: 327
From: ROB MCKEE                    Refer#: NONE
  To: TONY ELLIOTT                  Recvd: NO  
Subj: Re: Door Routines              Conf: (2) Quik_Bas

Hi Tony
 RM> SysOp%= FREEFILE
 RM> Modem%= FREEFILE
 RM> Open "CON:" for output as SysOp%
 RM> Open "COM"+Port$+":"+Baud$+PWS$ as Modem%, len = 1024

 TE> Be careful! FREEFILE will return the same number for Sysop% and Modem%.
 TE> This will work:

 TE>  SysOp%= FREEFILE
 TE>  Open "CON:" for output as SysOp%
 TE>  Modem%= FREEFILE
 TE>  Open "COM"+Port$+":"+Baud$+PWS$ as Modem%, len = 1024

ooopppssss....  How true!  BTW I have rewritten ERLV.COM to work on any
machine Using MS-Dos5 and COMMAND.COM.  here is the Debug
SCR for it.  I wrote it in A86 Assembler.  I tested it on a
286/20 running stacker and an IBM XT (4.77 pup) with a
10Meg HD and MS-Dos5 and nothing else.  It searches the
MCB's for the String 'COMMAND' and then adds &h2b to the
segment of the MCB and gets the errorlevel byte [offset 3].
 Most of the code is for finding 'COMMAND'..  The program
works great is batch files and from dos.  The problem is it
stops looking at the first command.com.  So if your shelled
from a program and running a Batch file with a secondary
Command.com loaded your SOL.  I'm working on it to get the
last COMMAND.COM in memory so it will work from a shelled bat file.
  debug <ERLV.SCR
    ----------------------8<---------------------------
    n erlv.com
    E 0100 E9 70 00 00 00 00 00 00 00 00 00 00 00 00 00 00
    E 0110 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
    E 0120 0D 0A 24 00 54 68 69 73 20 50 72 6F 67 72 61 6D
    E 0130 20 4F 6E 6C 79 20 72 75 6E 73 20 77 69 74 68 20
    E 0140 44 6F 73 35 20 61 6E 64 20 43 4F 4D 4D 41 4E 44
    E 0150 2E 43 4F 4D 0D 0A 24 54 68 69 73 20 50 72 6F 67
    E 0160 72 61 6D 20 48 61 73 20 70 72 6F 62 6C 65 6D 73
    E 0170 0D 0A 24 1E 1E 1E 1E 1E B4 30 CD 21 3D 05 00 74
    E 0180 1C BA 24 01 E8 0C 00 E9 0E 00 BA 57 01 E8 03 00
    E 0190 E9 05 00 B4 09 CD 21 C3 B8 00 4C CD 21 B4 52 CD
    E 01A0 21 4B 4B 89 DE 26 8B 04 2E A3 05 01 8E D8 2E A3
    E 01B0 03 01 3E 8A 26 00 00 8C DB 03 1E 03 00 83 C3 01
    E 01C0 80 FC 5A 74 D3 80 FC 4D 74 02 EB BE 1F 1E 89 1E
    E 01D0 0B 01 A1 03 01 8E C0 26 80 3E 08 00 43 75 44 26
    E 01E0 80 3E 09 00 4F 75 3C 26 80 3E 0A 00 4D 75 34 26
    E 01F0 80 3E 0B 00 4D 75 2C 26 80 3E 0C 00 41 75 24 26
    E 0200 80 3E 0D 00 4E 75 1C 26 80 3E 0E 00 44 75 14 3E
    E 0210 A1 03 01 05 2B 00 8E C0 26 A0 03 00 3E A2 23 01
    E 0220 E9 06 00 3E A1 0B 01 EB 83 0E 1F B1 30 3C 00 74
    E 0230 16 32 E4 BB 0A 00 F6 F3 88 26 1F 01 32 E4 F6 F3
    E 0240 88 26 1E 01 A2 1D 01 00 0E 1F 01 00 0E 1E 01 00
    E 0250 0E 1D 01 BA 1D 01 E8 3A FF A0 23 01 B4 4C CD 21
    rcx
    160
    w
    q

          ----------------------8<---------------------------TTYL -Rob

--- EZPoint V2.2
 * Origin: Flyer Proof Computer Services (1:125/1212.13)