'<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>