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 : 40 - 41  |  Aller à la page   OK
Pages suivantes >
40 41
1 4 RELIVA NDEUR":LOCATE12,20:PRINT"AOUT 1986" 160 FORI=1T02500:NEXT 170 CLS:LOCATE0,1:PRINT"Ce programe B ASIC est un chargeur":PRINT"pour un u tilitaire machine." 180 PRINT:PRINT"Il doit etre lancé av ant de charger le programe BASIC à a nalyser." 190 PRINT:PRINT"RELIVA permet de retr ouver les":PRINT"lignes dans lesquell es se trouve une":PRINT"variable donnée ou qui renvoient à une ligne don née." 200 PRINT:PRINT"Pour cela il suffit de taper : ":PRINT:PRINT"CMD espace NOM de la variable (1 ou 2caractères) EN TER pour la recherche d'une variable 210 PRINT:PRINT"CMD espace NUMERO de la ligne ENTER pour la recherche des renvois (goto, gosub,etc) correspond ants." 220 PRINT:PRINT"Taper ENTER pour cont inuer"M=INPUT$(1) 230 CLS:LOCATE0,1:PRINT"Pour que cet utilitaire fonctionne correctement le programe BASIC à ana-lyser ne doit pas comporter de numérode ligne infé rieur a 10 ou supérieur a 32767." 240 PRINT:PRINT"Pour la recherche d'u ne variable ne mentionner que des le ttres ou des chiffres, a l'éxclusi on des signes spécifiques ($,#,etc 250 PRINT:PRINT"Le programme RELIVA e st implanté en &HDDOO s'il est utili sé avec un lec- teur de disque ou en &HF1C0 s'il n'y a pas de lecteur de d isque." 260 PRINT:PRINT"Le programme BASIC pe ut etre lancé":PRINT"sans probléme à condition qu'il ne comporte pas de sous-routine machine s'implantant à 1 a même adresse." 270 PRINT:PRINT"Taper ENTER pour cont inuer"XS=INPUT$(1) 280 POKE&HFEOD,&HC3 290 IF X=1 THEN330 300 FORI=&HF1COTO&HF2F7 310 READAS:A=VAL("&H"+AS) 320 POKEI,A:NEXT:POKE&HFEOE,&HCO:POKE &HFEOF,&HF1:END 330 FORI4ADDOOTO&HDE37 LANGAGE : Routine LM chargée par BASIC TAILLE MEMOIRE : 2,9K lek de Roland ANDRES 340 READAS:A=VAL("&H"+AS) 350 POKEI,A:NEXT:POKE&HFEOE,O:POKE&HF EOF,MIDD:END 360 DATA00,F3,11,20,F4,1A,FE,20,28,01, C9,13,1A,FE,OF,28,02,FE,IC,F5,DD,E1, 21,03,80,4E,23,46,23,7E,FE,00 370 DATA20,0A,23,7E,FE,00,28,5C,23,23, 18,ED,FE,22,20,08,23,7E,FE,22,20,FA, 18,E4,FE,E6,20,08,23,7E,FE,00 380 DATA20,FA,18,DE,FE,84,20,02,18,F2, FE,OC,20,04,23,23,18,CA,FE,OF,20,03, 23,18,C3,FE,1C,20,04,23,23,18 390 DATABB,FE,1D,20,06,23,23,23,23,18, 81,FE,1F,20,0A,23,23,23,23,23,23,23, 23,18,A3,FE,OE,20,22,23,23,18 400 DATA98,18,18,98,23,7E,FE,00,28,20, 9D,FB,C3,1D,41,E5,C5,C5,D9,C1,E1,D1, CD,12,34,3E,20,DF,D9,18,E2,F5 410 DATADD,E5,F1,28,3F,F1,EB,BE,E8,20, D7,13,1A,FE,00,28,07,23,7E,EB,BE,EB, 28,87,23,C8,7E,20,15,3E,D0,86 420 DATA30,10,7E,FE,3A,28,08,FE,38,28, 07,FE,00,28,03,28,18,AF,28,28,3E,BF, 86,30,08,3E,A5,86,38,03,23,18 430 DATAA0,23,18,AB,F1,FE,89,28,0E,FE, 8D,28,0A,FE,DA,28,06,FE,A1,28,02,18, 88,23,7E,FE,OE,28,09,23,7E,FE 440 DATA0E,28,03,28,18,EF,23,13,E5,D5, D9,C1,0A,57,03,0A,5F,C1,0A,67,03,0A, 6F,CD,20,00,08,03,0A,FE,2C,08 450 DATA20,04,D9,23,18,BC,08,28,04% 89, 23,18,82,D9,18,23,18,C5,00,00,00,00, 00,00
AWELE LANGAGE : BASIC MSX TAILLE MEMOIRE : 3,9K Agé de 23 ans, Claude MASSE est étudiant en DEA de physique nucléaire et espère pouvoir se consacrer à la recherche. Joueur de bridge acharné, il aime aussi le sport, en particulier le vélo, et la musique. Le programme qu'il vous propose permet de jouer à l'Awélé, également appelé Kalah. D'origine africaine, le jeu européen qui lui ressemble le plus est le jeu de dames. En voici les règles : Deux joueurs s'affrontent avec chacun devant eux une rangée de six trous représentant leur camp. Chaque trou peut contenir des pierres (4 au départ), que chaque joueur doit essayer de capturer en procédant à tour de rôle de la façon suivante : il prend toutes les pierres contenues dans un de ses trous, et, en se déplaçant dans le sens inverse des aiguilles d'une montre, laisse tomber chacune d'entre elles successivement dans les trous suivants. Quand leur main ne contient plus de pierre, il capture le contenu du dernier trou si celui-ci se trouve dans le camp adverse et s'il renferme deux ou trois pierres après la distribution. Dans ce cas, il passe au trou précédent celui de la prise et refait le même raisonnement sinon passe son tour. Un joueur gagne quand il a recueilli la moitié des pierres plus une, soit ving-cinq. Le match est déclaré nul quand le nombre de pierres restantes est inférieur à six, car les captures deviennent alors presque impossibles à moins d'une grave faute d'inattention. Il faut jouer de façon à ce qu'il reste toujours à l'adversaire une possibilité de jouer, c'est-à-dire qu'il reste des pierres dans son camp, à moins bien sûr de gagner immédiatement. Le programme vous propose trois options : — Deux joueurs bien vivants s'affrontent. — Vous défiez l'ordinateur. — Vous laissez jouer les deux adversaires à votre machine. Choisissez ensuite le niveau de difficulté entre 1 et 8. Déplacez le curseur situé en bas de votre camp afin qu'il pointe vers la case désirée à l'aide des flèches (« =/= ») puis validez votre choix avec la flèche du haut ; le programme fera le reste... 1 CLEAR900:DEFINTA-Z:DEFSNGR:DIMRI(1), J (11,8), I (8), G (1,8), R (8) 2 RI (1)=1E+60:RI (0)=-1E+60 : AS. » I I I I I I 1.:B$=. L- 3 FORP=1T012 : CS=C$+" 0000"+CHRS (30) +ST RINGS (4,29) : DS=D$+" "+CHRS (30) +STR INGS (4,29) : NEXT 4 DEFUSR=342 : ONINTERVAL=30GOSUB70 5'I Présentation 6 OF'EN"GRF' : "AS1 : COLOR10,4,3 : SCREEN2,1 : FORM=62T063 : FORI=OTO1 : PSET (I, M) de Claude MASSE 7 DRAW"R31E4M+11,-37R4M+1,18M+14,-18R 4M-10,308L4M+5,-16M-12,16M-1,-19M-8,2 866L338R718U35M-7,20BR4M+7,-20BR17L96 6D8F6R10M+5,-14E2R2BU4BR1L5G3M-5,13L5 H4U4E4R6BR178U4R8F6D8G6L8H6U8E6BR2BD4 R4F4D4G4L4H4U4E4BR288U4L8G4D4F5D162L8 BL1BD4R11E5U3H5U2E1R5":NEXTI,M 8 DRAW"BM145,29R5M+1,23M+15,-23R5M-9, 31R13E5U6H9U6E5R15M+5,13M+10,-13R5M-1 3,18M+8,18L5M-6,-13M-9,13L5M+12,-18M- 5,-13L10G2D3F9D8G9L20M+6,-22M-14,22M- 2,-23M-5,23L5M+9,-36":PAINT(180,46) 9 COLOR13:DRAW"BM124,56G1BM49,58":PRI NT#1,"& C1.MASSE":COLOR2:PSET(132,69) : PRINT#1,"PRESENTENT"DRAW"BL79":PRI NT#1,"PRESENTENT":PLAY"T210S8M2L8":F0 RB=50T096:PLAY"N=B ; ":NEXT 10 FORI=135T0138:FORR=62T065:DRAW"C7B M=R : 1 =1:M+2,-7NR14M+7,-23M+10,30BU308 L3M+10,30M+5,-18M+5,18M+10,-308R5NR20 D15NR15D15R2OBR5NU3OR2OBR5NR2OU15NR15 U15R20":NEXTR,I 71eMeeleillttellr Lek (Suite des listings page 44)



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