PVOL1UPTIME D%B44310010041 3PPHDR1UPTIME.BAS UPTIME00010001000100 :8023 :8023 000000DECRSTS/E PPHDR2U0051200000 M 00 P1 REM 2 REM PROGRAM: UPTIME.BAS 3 REM AUTHOR: DANA BOWEN 4 REM 5 REM VERSION: V1.0 6 REM EDIT: 02 7 REM 10 EXTEND 100 PV$="V1.0-02" 110 PRINT "UPTIME";CHR$(9%);PV$;CHR$(9%); 120 PRINT CVT$$(RIGHT(SYS(CHR$(6%)+CHR$(9%)+CHR$(0%)),3%),4%) 130 PRINT 1000 J%=PEEK(36%)/1000%+2% 2000 J2%=(PEEK(512%)/1000% <> PEEK(36%)/1000%) 3000 J2%=635%+((J%/4%*4%)=J%) IF J2% 4000 T=((PEEK(512%)-PEEK(36%)-J2%)*1440.+PEEK(38%)-PEEK(514%))*60.+60.-(PEEK(516%) AND 255%) 5000 T1=T/3600 ! TOTAL HOURS 6000 T2=T1/24 ! TOTAL DAYS 7000 D%=INT(T2) ! DAYS UP 7500 W%=INT(D%/7%) ! TOTAL WEEKS UP 7600 D%=D%-(W%*7%) ! REMAINDER OF DAYS 8000 T3=T1-((W%*7%)+D%)*24 ! TOTAL HOURS IN CURRENT DAY 9000 H%=INT(T3) ! HOURS UP 10000 T4=(T3-H%)*60 ! TOTAL MINUTES IN CURRECT DAY 11000 M%=INT(T4) 12000 T5=T4-M% ! TOTAL SECONDS UP IN CURRENT DAY 12010 T5=T5*60 13000 S%=INT(T5) ! SECONDS UP 20000 REM PRINT UPTIME 20002 IF W%<1 THEN 20010 20004 PRINT W%;"WEEK";FNS$(W%); 20010 IF D%<1 THEN 20030 20020 PRINT D%;"DAY";FNS$(D%); 20030 IF H%<1 THEN 20050 20040 PRINT H%;"HOUR";FNS$(H%); 20050 IF M%<1 THEN 20070 20060 PRINT M%;"MINUTE";FNS$(M%); 20070 IF S%<1 THEN 20090 20080 PRINT S%;"SECOND";FNS$(S%); 20090 PRINT 20100 PRINT 21000 GOTO 32767 29000 REM FN S$(N%) 29010 DEF* FNS$(N%) 29020 S$="" 29030 IF N%>1 THEN S$="S" 29040 FNS$=S$ 29050 FNEND 30000 PRINT "T=";T 30010 PRINT "T1=";T1 30020 PRINT "T2=";T2 30030 PRINT "D%=";D% 30040 PRINT "T3=";T3 30050 PRINT "H%=";H% 30060 PRINT "T4=";T4 30070 PRINT "M%=";M% 30080 PRINT "T5=";T5 30090 PRINT "S%=";S% 32767 END PEOF1UPTIME.BAS UPTIME00010001000100 :8023 :8023 000004DECRSTS/E PPEOF2U0051200000 M 00 P