Re: Dos Interrupts

 BBS: Inland Empire Archive
Date: 06-18-92 (14:28)             Number: 850
From: DICK DENNISON                Refer#: NONE
  To: JEFF BEER                     Recvd: NO  
Subj: Re: Dos Interrupts             Conf: (2) Quik_Bas
JB> I do get the year, but I don't know how to get the rest.  Any
JB> suggestions?

Try this:

DIM regs AS regtype = &H2A00  'get date
CALL interrupt(&H21, regs, regs)
year% =
Month% = regs.dx \ 256
Dayn% = regs.dx MOD 256
day% = MOD 256
PRINT year%
PRINT Month%
PRINT day%
PRINT "============="

For day%, 0=Sun, 1=Mon, etc.

--- VP [DOS] V4.09e
 * Origin: The MailMan  (914)374-3903 NY Quick Share Pt #7 *HST (1:272/34)
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