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 : 36 - 37  |  Aller à la page   OK
Pages suivantes >
36 37
EDITO Leen TCHIN de B. RATAJCZAK LANGAGE : BASIC MSX TAILLE MEMOIRE : 5,3K C'est une rubrique LISTINGS spéciale « mini-programmes » que nous vous proposons à l'occasion de ce premier numéro. La part encore modeste des programmes écrits pour les PC sera je l'espère compensée dans nos prochaines parutions. Nous faisons pour cela confiance à votre imagination et à vos qualités de programmeur pour nous envoyer vos plus brillantes réalisations ! Tous les langages sont acceptés : BASIC, PASCAL, FORTH,C, LOGO pour ne citer que ceux également disponibles sur MSX. Je pense à cet égard que les deux standards traités dans cette revue peuvent se rendre mutuellement des services importants dans le domaine de la programmation. L'adaptation des listings BASIC d'une machine sur l'autre ne devrait poser aucun problème (BASIC MICROSOFT), et faciliter ainsi une confrontation enrichissante chez les utilisateurs de chaque standard. En ce qui concerne les langages compilés, la compatibilité est presque totale puisque le transfert du programme source (codes ASCII) s'effectue directement par lecture du fichier texte sur la disquette (rappelons la compatibilité MS-DOS/MSX-DOS). Seuls les accès au moniteur devront être modifiés et les routines en langage machine reécrites. Je termine en vous laissant méditer sur la formule suivante : pour mieux connaître votre machine, apprenez à en connaître d'autres. 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 Frédéric Laudet. M. RATAJCZAK (41 ANS) enseigne la technologie en collège, où il anime un club informatique. Emparez-vous des bouteilles du père Pineau tout en évitant ce dernier. Pour y parvenir, vous devez prendre des tabourets, les entasser, et grimper dessus. Le déplacement s'effectue dans les huits directions à l'aide du clavier ou du joystick. Pour saisir un tabouret ou une bouteille, pressez la barre d'espacement ou le bouton de tir de votre manette. Le bonhomme prend l'objet situé devant lui ou à côté de lui. Si deux d'entre eux sont superposés, celui du dessus sera pris en premier. Enfin, il est impossible de saisir une bouteille si on détient un tabouret. Vos forces diminuent avec le temps et après chaque contact avec le père Pineau qui accélère alors son déplacement. A la bonne vôtre... tchin 1'TCHIN**RATAJCZAK B.** (C) 1986 2 KEYOFF:CLS:SCREEN1,2:COLOR11,1,1:DE FINTA-Z:WIDTH31:DIMX(80),Y(80) 3 P=BASE(5):0=BASE(6):D=135:FORI=0T02 3:READA:VPOKED*B+I,A:NEXT:D=165:FORI= 0T023:READA:VPOKED*8+I,A:NEXT:D=176:F 0RI=0T07:READA:VPOKED*8+I,A:NEXT 4 DATA16,16,56,56,56,56,56,56,255,66, 66,66,255,66,66,66,127,62,34,34,34,62, 34,34,255,255,255,255,231,24,255,255 4,3,7,15,23,56,127,255,128,192,224,2
TCHIN LANGAGE : BASIC MSX TAILLE MEMOIRE : 5,3K 40,232,28,254,255,255,1 8,128,128,255, 16,16,16 5 VPOFED+17,97:VPOKE0+16,49:VP0)E0+20, 65:VPOKE0+22,79:VPOtE0,129:VPOKE0+3, 129:VPOI,E0+2,129:VPO[E0+28,113:VPOKE0 +27,17:LOCATE0,0,0 6 PRINT"r -11 MICROS MSX PRESENTE 7 FORI=01-07:VPOFE224*8+I,VPEEI (219*8+ I):NEXT:E=113:F=129:M=219:N=224:FORI= OT0226STEP226:RESTORE8:SWAPM,N:FORU=1 T053:READA:VPOkEP+I+A,M:NEXT:NEXT 8 DATA163,164,165,166,167,169,170,171, 172,173,175,179,181,183,187,197,201, 207,211,213,215,216,219,229,233,239,2 40,241,242,243,245,247,249,251,261,26 5,271,275,277,279,282,283,293,297,298, 299,300,301,303,307,309,311,315 9 DATA3C,7E,5A,7E,3C,18,7E,BD,99,813,7 E,66,66,66,66,E7,3C,7E,78,7E,3C,18,3D, 7F,D8,98,1E,3E,36,67,CO,E0,3C,7E,78, 7E,3C,18,3C,7F,F8,88,38,18,18,18,18,1C,3C,7E,DE,7E,3C,18,BC,FE,18,19,78,7C, 66,E6,3,7 10 DATA3C,7E,DE,7E,3C,18,3C,FE,1F,10, 1C,18,18,18,18,38,3C,FF,5A,7E,3C,19,F F,BC,18,3E,3E,36,36,37,30,70,3C,FF,5A, 7E,3C,98,FF,3D,18,7C,7C,6C,6C,EC,OC, (JE 11 A=16:GOSUB81:8$(2)=SS:A=16:GOSUB81 : A$(3)=S$:A=16:60SU881:8$(3)=S$:A=16: : G0SUB81:A$(1)=S$:A=16:GOSUB81:B$(1)= S$:A=16:GOSUB81:VS=S$:A=16:GOSUB81:W$ =S$ 12 BEEP:PLAY"M20000S1T130L1004812A.A1 biseta de B. RATAJCZAK 26.612A.F12G.E12A.Al2G.Al2A.B12A.Al2G.612A.F12G.E12A.Al2G.Al2A.Al2G.E12A.A 126.812A.R12G.D12A.R12G.B12A.B12G.Al2 A":M=27:N=28:FORI=1T012 13 SWAPE,F:SWAPM,N:VPOFEO+N,E:VPOPEO+M,17:FORU=1T0850:NEXT:NEXT 14 LOCATE2,1,0:PRINT"*PAR RATAJCZAI, B.-(C)-1986*":GOSUB57:LOCATE1,1,0:PRIN T" *1-CLAVIER *2-30YSTIU " 15 X$=INPUT$(1):IFX$1"ANDX$2"TH EN15ELSEIFXS="1"THEN3=OELSE3=1 16 LOCATE1,1,0:PRINT"*A-FACILE*B-MOYE NEC-DIFFICILE" 17 X$=INPUT$(1) 18 IFX$","A"ANDX$',"B"ANDX$C"ANDX$')"a"ANDX$<-"b"ANDX$ "c"THEN17ELSEIF (X$="A"ORX$="8")THENH=-70ELSEIF(Xi="8 "ORX$="b")THENH=-60ELSEH=-40 19 F=6:S=0:C=9:LOCATE1,1,0:PRINT"FORC ES:":LOCATE11,1,0:PRINT" SCORE : 0 ":6080858:L=0:M=0:N=0:W=H:V=0 20 FORI=1TOF:VPOKEP+40+I,3:NEXT 21 SPRITE$(1)=V$:A=2:SPRITE$(2)=8$(2) : X=24:Y=160:PUTSPRITE2,(X0-8),C:PUTS PRITE1,(48,152),11:ONSTRIG 60SUB68,68 : ON SPRITE G0SU878:SPRITEON 22 IFSTICK(J)=OTHEN22ELSESTRIG(J)ON 23 B=(Y/8)*32+(X/8)+P:hX=0:l'Y=0 24 IF VPEEK(B+32) 136ANDVPEEF(B)<136T HENPY=4:60T041 25 IFSTICK(J)=OTHEN41ELSEONSTICK(J)G0 T026,28,30,32,34, 36,33,40 26 A=2:IFVFEEP(B-64)'137THENPY=-4 27 GOT041 28 A=3:IFVFEEK(B-31)<137ANDVFEEL(B-63), 137THENLX=4:1'Y=-4:00T042 29 GOT041 30 A=3:IFVPEEK(B+1)\137ANDVPEEK(B-31)'137THENFX=4:607042 31 GOT041



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