mirror of
https://github.com/PDP-10/its.git
synced 2026-01-11 23:53:12 +00:00
17 lines
409 B
Plaintext
17 lines
409 B
Plaintext
'<PCODE "1ITIME">
|
|
|
|
<PACKAGE "NOW">
|
|
|
|
<ENTRY NOW>
|
|
|
|
<USE "ITIME">
|
|
|
|
<SETG NOW %<RSUBR!- '[ %<PCODE!- "1ITIME" 541> NOW #DECL ("VALUE" STRING) LTIME
|
|
IDAY ["Sunday" "Monday" "Tuesday" "Wednesday" "Thursday" "Friday" "Saturday"]
|
|
", " " " ["Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov"
|
|
"Dec"] "19" "0" "" ":"]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,NOW PGLUE ![738196480!]>>
|
|
|
|
|
|
<ENDPACKAGE>
|