Horoscope

rem ' Horoscope
dim a$ , b$ , i$ , c , i , nb , h , j$(7) , p$(100) , v(100)
label horoscope , chiffre , quitter , fin , bis , imprime
data "LUNDI........." , "MARDI........" , "MERCREDI" , "JEUDI........."
data "VENDREDI" , "SAMEDI......" , "DIMANCHE"
data "Un avenir brillant se prépare pour vous" , "Une rencontre est prévue..."
data "Des obstacles matériels vont survenir" , "Un bonheur prochain se prépare"
data "Vos espérances vont être récompensées" , "votre désir va être contrarié"
data "Vous allez atteindre vos objectifs" , "Des périls imminents vous guettent"
data "Vous allez connaître des succès flatteurs" , "La Lune vous sera propice"
data "Vénus est complice de votre séduction" , "Faites attention aux brunes..."
data "Vous allez connaître des revers déplaisants" , "Gare aux accidents"
data "Vous allez connaître des déconvenues accablantes" , "La maladie rôde"
data "Un problème avec une femme va survenir" , "Evitez de sortir de chez vous"
data "Attention, la grippe n'est pas loin" , "Les astres vous sont favorables"
data "Vous allez avoir des rapports sociaux difficiles"
data "Vous allez devoir mener des négociations délicates"
data "Une orientation nouvelle de votre vie se prépare"
data "Vous allez connaître momentanément une période dépressive"
data "Des risques inquiétants vont se présenter à vous"
data "Vous allez connaître une crise professionnelle grave"
data "Vous allez recevoir des propositions intéressantes"
data "Vous allez rencontrer des conflits avec votre entourage"
data "Vous allez être confronté à une promesse non tenue"
data "Vous allez vous retrouver en rivalité avec un voisin"
data "Vous allez vous retrouver en rivalité avec une voisine"
data "De vives déceptions vont se présenter à vous"
data "Vous allez rencontrer un climat affectif agréable"
data "Vous allez rencontrer des difficultés soudaines"
data "Vous allez vous retrouver dans une situation compliquée"
data "Vous allez vivre une aventure sentimentale exceptionnelle"
data "Une mise en relief de votre sensualité va vous être permise"
data "Vous allez avoir une nouvelle conscience des objectifs de votre carrière"
data "Des démêlés vont vous faire acquérir un regard plus lucide sur vous-même"
data "Des choix affectifs douloureux vous attendent"
data "Vous allez connaître des relations de coeur délicieuses"
data "Vous allez faire un véritable coup d'éclat"
data "Vous allez éprouver un chagrin difficile à supporter"
data "Faites bien attention, il y a un risque dans vos relations"
data "Un renforcement de votre équilibre personnel va vous être permis"
data "Une mise à l'épreuve de votre amour-propre vous guette"
data "Vous allez faire une rencontre exceptionnelle"
data "Attention, une rencontre possible, quoique incertaine, pourrait arriver"
data "Ce sera une journée difficile sur le plan sentimental"
data "Ce sera le début d'une nouvelle grande amitié"
data "Cela va être la fin inattendue d'une vieille relation"
data "Possibilité d'un grand changement dans votre vie"
data "Vous allez être obligé de faire un choix difficile, côté coeur"
data "Vous allez avoir un mauvais moment à passer"
data "Ne manquez pas de profiter des possibilités de voyage que la vie vous offre"
data "Des problèmes vont survenir avec la personne de votre coeur"
data "Une nouvelle rencontre attend de croiser votre chemin"
data "Soyez prudent et évitez les ennuis inutiles"
data "Vous avez la bénédiction de Jupiter"
data "C'est un moment idéal pour faire du sport"
data "Vous allez montrer une fougue et un punch impressionnants"
data "Profitez des occasions, mais faites attention quand même"
data "Evitez de monter en voiture ce jour-là"
data "Votre déprime passagère va disparaître"
data "Vous allez tenir une forme du tonnerre"
data "Mobilisez votre énergie, un espoir de promotion s'annonce"
data "Essayez de communiquer davantage avec vos collègues"
data "Vous avez avoir de la chance dans vos rencontres"
data "En cette semaine houleuse, vous allez tirer votre épingle du jeu"
data "Soyez attentif, des problèmes inattendus pourraient vous gêner"
data "Evitez les éclats inutiles qui pourraient vous nuire"
data "Vous allez avoir de la chance dans vos démarches administratives"
data "Un changement bénéfique important se prépare dans votre vie quotidienne"
data "Une occasion incroyable va se présenter à vous"
data "Surtout, ne prenez aucun risque actuellement"
data "Vous allez avoir des contacts avec l'étranger..."
data "Soignez votre look, un changement de perspectives reste possible..."
data "Ne ruminez pas vos échecs, soyez positif"
data "Mars vous favorise, soyez entreprenant"
data "Vous allez faire une rencontre utile pour votre carrière"
data "Restez calme devant les problèmes apparemment insolubles"
data "N'hésitez pas à prendre le taureau par les cornes..."
data "Vous allez avoir des problèmes avec une blonde..."
data "Fin"
for i=1 to 7 : read j$(i) : next i
repeat
 nb=nb+1
 read p$(nb)
until p$(nb)="Fin"
nb=nb-1

left 0,100 : top 0,60 : width 0,820 : height 0,500
caption 0,"  V O T R E  H O R O S C O P E    D E  L A  S E M A I N E"
alpha 1
left 1,20 : top 1,30 : font_bold 1 : font_size 1,30
a$="        HOROSCOPE DE LA SEMAINE"+chr$(13)
a$=a$+"en coopération avec l'oracle de Delphes"
caption 1,a$

button 2
left 2,40 : top 2,165 : width 2,240
caption 2,"Consulter votre horoscope de la semaine"
on_click 2,horoscope
button 3
left 3,300 : top 3,165 : width 3,280
caption 3,"Connaître votre chiffre porte-bonheur de la semaine"
on_click 3,chiffre
button 4
left 4,600 : top 4,165 : width 4,145
caption 4,"Quitter ce programme"
on_click 4,quitter

alpha 5
left 5,30 : top 5,220 : font_size 5,14 : font_color 5,255,0,0
for i=6 to 12
 alpha i                  : alpha i+12
 left i,30                : left i+12,145
 top i,25*(i-5)+240      : top i+12,25*(i-5)+240
 font_size i,12          : font_size i+12,12
 font_color i,200,0,255  : font_color i+12,0,0,255
next i
alpha 25
left 25,690 : top 25,250 :font_color 25,255,0,0
alpha 26
left 26,700 : top 26,280 : font_color 26,0,0,255 : font_bold 26
alpha 27
left 27,17 : top 27,17 : width 27,66 : height 27,66
color 27,255,0,0 : hide 27
button 28
left 28,20 : top 28,20 : width 28,60 : height 28,60
caption 28,"Imprimer" : hide 28 : on_click 28,imprime

end

horoscope:
caption 5,""
for i=6 to 12 : caption i,"" : caption i+12,"" : next i
a$=message_input$("Question :","Quels sont vos nom et prénom ?","")
if a$="" then goto fin
b$=message_input$("Question :","Quelle est votre date de naissance ?","")
if b$="" then goto fin
i$="Interrogation des Oracles sur le thème dominant de votre vie"
i$=i$+chr$(13)+"pour chacun des jours de la semaine en cours....."
beep : message i$
file_open_write 1,"Horoscop.txt"
 file_writeln 1,"Le : "+date$ : file_writeln 1,""
 caption 5,"Prédictions divinatoires pour "+a$+" né le "+b$
 file_writeln 1,"Prédictions divinatoires pour "+a$+" né le "+b$+" :"
 file_writeln 1,""
 for i=6 to 12
bis:
  h=int(rnd(nb))+1
  if v(h)=1 then goto bis
  v(h)=1
  caption i,j$(i-5)+" ="  : caption i+12,p$(h)
  file_writeln 1,j$(i-5)+" =  "+p$(h)
 next i
 if c>0
  file_writeln 1,""
  file_writeln 1,"Votre chiffre porte-bonheur : le "+str$(c)
 end_if
file_close 1
show 27 : show 28
off_click 2
fin:
return

chiffre:
caption 25,"Votre chiffre"+chr$(13)+"porte-bonheur :"
c=int(rnd(9))+1
caption 26,"Le "+str$(c)
if h>0
 file_open_append 1,"Horoscop.txt"
  file_writeln 1,""
  file_writeln 1,"Votre chiffre porte-bonheur : le "+str$(c)
 file_close 1
end_if
off_click 3
return

imprime:
i$="Vous avez demandé à imprimer les prédictions de la semaine."
i$=i$+chr$(13)+"Confirmez-vous votre demande ?"
i=message_confirmation_yes_no(i$)
if i=1
 execute_wait "write.exe /p Horoscop.txt"
 message "Impression en cours..."
end_if
return

quitter:
terminate