|
PROCEDURE InitListOfAppointments (VAR list: ListOfAppointments); BEGIN list.first := NIL; list.length := 0; list.cursor := NIL; END InitListOfAppointments; PROCEDURE GetFirstAppointment(list: ListOfAppointments; VAR appointment: Appointment); BEGIN ASSERT(list.length > 0); appointment := list.first.appointment; END GetFirstAppointment; PROCEDURE NumberOfAppointments (list: ListOfAppointments) : INTEGER; BEGIN RETURN list.length END NumberOfAppointments; |
Copyright © 1999, 2004, 2005 Andreas Borchert, in HTML konvertiert am 14.09.2005 |