aprenda aj1
un pt 400 ul 
mont2
fim

aprenda aj10
un pd 15 pf 60 ul
estrela5 10 10 6 1
fim

aprenda aj11
un pf 90 ul
estrela6 17 9 4 1
fim

aprenda aj12
un pe 60 pf 100 pe 165 ul
supnov
fim

aprenda aj13
un pd 5 pf 50 pd 180 ul
mudecl 0
pinheiro
fim

aprenda aj2
un pf 50 pd 90 pf 250
mudecl 0 ul casa2
fim

aprenda aj3
un pd 110 pf 380 ul pe 100 moinho3 70
fim

aprenda aj4
un pe 60 pt 120 pd 45 ul
moinho4 70
fim

aprenda aj5
roley -250
roley 250
un pe 35 pf 130 pd 30 ul bat
fim

aprenda aj6
un pd 120 pf 80 mudecl 15 ul
estrela 10 10 4 1  
fim

aprenda aj7
un pe 93 pf 80 ul 
estrela2 8 10 4 1
fim

aprenda aj8
un pe 10 pf 50 ul
estrela3 15 9 4 1
fim

aprenda aj9
un pf 80 ul 
estrela4 12 9 4 1
fim

aprenda ajuste
un pt 100 pd 90 pf 180 pe 90
seno mostrecaixamarcao "mr1 [at] [dt]
fim

aprenda ajuste1
un pe 90 pt 400 ul 
mont
fim

aprenda ajuste2
un pf 50 pd 90 pf 250
mudecl 0 ul casa
fim

aprenda ajuste3
un pf 100 ul nuvem 20 5 0
fim

aprenda ajuste4
un pd 90 pf 110 ul nuvem2 20 5 0
fim

aprenda ajuste5
un pd 45 pf 350 pe 125 ul
moinho 70
fim

aprenda ajuste6
un pe 60 pt 120 pd 45 ul
moinho2 70
fim

aprenda ajuste7
un pe 110 pf 250 pd 105 
pe 90 un pf 40 pd 90 ul pinheiro
fim

aprenda bat
pe 90
repita 50 [pe 3  pf 1/2]
pd 150 
repita 50 [pe 3  pf 1/2]
pd 160
repita 50 [pe 1  pf 1]
pd 120
repita 50 [pe 3  pf 1/2]
pd 150 
repita 50 [pe 3  pf 1/2]
pd 110
repita 50 [pe 1  pf 1]
pd 150
repita 50 [pe 3  pf 1/2]
pd 160 
repita 50 [pe 3  pf 1/2]
pe 20
repita 70 [pt 1 pd 1]
repita 40 [pt 1/2 pe 4]
pd 190
repita 40 [pt 1/3 pe 4]
pd 192
repita 40 [pt 1/2 pe 4]
repita 60 [pt 1 pd 1] mudecp [0 0 0] 
un pe 40 pf 20 pinte pf 40 pinte ul
aj6
fim

aprenda bol
mudecl 15 arco 360 3
mudecp [255 255 255] pinte
mudecl 18 arco 360 3
mudecp [40 40 130] pinte
fim

aprenda bomdia
mudecf [50 50 255]
mostrecaixamensagem "Bomdia [Tenha um bom dia com a TAT]
mostrecaixamensagem "Bomdia [Descubra tambm, o que a TAT faz a noite]
mudecf [255 255 255]
criejanela "main "Bomdia [DIA OU NOITE] 5 5 160 60
criecaixagrupo "Bomdia "gp1 1 0 22 16
criecaixamarcao "Bomdia "gp1 "mr1 [TAT] 2 5 20 10
crieboto "Bomdia "bo1 "DIA 10 22 25 10 [ajuste sol 0]
crieboto "Bomdia "bo2 "NOITE 10 35 25 10 [ajuste lua 0]
crieboto "Bomdia "bo3 "EXIT 130 35 25 10 [mostrecaixamensagem "Bomdia [AT A PROXIMA VEZ NESTE MESMO TAT CANAL] apaguejanela "Bomdia]
crieboto "Bomdia "bo4 "LIMPE 100 35 25 10 [TAT]
crieboto "Bomdia "bo5 "PARE 70 35 25 10 [ABORTE]

crieesttico "Bomdia "es1 ["Arraste esta janela para o canto inferior da tela e brinque"] 40 2 130 20
fim

aprenda casa
ul mudecp [255 255 200]
mudecl 0
mudeel [2 1]
repita 4 [pf 30 pd 90]
pf 30 pd 45 pf 15/cos 45 
pd 40 pf 50 pd 50 pf 15/cos 45 pd 130 pf 50 pd 50 pf 15/cos 45
pt 15/cos 45 pd 45 pt 30 pd 85 pf 50 pe 85 pf 30
un pe 60 pf 20 pinte pe 100 pf 30 pinte pd 60 pf 30 pinte pd 90  pf 25 pinte ul
ajuste3
fim

aprenda casa2
ul mudecp [200 200 210]
mudecl 0
mudeel [2 1]
repita 4 [pf 30 pd 90]
pf 30 pd 45 pf 15/cos 45 
pd 40 pf 50 pd 50 pf 15/cos 45 pd 130 pf 50 pd 50 pf 15/cos 45
pt 15/cos 45 pd 45 pt 30 pd 85 pf 50 pe 85 pf 30
un pe 60 pf 20 pinte pe 100 pf 30 pinte pd 60 pf 30 pinte pd 90  pf 25 pinte ul
aj3
fim

aprenda catv :l :n :c
ul elic :l pe 360/:n
atr "c :c+1
se :c=:n [ajuste6]
catv :l :n :c
fim

aprenda catv2 :l :n :c
ul elic :l pe 360/:n
atr "c :c+1
se :c=:n [ajuste7]
catv2 :l :n :c
fim

aprenda catv3 :l :n :c
ul elic :l pe 360/:n
atr "c :c+1
se :c=:n [aj4]
catv3 :l :n :c
fim

aprenda catv4 :l :n :c
ul elic :l pe 360/:n
atr "c :c+1
se :c=:n [aj5]
catv4 :l :n :c
fim

aprenda elic :l
repita 2 [pf :l pe 360/:n pf :l/3 pe 180 - 360/:n]
un pe 180/:n pf :l/4 mudecp [100 100 100] pinte pt :l/4 pd 180/:n ul
fim

aprenda estrela :l :n :k :c
pf :l pd (:k/:n)*360
atr "soma (:c*:k*360)/:n
atr "r resto :soma 360
atr "c :c+1
se :r=0 [aj7]
estrela :l :n :k :c
fim

aprenda estrela2 :l :n :k :c
pf :l pd (:k/:n)*360
atr "soma (:c*:k*360)/:n
atr "r resto :soma 360
atr "c :c+1
se :r=0 [aj8]
estrela2 :l :n :k :c
fim

aprenda estrela3 :l :n :k :c
pf :l pd (:k/:n)*360
atr "soma (:c*:k*360)/:n
atr "r resto :soma 360
atr "c :c+1
se :r=0 [aj9]
estrela3 :l :n :k :c
fim

aprenda estrela4 :l :n :k :c
pf :l pd (:k/:n)*360
atr "soma (:c*:k*360)/:n
atr "r resto :soma 360
atr "c :c+1
se :r=0 [aj10]
estrela4 :l :n :k :c
fim

aprenda estrela5 :l :n :k :c
pf :l pd (:k/:n)*360
atr "soma (:c*:k*360)/:n
atr "r resto :soma 360
atr "c :c+1
se :r=0 [aj11]
estrela5 :l :n :k :c
fim

aprenda estrela6 :l :n :k :c
pf :l pd (:k/:n)*360
atr "soma (:c*:k*360)/:n
atr "r resto :soma 360
atr "c :c+1
se :r=0 [aj12]
estrela6 :l :n :k :c
fim

aprenda face
un pt 98 pd 15 ul 
repita 12 [pf 50 pd 120 pf 50 pe 150]
un pe 15 pf 100 mudecl 0 mudeel [1 1]ul pe 30 arco 70 40
un pe 50 pf 20 ul arco 360 7 arco 360 2 pd 170 un pf 35 ul arco 360 7 arco 360 2 ajuste1
fim

aprenda lua :c
se :c = 60 [pare]
mudecp [220 255 255]
mudeel [1 1]
mudecl 0
ul arco 360 50 un pf 4 pinte ad ul arco 360 50 un pf 4 mudecp [220 255 255] pinte
lua :c+2
aj1
fim

aprenda moinho :l
pd 5 pf :l pd 85 pf :l/7 pd 85 pf :l pd 95 pf :l/3
un pd 100 pf 70 mudecp [255 125 0] pinte
catv 40 6 0
fim

aprenda moinho2 :l
pd 5 pf :l pd 85 pf :l/7 pd 85 pf :l pd 95 pf :l/3
un pd 100 pf 70 mudecp [255 125 0] pinte
catv2 40 6 0
fim

aprenda moinho3 :l
pd 5 pf :l pd 85 pf :l/7 pd 85 pf :l pd 95 pf :l/3
un pd 100 pf 70 mudecp [40 40 130] pinte
catv3 40 6 0
fim

aprenda moinho4 :l
pd 5 pf :l pd 85 pf :l/7 pd 85 pf :l pd 95 pf :l/3
un pd 100 pf 70 mudecp [40 40 130] pinte
catv4 40 6 0
fim

aprenda mont
mudecl 16 arco 360 250 
mudecp [5 200 100] pinte  un 
pe 90 pf 400 ul arco 360 300 pinte
ajuste2
fim

aprenda mont2
mudecl 0 arco 360 250 
mudecp [128 128 128] pinte  un 
pe 90 pf 400 ul arco 360 300 pinte
aj2
fim

aprenda mudecl :cor
atr "valido 0
se lista pri :cor [mudecll (pri :cor) atr "valido 1 atr "cor 16]
se lista :cor [mudecll (:cor) atr "valido 1]
se ou :cor = 0  :cor = "preto          [ mudecll ( lista 0 0 0 ) atr "valido 1]
se ou :cor = 1  :cor = "azul           [ mudecll ( lista 0 0 128 ) atr "valido 1]
se ou :cor = 2  :cor = "verde          [ mudecll ( lista 0 128 0 ) atr "valido 1]
se ou :cor = 3  :cor = "ciano          [ mudecll ( lista 0 128 128 ) atr "valido 1]
se ou :cor = 4  :cor = "vermelho       [ mudecll ( lista 255 0 0 ) atr "valido 1]
se ou :cor = 5  :cor = "roxo           [ mudecll ( lista 128 0 128 ) atr "valido 1]
se ou :cor = 6  :cor = "marrom         [ mudecll ( lista 128 64 0 ) atr "valido 1]
se ou :cor = 7  :cor = "cinzaclaro     [ mudecll ( lista 192 192 192 ) atr "valido 1]
se ou :cor = 8  :cor = "cinzaescuro    [ mudecll ( lista 128 128 128 ) atr "valido 1]
se ou :cor = 9  :cor = "verdegua      [ mudecll ( lista 128 255 255 ) atr "valido 1]
se ou :cor = 10 :cor = "verdeclaro     [ mudecll ( lista 0 255 0 ) atr "valido 1]
se ou :cor = 11 :cor = "cianoclaro     [ mudecll ( lista 0 255 255 ) atr "valido 1]
se ou :cor = 12 :cor = "vermelhoescuro [ mudecll ( lista 128 0 0  ) atr "valido 1]
se ou :cor = 13 :cor = "rosachoque     [ mudecll ( lista 255 0 255 ) atr "valido 1]
se ou :cor = 14 :cor = "amarelo        [ mudecll ( lista 255 255 0 ) atr "valido 1]
se ou :cor = 15 :cor = "branco         [ mudecll ( lista 255 255 255 ) atr "valido 1]
se ou :cor = 16 :cor = "verdegrama [ mudecll ( lista 5 200 100) atr "valido 1]
se ou :cor = 17 :cor = "azullua [ mudecll ( lista 200 255 255) atr "valido 1]
se ou :cor = 18 :cor = "noite [ mudecll ( lista 40 40 130) atr "valido 1]
se :valido = 0 [esc [Est cor no  vlida!]]
fim

aprenda nuvem :r :n :c
se :c=:n [mudecp [220 255 255] pinte ajuste4]
arco 180 :r un pf :r pd 360/:n pf :r ul
atr "c :c+1
nuvem :r :n :c
fim

aprenda nuvem2 :r :n :c
se :c=:n [pinte ajuste5]
arco 180 :r un pf :r pd 360/:n pf :r ul
atr "c :c+1
nuvem2 :r :n :c
fim

aprenda pinheiro
ul pf 20 pe 90 pf 50 
pd 120 un pt 5 ul arco 360 5 mudecp [255 0 0] pinte un pf 5 ul 
pf 55/cos 60 pe 10 repita 12 [pf 5 pd 120 pf 5 pe 150] un pf 7 mudecp [0 200 255] pinte pt 7 pd 10 ul
pd 120 pf 55/cos 60 un pf 5 ul arco 360 5 un mudecp [255 0 0] pinte pt 5 pd 120 ul pf 50 pe 90
pf 20 pd 90 pf 10
un pd 90 pf 20 mudecp [0 120 0] pinte pf 30 pinte
roley -250
roley 250
[aborte]
fim

aprenda sol :c
se :c = 60 [face  pare]
mudecp [255 255 50]
mudeel [3 3]
mudecl 14
ul arco 360 50 un pf 2 pinte ad ul arco 360 50 un pf 2 mudecp [255 255 40] pinte
sol :c+1
fim

aprenda supnov
repita 125 [bol pf 3 pd 1]
aj13
fim

Atribua "a 36
Atribua "bth 12
Atribua "btw 50
Atribua "c 421
Atribua "cmh 30
Atribua "cmw 75
Atribua "ctr 0
Atribua "gapx 6
Atribua "gapy 6
Atribua "k 3
Atribua "l 60
Atribua "len 510
Atribua "lsh 20
Atribua "lsw 75
Atribua "m 3
Atribua "mary 2
Atribua "n -7250
Atribua "r 0
Atribua "row2 46
Atribua "row3 77
Atribua "sch 40
Atribua "scw 10
Atribua "soma 1440
Atribua "st2w 30
Atribua "sth 12
Atribua "tower1 0
Atribua "tower2 0
Atribua "tower3 3
Atribua "valido 1
Atribua "wnx 180
Atribua "wnx2 90
Atribua "wnx3 60
Atribua "wnx6 30
Atribua "wny 120
Atribua "wny2 60
Atribua "wny3 40
Atribua "wny6 20
