Autor: Grzegorz Mazur (NOSPAMgregu_at_bart.nlNOSPAM)
Data: Mon 29 Mar 1999 - 01:49:21 MET DST
W sumie NTG, ale fajne - może wam się też spodoba:
============
program Święta
type do_swiecenia record
jajko:kurze;
kielbasa:zwykła;
chleb:wiejski;
baranek:cukrowy;
end;
type woda array[1..n] of H2O;
var wiadro: array[1..maxlitrow] of woda;
koszyczek:do_swiecenia
post,swieta:boolean;
kasa:integer
taca:array[1..n] of integer;
begin
with koszyczek do
begin
goto(kosciol);
sacrifice(all);
repeat;
put kasa into taca;
until (taca overflow)
pray;
delay(10000);
end;
post=false;
swieta=true;
if wielkanoc than
do
eat(all);
until food=false;
while smingus do
begin
lej(woda);
fill(wiadro);
end;
end.
============
No - to wesołych Świąt i mokrego Dyngusa!!!
-- "Those who do not remember history are condemned to repeat it" "In a long run we are all dead" - Keynesian economists ======================================== Grzegorz Mazur Remove "NOSPAM" form my reply adress or use the address below: Usun "NOSPAM" z adresu albo pisz na ponizszy: gregu_at_bart.nl
To archiwum zostało wygenerowane przez hypermail 2.1.7 : Tue 18 May 2004 - 18:22:22 MET DST