blob: 652b6769f9c12c37fb7a76c5ef5e6cd3497b45db (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
include defs
# fmtdat - format date and time information
subroutine fmtdat(date, time, now, form)
character date(ARB), time(ARB)
integer now(7), form
# at present, simply return mm/dd/yy and hh:mm:ss
# 'form' is reserved for selecting different formats
# when those have been chosen.
date(1) = now(2) / 10 + DIG0
date(2) = mod(now(2), 10) + DIG0
date(3) = SLASH
date(4) = now(3) / 10 + DIG0
date(5) = mod(now(3), 10) + DIG0
date(6) = SLASH
date(7) = mod(now(1), 100) / 10 + DIG0
date(8) = mod(now(1), 10) + DIG0
date(9) = EOS
time(1) = now(4) / 10 + DIG0
time(2) = mod(now(4), 10) + DIG0
time(3) = COLON
time(4) = now(5) / 10 + DIG0
time(5) = mod(now(5), 10) + DIG0
time(6) = COLON
time(7) = now(6) / 10 + DIG0
time(8) = mod(now(6), 10) + DIG0
time(9) = EOS
return
end
|
