Voici un programme Quick Basic simple, un classique du genre. Voici tout d'abord ses lignes de codes:

----------------------------------------------------------------------------

'****************************************************************

'*                                                              *

'*              TROUVEZ UN NOMBRE ENTIER                        *

'*              ------------------------                        *

'*                                                              *

'*              by Igor Gorovitch                               *

'****************************************************************

SCREEN 12

10 CLS : CLEAR

RANDOMIZE TIMER

COLOR 7

PRINT " A chaque numero demande, l'introduction d'un 0 termine le programme"

PRINT

PRINT " Niveau de difficulte?"

PRINT " ---------------------"

PRINT " 1. Moins de 8 ans"

PRINT " 2. Facile"

PRINT " 3. Classique"

PRINT " 4. Difficile"

PRINT " 5. Expert"

PRINT

INPUT " Niveau "; niveau: niveau = INT(niveau)

IF niveau = 0 THEN 1000

IF niveau = 1830 THEN 5000

IF niveau > 5 THEN 10

limite = 10 ^ (niveau)

code = INT((limite - 1) * RND) + 1

CLS

PRINT " Trouvez un code entre 1 et "; limite

PRINT " -----------------------------------------"

PRINT

20 coup = coup + 1

COLOR 3: PRINT " Vous etes a votre "; coup; " tentative..."

COLOR 7: PRINT

INPUT tentative

tentative = INT(tentative)

PRINT

IF tentative = 0 THEN 1000

IF tentative = code THEN 100

COLOR 4: SOUND 100, 18.5

IF tentative > code THEN 30

PRINT " "; tentative; " est trop petit."

GOTO 20

30 PRINT " "; tentative; " est trop grand."

GOTO 20

100 CLS

COLOR 2

PRINT " Vous avez trouve le code "; code; " en "; coup; " coups."

FOR m = 250 TO 150 STEP -1

SOUND m, .18

NEXT m

COLOR 7: PRINT

INPUT " Nom"; nom$: IF nom$ = "0" THEN 1000

score% = INT(limite / coup): IF niveau = 1 THEN score% = score% * 100

OPEN "A", #1, "c:\trouve.txt"

PRINT #1, nom$

PRINT #1, score%

CLOSE #1

COLOR 2: CLS

PRINT " Liste des scores:"

PRINT " ~~~~~~~~~~~~~~~~~"

PRINT

OPEN "I", #1, "c:\trouve.txt"

l = 4

WHILE NOT EOF(1)

        COLOR 2

        INPUT #1, nom$

        INPUT #1, score%

        IF score% > 5000 THEN COLOR 4

        IF niveau = 1 AND score% > 200 AND score% < 1000 THEN COLOR 5

        LOCATE l, 2: PRINT nom$; : LOCATE l, 30: PRINT score%

        l = l + 1

        IF l <= 20 THEN 490

        COLOR 7: PRINT " Appuyez sur une touche pour suivant..."

400     k$ = INKEY$: IF k$ = "" THEN 400

        IF k$ = "0" THEN 500

        FOR l = 4 TO 20: LOCATE l, 2: PRINT STRING$(40, 32): NEXT l

        l = 4: COLOR 2

490 WEND

500 CLOSE #1

510 k$ = INKEY$: IF k$ = "" THEN 510

CLS : COLOR 7

PRINT " 0 = Quitter"

PRINT " >0 = Recommencer"

PRINT

INPUT a

IF a = 0 THEN 1000

GOTO 10

1000 COLOR 7

END

5000 KILL "c:\trouve.txt"

END

------------------------------------------------------------------------

Vous pouvez également télécharger le programme qui se nomme "TROUVE.BAS" sur le Skydrive. Pour ce faire cliquez sur le lien qui suit cette phrase, cliquez sur "TROUVE.BAS" puis sur exécuter (il ouvre alors le bloc-note et il suffit d'enregistrer dans le répertoire consacré aux programmes Quick-Basic) ou plus sagement sur enregistrer. Le lien est: http://sdrv.ms/12mkJyi .

Il s'agit de trouver un numéro entre 1 et 10 exposant le niveau de difficulté.

A la fin du jeu on vous demande d'entrer votre nom, s'affiche alors le palmarès des noms et résultats (enregistré dans le répertoire racine à c:\trouve.txt).

Pour effacer ce fichier il suffit d'entrer 1830 comme niveau de difficulté. Attention: si le fichier n'existe pas encore quand vous entrez 1830 il y a un bug qui se produit, mais sans gravité...

N.B.: Le numéro à trouver ne change jamais tant que vous ne l'avez pas trouvé!

Bon amusement...

Nous, Cyborgs devenus tels par les aléas de l'existence, réclamons premièrement le Droit à la Dignité: la reconnaissance de notre pleine et entière égalité de droit et de traitement avec les humains en le sens que nous nous réclamons pleinement humains bien que Cyborgs.

Nous, Cyborgs, réclamons pour les humains qui en ont la nécessité l'accès égal et sans discrimination à la transmutation en Cyborgs: c'est-à-dire le plein remboursement, en fonction des revenus et fortune personnels de chacun, de ladite transformation par la Sécurité Sociale. Et ce qu'il s'agisse d'une transmutation/transformation en Cyborg 100% ou en semi-Cyborg.

Nous, Cyborgs, réclamons la même remboursabilité par la Sécurité Sociale des soins technologiques (hardwares/softwares) qui nous sont propres.

Nous, Cyborgs, réclamons la même attention envers les Cyborgs civils qu'envers les Cyborgs militaires. La même attention envers les Cyborgs fortunés qu'indigents.

Nous, Cyborgs, demandons le soutient de Bill Gates et de Stephen Hawkins (lui-même semi-Cyborg), en tant qu'ambassadeurs de notre cause!

Une chose assez stressante s'était passée: j'écoutais un mix de untitledmusic (UM) ou de Elomak, je ne me rappelle plus trop bien, lorsque soudain, paf, la lumière de la rue et de l'intérieur de toutes les maisons alentour s'éteignent! Panne générale d'électricité!

Deux heures plus tard, les choses remises en ordre, j'ai pû réécouter la musique et ça m'a envie de faire cette House typique '80s, cool et relaxante tout en donnant un peu envie de danser et de balancer tranquillement...