/ ;+ ; return time as a string ; looks like: dd/mm/yy hh:mm:ss ;- .title time .ident /8oct/ .psect time ;buf: .blkb 100. PROGRAM tim ; AUTO a b c from too s[100.] ; FUNCTION main[argc,argv] ; LET a = argv + #2 ; LET b = argv + #4 ; LET c = argv + #6 ; . time[&s] ; PRINTF #buf "time is '%s'" &s ; RET ;AUTO year mon day hour min sec tick ticks AUTO ticks tick sec min hour day mon year FUNCTION time[s] .mcall gtim$s ; cheat a little, know that all the autos are contiguous LET r0 = &year gtim$s r0 LET r1 = "%02d/%02d/%02d %02d:%02d:%02d" . sprint[s,r1,mon,day,year,hour,min,sec] RET .end