Micros ID n°1 décembre 1986
Micros ID n°1 décembre 1986
  • Prix facial : 22 F

  • Parution : n°1 de décembre 1986

  • Périodicité : trimestriel

  • Editeur : Mieva Presse

  • Format : (201 x 296) mm

  • Nombre de pages : 84

  • Taille du fichier PDF : 72,6 Mo

  • Dans ce numéro : Sony contre Amstrad : le combat

  • Prix de vente (PDF) : gratuit

Dans ce numéro...
< Pages précédentes
Pages : 46 - 47  |  Aller à la page   OK
Pages suivantes >
46 47
TAQUIN LANGAGE : BASIC MSX TAILLE MEMOIRE : 4,5K G#EF#EC#EFC:DEFINTA-Y:SCREEN1 1 1,0 2 GOSUB82:KEYOFF:WIDTH30:COLOR15,4,1 : CLS:FORI=384T0464:VPOKEI,(VPEEK(I)/2) OR(VPEEK(I)/4):NEXT:FORI=520T0768:VP0 KEI,VPEEK(I)OR(VPEEK(I)/2):NEXT:SC=15 00:N$="NULLOS" 3'Presentation 4 DATA84,65,81,85,73,78 5 F0RI=0T05:READA:FORJ=0T07:VPOKE1433 6+I*8+J,PEEK(U1BBF+8*A+J):NEXTJ,I 6 LOCATE15,9:PRINT"MICROS M.S.X":L OCATE17,11:PRINT"PRESENTE" 7 DATA7,2,3,10,9,8:RESTORE7:FORI=0T05 : READA:FORJ=-16TOI*32STEPI+2:PUTSPRIT EI,(I*32+8,J),A,I:NEXTJ,I 8 FORI=OT05:FORJ=I*32+8TOOSTEP-I/2-1 : VPOKE6912+I*4,I*32:VPOKE6913+I*4,J:NE XTJ,I:GOSUB83 9 FORI=0T05:FORJ=87012:VPOKE6913+I*4, J:NEXTJ,I 10 FORI=1T05:FORJ=I*32T018+(I-1)*18ST EP-I:VPOKE6912+114,J:NEXTJ,I 11 LOCATE5,15:PRINT"COPYRIGHT AOUT 1986":LOCATE1,18:PRINT"Bernard GENRE - Alain CORDIER" 12 F0RI=1304T01311:VPOKEI,255:NEXT 13'Def Graphismes 14 DATA1024,1071,255,255,255,255,255, 255,255,255,„„„ 1 ! „„128,224,252,2 55,„„1,7,63,255,1,15,63,127,255,255, 255,255,128,240,252,254,255,255 15 DATA255,255,199,1088,1103„„„„, 254,252,248,240,224,192,128„200 16 DATA1152,1199„,„,1,1 1 1,3,3,3,1,1, „,31,127,127,255,255,255,255,255,25 5,255,255,255,255,255,127,63,192,224, 240,248,248,252,252,252,252,252,252,2 48,240,240,224,128,44 17 DATA1216,1247„„,„„255,255,255, 255,255,255,255,255„1,3,7,15,31,63,1 27,17,17,255,68,68,255,17,17,248 Leln de Bernard GENRE et Alain CORDIER 18 DATA1280,1303„„,„ 11, 54,54„54,5 4,„,62,62,62,62,46,62,62,31 19 D4TA1344,1375„„„„,255,255,255, 255,255,255,255,255„1,3,7,15,31,63,1 27,255,254,252,248,240,224,192,128 20 DATA162,1408,1431,255,254,224,192, „„255,63,31,7,3,1„,255,255,255,252, 48,16„,202 21 DATA1472,1479,14,14,14,14,14,14,26, 41,106,1536,1543„128,192,224,240,24 8,252,254,252 22 DATA1600,1663„24,63,63,127,63,127, 255,127,63,31,15,31,14,6„ 1 1,31,255, 255,255,255,255,255,255,255,207 23 DATA141„,193,227,255,255,255,2 55,255,255,255,255,140,12„„,224,224, 252,252,254,254,254,238,236,224,192,247 24 RESTORE12:FORJ=8208T08217:READA,B : FORI=ATOB:READC:VPOKEI,C:NEXT:READD:V POKEJ,D:NEXT 25 DATA129,200,129,201,202,204,203,20 5,206,129,207,129,129,129,131,130 26 DATA 200,206,201,207,132,133,128,1 28,130,129,128,128,131,132,128,128 27 DATA128,128,128,128,133,130,128,12 8,144,146,145,147,148,137,149,153 28 DATA136,136,153,161,136,154,153,16 1,192,128,161,178,176,184,169,169 29 DATA177,161,169,169,162,160,169,16 9,160,161,169,169,161,169,169,169 30 DATA155,155,168,168,155,169,170,16 9,169,155,171,170,169,167,1169,169 1 155,171,168,163,163,163,163 31 DIMA$(26),A(5,5) 32 RESTORE25:FORI=1T026:READA,B,C,D:A $(1)=CHR$(A)+CHR$(8)+CHR$(31)+CHR$(29) +CHR$(29)+CHWC)+CHR$(D):NEXT 33 VDP(1)=VDP(1)X0R1:FORI=1T0300:NEXT : IFPLAY(1)00THEN33ELSEVDP(1)=225 34'Presentation 35 FORI=8196708207:VPOKEI,49:NEXT 36 CLS:POKUHF380,25:LOCATE3,1:PRINT » LE PIRATICIEL GANG,":PRINT 37 PRINT" en son repaire apres oultes masturbation:, intellectuelle s vous a concocte un remake de d erriere les fagots du bon vieux pou sse-pousse." 38 VPOKE8218,31:VPOKE8219,31:POKUHF3 B0,30 39 FORH=3T016STEP13:LOCATEH,12:PRINTC HR$(212)+STRING$(10,CHR$(220))+CHR$(2
11111/111/11e1 LANGAGE : BASIC MSX TAILLE MEMOIRE : 4,5K 14):0$=CHR$(222)+SPACE$(10)+CHR$(221) : FORI=13T022:LOCATEH,I:PRINTO$:NEXT 40 LOCATEH,23:PRINTCHR$(213)+STRING$ (10,CHR$(223))+CHR$(211)NEXTH 41 FORI=1T05:FORJ=0T04:LOCATE15+I*2,1 3+J*2:PRINTA$(I+J*5):NEXTJ,I:VPOKE822 3,68 42 SWAPA$(25),A$(26):X=5:Y=5:PR=12:CP =0 43 FORI=1T05:FORJ=1T05:A(I,J)=(J-1)*5 +I:LOCATE2+I*2,11+J*2:PRINTA$(A(I,J)) : NEXTJ,I:GOSUB82 44 DATA1,7,5,3:FORI=1T03:RESTORE44:F0 RJ=1T04:READA:FORK=11:04:GOSUB68:NEXTK, J,I:A=RND(-TIME):CP=0 45 A=INT(RND(1)*4)*2+1:IFA=AA-40RA=AA +4THEN45ELSEGOSUB68 46 IFY<>YYORX<>XXTHENAA=A:IFPLAY(0)=0 THENBEEP 47 IFCP<150THEN45 48 CP=0:PR=0:IFRE=1THEN54ELSERE=1 49 POKnHF3B1,12:POKE&HF3B0,25 50 GOSU880:SOUND9,0 51 PRINT" Avec l'aide du curseur r efaites a gauche,le dessin de d roite":PRINT:PRINT:GOSUB82 52 IFPLAY(1)00THEN52ELSESOUND9,0 53'Gestion du jeu 54 FORI=8196T08207:VPOKEI,244:NEXT 55 PLAY"S0M2000T255L64" 56 POKE&HF3B1,24:POKE&HF3B0,30 57 LOCATE0,24:FORI=1T012:PRINT:NEXT 58 LOCATE12,15:PRINTCHR$(212) ; STRING$ (6,CHR$(220)) ; CHR$(214) 59 PRINTTAB(12) ; CHR$(222) ; SPACE$(6) ; C HR4(221) 60 PRINTTAB(12) ; CHR$(213) ; STRING$(6,C HR$(223)):CHR$(211) 61 VPOKE8198,49:VPOKE8199,49 62 LOCATE0,20:PRINTUSING"MEILLEUR SCO RE #### PAR\ ; SC ; N$:PRINT" TAF'ER A POUR ABANDONNER" 63 IFPLAY(1)00THEN63 64 A$=INPUT$(1):IFA$="A"ORA$="a"THENC P=2000:LOCATE4,19:PRINT"LACHE ! C'EST L'ABANDON !..":G0T077 65 A=STICK(J0):IFA=OTHEN64 66 GOSUB68:BEEP:GOT064 67'Sous Programmes 68 XX=X+(A=7ANDX>1)-(A=3ANDX<5):YY=Y+ (A=1ANDY>1)-(A=5ANDY<5):IFX=XXANDY=YY THENRETURN 69 SWAPA(XX,YY),A(X,Y):SWAPX,XX:SWAPY L'eh de Bernard GENRE et Alain CORDIER, YY:LOCATE2+X*2,Y*2-1+PR:PRINTA$(25) 70 LOCATE2+XX*2,YY*2-1+PR:PRINTA$(A(XX,YY)):CP=CP+1:IFPR=OTHENLOCATE13,16 : PRINTCF'ELSERETURN 71 FORI=1T05:FORJ=1T05:IFA(I,J) (J-1) *5+ITHENRETURNELSENEXTJ,I 72 LOCATE12,9:PRINTA$(26) 73 PLAY"T255L64V3S9M1200XM1$ ; " 74 PLAY"T255L64S9M1200XM2$ ; " 75 IFPLAY(1) OTHEN7S 76 LOCATE6,13:PRINT"VOUS AVEZ REUSSI EN":LOCATE10,19:PRINT"DEPLACEMENTS" 77 LOCATEO,20:PRINTSPACE$(87) 78 IFCP SCTHENSC=CP:LOCATE0,21:INPUT" Votre nom SVP " ; U:LOCATE0,21 79 PRINTSPACE$(30):FORI=1T012:PRINT:N EXT:SWAPA$(25),A$(26):CP=0:GOT038 80 IFPLAY(1), OTHEN80 81 SOUND9,16:SOUND13,14:SOUND12,18:F0 RI=1T010:PRINT:SOUND3,I:FORJ=0T0255ST EP4:SOUND2,J:NEXTJ,I:RETURN 82 PLAY"T120L8S09M700XM1$ ; ":RETURN 83 PLAY"T120L8S09M700XM2$ ; ":RETURN 84 FORI=1T0454:READZ:ZZ=ZZ+Z:NEXT:IFZ Z')80489 1 THENPRINT"Erreur de DATA"



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