Set Var 'Software': szüveg
'Winchester': {naja, ez ám a változó} char
Begin
Writeln='********'; {puccos díszítősor... végtisztelet megadása a kivégzendő PC-nek}
Writeln='Please write your favourite software'; {angolul jobb, nem?}
Read 'Software';
If 'Software' = 'Windows', then
'Halkít winchester',: 3 decibel;
else command: 'Format C:'; {szeretjük a felhasználót ám!}
Writeln='mosmá halkabb a vincsesztered?'; {de hát magyarok vagyunk, nem?}
Read 'Winchester';
If 'Winchester' = 'igen', then
Writeln='Helyes, akkor pofa be, és vedd meg a legújabb mikrószoftot!'; {lásd "szeretjük..." c. megj.}
else writeln='Nem teccik? Akkor használd az 5 kilós nagykalapácsot, ha mered!'; {kis fenyegetés, stb...}
and command= 'Terminate CPU'; {a vinyó mellé elkezd a CPU is veszettül berregni (LOL)}
End.
Remélem, tudtam segíteni.
