'===========================================================================
' Subject: CALCULATE SECONDS                 Date: 07-03-97 (12:01)       
' Author:  Brian Mahocker                    Code: QB, QBasic, PDS        
' Origin:  Kain121182@aol.com              Packet: DATETIME.ABC
'===========================================================================
CLS
INPUT "How many seconds? : ", Secc#
LOCATE , , 0
CLS
PRINT "Seconds :" + STR$(Sec) + "   "
PRINT "Minutes :" + STR$(Min) + "   "
PRINT "  Hours :" + STR$(Hour) + "   "
PRINT "   Days :" + STR$(Day) + "   "
PRINT "  Years :" + STR$(Year&) + "   "
PRINT "Secconds left : " + LTRIM$(STR$(Secc#))
DO
LET num = num + 1
IF Secc# > 60 THEN
   LET Min = Min + 1
   IF Min = 60 THEN
      LET Min = 0
      LET Hour = Hour + 1
      IF Hour = 24 THEN
         Hour = 0
         LET Day = Day + 1
         IF Day = 365 THEN
            LET Day = 0
            LET Year& = Year& + 1
         END IF
      END IF
   END IF
END IF
LET Secc# = Secc# - 60
IF num = 5000 THEN
   LOCATE 1, 1
   PRINT "Seconds :" + STR$(Sec) + "   "
   PRINT "Minutes :" + STR$(Min) + "   "
   PRINT "  Hours :" + STR$(Hour) + "   "
   PRINT "   Days :" + STR$(Day) + "   "
   PRINT "  Years :" + STR$(Year&) + "   "
   PRINT "Secconds left : " + LTRIM$(STR$(Secc#))
   LET num = 0
END IF
LOOP UNTIL Secc# < 60
LET Sec = Secc#
LOCATE 1, 1
PRINT "Seconds :" + STR$(Sec) + "   "
PRINT "Minutes :" + STR$(Min) + "   "
PRINT "  Hours :" + STR$(Hour) + "   "
PRINT "   Days :" + STR$(Day) + "   "
PRINT "  Years :" + STR$(Year&) + "   "