A chacun son point de vue

rem ============================================================================
rem                 A chacun son point de vue
rem ============================================================================
dim t$,i
width 0,650 : height 0,700

picture 10 : full_space 10 : 2d_target_is 10  : color 10,240,240,240
alpha 15 : top 15,50 : left 15,190 : font_name 15,"arial" : font_bold 15
font_color 15,255,0,0 : font_size 15,20 : caption 15,"QUE VOIS-TU ?"

alpha 17 : top 17,100 : left 17,270 : font_name 17,"Wingdings"
font_color 17,0,0,255 : font_size 17,80 : caption 17,chr$(hex("48"))

alpha 20 : top 20,220 : left 20,60 : font_name 20 , "Wingdings"
font_size 20,100 : font_color 20,0,0,255 : caption 20, chr$(hex("46")) : hide 20

alpha 30 : top 30,220 : left 30,420 : font_name 30 , "Wingdings"
font_size 30,100 : font_color 30,0,0,255 :  caption 30, chr$(hex("45")) : hide 30

alpha 40 : top 40,380 : left 40,240 : font_name 40 , "Wingdings"
font_size 40,100 : font_color 40,0,0,255 : caption 40, chr$(hex("49")) : hide 40
' SIX_NEUF
2d_poly_from 200,240
2d_poly_to 400,240 : 2d_poly_to 400,320 : 2d_poly_to 370,320 : 2d_poly_to 370,300
2d_poly_to 385,300 : 2d_poly_to 385,260 : 2d_poly_to 320,260: 2d_poly_to 320,320
2d_poly_to 200,320 : 2d_poly_to 200,240

2d_poly_from 220,260
2d_poly_to 300,260 : 2d_poly_to 300,300
2d_poly_to 220,300 : 2d_poly_to 220,260

2d_flood  205,245,0,0,255
' ------------------------------------------------------------------------------
alpha 50 : top 50,265 : left 50 ,10 : font_name 50,"arial" : font_size 50,20
font_bold 50 : font_color 50, 255,0,0 : caption 50,"SIX" : hide 50

alpha 60 : top 60,265 : left 60 ,550 : font_name 60,"arial" : font_size 60,20
font_bold 60 : font_color 60, 255,0,0 : caption 60,"NEUF" : hide 60

alpha 70 : top 70,340 : left 70 ,260 : font_name 70,"arial" : font_size 70,20
font_bold 70 : font_color 70, 255,0,0 : caption 70,"STOP" : hide 70

alpha 80 : top 80,530 : left 80,100 : font_name 80,"arial" : font_size 80,20
font_bold 80 : font_color 80, 255,0,0
t$ =      "CE N'EST PAS PARCE QUE TU AS" + chr$(13)
t$ = t$ + "RAISON, QUE MOI J'AI TORT.  " + chr$(13)
t$ = t$ + "C'EST JUSTE QUE TU N'AS PAS " + chr$(13)
t$ = t$ + "LE MÊME POINT DE VUE QUE MOI !"
caption 80,t$ : hide 80
pause 2000
for i = 1 to 20
    show 20 : show 50 : hide 30 : hide 60 : pause 2000/i
    show 30 : show 60 : hide 20 : hide 50 : pause 2000/i    
next i
for i = 20 to 80 step 10 : show i : next i

rem ============================================================================