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

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)

... Has anyone seen Nick?
--- FMail 0.94
 * Origin: CzarLand BBS * Windsor, ON * Canada (1:246/27.0)
Outer Court
Echo Basic Postings

Books at Amazon:

Back to BASIC: The History, Corruption, and Future of the Language

Hackers: Heroes of the Computer Revolution (including Tiny BASIC)

Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution

The Advent of the Algorithm: The Idea that Rules the World

Moths in the Machine: The Power and Perils of Programming

Mastering Visual Basic .NET