Étape 4: Bonus :
'---------------------------------------------------------------------------------------------------
REM **************************************************************************
REM * programme : oracle pc
REM * Remarque : le choix aléatoire de la réponse à une question.
REM * programmateur : Computothought
REM * dernière mise à jour : 10/03/11
REM *------------------------------------------------------------------------
RESTAURATION d’odata
LARGEUR 80, 25
CLS
RANDOMIZE TIMER
DIM x$(64)
REM To.sound = 1
POUR x = 0 à 63
LIRE x$(x)
NEXT x
m$ = « Ne pas fait »
payer = 0
Tandis que m$ = « Ne pas fait »
rémunération = rémunération + 1
CLS
LOCALISER 4, 1
IMPRIMER « T H E O R A C L E! »
RECHERCHEZ 5, 1
PRINT « Computothought 2009 »
POUR x = 1 à 1500
NEXT x
LOCALISER 7, 1
ENTRÉE ligne "Veuillez entrer votre question:", $ q
SELECT CASE LEFT$ (q$, 1)
AFFAIRE CHR$(248)
REM To.sound = 1
AFFAIRE CHR$(255)
REM To.sound = 0
END SELECT
LOCALISER 10, 1
IMPRIMER "l’Oracle va vous montrer c’est pensées, puis assigner votre réponse."
LOCALISER 12, 1
PRINT "donc s’il vous plaît être patient!"
LOCALISER 15, 1
PRINT "<" + STRING$ (76, « = ») + ">"
LOCALISER 16, 1
PRINT "<" ; TAB(78) ; « > »
LOCALISER 17, 1
PRINT "<" + STRING$ (76, « = ») + ">"
POUR Z = 1 À 1000
LOCALISER 16, 3
STRING IMPRIMÉ $(75, "") ;
LOCALISER 16, 3
X$(RND(1) d’impression * 63) ;
REM IF To.sound = 1 THEN
JEU de rem "l16" + CHR$(INT(RND(1) * 7) + 65)
REM END IF
PROCHAINE Z
POUR x = 1 à 5
IMPRIMER
NEXT x
ENTRÉE « Etes-vous fait (O/n) » ; d$
IF UCASE$(d$) <> « N » puis
m$ = « Done »
END IF
WEND
IMPRIMER
IMPRIMER « S’il vous plaît payer la caissière » ; verser * 5 ; « dollars » !
ZZ$ = ""
ZZ$ = INPUT$(1)
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
endvofvjob :
VOIR IMPRIMER
LOCALISER 25, 1
STRING IMPRIMÉ $(79, "") ;
LOCALISER 24, 1
REM EXIT SUB
FIN
OData :
DONNÉES « Oui, si vous êtes créatif. »
DONNÉES « Oui, si vous êtes réceptif ».
DONNÉES « tout est possible, mais vous aurez un début difficile. »
DONNÉES « Quelle une jeune folie demander! »
DONNÉES « vous devez attendre et demander à nouveau. »
DONNÉES « seulement de conflit viendra du résultat, s’il vous plaît priez. »
DONNÉES « il faudra beaucoup de ceux qui sont organisés pour accomplir votre demande. »
DONNÉES « Oui, si vous le gardez ensemble. »
DONNÉES « Être doux et vous obtiendrez votre réponse. »
DONNÉES "vous avez la chance d’obtenir ce loin!"
DONNÉES « Vous devez avoir la communion des hommes. »
DONNÉES « dans la volonté de grande mesure le résultat de la possession. »
DONNÉES « on doit être modeste pour atteindre leur objectif. »
DONNÉES « Vous ferez bien d’avoir de l’enthousiasme pour votre quête. »
DONNÉES « laisser quelqu'un d’autre prendre l’initiative à votre quête. »
DONNÉES « Expiation pour ce qui a été gâté, puis reask votre question. »
DONNÉES « Vous êtes trop loin pour obtenir la réponse. »
DONNÉES « Méditation vous mènera à votre réponse. »
DONNÉES « Mordre à travers votre but. »
DONNÉES « si vous gérez la vie avec grâce! »
DONNÉES « Il doit être un coming apart sort de se réaliser. »
DONNÉES « Tout doit revenir à ce qui est. »
DONNÉES « Ne sachant pas que la vraie réponse sera mieux. »
DONNÉES « Vous faut apprivoiser la puissance du grand. »
DONNÉES « Visionnez les commissures des lèvres. »
DONNÉES « la plus grande prépondérance sera destin. »
DONNÉES "ce sera l’abysmals, Désolé!"
DONNÉES « vous serez chanceux s’accrocher à ce que vous avez. »
DONNÉES « Influence sera le trempage Pierre à votre quête. »
DONNÉES « Juste être patient pendant un certain temps. »
DONNÉES « c’est un temps pour s’éloigner. »
DONNÉES « la puissance du grand est sur vous. »
DONNÉES « Oui, il y a une progression à atteindre ».
DONNÉES « le ballon crytal perd de lumière et aucun réponse ne peut être atteint maintenant. »
DONNÉES « Tous proches feront partie de votre réponse. »
DONNÉES « Non, il n’y a trop d’opposition. »
DONNÉES « Pas susceptibles, d’obstructions de la manière ».
DONNÉES « Oui, délivrance viendra. »
DONNÉES « pas autant que vous pourriez comme supposé. »
DONNÉES « Oui et plus qu’il n’était prévu. "
DONNÉES « Oui, s’il y a une percée ».
DONNÉES « Peut-être que si vous venez de rencontrer. »
DONNÉES « Maintenant est le temps de se rassembler pour la réponse. »
DONNÉES « Oui, seulement si il y a une poussée vers le haut ».
DONNÉES « Non, oppression s’arrêtera votre quête. »
DONNÉES "Oui, non et peut-être..."
DONNÉES "Ce que l’oracle dit est contraire à votre vraie réponse."
DONNÉES « la réponse prendra plus de temps et vous devrez payer pour l’attente. »
DONNÉES "qu’à travers un éveil!"
DONNÉES « il n’est pas temps pour un déménagement, vous devez garder toujours. »
DONNÉES « Laisser développer comme c’est le sort. »
DONNÉES « Vous devez voir la jeune fille épouser d’abord. »
DONNÉES « Plus que vous avez jamais imaginé. »
DONNÉES « on peut se demander et se promener, mais il est temps de passer. »
DONNÉES « uniquement si vous agissez doucement. »
DONNÉES « Oui, avec une grande joie! »
DONNÉES « non, alors vous devez laisser aller de lui d’étaler ».
DONNÉES "qu’avec les"limitations.
DONNÉES « Regardez en vous et vous pouvez trouver la réponse. »
DONNÉES « seulement avec la prépondérance de la petite. »
DONNÉES « ça va venir après achèvement. »
DONNÉES « seulement avant la fin. »
DONNÉES « J’adore Elizabeth! »
DONNÉES « seul Dieu sait... »