Autor: Tomek Lisowski (tjplis_at_friko3.nospam.onet.pl)
Data: Tue 30 Mar 1999 - 12:32:33 MET DST
Grzegorz Mazur napisał(a) w wiadomości: <7dmf6q$g7m$1_at_freyja.bart.nl>...
>W sumie NTG, ale fajne - może wam się też spodoba:
>
>============
>program Święta
Brak średnika na końcu :-)
>
>type do_swiecenia record
brak '='
> jajko:kurze;
> kielbasa:zwykła;
> chleb:wiejski;
> baranek:cukrowy;
>end;
>
>type woda array[1..n] of H2O;
patrz wyżej
>
>var wiadro: array[1..maxlitrow] of woda;
> koszyczek:do_swiecenia
średnik
> 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;
To chyba z innego dialektu ;-)
>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
>
Niezłe, ale pan Wirth miałby trochę zastrzeżeń co do składni :-)
Pozdrawiam
Tomasz Lisowski
To archiwum zostało wygenerowane przez hypermail 2.1.7 : Tue 18 May 2004 - 18:22:40 MET DST