to pari
cs ppt ht
setsc [0 0 0]
setpensize [3 3]
seth 90
zaslon
settextfont [[Comic Sans MS] 80 25 15 15 0 0 0 0 0 0 0 0]
setpc [255 255 255]
naloga
until [emptyp :m][izbor]
konec
end

to izbor
make "t :t+1
make "k pick :m
make "n first :k
make "c last :k
setxy 105 120
label :c
make "p rw
setpc [255 0 0] label :c setpc [255 255 255]
if :p=:n [pravilno]
end

to karta
setpc [255 0 0]
setfc [255 0 0]
repeat 2 [fd 50 lt 90 fd 100 lt 90]
pu lt 45 fd 10 fill bk 10 rt 45 pd
end

to konec
settextfont [[Comic Sans MS] 40 12 0 100 0 0 0 0 0 0 0 0]
setpc [255 0 0 ]
setxy -280 120
label [BRAVO, USPELO TI JE!]
setxy -280 60
setpc [0 0 255]
label se [ŠTEVILO POSKUSOV:] :t
wait 10000
settextfont [[Comic Sans MS] 0 0 0 0 0 0 0 0 0 0 0 0]
setsc [255 255 255]
setpc [0 0 0]
setfc [0 0 0]
setpensize [1 1]
ppt
end

to naloga
make "k [A B C D E F G H]
make "m []
make "t 0
repeat 8 [make "n repcount postavi]
end

to postavi
make "c pick :k
make "m lput (word :n :c) :m
make "k remove :c :k
end

to pravilno
setxy (:n*70-345) -40
label :c
make "m remove :k :m
end

to zaslon
pu setxy 100 30 pd
karta
pu setxy -280 -130 pd
repeat 8 [karta pu fd 70 pd]
pu setxy -265 0
setpc [0 0 255]
settextfont [[Comic Sans MS] 25 15 3 10 0 0 0 0 0 0 0 0]
repeat 8 [label repcount setx repcount*70-260]
end

pari