===========================================================================
 BBS: The Abacus * HST/DS * Potterville MI
Date: 02-26-93 (23:46)             Number: 123
From: GEOFFREY LIU                 Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: Echo Project Addition 2/2      Conf: (35) Quick Basi
---------------------------------------------------------------------------
Part 2 of Filecopy.BAS - continued from last message...

    GLRegs.cx = &H0
    CALL INTERRUPTX(&H21, GLRegs, GLRegs)
ELSE
    GLRegs.ax = &H4F00
    GLRegs.cx = &H0
    CALL INTERRUPTX(&H21, GLRegs, GLRegs)
END IF

IF (GLRegs.flags AND 1) THEN  'CF is set
    GLFlag = GLRegs.ax
ELSE
    GLFlag = 1
    GLFilename2$ = MID$(GLDTa, 31)
    GLnul = INSTR(GLFilename2$, CHR$(0))
    IF GLnul THEN
        WildCard$ = LEFT$(GLFilename2$, GLnul - 1)
    END IF
END IF
END FUNCTION


'__O_/________________________| SNIP |______________________\_O_______
'  O \                        | HERE |                      / O
'  Line wrapping and message splitted accomplished by MsgSplit 2.00,
'a Victor Yiu and Scott Wunsch creation.

                   :) Geoff.
---
 * DeLuxe* 1.26b #11507 * I'm at the corner of Walk and Don't Walk.
--- FidoPCB v1.4 beta
 * Origin: Canada Remote Systems, Mississauga, Ontario  (1:229/15)
SEEN-BY: 1/211 11/2 4 13/13 101/1 108/89 109/25 110/69 114/5 123/19 124/1
SEEN-BY: 153/752 154/40 77 157/2 159/100 125 430 950 203/23 209/209 280/1
SEEN-BY: 390/1 396/1 15 397/2 2230/100 3603/20