to morze
repeat 9 [ question [ What message { qqq to quit , input only one small letter } ? ] 
                make "txt4 answer if :txt4 = "qqq [ stop ] 
 morz3  ]
end

to morz2
if :txt = "a [make "txt "+=_ ]
if :txt = "+= [make "txt "A ]
if :txt = "b [make "txt "=+_ ]
if :txt = "=+ [make "txt "B ]
if :txt = "c [make "txt "==_ ]
if :txt = "== [make "txt "C ]
if :txt = "d [ make "txt "++_ ]
if :txt = "++ [ make "txt "D ]
if :txt = "e [ make "txt "+==_ ]
if :txt = "+== [ make "txt "E ]
if :txt = "f [ make "txt "=+=_ ]
if :txt = "=+= [ make "txt "F ]
if :txt = "g [make "txt "==+_ ]
if :txt = "==+ [make "txt "G ]
if :txt = "h [make "txt "++=_ ]
if :txt = "++= [make "txt "H]
if :txt = "i [make "txt "=++_ ]
if :txt = "=++ [make "txt "I ]
if :txt = "j [make "txt "===_ ]
if :txt = "=== [make "txt "J ]
if :txt = "k [make "txt "+++_]
if :txt = "+++_ [make "txt "K ]
if :txt = "l [make "txt "+===_ ]
if :txt = "+=== [make "txt "L ]
if :txt = "m [make "txt "=+==_ ]
if :txt = "=+== [make "txt "M ]
if :txt = "n [make "txt "==+=_ ]
if :txt = "==+= [make "txt "N]
if :txt = "o [make "txt "===+_ ]
if :txt = "===+ [make "txt "O ]
if :txt = "p [make "txt "++==_ ]
if :txt = "++== [make "txt "P ]
if :txt = "q [make "txt "=++=_ ]
if :txt = "=++= [make "txt "Q ]
if :txt = "r [make "txt "==++_ ]
if :txt = "==++ [make "txt "R ]
if :txt = "s [make "txt "+++=_ ]
if :txt = "+++= [make "txt "S ]
if :txt = "t [make "txt "=+++_ ]
if :txt = "=+++ [make "txt "T ]
if :txt = "u [make "txt "++++_ ]
if :txt = "++++ [make "txt "U ]
if :txt = "v [make "txt "====_ ]
if :txt = "==== [make "txt "V ]
if :txt = "w [make "txt "+++==_ ]
if :txt = "+++== [make "txt "W]
if :txt = "x [make "txt "==+++_]
if :txt = "==+++ [make "txt "X ]
if :txt = "y [make "txt "+===+_ ]
if :txt = "+===+ [make "txt "Y ]
if :txt = "z [make "txt "=+++=_ ]
if :txt = "=+++= [make "txt "Z ] 
текущее, insert :txt 
end

to morz3
make "t2 count :txt4
make "i 1
repeat :t2 [ make "txt item :i :txt4 morz2 make "i :i + 1 ]
end