L'Ordinateur Individuel n°45 février 1983
L'Ordinateur Individuel n°45 février 1983
  • Prix facial : 20 F

  • Parution : n°45 de février 1983

  • Périodicité : mensuel

  • Editeur : Groupe Tests

  • Format : (202 x 281) mm

  • Nombre de pages : 254

  • Taille du fichier PDF : 257 Mo

  • Dans ce numéro : création artistique et informatique... tout un programme !

  • Prix de vente (PDF) : gratuit

Dans ce numéro...
< Pages précédentes
Pages : 158 - 159  |  Aller à la page   OK
Pages suivantes >
158 159
logiciel il était une fois l'espace... intergalactique du Vic-20 Les grands espaces intergalactiques cachés dans l'écran d'un Vic-20 ne sont pas toujours aussi vides qu'ils paraissent. (Ah ! vous aviez oublié de brancher ?). Ils recèlent en réalité de nombreux météorites insolites. Pour vous en convaincre, entrez le court programme Basic que nous vous présentons ; un météorite se précipite déjà sur vous. En le heurtant, vous serez immédiatement pulvérisé (mais lui aussi !). « Météorites » est un jeu d'adresse où vous tentez d'éviter les météorites rencontrés sur votre chemin dans les trois espaces intergalactiques (un de chaque couleur). La vitesse et le nombre de météorites augmentent de plus en plus. Sur la liste du programme, les signes cabalistiques sont malheureusement propres au Vic-20 L'Ordinateur Individuel 158 n'45 Février 83
Programme Basic de météorites 1 GOSUB5000 2 GOSUB1000 3 GOSUB3000 10 POKE36869.255 20 REM *DEBUT DU JEU* 30 FORNB=1705STEP2 POKE36879,7(MB) 40 FORVI=10070-125STEP-0.75 50 PRINT IFFEEK(1)=RT THEN500 55 POKEI,UPOKE1+30720,R(NB> £0 1FPEEK(197)=27 THEN200 70 IFPEEK(197ï=26 THEN300 80 FOR0=1TOVI NEXT:POKES6875,0 90 FORT=1TONE:85=INT(RND(1>*22+8164 POKEAS,RT, NEXT 100 POKEI,32 NEXT : NEXT 110 GOT02000 198 REM*SOUS-ROUTINES*DEPL.VAISS. EXPLOS. 199 REM*A DROITE* 200 IFFEEK(1+1):DPTTHEN250 210 POKE1,32 1=1+1, 0070500 250 POK£36875,230, POKE1,32 1=I+1, POKEI,EPOKEI+30720.R04B> 260 GOT070 299 REM *A GAUCHE* 300 IFFEEK(1-1)<>RTTNEN350 310. POKEI,32 I=I-1:001.0500 350 POKE36875,200:ROKE1'32-I=1-1'ROKEI,UPOKE1+30720,R(NE› 360 GOT080 499 REM *EXPLOSION* 500 POKE36877,200 510 POKE1,42 POKEI+30728A3(NB) 520 FOR0=170500NEXT 530 POKE3£877,0 540 CO=C0+1 550 NEXT NEXT 999 REM*PRESENTFTION* 1000 PRINT"lg" POKE36879,110 1010 FORF=1703-PRINT MUT 1020 PRINT"**** e METEORITES i le.. 1030 FORF=1T04 PRINT NEXT 1035 PRINT:PRINT PRINT" GAUCHE(=X V=)1ROITE" 1040 FORF=1T09:PRIPT NEXT 1045 PRINT" eTAPEZ UNE TOUCHE" 1070 GETSSIIFS$=""THEN1070 1080 RETURN 2000 REM *FIN DU JEU* 2020 PRINT'e2030 FORX=1T010-FORO=170150'NEXT PRINT:NEXT 2040 PRINT"VOUS AVEZ HEURTE"CO 2050 PRINT" METEORITES" 2060 PRINLPRINT, PRINT, PRINT" 2JNE AUTRE ? " 2070 FORWE=1T010, FOR0=1T0150:NEXT, PRINT:NEXT 2080 IFPEEK(197)=52THEN2110 2090 IFPEEK(197)=28THEN2120 2100 00T02080 2110 PRINT"O.K."'CLR'GOTO1 2120 PRINT"=":POKE36879,27 2130 POKE36869,240 2140 PRINT"1" END 3000 REM*INITIALIS.* 3020 REM POK136869,255 3030 POKE36878,15 3040 1=7910 3050 E=0'F=0 3060 RT=1 3070 R(1)=0:R(3)=0:K5)=7 3080 G(1)=2 G(3)=3:G(5)=2 3090 T(1)=931.(3)=76:T(5)=110 3100 PRINT'1" 3110 FORF=1T023:PRINT:NEXT 3120 RETURN 4999 REM *CARACTERES**PROGRAMMABLES* 5000 POKE52,28'POKE56,28'CLR 5010 8=7168:F0RJ-48701'4511 POKEI,PEEK:(I+25600)-NEXT 5020 FORL=07015, READF:POKER+L.F.NEXT 5030 DATA126,60,231,231,189.189,24.24,24,60,126,102,102,102,66,66 5040 00T02 READY. n'45 Février 83 159 ainsi, le signe d'effacement d'écran devient un petit coeur, notamment sur la ligne 2120 du programme ci-contre). Ce programme fait appel à une particularité du Vic : le vaisseau spatial et les météorites sont fabriqués à l'aide du générateur de caractères programmables. Mais, si par manque de place ou pour une autre raison, vous ne voulez pas vous en servir, il suffit d'ôter la ligne I et de remplacer les variables E et RT dans les lignes 3050 et 3060 par un caractère « normal » (je suggère E = 88 et RT = 160 : le vaisseau devient alors un trèfle et les météorites de gros pavés blancs). Il me reste à vous souhaiter de ne pas trop heurter de météorites. Prudence et dextérité vous y aideront ! Philippe Henches L'Ordinateur Individuel



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 :


L'Ordinateur Individuel numéro 45 février 1983 Page 1L'Ordinateur Individuel numéro 45 février 1983 Page 2-3L'Ordinateur Individuel numéro 45 février 1983 Page 4-5L'Ordinateur Individuel numéro 45 février 1983 Page 6-7L'Ordinateur Individuel numéro 45 février 1983 Page 8-9L'Ordinateur Individuel numéro 45 février 1983 Page 10-11L'Ordinateur Individuel numéro 45 février 1983 Page 12-13L'Ordinateur Individuel numéro 45 février 1983 Page 14-15L'Ordinateur Individuel numéro 45 février 1983 Page 16-17L'Ordinateur Individuel numéro 45 février 1983 Page 18-19L'Ordinateur Individuel numéro 45 février 1983 Page 20-21L'Ordinateur Individuel numéro 45 février 1983 Page 22-23L'Ordinateur Individuel numéro 45 février 1983 Page 24-25L'Ordinateur Individuel numéro 45 février 1983 Page 26-27L'Ordinateur Individuel numéro 45 février 1983 Page 28-29L'Ordinateur Individuel numéro 45 février 1983 Page 30-31L'Ordinateur Individuel numéro 45 février 1983 Page 32-33L'Ordinateur Individuel numéro 45 février 1983 Page 34-35L'Ordinateur Individuel numéro 45 février 1983 Page 36-37L'Ordinateur Individuel numéro 45 février 1983 Page 38-39L'Ordinateur Individuel numéro 45 février 1983 Page 40-41L'Ordinateur Individuel numéro 45 février 1983 Page 42-43L'Ordinateur Individuel numéro 45 février 1983 Page 44-45L'Ordinateur Individuel numéro 45 février 1983 Page 46-47L'Ordinateur Individuel numéro 45 février 1983 Page 48-49L'Ordinateur Individuel numéro 45 février 1983 Page 50-51L'Ordinateur Individuel numéro 45 février 1983 Page 52-53L'Ordinateur Individuel numéro 45 février 1983 Page 54-55L'Ordinateur Individuel numéro 45 février 1983 Page 56-57L'Ordinateur Individuel numéro 45 février 1983 Page 58-59L'Ordinateur Individuel numéro 45 février 1983 Page 60-61L'Ordinateur Individuel numéro 45 février 1983 Page 62-63L'Ordinateur Individuel numéro 45 février 1983 Page 64-65L'Ordinateur Individuel numéro 45 février 1983 Page 66-67L'Ordinateur Individuel numéro 45 février 1983 Page 68-69L'Ordinateur Individuel numéro 45 février 1983 Page 70-71L'Ordinateur Individuel numéro 45 février 1983 Page 72-73L'Ordinateur Individuel numéro 45 février 1983 Page 74-75L'Ordinateur Individuel numéro 45 février 1983 Page 76-77L'Ordinateur Individuel numéro 45 février 1983 Page 78-79L'Ordinateur Individuel numéro 45 février 1983 Page 80-81L'Ordinateur Individuel numéro 45 février 1983 Page 82-83L'Ordinateur Individuel numéro 45 février 1983 Page 84-85L'Ordinateur Individuel numéro 45 février 1983 Page 86-87L'Ordinateur Individuel numéro 45 février 1983 Page 88-89L'Ordinateur Individuel numéro 45 février 1983 Page 90-91L'Ordinateur Individuel numéro 45 février 1983 Page 92-93L'Ordinateur Individuel numéro 45 février 1983 Page 94-95L'Ordinateur Individuel numéro 45 février 1983 Page 96-97L'Ordinateur Individuel numéro 45 février 1983 Page 98-99L'Ordinateur Individuel numéro 45 février 1983 Page 100-101L'Ordinateur Individuel numéro 45 février 1983 Page 102-103L'Ordinateur Individuel numéro 45 février 1983 Page 104-105L'Ordinateur Individuel numéro 45 février 1983 Page 106-107L'Ordinateur Individuel numéro 45 février 1983 Page 108-109L'Ordinateur Individuel numéro 45 février 1983 Page 110-111L'Ordinateur Individuel numéro 45 février 1983 Page 112-113L'Ordinateur Individuel numéro 45 février 1983 Page 114-115L'Ordinateur Individuel numéro 45 février 1983 Page 116-117L'Ordinateur Individuel numéro 45 février 1983 Page 118-119L'Ordinateur Individuel numéro 45 février 1983 Page 120-121L'Ordinateur Individuel numéro 45 février 1983 Page 122-123L'Ordinateur Individuel numéro 45 février 1983 Page 124-125L'Ordinateur Individuel numéro 45 février 1983 Page 126-127L'Ordinateur Individuel numéro 45 février 1983 Page 128-129L'Ordinateur Individuel numéro 45 février 1983 Page 130-131L'Ordinateur Individuel numéro 45 février 1983 Page 132-133L'Ordinateur Individuel numéro 45 février 1983 Page 134-135L'Ordinateur Individuel numéro 45 février 1983 Page 136-137L'Ordinateur Individuel numéro 45 février 1983 Page 138-139L'Ordinateur Individuel numéro 45 février 1983 Page 140-141L'Ordinateur Individuel numéro 45 février 1983 Page 142-143L'Ordinateur Individuel numéro 45 février 1983 Page 144-145L'Ordinateur Individuel numéro 45 février 1983 Page 146-147L'Ordinateur Individuel numéro 45 février 1983 Page 148-149L'Ordinateur Individuel numéro 45 février 1983 Page 150-151L'Ordinateur Individuel numéro 45 février 1983 Page 152-153L'Ordinateur Individuel numéro 45 février 1983 Page 154-155L'Ordinateur Individuel numéro 45 février 1983 Page 156-157L'Ordinateur Individuel numéro 45 février 1983 Page 158-159L'Ordinateur Individuel numéro 45 février 1983 Page 160-161L'Ordinateur Individuel numéro 45 février 1983 Page 162-163L'Ordinateur Individuel numéro 45 février 1983 Page 164-165L'Ordinateur Individuel numéro 45 février 1983 Page 166-167L'Ordinateur Individuel numéro 45 février 1983 Page 168-169L'Ordinateur Individuel numéro 45 février 1983 Page 170-171L'Ordinateur Individuel numéro 45 février 1983 Page 172-173L'Ordinateur Individuel numéro 45 février 1983 Page 174-175L'Ordinateur Individuel numéro 45 février 1983 Page 176-177L'Ordinateur Individuel numéro 45 février 1983 Page 178-179L'Ordinateur Individuel numéro 45 février 1983 Page 180-181L'Ordinateur Individuel numéro 45 février 1983 Page 182-183L'Ordinateur Individuel numéro 45 février 1983 Page 184-185L'Ordinateur Individuel numéro 45 février 1983 Page 186-187L'Ordinateur Individuel numéro 45 février 1983 Page 188-189L'Ordinateur Individuel numéro 45 février 1983 Page 190-191L'Ordinateur Individuel numéro 45 février 1983 Page 192-193L'Ordinateur Individuel numéro 45 février 1983 Page 194-195L'Ordinateur Individuel numéro 45 février 1983 Page 196-197L'Ordinateur Individuel numéro 45 février 1983 Page 198-199L'Ordinateur Individuel numéro 45 février 1983 Page 200-201L'Ordinateur Individuel numéro 45 février 1983 Page 202-203L'Ordinateur Individuel numéro 45 février 1983 Page 204-205L'Ordinateur Individuel numéro 45 février 1983 Page 206-207L'Ordinateur Individuel numéro 45 février 1983 Page 208-209L'Ordinateur Individuel numéro 45 février 1983 Page 210-211L'Ordinateur Individuel numéro 45 février 1983 Page 212-213L'Ordinateur Individuel numéro 45 février 1983 Page 214-215L'Ordinateur Individuel numéro 45 février 1983 Page 216-217L'Ordinateur Individuel numéro 45 février 1983 Page 218-219L'Ordinateur Individuel numéro 45 février 1983 Page 220-221L'Ordinateur Individuel numéro 45 février 1983 Page 222-223L'Ordinateur Individuel numéro 45 février 1983 Page 224-225L'Ordinateur Individuel numéro 45 février 1983 Page 226-227L'Ordinateur Individuel numéro 45 février 1983 Page 228-229L'Ordinateur Individuel numéro 45 février 1983 Page 230-231L'Ordinateur Individuel numéro 45 février 1983 Page 232-233L'Ordinateur Individuel numéro 45 février 1983 Page 234-235L'Ordinateur Individuel numéro 45 février 1983 Page 236-237L'Ordinateur Individuel numéro 45 février 1983 Page 238-239L'Ordinateur Individuel numéro 45 février 1983 Page 240-241L'Ordinateur Individuel numéro 45 février 1983 Page 242-243L'Ordinateur Individuel numéro 45 février 1983 Page 244-245L'Ordinateur Individuel numéro 45 février 1983 Page 246-247L'Ordinateur Individuel numéro 45 février 1983 Page 248-249L'Ordinateur Individuel numéro 45 février 1983 Page 250-251L'Ordinateur Individuel numéro 45 février 1983 Page 252-253L'Ordinateur Individuel numéro 45 février 1983 Page 254