LAC-5700 Operatsioonisüsteemid
BlokiNimi );
end;
end;
if LeitiMalu then begin
{ V,,ljastab m,,lu seisu ekraanile }
5
For positsioonMalus := 1 to maluSuurus do
Write( fail, malu[ positsioonMalus ] );
WriteLn ( fail );
end;
if not LeitiMalu then begin { leitiMalu = false, st ei
leitud m,,lu... }
if maluVabastamiseMeetod = 2 then begin { Kui m,,lus
väib olla prahti... }
{ Eemaldatakse praht - asendatakse thjusega
(thikutega) }
For positsioonMalus := 1 to maluSuurus do
if malu[ positsioonMalus ] = '*' then
malu[ positsioonMalus ] := ' ';
{
Peale prgi eelmadamist proovida uuesti, seekord
juba tavalise
m,,lu vabastamise meetodiga, et mitte uuesti prgi
korjama hakata
kui m,,lu ikkagi piisavalt pole.
}
maluVabastamiseMeetod := 1;
votaMalu( BlokiNimi, BlokiSuurus );
maluVabastamiseMeetod := 2;
end
annaabi.ee 
