100 PROGRAM "Seconds.bas"
110 NUMERIC UN(1 TO 5),SEC,UNIT
120 STRING T$(1 TO 5)*3
130 LET UN(1)=604800:LET UN(2)=86400:LET UN(3)=3600:LET UN(4)=60:LET UN(5)=1
140 LET T$(1)="wk":LET T$(2)="d":LET T$(3)="hr":LET T$(4)="min":LET T$(5)="sec"
150 INPUT PROMPT "Duration in seconds: ":SEC
160 PRINT SEC;"sec =";
170 FOR I=1 TO 5
180   IF SEC>=UN(I) THEN
190     LET UNIT=INT(SEC/UN(I)):LET SEC=MOD(SEC,UN(I))
200     PRINT UNIT;T$(I);
210     IF I<4 AND SEC>0 THEN PRINT ",";
220   END IF
230 NEXT
240 PRINT