!Sked.Mode

  empty
  "Sked.Phone" sval
  "Sked.Mode" sval
  "Sked.Name" sval
  "Sked.Company" sval
  "Sked.Date" sval
  "Sked.Docket" sval
  "Sked.Slot" sval
  "Sked.PriorDocket" sval
  "Sked.PriorDate" sval
  "Sked.Message" sval

_Sked.IsAdmin
{
  "Sked.Driver" sval
  "Sked.Data" sval
} if
  
  dup _Sked.Phone text "Numbers\" ofconn ^ write

_Sked.IsAdmin
{
 pop
}
{

_Sked.Mode
<
|ReqRsv
%
% copy the current data to the next numbered record of reserved for this number
%
0 !Sked.Jx
_Sked.Phone &"_???.txt" !wilder
"Numbers\" ofconn
empty
{
 nextfile ?
 dup noext 3 right !Sked.Jx
} loop
filing)
+Sked.Jx 3 prezero ^"_" ^_Sked.Phone text "Numbers\" ofconn ^ write
> not
{
 pop
} if

} ifelse