Micro Systèmes n°32 juin 1983
Micro Systèmes n°32 juin 1983
  • Prix facial : 20 F

  • Parution : n°32 de juin 1983

  • Périodicité : mensuel

  • Editeur : Société Parisienne d'Edition

  • Format : (203 x 271) mm

  • Nombre de pages : 230

  • Taille du fichier PDF : 178 Mo

  • Dans ce numéro : intelligence artificielle, robots et systèmes experts.

  • Prix de vente (PDF) : gratuit

Dans ce numéro...
< Pages précédentes
Pages : 168 - 169  |  Aller à la page   OK
Pages suivantes >
168 169
10 20 30 40 50 60 70 80 qo 100 110 120 130 140 CL5 REM REM REM REM REM REM REM REM REM REM REM REM REM 150 SLOW 200 LET A$=- 210 PRINT " 220 PRINT "• 230 PRINT "',5CRE5LE AUTEUR  : PASCAL CHAUVIN 240 FOR I=1 TO 18 250 PRINT "111" ; TAB 31 ; 1111" 260 NEXT I 270 PRINT 280 PRINT AT 5,3 ; "VOUS POUVEZ C MOISIR ENTRE:* 290 PRINT AT 7,3 ; "M  : PLATEAU GR 15".300 PRINT AT 9,3 ; 1§1  : PLATEAU BL ANC" 310 PRINT AT 12,3 ; "@ LUTION RAPIDE'320 PRINT AT 14.3 ; "B OLUTION RAPIDE" 330 PRINT AT 17  : GRIS,RE50  : OLANC,RES  : REGLE DU JEU" 340 PRINT AT 19.3 ; " 1,..1111-Z ! Ei es H 1"1 re: ; 350 INPUTJ1 360 IF Jl<>1 AND J1<>2 AND J1< 3 AND J1<>4 THEN GOTO 9000 370 PRINT AT 17,3 ; A$ 380 PRINT AT 14,3 ; A$ 390 PRINT AT 12,3 ; A$ 400 PRINT AT 9,3 ; A$ 410 PRINT AT 7,3 ; A$ 420 PRINT AT 5,3 ; A$ 430 PRINT AT 15,3 ; "NOMBRE DE JO UEUR5 ? " 440 INPUT N 450 IF Nie AND N<5 THEN GOTO 48 0 460 PRINT AT 7,3 ; ",..i0UEUR  : UMMBREMEMMMMU" 470 GOTO 440 480 CL5 500 REM DONNEES 540 LET 8$=A$ 560 LET 0$="..AAAAAAAAABBCCDDEE EEEEEEEEEEEEEEFFGGHHIIIIIIIIJKLL LLLMMMNNNNNN000000PPORRRRRRSS555 STTTTTTUUUUUUVVWXYZ" 570 LET E1=0 580 LET E2=0 590 LET E3=0 600 LET E4=0 610 620 630 640 1000 1010 LET D2=0 LET D7=0 LET D8=0 LET G1=0 REM REM 1020 IF J1=3 OR J1=4 THEN FAST 1030 GOSUB 200e 1040 SLOW 1050 FOR I=1 TO N 1055 LET Z$="" 1060 GO5U6 4000+I*100 1065 PRINT AT 2*I,19 ; I ; " ":7.$ ; TR 6 (32-LEN STR$ D5) ; D5 1068 NEXT I 1070 PRINT AT 2*I,19 ; "■ 1080 FOR C=1 TO N 1090 PRINT AT 2*C,19 ; CHR$ (156+0 1100 GOSUB 4050+C*100 1110 GOSUB 4000+C*100 1120 PRINT AT 2*C,19 ; C ; " " ; Z$ ; TA B (32-LEN STR$ D5) ; D5 1130 PRINT AT 15,28 ; D4 ; " 1140 NEXT C 1150 GOTO 1080 2000 REM 2010 REM AFFICHAGE 2020 PRINT " ABCDEFGHIJKLMNO", 2030 FOR I=1 TO 15 2040 PRINT TAS (2-LEN STR$ I) ; I ; 2050 FOR J=1 TO 15 2060 IF (J1=2 OR J1=4) AND A$((i -1)*15+J)="3" THEN LET A$((I-1)* 15+J) -" " 2070.P-RINT A$((I-1)*15+J) ; 2080 NEXT J 2090 PRINT 2100 NEXT I 2110 PRINT „" 2120 PRINT AT 20_,_1 ; "MPGM RBCP E3F Hi) JO ms KWXYZ N. " 2130 PRINT " 2140 RETURN 3000 REM 3010 REM TIRAGE DES JEUX INDIVI- DUELS  : 3020 REM 3030 3040 3050 +1 FOR K=1 TO 7-LEN Z$ IF LEN C$=0 THEN GOTO 3110 LET A1=INT (RND*(LEN C$-1)) 3060 LET Z$=.7.$+C.$(A1) 3070 LET C$=C$(1 TO A1-1)+C$ (; 1+ 1 TO LEN C$) 3080 NEXT K 3090 IF Z$=" THEN STOP 3100 RETURN 3110 LET Z$=Z$+" 3120 GOTO 3080 3130 REM 3140 LET V$="" 3150 PRINT AT 20,0',VOTRE MOT ?.. 3160 INPUT D$ 3170 IF D$=" ? " THEN GOTO 8000 3180 PRINT AT 14,19 ; D$ ; " 3190 PRINT AT 20,0 ; "ENTRER CASE DEPARTC,L 3200 INPUT E$ 3210 PRINT AT 20,0 ; "VERTIC.=V HORIZONT.= H ? " 3220 INPUT F$ 3230 LET E$=E$+"."+F$ 168- MICRO-SYSTEMES Juin 1983
3240 PRINT RT 3250 PRINT RT 20 0 ; - 3260 INPUT P$ f-': ; 270 IF P$=-0- OR P$="0- THEN GO TO 3130 32130 PRINT AT 20,0 ; " meGm secp FH&J JO P1 KWXYZ g. "  : 3300 REM TRI LET U$=Z$ LET K$=D$ 7 ; f320 LET R2=0 f"t:3 FOR I=1 TO LEN D$ 340 FOR J=1 TO LEN Z$ 3350 IF Z$(J)<>K$iI) THEN GOTO 3360 LET K$(1)="," - 370 LET Z$(J)=- ; " 37'80 LET R2=A2+1 390 NEXT J 3400 NEXT I 3410 IF A2=LEN 0$ THEN GOTO  : 3420 PRINT AT 20 0'" 3430 PAUSE 30 3431 LET Z$=U$ 1432 GOTO 3130 3450 FOR B=1 TO 7.3460 IF Z$(0)=- ; " THEN GOTO 3470 LET V$=V$4-Z$(8) 3480 NEXT B 3490 LET Z$=U$ 3500 GOSUB 5000  : 3510 RETURN 3600 REMNBRE DE POINTS 3610 LET 01=1 3620 IF N$=-. THEN LET 01=0 3630 IF N$=-G" OR N$="M" OR N$=" 0- THEN LET D1=2 3640 IF N$=-C" OR N$="0" OR N$=" P" THEN LET 01=3 3650 IF N$=-H- OR N$="V" OR N$=" F- THEN LET D1=4 3660 IF N$=-K - OR N$="Z" OR N$=" OR N$="Y- OR N$="W" THEN LET D1=10 3670 IF N$=-J- OR N$="0" THEN LE T 01=8 3680 IF 8$(T)=-2- THEN LET D1=2* Di 3700 IF 8$ (T) ="3" THEN LET 01=0* Dl 3720 LET 02=02+01 3730 IF B$(T)=-S- THEN LET D3=0* D:3 3750 IF (15$(T)=-g- OR B$iT)=15") THEN LET 03=2*03 3780 RETURN 3790 REM 4100 REM JOUEUR 4110 LET G$=Z$ 4120 LET Z$=G$ 4130 LET D5=E1 4135 GOSUB 3000 4140 LET G$=Z$ 4145 RETURN 4150 LET Z$=G$ 41F,0 GO5UB 3130 4170 LET E1=E1+04 4180 LET D5=E1 41g0 RETURN 4200 REM JOUEUR 4210 4220 4235 4240 4245 4250 4-260 LET H$=Z$ LET Z$=H$ LET 05=E2 GOSUB 3000 LET H$=Z$ RETURN LET Z$=H$ GOSUB 3130 3450 3480 4270 4280 42g0 4300 4:310 4320 4330 433 5 4340 4345 4350 4360 4370 4380 4:'= ; 90 4400 4410 4420 440 4435 4440 4445 4450 4460 4470 4480 4490 5000 5010 U030 5040 5050 -2) 5060 5070 5080 5100 G1=1 5110 5120 LET E2=E2+04 LET 05=E2 RETURN REM JOUEUR'g LET 1$=Z$ LET Z$=1$ LET 05=E3 GO5UB 3000 LET 1$=-Z$ RETURN LET -,1"$=1$ GOSUB 3130 LET E3=E3+D4 LET D5=E3 RETURN REM JOUEUR..B., « LET J$=Z$ LET Z$=J$ LET 05=E4 GOSUB 3000 LET J$=Z$ RETURN LET Z$=J$ GOSUB 3130 LET E4=E4+04 LET D5=E4 RETURN REM pnrri7.=.. LET G1=0 LET 0=0 LET 03=1 LET 01=VAL E$(2 TO (LEN E$) LET R1=01 LET 02=CODE E$(1)-37 LET R2=02 IF E$ (LEN E$) THEN LET REM REM AMANT 5130 IF G1=0 THEN LET 02=02-1 5140 IF G1=1 THEN LET 01=01-1 5150 IF 02<1 THEN GOTO 5300 5160 IF 01<1 THEN GOTO 5300 5170 LET T=(01-1)*15+02 5180 LET X$=A$(T) 5190 LET N$=X$ 5200 IF X$=" " OR X$="1" OR X$=- - OR X$="Eg- OR X$=-15- OR X$="2" OR X$="3" THEN GOTO 5300 5210 GOSUB 3600 5220 GOTO 5120 5300 REM 5310 REM DEPUIS LA FIN DU MOT JUSO"R SA FIN 5320 IF G1=0 THEN LET 02=R2 5330 IF G1=1 THEN LET 01=R1 5340 LET T=(01-1)*15+02 5350 LET X$=R$(T) 5360 LET N$=X$ 15_,370 IF X$=" OR X$="00- OR X$='n" OR x$="igr OR X$=-15" OR X$= 2- OR X$='3" THEN GOTO 5500 5380 IF G1=0 THEN LET 02=02+1 5390 IF G1=1 THEN LET 01=01+1 5400 GOSUB 3600 5410 GOTO 534-0 5500 REM 5510 REM ON COMBLE PAR LA 1ERE LETTRE 5520 IF GI=LEN re$ TMEN GOTO CCOO 5530 LET 0=0+1 5540 PRINT AT 01+1,02+2 ; CHR$ DE 0$(0)+128) 5545 LET N$=0$(0) 5550 GOSUB 3600 55E0 LET R$(((a1-1)*154-02=N$ =:Y570 IF G1=1 THEN LET 01=01+1 Juin 1983 MICRO-SYSTEMES - 169



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