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 : 36 - 37  |  Aller à la page   OK
Pages suivantes >
36 37
EDITO HANOI de Yonel AMORTILLA raereemee>•'e•k• Laing LANGAGE : BASIC MSX TAILLE MEMOIRE : 1,5K Tout d'abord plaignons-nous des grèves politiques de fin et de début d'année dans le secteur public dont le but est de perturber et ruiner le secteur privé. C'est pour cette raison que MICROS ID N°2 a pris plusieurs jours de retard sur sa parution prévue initialement. Regrettons les ventes incohérentes en matière de micro pour cette fin d'année 86. Les publicités abusives et les vendeurs peu consciencieux de certaines boutiques ont largement perturbé de nombreux consommateurs perdus dans la valse des ordinateurs soldés. Ainsi il s'est vendu essentiellement des micros Thomson (complètement condamnés), des Atari ST (dont l'avenir est des plus incertains, les applications inadaptées au grand public et les prix des plus fantaisistes), des CPC Amstrad (fin de série, fin de gamme), etc... Espérons que MICROS ID, soucieux de l'intérêt des utilisateurs, participera aux meilleurs choix pour cette nouvelle année. Concernant cette rubrique Listings, nous vous rappelons, créateurs « en herbe », que vos programmes sont les bienvenus, reflets d'une utilisation productive de votre équipement informatique. Alors un peu de courage, à vos claviers, n'attendez pas le lancement d'un nouveau concours pour nous faire découvrir vos talents. Faites-nous parvenir vos programmes sur cassette, sauvegardés plusieurs fois sur les deux faces, ou sur disquette 5"1/4 ou 3"1/2. Ils doivent être accompagnés d'une notice détaillée, de votre photo (le format carte d'identité convient parfaitement) et d'une courte présentation de vos activités, de vos loisirs, de vous-même. Ne programmez aucune protection afin qu'ils soient facilement listés. Il est en conséquent inutile de joindre un listing à votre envoi. Pour les programmes en langage machine, n'oubliez pas de nous envoyer une copie du source. Avant de l'expédier, vérifiez une dernière fois son bon fonctionnement. Nous publierons périodiquement la liste des programmes retenus par la rédaction. Dans la mesure du possible, nous vous informons par courrier de notre décision ou des modifications à apporter à votre programme. Les programmes déjà parus dans d'autres magazines ou livres seront exclus systématiquement. Voici notre adresse : MIEVA-PRESSE, MICROS ID, Programmes, 95, rue des Moines - 75017 PARIS Eric Minsky-Kravetz Pour ceux qui ne connaîtraient pas encore le cassetête japonais des tours de Hanoî, en voici une version qui vous propose de choisir le nombre d'anneaux entre trois et sept. Le jeu consiste à les faire passer en intégralité d'une tour à l'autre en procédant anneau par anneau, et sans jamais qu'un plus grand se retrouve sur un plus petit. Essayez de réussir en un minimum de coups, en indiquant à l'ordinateur le numéro (entre 1 et 3) de la tour où se trouve l'anneau à déplacer, suivi de celui de la tour de destination. Attention ne vous emmêlez pas les anneaux ! 0 SCREEN2:0PEN"GRP:"AS1:COLOR.1.1:CL S : CIRCLE(174,141),9,15:PAINT(174,141) ,15 1 DRAW"C15S4BM180,160LULULHL2GLGLBU2B R5U 7RF2G2FBU11C1G2L2H2BD2BL5C15H2LHLU 4 BD 4GC1BR11BU3L2HU3ER2FD3BDBR7L2HU3ER 2FD3BUBL3U2RBL8LD2BL2BU9C8U5ERF4R3ERE RE 2FD5GL2HL8GL2HBUBR5":PAINT(170,130), 8:DRAW"C1S4BM173,130R3U2L3D2" 2 COLOR RND(1)*16:PRESET(32,16):PRINT #1,"MICROS MSX PRESENT":PRESET(60,8 0):PRINT#1,"LES TOURS DE HANOI":PRESE T(16,150):PRINT#1,"Par:Yonel Amortila 1986":IFINKEY3=""THEN 2 3 SCREEN1:KEYOFF:WIDTH32:COLOR 15:CLS : LDCATE 4,14:INPUT"COMBIEN DE DISQUES
ZENITH 3-7" ; N:IFN<30RN, 7THEN3ELSECLS:C=0:D IM YN(3),X(3),Y(3) 4 FORX=200T0202 : FORI=0T07:READA:FORJ =XTOX+48STEP8:VPOKEJ#8+I,A:NEXT:NEXT : NEXT:DATA 7,31,63,127,127,63,31,7,255, 255,255,255,255,255,255,255,224,248, 252,254,254,252,248,224:FORI=200T0248 STEP8:READA:VPOKEBASE(6)+I/8,A:NEXT:D ATA113,241,33,129,65,177,209 5 A$(7)="'.':A$(6)=" E±±± +++++++) ":A$(5)=" 4,3868000C") ":A$ (4)=" « HOBBES !'":A$(3)=" A###*w ":A$(2)=" I11>1 ":A$(1)=" I ":LOCATE 15,3:PRINT"(1)" : LOCATE4,12:PRINT"(2)":LOCATE 26,12:P RINT"(3) 6 FORI=1TON:LOCATE10,11-N+I:PRINTA$(1) NEXT:LOCATE 2,1:PRINT"COUPS:" ; C:X (1)=10:X(2)=1:X(3)=16:Y(1)=12-N:Y(2)=2 0:Y(3)=20:YN(1)=Y(1)-1:YN(2)=19:YN(3) =19 7 LOCATE4,22:INPUTA$:1FLEN(A$)\2THEN7 ELSEK=VAL(LEFTS(A$,1)):L=VAL(RIGHTS(Ai,1)):IF(K'30R1 « 1)0R(L>30RU.1)0R(L=K) THEN7ELSEX1=X(K):X2=X(L):Y1=Y(K):Y2=Y N(L):A=VPEEK(6150+Xl+Y1*32):B=VPEEk(6 150+X2+(Y2+1)*32):IFA=320R(AsBANDB 32) THEN7 8 LOCATEX1,Y1:PRINTSPC(14):C=C+1:LOCA TE8,1:PRINTC:LOCATEX2,Y2:PRINTA$((A-2 00)\8+1):BEEP:YN(K)=Y(K):Y(K)=Y(K)+1 : Y(L)=YN(L):YN(L)=YN(L)-1:IF YN(2)=19- N OR YN(3)=19-NTHEN9ELSE7 9 PLAY"L6403ABFDEGDFC":LOCATE 0,0:PRI NT" BRAVO'VOUS AVEZ GAGNE EN" ; C ; "COUPS APP UYEZ SUR EN] POUR ARRETER SUR UNE TOUCHE POUR REJOUER" 10 k$=INKEY$:IFF$=""THEN10ELSEIFk$="N "THENCLS:SCREENO:COLOR 15.4,4ELSERUN de Hervé GERARDIN -..vemeng—weeeLd efflnk„ Lake LANGAGE : BASIC MSX TAILLE MEMOIRE : 4,6KeiVeWe% « geee Hervé GERARDIN est agé de 20 ans. Il est actuellement en terminale F3 (électro-technicien). Pour votre première expérience de la scène, vous allez être confronté à un public qui ne semble pas particulièrement apprécier vos excentricités harmoniques. La malchance a de plus voulu que votre tournée débute dans la petite bourgade d'Aujus, bien connue pour la culture de ses tomates dont le cours s'est récemment effondré... Evitez celles-ci par un habile déplacement latéral, car si vous réussissez la performance de rester plus d'une minute sur les planches, vous serez en mesure de signer le contrat le plus juteux de votre carrière. 5 CLEAR450:DEFINTA-Z:COLOR,1,1 10 SCREENO:WIDTH37:KEYOFF:GOSUB490 15 SCREEN2,2:0PEN"GRP:"AS1 20 A$="v11t25014o4g.rao5f.eo4g2r2ao5c.r3e.":PLAY"XAS ; r1"+LEFTS(A$,24)+"r3o 5L6cr64c.o414a." 25 RESTORE560:FORI=M-(3800TO&H397FSTEP 32:READAt:J=I+VAL(A$):FORK=ITOJ:READA $:VPOKEls,VAL("&h"+A$):NEXT:NEXT 30 COLORI,12:CLS'- scène 35 LINE(0,140)-(256,117),3,BF 40 LINE-(0,74),2,BF 45 CIRCLE(-20,0),70,6,5.4,-.01,1.3 50 CIRCLE(-15,110),73,6,-.01,.84,1.9 : CIRCLE(276,0),70,6„4.1,1.3 55 CIRCLE(271,110),73,6,2.31,-3.156,1.9:PAINT(255,1),6:PAINT(5,1),6 60 DRAW"bm205,65s0a0c1d20r20e5u201209 5bm50,65d20120h5u20r20f5" 65 PAINT(220,82):PAINT(35,82) 70 CIRCLE(213,79),5,14 75 CIRCLE(220,72),2,14 80 CIRCLE(42,79),5,14 85 CIRCLE(35,72),2,14 90 CIRCLE(152,74),7,14:PAINT(152,74), 14:CIRCLE(176,68),4,4:PAINT(176,68),4 : CIRCLE(176,65),4,14„,.4:PAINT(176,6 5),14 95 DRAW"bm133,80c1e3f3h3d2u23c10d2h21 2r812g2u6g212r812h2bm173,80c1e3f3h3d2 u7bm161,78ur3gr2e" 100 LINE(158,58)-(163,65),15,BF 105 DRAW"bm164,62u4fd4fu3fdru2c9r2bec 6e4bm157,61c15u3gdhd2lugu2gu2gu2gulc9 ubhc6h4bm161,51c11r4e" 110 PUTSPRITE14,(156,51),9,2 115 PUTSPRITE15,(153,65),5,11 120 CIRCLE(90,63),3,13:PAINT(90,63),1



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