===========================================================================
 BBS: The Abacus * HST/DS * Potterville MI
Date: 06-13-93 (15:36)             Number: 33
From: DAVE ARIGAN                  Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: Pcode V1.0b 4/4                Conf: (35) Quick Basi
---------------------------------------------------------------------------
                        MID$(line$, lnpos + a) = CHR$(lscode(a - 1) + 35)
                NEXT a
                lnpos = lnpos + 4
        END IF
        IF lnpos = 65 OR flag THEN
                lnpos = 0: PRINT #2, "dA"; RTRIM$(line$)
                line$ = SPACE$(65)
                lines = lines + 1
        END IF
END SUB

SUB settimedate (file$, time&, date&)
        handle = openh(file$)
        inreg.ax = &H5701
        inreg.bx = handle
        inreg.cx = time&
        inreg.dx = date&
        CALL INTERRUPTX(&H21, inreg, outreg)
        IF outreg.flags AND 1 THEN CALL fileerror(5)
        CALL closeh(handle)
END SUB



... Has anyone seen Nick?
--- FMail 0.94
 * Origin: CzarLand BBS * Windsor, ON * Canada (1:246/27.0)
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/110 159/100 125 430 575 950 203/23 209/209
SEEN-BY: 261/1023 280/1 390/1 396/1 15 397/2 2230/100 2440/5 3603/20