LAC-5700 Operatsioonisüsteemid
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
else begin { Kui maluvabastamiseMeetod = 1 -- tavaline
(pole prgi) }
Writeln( 'M,,lu sai t,,is' );
Halt; { Läpetab programmi t"" }
end;
end;
end;
annaabi.ee 
