%
% write scheduler slot
%
!Sked.Smode
_Sked.Sname any)? { } { _Sked.Name !Sked.Sname } ifelse
_Sked.Scompany any)? { } { _Sked.Company !Sked.Scompany } ifelse
_Sked.Sdocket any)? { } { _Sked.Docket !Sked.Sdocket } ifelse
_Sked.Sphone any)? { } { _Sked.Phone !Sked.Sphone } ifelse
_Sked.Slot 2 prezero text ^_Sked.Dfold
"skedwrslot" log)(
empty
"Sked.Slot" sval
"Sked.Smode" sval
"Sked.Sname" sval
"Sked.Scompany" sval
"Sked.Sdocket" sval
"Sked.Sphone" sval
exch write