para segmento repite 3 [bl circulo 15 sl av 45] fin para display bp ot marco # segmento 1 sl ponpos [-45 150] bl ponr 90 segmento #segmento 2 sl ponpos [75 30] bl ponr 0 segmento # segmento 3 sl ponpos [75 -30] bl ponr 180 segmento # segmento 4 sl ponpos [-45 -150] bl ponr 90 segmento # segmento 5 sl ponpos [-75 -30] bl ponr 180 segmento #segmento 6 sl ponpos [-75 30] bl ponr 0 segmento #segmento 7 sl ponpos [-45 0] bl ponr 90 segmento sl ponpos [200 200] bl poncl [200 200 150] rellena sl ponpos [0 -100] bl poncl [200 200 220] rellena teclado fin para rellenar repite 3 [poncl 1 bl rellena sl av 45] fin para uno sl ponpos [75 30] bl ponrumbo 0 rellenar sl ponpos [75 -30] bl ponrumbo 180 rellenar teclado fin para dos sl ponpos [-45 150] bl ponr 90 rellenar sl ponpos [75 30] bl ponr 0 rellenar sl ponpos [-45 -150] bl ponr 90 rellenar sl ponpos [-75 -30] bl ponr 180 rellenar sl ponpos [-45 0] bl ponr 90 rellenar teclado fin para tres sl ponpos [-45 150] bl ponr 90 rellenar sl ponpos [75 30] bl ponr 0 rellenar sl ponpos [75 -30] bl ponr 180 rellenar sl ponpos [-45 -150] bl ponr 90 rellenar sl ponpos [-45 0] bl ponr 90 rellenar teclado fin para cuatro sl ponpos [75 30] bl ponr 0 rellenar sl ponpos [75 -30] bl ponr 180 rellenar sl ponpos [-75 30] bl ponr 0 rellenar sl ponpos [-45 0] bl ponr 90 rellenar teclado fin para cinco sl ponpos [-45 150] bl ponr 90 rellenar sl ponpos [75 -30] bl ponr 180 rellenar sl ponpos [-45 -150] bl ponr 90 rellenar sl ponpos [-75 30] bl ponr 0 rellenar sl ponpos [-45 0] bl ponr 90 rellenar teclado fin para seis sl ponpos [-45 150] bl ponr 90 rellenar sl ponpos [75 -30] bl ponr 180 rellenar sl ponpos [-45 -150] bl ponr 90 rellenar sl ponpos [-75 -30] bl ponr 180 rellenar sl ponpos [-75 30] bl ponr 0 rellenar sl ponpos [-45 0] bl ponr 90 rellenar teclado fin para siete sl ponpos [-45 150] bl ponr 90 rellenar sl ponpos [75 30] bl ponrumbo 0 rellenar sl ponpos [75 -30] bl ponrumbo 180 rellenar teclado fin para ocho sl ponpos [-45 150] bl ponr 90 rellenar sl ponpos [75 30] bl ponr 0 rellenar sl ponpos [75 -30] bl ponr 180 rellenar sl ponpos [-45 -150] bl ponr 90 rellenar sl ponpos [-75 -30] bl ponr 180 rellenar sl ponpos [-75 30] bl ponr 0 rellenar sl ponpos [-45 0] bl ponr 90 rellenar teclado fin para nueve sl ponpos [-45 150] bl ponr 90 rellenar sl ponpos [75 30] bl ponr 0 rellenar sl ponpos [75 -30] bl ponr 180 rellenar sl ponpos [-75 30] bl ponr 0 rellenar sl ponpos [-45 0] bl ponr 90 rellenar teclado fin para cero sl ponpos [-45 150] bl ponr 90 rellenar sl ponpos [75 30] bl ponr 0 rellenar sl ponpos [75 -30] bl ponr 180 rellenar sl ponpos [-45 -150] bl ponr 90 rellenar sl ponpos [-75 -30] bl ponr 180 rellenar sl ponpos [-75 30] bl ponr 0 rellenar teclado fin para teclado si tecla? [ haz "vble leecar si :vble=48 [borrartodo cero] si :vble=49 [borrartodo uno] si :vble=50 [borrartodo dos] si :vble=51 [borrartodo tres] si :vble=52 [borrartodo cuatro] si :vble=53 [borrartodo cinco] si :vble=54 [borrartodo seis] si :vble=55 [borrartodo siete] si :vble=56 [borrartodo ocho] si :vble=57 [borrartodo nueve] si :vble=97 [borrartodo]] teclado fin para blanquear repite 3 [poncl 7 bl rellena sl av 45] fin para borrartodo sl ponpos [-45 150] bl ponr 90 blanquear sl ponpos [75 30] bl ponr 0 blanquear sl ponpos [75 -30] bl ponr 180 blanquear sl ponpos [-45 -150] bl ponr 90 blanquear sl ponpos [-75 -30] bl ponr 180 blanquear sl ponpos [-75 30] bl ponr 0 blanquear sl ponpos [-45 0] bl ponr 90 blanquear fin para marco poncl 0 sl ponpos [-110 -190] bl repite 2 [av 380 gd 90 av 220 gd 90] sl ponpos [-130 -210] bl repite 2 [av 420 gd 90 av 260 gd 90] sl ponpos [-120 -200] bl poncl 0 rellena fin