Simple door 4/4

 BBS: Inland Empire Archive
Date: 02-06-93 (09:42)             Number: 344
From: DAVID COLSTON                Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: Simple door           4/4      Conf: (2) Quik_Bas

>>> Continued from previous message
SELECT CASE UCASE$(Parity$)
    CASE "N"
    Reg.ax = (Reg.ax OR &H0)
    CASE "O"
    Reg.ax = (Reg.ax OR &H8)
    CASE "E"
    Reg.ax = (Reg.ax OR &H18)
    CASE ELSE
    Reg.ax = (Reg.ax OR &H0)
    ' Default to no parity
END SELECT
Reg.dx = Port
Interrupt &H14, Reg, Reg   'Set it up!
END SUB


 * OLX 2.1 TD * Colston & Associates, Inc. 501-452-2928 or 501-785-2208


--- WM v2.06/92-0178
 * Origin: Paradox of Arkansas *Wildcat 3.0* 501-646-7158 (1:3822/1)