PANORAMIC V0.9.13

label men2,men3,men4,men5,men6,men7,men8,men9,men10,quit
label soleil,data01
dim i,nom$
full_space 0
caption 0,"Météorologie
error_french
rem Creation of a menu
main_menu 1

sub_menu 2 : caption 2,"Soleil" : parent 2, 1
sub_menu 3 : caption 3,"Neige" : parent 3, 1
sub_menu 4 : caption 4,"Pluie" : parent 4, 1
sub_menu 5 : caption 5,"Vent" : parent 5, 1
sub_menu 6 : caption 6,"Humidité" : parent 6, 1
sub_menu 7 : caption 7,"Température Maximum" : parent 7, 1
sub_menu 8 : caption 8,"Température Minimum" : parent 8, 1
sub_menu 9 : caption 9,"Orage" : parent 9, 1
sub_menu 10 : caption 10,"Version" : parent 10, 1
sub_menu 11 : caption 11,"Quitter" : parent 11,1
for i=1 to 10 : list i+11 : hide i+11 : next i
on_click 2,men2
on_click 3,men3
on_click 4,men4
on_click 5,men5
on_click 6,men6
on_click 7,men7
on_click 8,men8
on_click 9,men9
on_click 10,men10
on_click 11,quit
on_click 12,soleil
end
men2:
for i=1 to 10 : hide i+11 : next i : clear 12
color 12,210,210,210 : width 12,150 : height 12,350 : show 12
restore : gosub data01
for i=1 to 26
read nom$
item_add 12,nom$
next i
return
men3:
message "EN CONSTRUCTION"
return
men4:
message "EN CONSTRUCTION"
return
men5:
message "EN CONSTRUCTION"
return
men6:
message "EN CONSTRUCTION"
return
men7:
message "EN CONSTRUCTION"
return
men8:
message "EN CONSTRUCTION"
return
men9:
message "EN CONSTRUCTION"
return
men10:
message "EN CONSTRUCTION"
return
soleil:
hide 12
nom$ = "Vous avez clicker sur : " + item_index$(12)
print_locate 120,400 : print nom$
wait 3000 : cls
return

data01:
data "Les_Annuels","Les mois de Janvier","Les mois de Février","les mois de Mars"
data "Les mois d'Avril","Les mois de Mai","Les mois de Juin","Les mois de Juillet"
data "Les mois d'Août","Les mois de Septembre","Les mois d'Octobre","Les mois de Novembre"
data "Les mois de Décembre","Le record Annuel","Le record de Janvier","Le record de Février"
data "Le record de Mars","Le record d'Avril","Le record de Mai","Le record de Juin"
data "Le record de Juillet","Le record d'Août","Le record de Septembre","Le record d'Octobre"
data "Le record de Novembre","Le record de Décembre"
return
quit:
terminate