%string(9)%fnspec Weekday(%integer N)
   %conststring(9)%array day(0:6) = "Sunday", "Monday", "Tuesday",
                                    "Wednesday", "Thursday", "Friday",
                                    "Saturday"
   %record(parmfm) p
   %integer d
   svc(19, p)
   d = rem(p_p4+3, 7)
   %result = Day(d)
%end
%begin
   printstring(Weekday(d));  space
   printstring(date);        space
   printstring(time);        newline
%endofprogram