Micros ID n°2 janvier 1987
Micros ID n°2 janvier 1987
  • Prix facial : 22 F

  • Parution : n°2 de janvier 1987

  • Périodicité : trimestriel

  • Editeur : Mieva Presse

  • Format : (206 x 291) mm

  • Nombre de pages : 84

  • Taille du fichier PDF : 123 Mo

  • Dans ce numéro : PC compatible, comment le choisir ?

  • Prix de vente (PDF) : gratuit

Dans ce numéro...
< Pages précédentes
Pages : 38 - 39  |  Aller à la page   OK
Pages suivantes >
38 39
3i1:\ZÉNITH 3:CIRCLE(84,63),4,13:PAINT(84,63),13 : LINE-(98,62)„BF 125 PUTSPRITE12,(82,48),9,2 130 PUTSPRITE11,(79,54),4,1 135 PUTSPRITE13,(78.65),11,3 140 DRAW"bm91,49c1h12dhbm80,77r2ur2db r5bu2ur2dr3 » 145 LINE(85,55)-(90,57),10,BF 150 LINE(94,57)-(96,59),4,BF 155 LINE(96,60)-(98,61),4,B RE ■ 1 1.','de Hervé GERARDIN nia dm AR in i i i i il ah 4 160 FORA=41T0191STEP30 165 CIRCLE(8+A,155),3:PAINTSTEP(0,0) : LINE(A,158)-(16+A,165)„BF:NEXT 170 LINE(0,165)-(255,165) 175 FORA=28T0208STEP30 180 CIRCLE(9+A,176),4:PAINTSTEP(0,0) : LINE(A,180)-(20+A,191)„BF:NEXT 185'- initialisation 190 I=8:L=8:F=45:E=F:J=F 195 D=153:K=D:N=4:H=5 200 PUTSPRITE5.(F,82),1,4 205 PUTSPRITE6,(F,98),4,5 210 PRESET(100,1):PRINT#1,"READY ! » 215 IFSTICK(0)ANDPLAY(0)=OTHENLINE(99, 0)-(190,8),12,BFELSE215 220'animation 225 TIME=0:SOUND12,1:SOUND10,16:SOUND 6,60:SOUND7,13:SOUND13,7 230 ONINTERVAL=P/3GOSUB310:INTERVALON 235 PUTSPRITE5,(F,82)„4 240 PUTSPRITE6,(F,98)„5 245 IFD<95THENI=9:IFE=FTHENGOSUB405 250 IFD<83THEND=153:1=8:E=F:SOUND13,7 255 IFK<99THENL=9:IFJ=FTHENGOSUB410 260 IFK<83THENK=153:L=8:J=30$FIX(RND (1)116)+45:SOUND13,7 265 IFTIME>=PTHENGOSUB320 270 IFJ=ETHENJ=J+30 275 PUTSPRITE1,(E,164),1,0 280 PUTSPRITE2,(E,D),I,I Len) 9 LANGAGE : BASIC MSX TAILLE MEMOIRE : 4,6K 285 PUTSPRITE3,(J,164),1,0 290 PUTSPRITE4,(J,K),L,L 295 IFSTICK(Q)=3ANDFÇ225THENPUTSPRITE 6„,6:F=F+30:FORM=0T099:NEXT 300 IFSTICK(0)=7ANDF45THEN PUTSPRITE 6,„7:F=F-30:FORM=0T099:NEXT 305 D=D-N:K=K-H:G0T0235 310 H=H+1:N=N+1:RETURN 315'gagné 320 INTERVALOFF:S=USR(0):PLAY"t25516v 12o5c117r64co4ao5co4ao5cef1f2o4bgbgbo 5del.o4afafao5c64d2.18cdc2o4b2 » 325 COLOR,4:SCREEN2 330 LINE(60,70)-(88,100),5,BF 335 DRAW"Clbm0,0f50r156e50950d91f50h5 01156g50e50u2r1561156u89 BM207,139M25 6,186BM0,186M50,138BM75,70D30" 340 LINE(89,101)-(60,69)„B 345 LINE(13@,125)-(180,127),6,BF 350 LINE(133,128)-(177,150),9,BF 355 LINE(135,151)-(137,155)„BF 360 LINE(174,151)-(176,155)„BF 365 LINE(148,120)-(165,124)„BF 370 LINE(150,117)-(163,120)„BF 375 CIRCLE(156,113),3:PAINTSTEP(0,0) 380 CIRCLE(120,25),4,10,,,.3 385 CIRCLE(188,55),40,14,4.2,4„6 390 DRAW"BM160,73C14D14E9 » LI 1 d&
395 PAINT(153,52),14:PRINT#1,"engagez "":GOT0470 400'perdu 405 PUTSPRITE2,(E,D),9.10:GOT0415 410 PUTSPRITE4,(3,K),9,10 415 INTERVALOFF:S=USR(0) 420 FORA=255TO1STEP-20:SOUND7,10:SOUN DO,A:SOUND8,13:SOUND8,1:SOUND13,200:N EXT:S=USR(0):PLAY"v10t106111o4c.g.112 fgfgc6o5111c.p4a#.f.o3g.o4d.112cdcdo3 g6p4111g.f.c." 425 COLOR1,11:SCREEN2 430 LINE(0,100)-(255,191),14,BF 435 LINE(0,137)-(255,137) 440 Y=3:FORA=07016:LINE(16*A,140)-(16 *A+16,144)„B:LINE(16*A,140)-(16$A+Y, 137):IFA)6THENY=0:IFA)7THENY=-6 445 NEXT:R$="cle5u12g2u8h17re3u3er4er ere2dh21r2g31g14uherlu2r212u2r12gd2g3 uel2dfdgdglu4rulgd4frdl2g1r2dfd512h31 d61u3r2f2r3fru6r7d8fd2" 450 RESTORE450:DATA100,115,40,110,60, 120,77,110,25,125,73,133 455 FORA=1T06:READS,U:PRESET(S,U):DRA W R$:PAINTSTEP(-5,-18):NEXT 460 DRAW"BM190,115EFR2EUGL2HU6HLG5UE3 G3HU3ERERER2DLU2RH62LGL2UHULHELU2R2L2 U2R2ERBL58DD682DLDGULD4LU2GUEF2D2RURD 2RUHUBU2RDFDFD9HULU2GU2GUGUL2FDLDRDFB R6U5E3RE4RD7":PAINT(182,110) 465 DRAW"bm78,10":PRINT#1,"TEMPS:" ; FI X(TIME/50)-4 ; "s" 470 DRAW"bm20,1":PRINT#1,"Pour contin uer STRIG" ; 0 475 IFSTRIG(0)THENRETURN30 480 G0T0475 485'début 490 DEFUSR=1181:S=USR(0):PRINT" MICRO M.S.X. présente."TAB(84)". Z ENITH 1986 â"TAB(81)".0 PAR HERVE GE RARDIN â"TAB(120)"-1 CLAVIER" 495 PRINT:PRINT,"MANETTE" 500 LOCATE11,14:PRINT"TEMPS = 1 mn" 505 LOCATE2,20:PRINT"POUR CONTINUER A PPUYEZ SUR ESPACE" : P=3000 510 W=STICK(0)ORSTIUMORSTICK(2) 515 COLOR5:IFW=1THENLOCATE9,7:PRINT"- 1":LOCATE9,9:PRINT" ":Q=0:GOSUB555 520 IFW=5THENLOCATE9,9:PRINT"-I":LOCA TE9,7:PRINT" ":0=1:GOSUB555 525 IFW=3THENVPOKE581,50:P=6000:GOSUB 550ELSEIFW=7THENVPOKE581,49:P=3000:GO SUB550 LANGAGE : BASIC MSX ZENITH TAILLE MEMOIRE : 4,6K de Hervé GERARDIN 530 IFSTRIG(0)THENRETURN 535 IFSTRIG(0)THENRETURN 540 IFSTRIG(0$2)THEN0=0#2:RETURN 545 COLOR4:60T0510 550 FORA=255TOOSTEP-20:SOUNDO,A:SOUND 8,13:NEXT:S=USR(0):RETURN 555 SOUND3,0:SOUND9,16:SOUND2,19:SOUN D12,50:SOUND11,9:SOUND13,9:RETURN 560 DATA15,3C,3E,1E,5E,7E,3F,1F,F,F,F, 1F,3F,7E,FE,FG,F8 565 DATA21,D,1E,3F,7F,F1,CO,C2,CC,FC, FC„„„,D8,7F,7F,7F,F8,44 570 DATA5,D,F,E,C,E,C 575 DATA23„,7,F,E,E,E,E,E,E„„,„20, 3C,1E,F,F,E,E,1C 580 DATA31,F,1,3,23,79,63,C1,C7,7E,3E, 6,6,6,6,7,6,80,CO 3 C2,C6,C3,C3,83,E3, FE,BE,E4,E0,E0,E0,E0,E0 585 DATA29,6,7,7,F,1C,18,30,30,38,18, E,6,6,9E,74„E0,E0,E0,E0,70,38,1C,C,1 8,38,60,60,79,2E 590 DATA27,6,7,7,E,1C,18,30,30,38,18, E,6,6,9E,74„E0,E0,F0,7C,1E,E,1C,38,6 0,60,79,2E 595 DATA31,6,7,F,3E,78,38,38,1C,6,6,9 E,74„„,E0,E0,E0,E0,70,38,18,C,C,1C, 18,70,60,60,79,2E 600 DATA7,3C,7E,F7,FF,FF,FF,7E,3C 605 DATA6,18,3C,7E,7E,7E,3C,18 610 DATA8,C6,64,34,30,83,16,28,26,C6 615 DATA26,F,F,F,6„, ,,,,,, „„FO,F0, 70,38,38,1C4C,38,70,E0,E0



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 :


Micros ID numéro 2 janvier 1987 Page 1Micros ID numéro 2 janvier 1987 Page 2-3Micros ID numéro 2 janvier 1987 Page 4-5Micros ID numéro 2 janvier 1987 Page 6-7Micros ID numéro 2 janvier 1987 Page 8-9Micros ID numéro 2 janvier 1987 Page 10-11Micros ID numéro 2 janvier 1987 Page 12-13Micros ID numéro 2 janvier 1987 Page 14-15Micros ID numéro 2 janvier 1987 Page 16-17Micros ID numéro 2 janvier 1987 Page 18-19Micros ID numéro 2 janvier 1987 Page 20-21Micros ID numéro 2 janvier 1987 Page 22-23Micros ID numéro 2 janvier 1987 Page 24-25Micros ID numéro 2 janvier 1987 Page 26-27Micros ID numéro 2 janvier 1987 Page 28-29Micros ID numéro 2 janvier 1987 Page 30-31Micros ID numéro 2 janvier 1987 Page 32-33Micros ID numéro 2 janvier 1987 Page 34-35Micros ID numéro 2 janvier 1987 Page 36-37Micros ID numéro 2 janvier 1987 Page 38-39Micros ID numéro 2 janvier 1987 Page 40-41Micros ID numéro 2 janvier 1987 Page 42-43Micros ID numéro 2 janvier 1987 Page 44-45Micros ID numéro 2 janvier 1987 Page 46-47Micros ID numéro 2 janvier 1987 Page 48-49Micros ID numéro 2 janvier 1987 Page 50-51Micros ID numéro 2 janvier 1987 Page 52-53Micros ID numéro 2 janvier 1987 Page 54-55Micros ID numéro 2 janvier 1987 Page 56-57Micros ID numéro 2 janvier 1987 Page 58-59Micros ID numéro 2 janvier 1987 Page 60-61Micros ID numéro 2 janvier 1987 Page 62-63Micros ID numéro 2 janvier 1987 Page 64-65Micros ID numéro 2 janvier 1987 Page 66-67Micros ID numéro 2 janvier 1987 Page 68-69Micros ID numéro 2 janvier 1987 Page 70-71Micros ID numéro 2 janvier 1987 Page 72-73Micros ID numéro 2 janvier 1987 Page 74-75Micros ID numéro 2 janvier 1987 Page 76-77Micros ID numéro 2 janvier 1987 Page 78-79Micros ID numéro 2 janvier 1987 Page 80-81Micros ID numéro 2 janvier 1987 Page 82-83Micros ID numéro 2 janvier 1987 Page 84