Y=0

P=0

C=0

D=0

Y = Y + 1

Read the Schedule

If no more patients

If patient Cancel

Delete info in Time file

Delete patient info in Patient file

Save patient info from Patient file & TPUy in Distance file

Sort Time file to find minimal T

If C > D

Save patient Y info from Patient file & TPUy in Zone file

F=0

F = F + 1

Read Zone file

If End of Zone file

E=0

E = E + 1

Read Distance file

If End of Distance file

Delete info in Patient, Zone & Distance files

Read Vehicles file

If Vehicles file Empty

20-1