filedate.bas

 BBS: Inland Empire Archive
Date: 10-07-92 (19:15)             Number: 324
From: MATT HART                    Refer#: NONE
  To: TOM CARROLL                   Recvd: NO  
Subj: filedate.bas                   Conf: (2) Quik_Bas

 TC> 'other minor changes...  I keep getting an overflow error when the
 TC> 'date/time that I have down below is used.  I know, you're probably

     Woops.  Here's the offending code:

 TC>     HMS& = Hours& + Minutes& + Seconds&
 TC>     IF HMS& > 65536 THEN
 TC>         InRegs.cx = 65536 - HMS&
 TC>     ELSE
 TC>         InRegs.cx = HMS&  ' <<< This is where it's cookies gets
 TC>     END IF                '     Tossed.  It exits with error #6.

     Change:
          IF HMS& > 65536 THEN

     To:
          IF HMS& => 65536 THEN
     or
          IF HMS& > 65535 THEN
---
 * Origin: Midnight Micro!  V.32/REL  (918)451-3306 (1:170/600)