ap atam
atr "VTB mostrebarrarolagem "rol1
mostre :VTB 
seno mostrebotordio "br1 [dt] [at]
seno mostrebotordio "br2 [status] [nostatus]
se soiguais[BRASIL] selecionecaixalistagem "lis1[pbrasil]
se soiguais[JAPAO] selecionecaixalistagem "lis1 [pjapao]
se soiguais[VENEZUELA] selecionecaixalistagem "lis1 [pvenezuela]
se soiguais[ROMENIA] selecionecaixalistagem "lis1 [promenia]
se soiguais[DINAMARCA] selecionecaixalistagem "lis1 [pdina]
se soiguais[NORUEGA] selecionecaixalistagem "lis1 [pnoruega]
se soiguais[FRANCA] selecionecaixalistagem "lis1 [pfranca]
se soiguais[IRLANDA] selecionecaixalistagem "lis1 [pirlanda]
se soiguais[BOLIVIA] selecionecaixalistagem "lis1 [pbolivia]
se soiguais[CHINA] selecionecaixalistagem "lis1 [pchina]
se soiguais[CUBA] selecionecaixalistagem "lis1 [pcuba]
se soiguais[EUA] selecionecaixalistagem "lis1 [peua]
fim

ap bolivia1
un pt 100 pe 90 pf 150 pd 90 ul
repita 2[pf 240/3 pd 90 pf 400/3 pd 90]
pf 80/3 pd 90 pf 400/3
pe 90 pf 80/3 pe 90 pf 400/3
un pe 90 pf 70/3 pe 90 pf 160/3 pe 90 ul
un pt 20 mudecp (02) ul pinte
un pf 20 mudecp (14) ul pinte
un pf 90/3 mudecp (04) ul pinte
fim

ap bolivia2
un pt 100 pe 90 pf 150 pd 90 ul
repita 2[pf 240/2 pd 90 pf 400/2 pd 90]
pf 80/2 pd 90 pf 400/2
pe 90 pf 80/2 pe 90 pf 400/2
un pe 90 pf 70/2 pe 90 pf 160/2 pe 90 ul
un pt 20 mudecp (02) ul pinte
un pf 20 mudecp (14) ul pinte
un pf 90/2 mudecp (04) ul pinte
fim

ap bolivia3
un pt 100 pe 90 pf 150 pd 90 ul
repita 2[pf 240 pd 90 pf 400 pd 90]
pf 80 pd 90 pf 400
pe 90 pf 80 pe 90 pf 400
un pe 90 pf 70 pe 90 pf 160 pe 90 ul
un pt 20 mudecp (02) ul pinte
un pf 20 mudecp (14) ul pinte
un pf 90 mudecp (04) ul pinte
fim

ap brasil1
un pt 150/3 pe 90 pf 300/3 pd 90 ul
repita 2[pf 320/3 pd 90 pf 600/3 pd 90]
un pf 160/3 pd 90 pf 60/3 ul pe 30 pf 280/3 pd 60 pf 280/3
pd 120 pf 280/3 pd 60 pf 280/3 un pd 150 pf 240/3 pe 90 ul
arco 360 100/3 un pt 200/3 ul pd 150
arco 60 200/3
arco 60 205/3
un pe 150 pf 110/3 ul
repita 5[estr 20/3 5 3 1 un pf 30/3 pd 35 ul]
un pd 90 pf 140/3 pd 90
repita 6[estr 10/3 5 3 1 un pf 30/3 pd 40 ul]
un pe 240 pf 90/3 ul
estr 30/3 5 3 1 un pt  160/3 espere 50
mudecp (02) ul pinte
un pf 40/3 mudecp(14) ul pinte
un pf 40/3 mudecp(01) ul pinte
un pf 140/3 mudecp(01) ul pinte
fim

ap brasil2
un pt 100 pe 90 pf 100 pd 90 ul
repita 2[pf 160 pd 90 pf 300 pd 90]
un pf 80 pd 90 pf 30 ul pe 30 pf 140 pd 60 pf 140
pd 120 pf 140 pd 60 pf 140 un pd 150 pf 120 pe 90 ul
arco 360 50 un pt 100 ul pd 150
arco 60 100
arco 60 103
un pe 150 pf 55 ul
repita 5[estr 10 5 3 1 un pf 15 pd 35 ul]
un pd 90 pf 70 pd 90
repita 6[estr 05 5 3 1 un pf 15 pd 40 ul]
un pe 240 pf 45 ul
estr 15 5 3 1 un pt  80
mudecp (02) ul pinte
un pf 20 mudecp(14) ul pinte
un pf 20 mudecp(01) ul pinte
un pf 70 mudecp(01) ul pinte
fim

ap brasil3
un pt 150 pe 90 pf 300 pd 90 ul
repita 2[pf 320 pd 90 pf 600 pd 90]
un pf 160 pd 90 pf 60 ul pe 30 pf 280 pd 60 pf 280
pd 120 pf 280 pd 60 pf 280 un pd 150 pf 240 pe 90 ul
arco 360 100 un pt 200 ul pd 150
arco 60 200
arco 60 204
un pe 150 pf 110 ul
repita 5[estr 20 5 3 1 un pf 30 pd 35 ul]
un pd 90 pf 140 pd 90
repita 6[estr 10 5 3 1 un pf 30 pd 40 ul]
un pe 240 pf 90 ul
estr 30 5 3 1 un pt  160 espere 50
mudecp (02) ul pinte
un pf 40 mudecp(14) ul pinte
un pf 40 mudecp(01) ul pinte
un pf 140 mudecp(01) ul pinte
fim

ap china1
un pt 80 pe 90 pf 150 pd 90 ul
repita 2[pf 240/3 pd 90 pf 400/3 pd 90]
un pd 45 pf 70/3 pe 45 pf 170/3 pd 120 ul
repita 4[estr 20/3 5 2 1 un pf 30/3 ul pd 47] 
un pd 45 pf 15/3 ul estr 45/3 5  2 1
un pd 20 pf 15/3
un pd 90 pf 80/3 mudecp (04) ul pinte
fim

ap china2
un pt 80 pe 90 pf 150 pd 90 ul
repita 2[pf 240/2 pd 90 pf 400/2 pd 90]
un pd 45 pf 70/2 pe 45 pf 170/2 pd 120 ul
repita 4[estr 20/2 5 2 1 un pf 30/2 ul pd 47] 
un pd 45 pf 15/2 ul estr 45/2 5  2 1
un pd 20 pf 15/2
un pd 90 pf 80/2 mudecp (04) ul pinte
fim

ap china3
un pt 80 pe 90 pf 150 pd 90 ul
repita 2[pf 240 pd 90 pf 400 pd 90]
un pd 45 pf 70 pe 45 pf 170 pd 120 ul
repita 4[estr 20 5 2 1 un pf 30 ul pd 47] 
un pd 45 pf 15 ul estr 45 5  2 1
un pd 20 pf 15
un pd 90 pf 80 mudecp (04) ul pinte
fim

ap claudio
criejanela "main  "pro [bandeiras] 0 0 160 80
crieesttico "pro "est1 [Escala] 85 1 80 10
criecaixagrupo "pro "gp1 5 10 70 30
crieesttico "pro "est2[Tipo de bandeira] 10 2 70 10
criecaixalistagem "pro "lis1 5 15 70 25
adicionenacaixalistagem "lis1 "BRASIL
adicionenacaixalistagem "lis1 "JAPAO
adicionenacaixalistagem "lis1 "VENEZUELA
adicionenacaixalistagem "lis1 "CHINA
adicionenacaixalistagem "lis1 "NORUEGA
adicionenacaixalistagem "lis1 "ROMENIA
adicionenacaixalistagem "lis1 "DINAMARCA
adicionenacaixalistagem "lis1 "FRANCA
adicionenacaixalistagem "lis1 "IRLANDA
adicionenacaixalistagem "lis1 "BOLIVIA
adicionenacaixalistagem "lis1 "CUBA
adicionenacaixalistagem "lis1 "EUA
criebarrarolagem "pro "rol1 85 11 70 10 [Escala]
mudebarrarolagem "rol1 1 3 1 Escala
criecaixagrupo "pro "grp2 85 26 70 25
criebotordio "pro "grp2 "br1 [Esc Tar] 90 31 55 10
criebotordio "pro "grp2 "br2 [Status] 90 40 55 10
crieesttico "pro "est3[Modo de Execuo] 85 20 70 10
crieboto "pro "bo1 "DESENHA 5 54 40 10 [atam]
crieboto "pro "bo2 "LIMPA 60 54 40 10 [tat]
crieboto "pro "bo3 "SAI 115 54 40 10 [apaguejanela "pro]
FIM

ap cuba1
un pt 100/3 pe 90 pf 150/3 pd 90 ul
repita 2[pf 240/3 pd 90 pf 400/3 pd 90]
pd 55 pf 200/3 pe 108 pf 205/3
un pe 150 pf 100/3
ul estr 50/3 5 3 1
un pf 160/3 pe 67 pf 300/3
pe 90 pf (240/5)/3 ul pe 90 pf 335/3 un pt 335/3
pd 90 pf (240/5)/3 pe 90 ul pf 272/3 un pt 272/3
pd 90 pf (240/5)/3 pe 90 ul pf 275/3 un pt 275/3
pd 90 pf (240/5)/3 pe 90 ul pf 338/3
un pt 150/3 pe 90 pt 10/3
mudecp (01) ul pinte
un pf 70/3
mudecp (01) ul pinte
un pf 100/3
mudecp (01) ul pinte
un pd 100 pf 150/3 
mudecp (04) ul pinte
fim

ap cuba2
un pt 100/2 pe 90 pf 150/2 pd 90 ul
repita 2[pf 240/2 pd 90 pf 400/2 pd 90]
pd 55 pf 200/2 pe 108 pf 205/2
un pe 150 pf 100/2
ul estr 50/2 5 3 1
un pf 160/2 pe 67 pf 300/2
pe 90 pf (240/5)/2 ul pe 90 pf 335/2 un pt 335/2
pd 90 pf (240/5)/2 pe 90 ul pf 272/2 un pt 272/2
pd 90 pf (240/5)/2 pe 90 ul pf 275/2 un pt 275/2
pd 90 pf (240/5)/2 pe 90 ul pf 338/2
un pt 150/2 pe 90 pt 10/2
mudecp (01) ul pinte
un pf 70/2
mudecp (01) ul pinte
un pf 100/2
mudecp (01) ul pinte
un pd 100 pf 150/2 
mudecp (04) ul pinte
fim

ap cuba3
un pt 100 pe 90 pf 150 pd 90 ul
repita 2[pf 240 pd 90 pf 400 pd 90]
pd 55 pf 200 pe 108 pf 205
un pe 150 pf 100
ul estr 50 5 3 1
un pf 160 pe 67 pf 300
pe 90 pf 240/5 ul pe 90 pf 335 un pt 335
pd 90 pf 240/5 pe 90 ul pf 272 un pt 272
pd 90 pf 240/5 pe 90 ul pf 275 un pt 275
pd 90 pf 240/5 pe 90 ul pf 338
un pt 150 pe 90 pt 10
mudecp (01) ul pinte
un pf 70
mudecp (01) ul pinte
un pf 100
mudecp (01) ul pinte
un pd 100 pf 150 
mudecp (04) ul pinte
fim

ap dina1
un pt 100 pe 90 pf 150 pd 90 ul
repita 2[pf 210/3 pd 90 pf 360/3 pd 90]
un pf 85/3 pd 90 ul pf 85/3 pd 90 pf 85/3
pe 90 pf 40/3 pe 90 ul pf 85/3 pd 90 pf 235/3
pe 90 pf 40/3 pe 90 pf 235/3 pd 90 pf 85/3 
pe 90 pf 40/3 pe 90 pf 85/3 pd 90 pf 85/3
un pd 120 pf 20/3 mudecp (04) ul pinte
un pd 60 pf 150/3 mudecp (04) ul pinte
un pd 90 pf 100/3 mudecp (04) ul pinte
un pd 90 pf 100/3 mudecp (04) ul pinte
fim

ap dina2
un pt 100 pe 90 pf 150 pd 90 ul
repita 2[pf 210/2 pd 90 pf 360/2 pd 90]
un pf 85/2 pd 90 ul pf 85/2 pd 90 pf 85/2
pe 90 pf 40/2 pe 90 ul pf 85/2 pd 90 pf 235/2
pe 90 pf 40/2 pe 90 pf 235/2 pd 90 pf 85/2 
pe 90 pf 40/2 pe 90 pf 85/2 pd 90 pf 85/2
un pd 120 pf 20/2 mudecp (04) ul pinte
un pd 60 pf 150/2 mudecp (04) ul pinte
un pd 90 pf 100/2 mudecp (04) ul pinte
un pd 90 pf 100/2 mudecp (04) ul pinte
fim

ap dina3
un pt 100 pe 90 pf 150 pd 90 ul
repita 2[pf 210 pd 90 pf 360 pd 90]
un pf 85 pd 90 ul pf 85 pd 90 pf 85
pe 90 pf 40 pe 90 ul pf 85 pd 90 pf 235
pe 90 pf 40 pe 90 pf 235 pd 90 pf 85 
pe 90 pf 40 pe 90 pf 85 pd 90 pf 85
un pd 120 pf 20 mudecp (04) ul pinte
un pd 60 pf 150 mudecp (04) ul pinte
un pd 90 pf 100 mudecp (04) ul pinte
un pd 90 pf 100 mudecp (04) ul pinte
fim

ap Escala
mudeesttico  "est1 sentena [Escala] mostrebarrarolagem "rol1
fim

ap estr :l :n :k :c
pf :l pd :k*360/:n
se :c=:n[pare]
estr :l :n :k :c+1
fim

ap eua1
un pt 140 pe 90 pf 150 pd 90 ul
repita 2[pf 240 pd 90 pf 400 pd 90]
pf 120 pd 90 pf 150
pe 90 pf 120
pt 120/7
pd 90 pf 250
repita 3[pd 90 pf 120/7 ~
pd 90 pf 250 ~
pe 90 pf 120/7 ~
pe 90 pf 250]
repita 3[pd 90 pf 120/7 ~
pd 90 pf 400 ~
pe 90 pf 120/7 ~
pe 90 pf 400]
un pt 400 pe 80 pf 120
pe 10 pf 08 pd 90
ul repita 6[estr 10 5 3 1 un pf 20 ul] 
un pe 90 pf 15 pe 90 pf 20 ul 
repita 5[estr 10 5 3 1 un pf 20 ul] 
un pd 90 pf 10 pd 90 ul 
repita 6[estr 10 5 3 1 un pf 20 ul] 
un pe 90 pf 15 pe 90 pf 20 ul 
repita 5[estr 10 5 3 1 un pf 20 ul]
un pd 90 pf 10 pd 90 ul
repita 6[estr 10 5 3 1 un pf 20 ul] 
un pe 90 pf 15 pe 90 pf 20 ul
repita 5[estr 10 5 3 1 un pf 20 ul]
un pd 90 pf 10 pd 90 ul
repita 6[estr 10 5 3 1 un pf 20 ul] 
mudecp (01) ul pinte
un pe 20 pf 45 mudecp (04) ul pinte
pd 110
repita 6[ un pf 240/7 mudecp (04) ul pinte]
un paracentro
fim

ap eua2
un pt 110 pe 90 pf 150 pd 90 ul
repita 2[pf 240/2 pd 90 pf 400/2 pd 90]
pf 120/2 pd 90 pf 150/2
pe 90 pf 120/2
pt (120/7)/2
pd 90 pf 250/2
repita 3[pd 90 pf (120/7)/2 ~
pd 90 pf 250/2 ~
pe 90 pf (120/7)/2 ~
pe 90 pf 250/2]
repita 3[pd 90 pf (120/7)/2 ~
pd 90 pf 400/2 ~
pe 90 pf (120/7)/2 ~
pe 90 pf 400/2]
un pt 400/2 pe 80 pf 120/2
pe 10 pf 08/2 pd 90
ul repita 6[estr 10/2 5 3 1 un pf 20/2 ul] 
un pe 90 pf 15/2 pe 90 pf 20/2 ul 
repita 5[estr 10/2 5 3 1 un pf 20/2 ul] 
un pd 90 pf 10/2 pd 90 ul 
repita 6[estr 10/2 5 3 1 un pf 20/2 ul] 
un pe 90 pf 15/2 pe 90 pf 20/2 ul 
repita 5[estr 10/2 5 3 1 un pf 20/2 ul]
un pd 90 pf 10/2 pd 90 ul
repita 6[estr 10/2 5 3 1 un pf 20/2 ul] 
un pe 90 pf 15/2 pe 90 pf 20/2 ul
repita 5[estr 10/2 5 3 1 un pf 20/2 ul]
un pd 90 pf 10/2 pd 90 ul
repita 6[estr 10/2 5 3 1 un pf 20/2 ul] 
mudecp (01) ul pinte
un pe 20 pf 45/2 mudecp (04) ul pinte
pd 110
repita 6[ un pf (240/7)/2 mudecp (04) ul pinte]
fim

ap eua3
un pt 110 pe 90 pf 150 pd 90 ul
repita 2[pf 240/3 pd 90 pf 400/3 pd 90]
pf 120/3 pd 90 pf 150/3
pe 90 pf 120/3
pt (120/7)/3
pd 90 pf 250/3
repita 3[pd 90 pf (120/7)/3 ~
pd 90 pf 250/3 ~
pe 90 pf (120/7)/3 ~
pe 90 pf 250/3]
repita 3[pd 90 pf (120/7)/3 ~
pd 90 pf 400/3 ~
pe 90 pf (120/7)/3 ~
pe 90 pf 400/3]
un pt 400/3 pe 80 pf 120/3
pe 10 pf 08/3 pd 90
ul repita 6[estr 10/3 5 3 1 un pf 20/3 ul] 
un pe 90 pf 15/3 pe 90 pf 20/3 ul 
repita 5[estr 10/3 5 3 1 un pf 20/3 ul] 
un pd 90 pf 10/3 pd 90 ul 
repita 6[estr 10/3 5 3 1 un pf 20/3 ul] 
un pe 90 pf 15/3 pe 90 pf 20/3 ul 
repita 5[estr 10/3 5 3 1 un pf 20/3 ul]
un pd 90 pf 10/3 pd 90 ul
repita 6[estr 10/3 5 3 1 un pf 20/3 ul] 
un pe 90 pf 15/3 pe 90 pf 20/3 ul
repita 5[estr 10/3 5 3 1 un pf 20/3 ul]
un pd 90 pf 10/3 pd 90 ul
repita 6[estr 10/3 5 3 1 un pf 20/3 ul] 
mudecp (01) ul pinte
un pe 20 pf 45/3 mudecp (04) ul pinte
pd 110
repita 6[ un pf (240/7)/3 mudecp (04) ul pinte]
fim

ap franca1
un pt 100 pe 90 pf 150 pd 90 ul
repita 2[pf 210 pd 90 pf 360 pd 90]
un pd 90 pf 120 pe 90 ul pf 210
un pd 90 pf 120 
ul pd 90 pf 210
un pe 120 pf 10
mudecp (04) ul pinte
un pe 120 pf 220 mudecp (01) ul pinte
fim

ap franca2
un pt 100 pe 90 pf 150 pd 90 ul
repita 2[pf 210/2 pd 90 pf 360/2 pd 90]
un pd 90 pf 120/2 pe 90 ul pf 210/2
un pd 90 pf 120/2 
ul pd 90 pf 210/2
un pe 120 pf 10/2
mudecp (04) ul pinte
un pe 120 pf 220/2 mudecp (01) ul pinte
fim

ap franca3
un pt 100 pe 90 pf 150 pd 90 ul
repita 2[pf 210/3 pd 90 pf 360/3 pd 90]
un pd 90 pf 120/3 pe 90 ul pf 210/3
un pd 90 pf 120/3 
ul pd 90 pf 210/3
un pe 120 pf 10/3
mudecp (04) ul pinte
un pe 120 pf 220/3 mudecp (01) ul pinte
fim

ap irlanda1
un pt 100 pe 90 pf 150 pd 90 ul
repita 2[pf 210/3 pd 90 pf 360/3 pd 90]
un pd 90 pf 120/3 pe 90 ul pf 210/3
un pd 90 pf 120/3 
ul pd 90 pf 210/3
un pe 120 pf 10/3
mudecp (04) ul pinte
un pe 120 pf 220/3 mudecp (02) ul pinte
fim

ap irlanda2
un pt 100 pe 90 pf 150 pd 90 ul
repita 2[pf 210/2 pd 90 pf 360/2 pd 90]
un pd 90 pf 120/2 pe 90 ul pf 210/2
un pd 90 pf 120/2 
ul pd 90 pf 210/2
un pe 120 pf 10/2
mudecp (04) ul pinte
un pe 120 pf 220/2 mudecp (02) ul pinte
fim

ap irlanda3
un pt 100 pe 90 pf 150 pd 90 ul
repita 2[pf 210 pd 90 pf 360 pd 90]
un pd 90 pf 120 pe 90 ul pf 210
un pd 90 pf 120 
ul pd 90 pf 210
un pe 120 pf 10
mudecp (04) ul pinte
un pe 120 pf 220 mudecp (02) ul pinte
fim

ap japao1
un pt 50 pe 90 pf 100 pd 90 ul
repita 2[pf 160/2 pd 90 pf 300/2 pd 90]
un pd 60 
pf 170/2 ul
arco 360 50/2
mudecp (04) ul pinte
fim

ap japao2
un pt 50 pe 90 pf 100 pd 90 ul
repita 2[pf 160 pd 90 pf 300 pd 90]
un pd 60 
pf 170 ul
arco 360 50
mudecp (04) ul pinte
fim

ap japao3
un pt 50 pe 90 pf 100 pd 90 ul
repita 2[pf 250 pd 90 pf 400 pd 90]
un pd 60 
pf 230 ul
arco 360 70
mudecp (04) ul pinte
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 :valido = 0 [esc [Est cor no  vlida!]]
fim

ap noruega1
un pt 100 pe 90 pf 150 pd 90 ul
repita 2[pf 210/3 pd 90 pf 360/3 pd 90]
un pf 85/3 pd 90 ul pf 85/3 pd 90 pf 85/3
pe 90 pf 40/3 pe 90 ul pf 85/3 pd 90 pf 235/3
pe 90 pf 40/3 pe 90 pf 235/3 pd 90 pf 85/3 
pe 90 pf 40/3 pe 90 pf 85/3 pd 90 pf 85/3
un pe 90 pf 10/3 pe 90 ul pf 95/3
pe 90 pf 95/3 pd 90 pf 20/3 pd 90 pf 95/3
pe 90 pf 245/3 pd 90 pf 20/3 pd 90 pf 245/3
pe 90 pf 95/3 pd 90 pf 20/3 pd 90 pf 95/3
pe 90 pf 95/3 pd 90 pf 30/3
un pd 80 pf 20/3 mudecp (04) ul pinte
un pd 10 pf 150/3 mudecp (04) ul pinte
un pd 90 pf 100/3 mudecp (04) ul pinte
un pd 90 pf 100/3 mudecp (04) ul pinte
un pt 30/3  mudecp (01) ul pinte
fim

ap noruega2
un pt 100 pe 90 pf 150 pd 90 ul
repita 2[pf 210/2 pd 90 pf 360/2 pd 90]
un pf 85/2 pd 90 ul pf 85/2 pd 90 pf 85/2
pe 90 pf 40/2 pe 90 ul pf 85/2 pd 90 pf 235/2
pe 90 pf 40/2 pe 90 pf 235/2 pd 90 pf 85/2 
pe 90 pf 40/2 pe 90 pf 85/2 pd 90 pf 85/2
un pe 90 pf 10/2 pe 90 ul pf 95/2
pe 90 pf 95/2 pd 90 pf 20/2 pd 90 pf 95/2
pe 90 pf 245/2 pd 90 pf 20/2 pd 90 pf 245/2
pe 90 pf 95/2 pd 90 pf 20/2 pd 90 pf 95/2
pe 90 pf 95/2 pd 90 pf 30/2
un pd 80 pf 20/2 mudecp (04) ul pinte
un pd 10 pf 150/2 mudecp (04) ul pinte
un pd 90 pf 100/2 mudecp (04) ul pinte
un pd 90 pf 100/2 mudecp (04) ul pinte
un pt 30/2  mudecp (01) ul pinte
fim

ap noruega3
un pt 100 pe 90 pf 150 pd 90 ul
repita 2[pf 210 pd 90 pf 360 pd 90]
un pf 85 pd 90 ul pf 85 pd 90 pf 85
pe 90 pf 40 pe 90 ul pf 85 pd 90 pf 235
pe 90 pf 40 pe 90 pf 235 pd 90 pf 85 
pe 90 pf 40 pe 90 pf 85 pd 90 pf 85
un pe 90 pf 10 pe 90 ul pf 95
pe 90 pf 95 pd 90 pf 20 pd 90 pf 95
pe 90 pf 245 pd 90 pf 20 pd 90 pf 245
pe 90 pf 95 pd 90 pf 20 pd 90 pf 95
pe 90 pf 95 pd 90 pf 30
un pd 80 pf 20 mudecp (04) ul pinte
un pd 10 pf 150 mudecp (04) ul pinte
un pd 90 pf 100 mudecp (04) ul pinte
un pd 90 pf 100 mudecp (04) ul pinte
un pt 30  mudecp (01) ul pinte
fim

ap pbolivia
se :VTB=1 [bolivia1]
se :VTB=2 [bolivia2]
se :VTB=3 [bolivia3]
fim

ap pbrasil
se :VTB=1 [brasil1]
se :VTB=2 [brasil2]
se :VTB=3 [brasil3]
fim

ap pchina
se :VTB=1 [china1]
se :VTB=2 [china2]
se :VTB=3 [china3]
fim

ap pcuba
se :VTB=1 [cuba1]
se :VTB=2 [cuba2]
se :VTB=3 [cuba3]
fim

ap pdina
se :VTB=1 [dina1]
se :VTB=2 [dina2]
se :VTB=3 [dina3]
fim

ap peua
se :VTB=1 [eua1]
se :VTB=2 [eua2]
se :VTB=3 [eua3]
fim

ap pfranca
se :VTB=1 [franca1]
se :VTB=2 [franca2]
se :VTB=3 [franca3]
fim

ap pirlanda
se :VTB=1 [irlanda1]
se :VTB=2 [irlanda2]
se :VTB=3 [irlanda3]
fim

ap pjapao
se :VTB=1 [japao1]
se :VTB=2 [japao2]
se :VTB=3 [japao3]
fim

ap pnoruega
se :VTB=1 [noruega1]
se :VTB=2 [noruega2]
se :VTB=3 [noruega3]
fim

ap promenia
se :VTB=1 [romenia1]
se :VTB=2 [romenia2]
se :VTB=3 [romenia3]
fim

ap pvenezuela
se :VTB=1 [venezuela1]
se :VTB=2 [venezuela2]
se :VTB=3 [venezuela3]
fim

ap romenia1
un pt 100 pe 90 pf 150 pd 90 ul
repita 2[pf 210/3 pd 90 pf 360/3 pd 90]
un pd 90 pf 120/3 pe 90 ul pf 210/3
un pd 90 pf 120/3 
ul pd 90 pf 210/3
un pe 120 pf 10/3
mudecp (04) ul pinte
un pe 120 pf 20/3 mudecp (14) ul pinte
un pf 200/3 mudecp (01) ul pinte
fim

ap romenia2
un pt 100 pe 90 pf 150 pd 90 ul
repita 2[pf 210/2 pd 90 pf 360/2 pd 90]
un pd 90 pf 120/2 pe 90 ul pf 210/2
un pd 90 pf 120/2 
ul pd 90 pf 210/2
un pe 120 pf 10/2
mudecp (04) ul pinte
un pe 120 pf 20/2 mudecp (14) ul pinte
un pf 200/2 mudecp (01) ul pinte
fim

ap romenia3
un pt 100 pe 90 pf 150 pd 90 ul
repita 2[pf 210 pd 90 pf 360 pd 90]
un pd 90 pf 120 pe 90 ul pf 210
un pd 90 pf 120 
ul pd 90 pf 210
un pe 120 pf 10
mudecp (04) ul pinte
un pe 120 pf 20 mudecp (14) ul pinte
un pf 200 mudecp (01) ul pinte
fim

ap venezuela1
un pt 80/3 pe 90 pf 150/3 pd 90 ul
repita 2[pf 240/3 pd 90 pf 400/3 pd 90]
pf 80/3 pd 90 pf 400/3
pe 90 pf 80/3 pe 90 pf 400/3
un pe 90 pf 70/3 pe 90 pf 160/3 pe 90 ul
repita 7[estr 10/3 5 2 1 un pf 16/3 ul pd 34] 
pd 150
un pt 10/3 mudecp (04) ul pinte
un pf 40/3 mudecp (01) ul pinte
un pf 60/2 mudecp (14) ul pinte
fim

ap venezuela2
un pt 80/2 pe 90 pf 150/2 pd 90 ul
repita 2[pf 240/2 pd 90 pf 400/2 pd 90]
pf 80/2 pd 90 pf 400/2
pe 90 pf 80/2 pe 90 pf 400/2
un pe 90 pf 70/2 pe 90 pf 160/2 pe 90 ul
repita 7[estr 10/2 5 2 1 un pf 16/2 ul pd 34] 
pd 150
un pt 10/2 mudecp (04) ul pinte
un pf 40/2 mudecp (01) ul pinte
un pf 60 mudecp (14) ul pinte
fim

ap venezuela3
un pt 80 pe 90 pf 150 pd 90 ul
repita 2[pf 240 pd 90 pf 400 pd 90]
pf 80 pd 90 pf 400
pe 90 pf 80 pe 90 pf 400
un pe 90 pf 70 pe 90 pf 160 pe 90 ul
repita 7[estr 20 5 2 1 un pf 28 ul pd 32] 
pd 150
un pt 20 mudecp (04) ul pinte
un pf 20 mudecp (01) ul pinte
un pf 90 mudecp (14) ul pinte
fim

Atribua "a 3
Atribua "b 10512.5
Atribua "brasil1 1
Atribua "brasil2 2
Atribua "bth 12
Atribua "btw 50
Atribua "c 0
Atribua "cmh 30
Atribua "cmw 75
Atribua "ctr 0
Atribua "d 72.5
Atribua "e 12.4137931034483
Atribua "escala 2
Atribua "gapx 6
Atribua "gapy 6
Atribua "k 1
Atribua "l 120
Atribua "len 510
Atribua "lsh 20
Atribua "lsw 75
Atribua "mary 2
Atribua "n 7
Atribua "r 124.59128379434
Atribua "row2 46
Atribua "row3 77
Atribua "sch 40
Atribua "scw 10
Atribua "st2w 30
Atribua "sth 12
Atribua "tower1 0
Atribua "tower2 0
Atribua "tower3 3
Atribua "valido 1
Atribua "vtb 2
Atribua "wnx 180
Atribua "wnx2 90
Atribua "wnx3 60
Atribua "wnx6 30
Atribua "wny 120
Atribua "wny2 60
Atribua "wny3 40
Atribua "wny6 20
