|
With the weather in Melbourne lately, my observing procedure consists of:
procedure ObservingSession;
begin
StickHeadOutside;
CloudCover := GetPercentageCloudCover;
If CloudCover > 50 then
goto Bed
else
begin
WaitHours(1);
CloudCover := GetPercentageCloudCover;
if CloudCover > 50 then
goto Bed
else
begin
CrossFingers;
GetOutScope;//this function is rarely used!
end;
end;
end;
BTW, I am a computer programmer...
|