Procedure Workday; begin
If AlarmRing and Time < 8:00 then
DoSnooze()
else if AlarmRing and Time > 8:00 then
WakeupAndWashUp()
else ContinueSleep();
if Time < 8:30 then
GoForBreakfast()
else RushToWork();
While not WorkDone or Time < 18:00 do begin
DoWork()
end;
If not WorkDone and BossHere then
DoWorkOT();
If Time < 19:30 then
GotoGym();
If Day = Thurs or LadiesNite = True then
GoClubbing()
else if Mood = Bad then
GoDota()
else if Mood = Good then
GoYumcha();
While not AlarmRing do
Sleep();
end;
No comments:
Post a Comment