20 lines
437 B
Text
20 lines
437 B
Text
100 DATA604800,WK,86400,D,3600,HR,60,MIN,1,SEC
|
|
110 FOR I = 0 TO 4
|
|
120 READ M(I), U$(I)
|
|
130 NEXT
|
|
140 DATA7259,86400,6000000
|
|
150 ON ERR GOTO 270
|
|
160 READ S
|
|
170 GOSUB 200
|
|
180 PRINT S " = " S$
|
|
190 GOTO 160
|
|
|
|
200 N = S
|
|
210 S$ = ""
|
|
220 FOR I = 0 TO 4
|
|
230 IF INT(N / M(I)) THEN S$ = S$ + MID$(", ", 1, (LEN(S$) > 0) * 2) + STR$(INT(N / M(I))) + " " + U$(I)
|
|
240 N = N - INT(N / M(I)) * M(I)
|
|
250 NEXT I
|
|
260 RETURN
|
|
|
|
270 END
|