kiedy kliknięto zieloną flagę
ustaw [0 v] na []
powtórz (poziomy wymiar tablicy::operators) razy
ustaw [0 v] na (połącz (0::variables) i [0])
end
usuń (wszystko v) z [tablica v]
powtórz (pionowy wymiar tablicy::operators) razy
    
dodaj (0::variables) do [tablica v]
end

zapytaj [Pozycja x?] i czekaj
ustaw [x v] na (odpowiedź)
zapytaj [Pozycja y?] i czekaj
ustaw [y v] na (odpowiedź)
ustaw [liczba v] na (litera (x::variables) z (element (y::variables) z [tablica v]))

zapytaj [Pozycja x?] i czekaj
ustaw [x v] na (odpowiedź)
zapytaj [Pozycja y?] i czekaj
ustaw [y v] na (odpowiedź)
zapytaj [Cyfra?] i czekaj
ustaw [cyfra v] na (odpowiedź)
ustaw [liczba v] na (element (y::variables) z [tablica v])
ustaw [pozycja v] na [0]
ustaw [nowa liczba v] na []
powtórz ((x::variables)-(1)) razy
zmień [pozycja v] o (1)
ustaw [nowa liczba v] na (połącz (nowa liczba::variables) i (litera (pozycja::variables) z (liczba)))
end
zmień [pozycja v] o (1)
ustaw [nowa liczba v] na (połącz (nowa liczba::variables) i (cyfra::variables))
powtórz ((długość (liczba))-(x::variables)) razy
zmień [pozycja v] o (1)
ustaw [nowa liczba v] na (połącz (nowa liczba::variables) i (litera (pozycja::variables) z (liczba)))
end
zamień element (y::variables) z [tablica v] na (nowa liczba::variables)

usuń (wszystko v) z [los v] // Tablica 'los' dla wylosowanych liczb.
powtórz (10) razy // Liczby zostaną wylosowane 10 razy
ustaw [los v] na [null]
powtarzaj aż <<nie <[los v] zawiera (los) ?>> i <nie <(los) = [null]>>> // Sprawdza, czy wylosowanej liczby nie ma już w tablicy
ustaw [los v] na (losuj od (1) do (10))
end
dodaj (los) do [los v]
end

ustaw [kolor v] na ([sufit v] z ((los::variables) / (13)))
jeżeli <(kolor) = [1]> to
ustaw [kolor v] na [kier]
end
jeżeli <(kolor) = [2]> to
ustaw [kolor v] na [karo]
end
jeżeli <(kolor) = [3]> to
ustaw [kolor v] na [trefl]
end
jeżeli <(kolor) = [4]> to
ustaw [kolor v] na [pik]
end
ustaw [wartosc v] na ((los::variables) - (([podłoga v] z ((los::variables) / (13))) * (13)))
jeżeli <(wartosc) = [1]> to
ustaw [wartosc v] na [as]
end
jeżeli <(wartosc) = [11]> to
ustaw [wartosc v] na [waler]
end
jeżeli <(wartosc) = [12]> to
ustaw [wartosc v] na [dama]
end
jeżeli <(wartosc) = [13]> to
ustaw [wartosc v] na [król]
end
powiedz (połącz (połącz [Wylosowana karta to ] i (połącz (wartosc) i [ ])) i (kolor))

(help () do (10))