%
% stack: slot
%
9 !Sked.Slots
dup !Sked.Ix
dup 2 prezero
<
|01 "7:30 am" !Sked.Stime 60 !Sked.Span
|02 "8:30 am" !Sked.Stime 60 !Sked.Span
|03 "9:30 am" !Sked.Stime 60 !Sked.Span
|04 "10:30 am" !Sked.Stime 60 !Sked.Span
|05 "11:30 am" !Sked.Stime 60 !Sked.Span
|06 "12:30 pm" !Sked.Stime 60 !Sked.Span
|07 "1:30 pm" !Sked.Stime 60 !Sked.Span
|08 "2:30 pm" !Sked.Stime 60 !Sked.Span
|09 "3:30 pm" !Sked.Stime 60 !Sked.Span
> not
{
%
% not an index for slot, check for time
%
empty !Sked.Ix
dup
" " empty replall
"am" empty replall
"pm" empty replall
"a" empty replall
"p" empty replall
<
|7:30 1 !Sked.Ix 60 !Sked.Span
|8:30 2 !Sked.Ix 60 !Sked.Span
|9:30 3 !Sked.Ix 60 !Sked.Span
|10:30 4 !Sked.Ix 60 !Sked.Span
|11:30 5 !Sked.Ix 60 !Sked.Span
|12:30 6 !Sked.Ix 60 !Sked.Span
|1:30 7 !Sked.Ix 60 !Sked.Span
|2:30 8 !Sked.Ix 60 !Sked.Span
|3:30 9 !Sked.Ix 60 !Sked.Span
> not
{
%
% not a valid scheduled time
%
 
} if

} if
pop