INITIATION 
BINGOROSCOPE 
Le Parisien Libéré propose un jeu appelé Bingoroscope. Vous avez une carte sur laquelle il y a six signes astro-logiques. Chaque jour, une valeur est attribuée à cha-cun des douze signes astrologiques et un montant est tiré au sort. Si la somme des valeurs attribuées aux signes de votre carte est égale au montant vous gagnez... On a prévu que vous avez plusieurs cartes (ou que vous calculez pour tout le quartier) pour rentabiliser le chargement d'un programme. Pour nous, le jeu consiste surtout à écrire le programme. Une petite remarque en passant. Quelques petites modifica-tions du programme du mois dernier vous permettent de trouver quelle est la carte gagnante du jour parmi les
924 possibles. 
Charge les signes et leurs valeurs. Pour mettre les douze libellés des signes. Pour mettre les valeurs tirées pour chaque signe. Les douze signes. On charge les libellés à partir des DATAs (lignes
420 à
450) et on en profite pour demander la valeur actuelle de chaque signe. Fin d'un signe. Tirage du jour. On demande le montant du jour. 
Traite vos cartes. Le nombre de cartes dont vous disposez (DATA ligne
470). Traite chaque carte. Affiche le numéro de la carte. S sert à mettre la somme de la carte en cours. Chaque signe d'une carte. C'est le numéro du signe en cours. On affiche le libellé du signe en cours. On fait la somme au fur et à mesure pour une carte. Fin d'un signe. On saute une ligne et on affiche le total. Et on teste si le total est égal au montant du jour. Si vous avez une instruction IF complète, ces quatre lignes ne feront plus qu'une. 
Fin d'une carte. Les DATAs. Liste des libellés des signes (dans l'ordre). Vos cartes. Mettre en premier le nombre de cartes. Doit correspondre au nombre de lignes de data qui suivent. Les six numéros correspondent à chaque signe de votre carte (1 Bélier.
2 Taureau...). 
C. FARRAGUT et François DUPIN 
100 REM ----LES SIGNES  
110 DIM S$(12)
120 DIM S(12)
130 FOR I=1 TO 12
140 READ S$(I)
150 PRINT S$(I),160 INPUT S(I)
170 NEXT I
180 PRINT
190 REM -TIRAGE DU JOUR  
200 PRINT "MONTANT DU JOUR ";
210 INPUT M
220 PRINT
230 REM ----VOS CARTES  
240 READ N
250 FOR I=1 TO N
260 PRINT "CARTE ";I;": ";
270 S=0
280 FOR J=1 TO 6
290 READ C
300 PRINT S$(C);" ";
310 S=S+S(C)
320 NEXT
330 PRINT
340 PRINT "TOTAL=";S,"- ";
350 IF S=M THEN 380
360 PRINT "PERDU"
370 GOTO 390
380 PRINT "GAGNE
1111111.
390 PRINT
400 NEXT I
410 REM --- SIGNES  
420 DATA BELIER,TAUREAU,GEMEAUX
430 DATA CANCER,LION,VIERGE
440 DATA BALANCE, SCORPION, SAGITTAIRE
450 DATA CAPRICORNE,VERSEAU,POISSONS
460 REM --- VOS CARTES  
470 DATA 2
480 DATA 1,2,3,4,5,6
490 DATA 7,8,9,10,11,12