Micro Systèmes n°31 mai 1983
Micro Systèmes n°31 mai 1983
  • Prix facial : 20 F

  • Parution : n°31 de mai 1983

  • Périodicité : mensuel

  • Editeur : Société Parisienne d'Edition

  • Format : (203 x 271) mm

  • Nombre de pages : 238

  • Taille du fichier PDF : 176 Mo

  • Dans ce numéro : un événement en micro-informatique... le disque numérique.

  • Prix de vente (PDF) : gratuit

Dans ce numéro...
< Pages précédentes
Pages : 152 - 153  |  Aller à la page   OK
Pages suivantes >
152 153
122 GOSUB "REMISE EN ORDRE" 124 DW=A(1)*100+A(2)*10+A(3) 126 IF OW=421LET RE=10:RETURN 128 IF OW=111LET RE=07:RETURN 130 IF A(2)=1AND A(3)=1LET RE=A(1):RETURN 132 IF A(1)=A(2)AND A(2)=A(3)LET RE=3:RETURN 134 FOR 00=654T0 321STEF'-111 136 IF OW=OOLET RE=2:RETURN 137 NEXT 00:RE=0:RETURN 138 REM 139 REM 140 "MUSIQUE 1":REM ****************************************** 142 REM * Vocalise a personnaliser ! ! 144 SEEP 20,2:REM ****************************************** 146 RETURN 14B REM 149 REM 150 "COMPTE DES JETONS":REM ****************************************** 152 REM * Communication des resultat 154 REM * agremente d animations graphiques 156 REM * et sonores (non limitatif) 158 WAIT 200:CO$="":REM ****************************************** 160 IF JM>JJLET IT=3:PM=PM-JM:PJ=PJ+JM:E1=JM:IF PMJJAND E1>1LET CO$="s" 164 IF JM>JJCLS  : PRINT "Je te donne" ; El ; " jeton"+CO$ 166 IF JM1LET COS="s" 170 IF JM1LET C4$="s" 188 PRINT "Tu as" ; PJ ; " jetonfl+C4S+", en ai" ; PM 190 GOSUB "BRUITAGES" 192 GOSUB "A OUI LE TOUR T" 194 REM 195 REM 196 "BRUITAGES":REM ****************************************** 198 REM * Commentaire melodique des resultats 200 REM ****************************************** 202 REM 204 IF JM=JJTHEN FOR 00=1TO 6:BEEP 1,50:CALL NBIBEEP 1,100:NEXT. 00:RETURN 206 IF JM>JJTHEN FOR 00=1TO 1O1STEP 5:BEEP 1.00:CALL N8:NEXT QQ:RETURN 208 IF JM
238 IF D1=7GOT0 "LABEL J 4" 240 IF D1=OLET B1=3:GOTO "LABEL J 1" 242 IF D1<>A(1)AND DI<>A(2)AND DI<>A(3)CLS  : PRINT "TU TRICHES":GOSUB "MUSIQUE 1 243 IF D1<>A(1)AND D1<>A(2)AND D1<>A(3)GOTO "LABEL J 2" 244 IF D1=A(1)LET G2=1 246 IF D1=A(2)LET G2=2 248 IF D1=A(3)LET G2=3 249 "LABEL J 3":CLS  : N1=1:INPUT " et " ; D2 250 FOR OQ=1TO 3:IF 00<>02AND A(00)=D2LET N1=0 252 NEXT QQ 254 IF D2=OLET N1=0 258 IF NITHEN PRINT "TU TRICHES":GOSUB "MUSIQUE 1":GOTO "LABEL J 3" 260 A(3)=D1:IF D2=OLET B1=2:GOTO "LABEL J 1" 262 A(2)=D2:LET B1=1:GOTO "LABEL J 1" 264 "LABEL J 4":COS="":P2=MO:BEEP 5,70:CLS  : IF RE>1LET C0$="s" 266 PRINT "Tu as obtenu" ; RE ; " Point"+COS:JJ=RE 267 REM 268 RETURN 269 REM 270 "DESSIN DES DES":REM ****************************************** 272 REM * Bruitage et decision pour le dessin 274 REM * des Des a 1 afficheur 276 WAIT 0:REM ****************************************** 27B REM 282 FOR 00=0TO 30STEP 2:BEEP 1,QQ:NEXT QQ 284 CLS  : FOR QQ=1TO 3 286 01=A(00):IF QQ=3THEN WAIT 100 287 GOSUB "DES" 288 NEXT QQ:WAIT 100:RETURN 290 REM 291 REM 292 "DES":REM ****************************************** 294 REM * Representation dessinee des Des a 296 REM * 1 afficheur LCD 298 REM ****************************************** 300 REM 302 IF Q1=1THEN SPRINT 304 IF Q1=2THEN SPRINT 306 IF Q1=3THEN SPRINT 308 IF Q1=4THEN SPRINT 310 IF 01=5THEN SPRINT 312 IF 01=6THEN SPRINT 116 REM 317 REM  : 518 REM 320 "MACHINE JOUE":REM 322 REM 324 REM 326 REM 328 CLS  : REM 330 PRINT "A moi de jouer I" 332 B1=3:M0=3-P2 333 REM 334 "LABEL M 1" 336 GOSUB "LANCER DES DES" 338 GOSUB "COMPTES" 340 GOSUB "DESSIN DES DES" 342 MO=M0+1:IF M0=3THEN GOTO 343 REM 344 "TRAITEMENT":REM 346 REM 148 REM 350 REM "00007F7F7F777F7F7F0000000000" RETURN "00007F5F7F7F7F7D7F0000000000" RETURN "00007F5F7F777F7D7F0000000000" RETURN "00007F5D7F7F7F5D7F0000000000" RETURN "00007F5D7F777F5D7F0000000000" RETURN 00007F557F7F7F557F0000000000" RETURN ****************************************** * La re-Flexion est si visible qu avec un * * peu de chance on verrai les neurones * communiquer entre eux ***************************************** "FIN MACHINE" ****************************************** * Les strategies changent suivant les * resultats obtenus par 1 adversaire ****************************************** Fig. 3. - Suite du listing. Mai 1983 MICRO-SYSTEMES — 153



Autres parutions de ce magazine  voir tous les numéros


Liens vers cette page
Couverture seule :


Couverture avec texte parution au-dessus :


Couverture avec texte parution en dessous :


Micro Systèmes numéro 31 mai 1983 Page 1Micro Systèmes numéro 31 mai 1983 Page 2-3Micro Systèmes numéro 31 mai 1983 Page 4-5Micro Systèmes numéro 31 mai 1983 Page 6-7Micro Systèmes numéro 31 mai 1983 Page 8-9Micro Systèmes numéro 31 mai 1983 Page 10-11Micro Systèmes numéro 31 mai 1983 Page 12-13Micro Systèmes numéro 31 mai 1983 Page 14-15Micro Systèmes numéro 31 mai 1983 Page 16-17Micro Systèmes numéro 31 mai 1983 Page 18-19Micro Systèmes numéro 31 mai 1983 Page 20-21Micro Systèmes numéro 31 mai 1983 Page 22-23Micro Systèmes numéro 31 mai 1983 Page 24-25Micro Systèmes numéro 31 mai 1983 Page 26-27Micro Systèmes numéro 31 mai 1983 Page 28-29Micro Systèmes numéro 31 mai 1983 Page 30-31Micro Systèmes numéro 31 mai 1983 Page 32-33Micro Systèmes numéro 31 mai 1983 Page 34-35Micro Systèmes numéro 31 mai 1983 Page 36-37Micro Systèmes numéro 31 mai 1983 Page 38-39Micro Systèmes numéro 31 mai 1983 Page 40-41Micro Systèmes numéro 31 mai 1983 Page 42-43Micro Systèmes numéro 31 mai 1983 Page 44-45Micro Systèmes numéro 31 mai 1983 Page 46-47Micro Systèmes numéro 31 mai 1983 Page 48-49Micro Systèmes numéro 31 mai 1983 Page 50-51Micro Systèmes numéro 31 mai 1983 Page 52-53Micro Systèmes numéro 31 mai 1983 Page 54-55Micro Systèmes numéro 31 mai 1983 Page 56-57Micro Systèmes numéro 31 mai 1983 Page 58-59Micro Systèmes numéro 31 mai 1983 Page 60-61Micro Systèmes numéro 31 mai 1983 Page 62-63Micro Systèmes numéro 31 mai 1983 Page 64-65Micro Systèmes numéro 31 mai 1983 Page 66-67Micro Systèmes numéro 31 mai 1983 Page 68-69Micro Systèmes numéro 31 mai 1983 Page 70-71Micro Systèmes numéro 31 mai 1983 Page 72-73Micro Systèmes numéro 31 mai 1983 Page 74-75Micro Systèmes numéro 31 mai 1983 Page 76-77Micro Systèmes numéro 31 mai 1983 Page 78-79Micro Systèmes numéro 31 mai 1983 Page 80-81Micro Systèmes numéro 31 mai 1983 Page 82-83Micro Systèmes numéro 31 mai 1983 Page 84-85Micro Systèmes numéro 31 mai 1983 Page 86-87Micro Systèmes numéro 31 mai 1983 Page 88-89Micro Systèmes numéro 31 mai 1983 Page 90-91Micro Systèmes numéro 31 mai 1983 Page 92-93Micro Systèmes numéro 31 mai 1983 Page 94-95Micro Systèmes numéro 31 mai 1983 Page 96-97Micro Systèmes numéro 31 mai 1983 Page 98-99Micro Systèmes numéro 31 mai 1983 Page 100-101Micro Systèmes numéro 31 mai 1983 Page 102-103Micro Systèmes numéro 31 mai 1983 Page 104-105Micro Systèmes numéro 31 mai 1983 Page 106-107Micro Systèmes numéro 31 mai 1983 Page 108-109Micro Systèmes numéro 31 mai 1983 Page 110-111Micro Systèmes numéro 31 mai 1983 Page 112-113Micro Systèmes numéro 31 mai 1983 Page 114-115Micro Systèmes numéro 31 mai 1983 Page 116-117Micro Systèmes numéro 31 mai 1983 Page 118-119Micro Systèmes numéro 31 mai 1983 Page 120-121Micro Systèmes numéro 31 mai 1983 Page 122-123Micro Systèmes numéro 31 mai 1983 Page 124-125Micro Systèmes numéro 31 mai 1983 Page 126-127Micro Systèmes numéro 31 mai 1983 Page 128-129Micro Systèmes numéro 31 mai 1983 Page 130-131Micro Systèmes numéro 31 mai 1983 Page 132-133Micro Systèmes numéro 31 mai 1983 Page 134-135Micro Systèmes numéro 31 mai 1983 Page 136-137Micro Systèmes numéro 31 mai 1983 Page 138-139Micro Systèmes numéro 31 mai 1983 Page 140-141Micro Systèmes numéro 31 mai 1983 Page 142-143Micro Systèmes numéro 31 mai 1983 Page 144-145Micro Systèmes numéro 31 mai 1983 Page 146-147Micro Systèmes numéro 31 mai 1983 Page 148-149Micro Systèmes numéro 31 mai 1983 Page 150-151Micro Systèmes numéro 31 mai 1983 Page 152-153Micro Systèmes numéro 31 mai 1983 Page 154-155Micro Systèmes numéro 31 mai 1983 Page 156-157Micro Systèmes numéro 31 mai 1983 Page 158-159Micro Systèmes numéro 31 mai 1983 Page 160-161Micro Systèmes numéro 31 mai 1983 Page 162-163Micro Systèmes numéro 31 mai 1983 Page 164-165Micro Systèmes numéro 31 mai 1983 Page 166-167Micro Systèmes numéro 31 mai 1983 Page 168-169Micro Systèmes numéro 31 mai 1983 Page 170-171Micro Systèmes numéro 31 mai 1983 Page 172-173Micro Systèmes numéro 31 mai 1983 Page 174-175Micro Systèmes numéro 31 mai 1983 Page 176-177Micro Systèmes numéro 31 mai 1983 Page 178-179Micro Systèmes numéro 31 mai 1983 Page 180-181Micro Systèmes numéro 31 mai 1983 Page 182-183Micro Systèmes numéro 31 mai 1983 Page 184-185Micro Systèmes numéro 31 mai 1983 Page 186-187Micro Systèmes numéro 31 mai 1983 Page 188-189Micro Systèmes numéro 31 mai 1983 Page 190-191Micro Systèmes numéro 31 mai 1983 Page 192-193Micro Systèmes numéro 31 mai 1983 Page 194-195Micro Systèmes numéro 31 mai 1983 Page 196-197Micro Systèmes numéro 31 mai 1983 Page 198-199Micro Systèmes numéro 31 mai 1983 Page 200-201Micro Systèmes numéro 31 mai 1983 Page 202-203Micro Systèmes numéro 31 mai 1983 Page 204-205Micro Systèmes numéro 31 mai 1983 Page 206-207Micro Systèmes numéro 31 mai 1983 Page 208-209Micro Systèmes numéro 31 mai 1983 Page 210-211Micro Systèmes numéro 31 mai 1983 Page 212-213Micro Systèmes numéro 31 mai 1983 Page 214-215Micro Systèmes numéro 31 mai 1983 Page 216-217Micro Systèmes numéro 31 mai 1983 Page 218-219Micro Systèmes numéro 31 mai 1983 Page 220-221Micro Systèmes numéro 31 mai 1983 Page 222-223Micro Systèmes numéro 31 mai 1983 Page 224-225Micro Systèmes numéro 31 mai 1983 Page 226-227Micro Systèmes numéro 31 mai 1983 Page 228-229Micro Systèmes numéro 31 mai 1983 Page 230-231Micro Systèmes numéro 31 mai 1983 Page 232-233Micro Systèmes numéro 31 mai 1983 Page 234-235Micro Systèmes numéro 31 mai 1983 Page 236-237Micro Systèmes numéro 31 mai 1983 Page 238