02001 plano

Move "answer to question" to R;
If R > 0 go to 02001plano;
If R < 0 go to 02001plano;
If R = 0 go to 02001plano;
02001plano: If numeroaleatório >= 0 exec "backup.exe",
numero aleatório < 0 skip;
end;