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 : 38 - 39  |  Aller à la page   OK
Pages suivantes >
38 39
*IMW » 1/1, 11r H 11 N LANGAGE : BASIC MSX TAILLE MEMOIRE : 5,3K 32 A=3:IFVPEEK(B+1)<137ANDVPEEK(B+33)e,137THENKX=4:10=4:60T042 33 GOT041 34 A=2:IFVPEEK(B+32)<137THENKY=4 35 GOT041 36 A=1:IFVPEEK(B-1)<,137ANDVPEEK(B+31) <137THENKX=-4:KY=4:G0T042 37 GOT041 38 A=1:IFVPEEk(B-1)‹,137ANDVPEEK(B-33) <137THENKX=-4:60T042 39 GOT041 40 A=1:IFVPEEF(B-33)<137ANDVPEEK(B-65 P,137THENKX=-4:KY=-4:60T042 41 Y=Y+KY*2:PUTSPRITE2,(X-KX,Y-10-8), C:GOT043 42 X=X+KX*2:Y=Y+KY*2:SPRITE$(2)=AS(A) : PUTSPRITE2,(X-KX,Y-KY-8),C 43 SWAPV$,WS:SPRITE$(1)=VS:IFXNORRND(1)*9ZTHENZ=S 52 G0SUB56:LOCATE1,1,0:PRINT" SCORE:" ; S:" RECORD:" ; Z:GOSUB57:GOSUB56:LOCAT E8,1,0:PRINT"ENCORE(O/N)" 53 X$=INPUT$(1) 54 IFXS<>"0"ANDX$, flo"ANDXS,>"N"ANDX$ <>"n"THEN53ELSEIFX$="0"ORX$="o"THENGO SUB58:607016 55 CLS:END 56 LOCATE1,1,0:PRINT" ":RETURN 57 FORI=1T08000:NEXT:RETURN 58 LOCATE0,3,0:PRINT" JelinIMIU" ; 59 PRINT"Keililieefflillà dMç ççç ZZZZ Z44 44 Z4 ZilMillgç Z44êZZ ç4ç ZZZZ Z çZZZ @ ". 4 60 PRINT" ZZZ @ ZZ4e ZZZ @ ene ZZZ eZZZZêZZUZZZZeUZZ4e. ZZZZZZZeZZ4 êZç Z ê Zê ZZç ê424 @ Z @ 4Zé çZZ Z @ @ eZe é e ZZZZ 61 PRINT" é eZe é ê 474Z4ZéZZZZ Z ZêZZZêZ ZZZ4ZUZZZç é éZZ ê çZZZ ê 4Zçê êçZ Z ê ZZZZ ê 4ZZeê êeZZ4 ê ZZZZ ZZZZeê êeAa4.14. ZZZ 4Z4ZZZZZZZZZZZZZZZZZZ4Z4ZZ444Z" ; 62 0=1:RETURN 63 LOCATE0,3,0:PRINT" e4W1" ; 64 PRINT"eiMilFIMMKKKW4U ç Z Z ççç Z 3ilifflili14 ZZ ZZZ ZZ ZMile4MUZ ZZ ZZ ZZç ZZ" ; 65 PRINT"ç çZZ çZZZ ZZZZ ZZZZ ZZZZ ZZ44Z ZZZZZ ZZ4Z44ZZe4ZZZZZZZê4ZZ4 ZZZZêZZZZ4ZZç ê çZ ê Zç ê
RELIVA 444 ç444 é 44ç ê ç44 NNM ê 44 ê 44 é eZZe é 66 PRINTU4 é 44 ê 4444é44ê4 44e4444é4444é444e44e4444 e4ç ê ê ç4e 44ç é44 é é é 44e ç44e é e e ; Ue é e4 4e e é44 ê ee é ee é 44e p e44 444444444444444444444444444444" ; 67 0=0:F=6:L=0:RETURN 68 T=A-2:STRIG(J)OFF:SPRITEOFF:IFC=8T HEN74'SAISIE 69 IFVFEEI (B+T-32)=137AND(VPED(B+T-6 4)<, 135ANDVPEEF(B+T-64) 137)THENBEEP : VPOFEB+T-32,32:C=8:G0T076 70 IFVFEEF (B+T-32)=135THENS=S+2*(H+13 0)+10*F:PLAY"V10L6403A04A03A":LOCATE2 1,1,0:PRINTS:VPOkEB+T-32,32:L=L+1:GOT 076 71 IFVPEE(B+T)=137AND(VPEEi (B+T-32) 135ANDVPEEF(B+T-32)'137)THENBEEP:VP OKEB+T,32:C=8:607076 72 IFVUEV(B+T)=135THENS=S+2*(H+130)+ 10*F:PLAY"V13L6403A04A03A":LOCATE21,1, 0:PRINTS:VPOPEB+T,32:L=L+1:60T076 73 GOT076 74 IFVPEEF(B+T-32)=32ANDVPEEk (B+T)13 6THENVPOkEB+T-32,137:BEEP:C=9:G0T076 75 IFVPEEK(B+T)=32ANDVPEEk(B+T+32),13 6THENVPffl'EB+T,137:BEEP:C=9 76 IFL=18THENF=0 77 STRIG(J)ON:SPRITEON:RETURN 78 STRIG(J)OFF:SPRITEOFF:BEEP:SOUND6, 15:SOUND7,7:SOUND8,16:S0UND9,16:SOUND 10,16:SOUND12,16:SOUND13,0:FORI=1T013 : SOUNDI,O:NEXT:BEEP:S0UND8,13:FORI=1T 0250STEP3:FORU=31-0250STEPI:SOUNDO,U:N EXT:NEXT:F=F-1:IF F'OTHENF=0 79 VPOkEP+41+F,32 80 X=24:Y=152:FY=4:PUTSPRITE2,(24,152), C:W=H:V=0:PUTSPRITE1,(48,152),11:ST RIG(J)ON:SPRITEON:INTERVALON:RETURN 81 S$="":F0RI=1TOA:READAX:Se=5$+CHRI (VAL("M-1"+AS)):NEXT:RETURN'CREAT.LUTIN LANGAGE Routine LM chargée par BASIC TAILLE MEMOIRE : 2,9K Len de Roland ANDRES PDG d'une société de mécanique et retraité depuis 2 ans, Roland ANDRES est également instructeur pour pilotes d'avion et de planeur. RELIVA est un utilitaire destiné à faciliter la mise au point et la correction des programmes écrits en BASIC. Il permet de retrouver instantanément toutes les lignes qui font appel à une variable donnée, ou bien qui renvoient à une ligne donnée. Le mode d'emploi inclu dans le programme s'affiche à son lancement. 10'************** 15'*** *** 20'*** RELIVA *** 25'*** *** 30'lit* ROLAND *** 35'*** *** 40'*** ANDRES *** 45'*4 ** 50'*$ SUR MSX ** 55'** *4 60/************** 65/**** 1986 **** 70 lat**********# 100 IFFEEF(&HFE7B)=247THENCLEAR200,&H DD00:X=1 ELSE CLEAR200,&HF1CO:X=0 105 CLS:LOCATE0,1:PRIN "MICRO MSX pré sente" 110 KEYOFF:LOCATE10,5:PRINTSTRING*(15, b1) 120 LOCATE10,6:PRINTCHR*(240) ; " R E L I V A ":CHR$(240) 130 LOCATE10,7:PRINTSTRING*(15,61) 140 LOCATE11,10:PRINT"PAR R.ANDRES" 150 LOCATE7,15:PRINT"45700 VILLEMA



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