Pcode V1.0b 4/4

 BBS: Inland Empire Archive
Date: 06-13-93 (15:36)             Number: 254
From: DAVE ARIGAN                  Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: Pcode V1.0b 4/4                Conf: (2) Quik_Bas

                        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)