L'Ordinateur Individuel n°47 avril 1983
L'Ordinateur Individuel n°47 avril 1983
  • Prix facial : 20 F

  • Parution : n°47 de avril 1983

  • Périodicité : mensuel

  • Editeur : Groupe Tests

  • Format : (202 x 281) mm

  • Nombre de pages : 262

  • Taille du fichier PDF : 243 Mo

  • Dans ce numéro : intelligence artificielle, robotique, insertion des handicapés... un assistant efficace.

  • Prix de vente (PDF) : gratuit

Dans ce numéro...
< Pages précédentes
Pages : 236 - 237  |  Aller à la page   OK
Pages suivantes >
236 237
Programme pour Vic-20 (suite) 31 NEXT 32 FORY=1701000STEP10 33 FORR=100T0500 STEP13 34 FORW=10070500STEP13/0.7 35 CIRCLE2,512,512,R,W : 36 NEXT 43 FORS=1T02500:NEXTS:RETURN 44 SCNCLR 45 ORRPHIC2 46 FORC=1T0560 47 FORD=400T050STEP-65 48 FORE=50T0400STEP35 49 CIRCLE2,512,512,D,E 50 NEXT 51 F0RF=1T0450 52 0=150 53 FORH=50T0400STEP15 54 CIRCLE2,512,512,H,0 55 NEXT 56 CIRCLE2,512/512,50,50 57 CIRCLE2,512,512,400,400 58 CIRCLE2,512,512,400,50 59 CIRCLE2,512,512,50,400 60 PRINT2,512,512 61 PRINT2,0,1023:FORS=1T02500:NEXTS:RETURN 62 SCNCLR 63 GRAPHIC2 64 FORI=1T050 65 FORJ=700T0503TEP-65 66 FORK=50 TO400STEP35 67 CIRCLE2,512,512,J,K 68 NEXT 69 FORL=170450 70 M=150 71 FORN=5070400STEP15 72 CIRCLE2,512,512,N,M 73 NEXT 74 CIRCLE2,512,512,50,50 75 CIRCLE2,512,512,400,400 76 CIRCLE2,512,512,400,50 77 CIRCLE2,512,521,50,400 78 PRINT2,512,512 79 PMINT2,0,1023:FORS=1T02500 NEXTS:RETURN 80 SCNCLR 81 GRAPHIC2 82 FOE:0=170499 83 FORP=245T0367STEP23 64 FOR0=367700 STEP-14 85 CIRCLE2,512,512,P,0 86 CIRCLE2,512,512,0,P 87 NEXT 88 FORS=1T02000:NEXTS:SCNCLR:ORRPHIC2 89 GRAPHIC2:COLOR1,14,7,5 90 FORR=0701020STEP 9 91 DRAW2,510,473T0R,1020 92 NE ; TR 93 >RW2,0,473701020,473 94 REGIONO 95 R1=700 96 E1=400 97 FORR=11.0100STEP7:F1=INT(R0.8) 98 CIRCLE2,R1,B1,R,F1 Programme pour Vic-20 (fin) 99 1:11=914.15 100 B1'.E1-15 101 NEXTR 102 A1r.INT(RND<0>*1000) 103 E1=INT(RNO(0)*460) 104 FOR8.1701000j1EXTS:RETURN 105 SONCLR:GRAPHIC2 106 FI:RU..0.701023 STEP60 107 >RW2,1023,117011:0 108 DRAW2,1023,117011,0 109 HUTU 110 FORI.1023TOOSTEP-30 111 DRA112,1023,1701,0 112 DP*12,0,1701:1023 113 NEXTI 114 CIRCLE2,512512,166,238 115 RA11172,512,512 116 CIRCLE2,512,512,200,281 117 CIRCLE2,512,512:230,329 118 FORS=.1702500:NEXTS 119 RETURN 120 SCNCLR:ORAPHIC2 125 CIRCLE2,512,512,105,127 126 DRAW2,290,30070726,300 129 DRAW2,290,30070290,360 130 DRAW2,190,15070837,150 131 PRAN2,190:1507090,300 132 PRAW2,90,3007090,360 133 BRAN2,290,3607090,360 134 DRAW2,250,73570770,735 135 DRAW2,726,30070726,360 136 DRAW2,837,15070940,300 137 PRAN2,940,30070940,360 138 BRRH2,726,360T0940,360 139 BRAW2,390,30070250,735 140 DRAW2,637300T0770,735 141 BRAW2,250,73570250,800 142 DRAW2,770,73570770,800 143 DRAW2,250,80070770,800 144 CIRCLE2,580,552,12,16 145 PAINT2,580,552 146 C1RCLE2,584,500,11J15 147 PMINT2)584,500 148 CIRCLE2,556,457,12,16 149 PAINT2,556,457 150 CIRCLE2,556,457,12,16 152 CIRCLE2,480,423,12,16 153 PRINT2,480,423 154 CIRCLE2,450,400,12,16 155 PAIN72,450,480 156 CIRCLE2,450,530,12A6 157 PRINT2,450,530 158 CIRCLE2,480,590,12A6 159 PAINT2,480,590 160 CIRCLE2,530609,12,16 161 PRINT2,530,609 162 PRINT2,512,900 163 CIRCLE"2,524,423,11,16 174 PRINT2,524,423 175 CHRR1,5,"TELEPHONE" 176 FORS=1T02500:NEXTS 177 RETURN L'Ordinateur Individuel 236 n'47Ael83
La série Goupil a maintenant une nouvelle machine, le Goupil 3. Peut-être avez-vous déjà trouvé des astuces sur le Flex 9 ou sur le S-Basic et peut-être aussi possédez-vous dans vos tiroirs des trucs du Goupil 2, des ruses que tous les lecteurs ne connaissent pas encore ? N'hésitez pas à nous les envoyer. Ces colonnes sont disponibles pour accueillir vos idées. Utilitaires Voici deux utilitaires, CONTIN et REPEAT, bien pratiques, mais qui ne sont pas sur la disquette donnée avec le Goupil. Nous avons écrit deux sources répondant à leurs caractéristiques. Ces deux programmes utilisent certains sous-programmes du Flex peu connus ou pratiquement jamais utilisés. CONTIN est une commande qui permet, lorsqu'elle est présente dans un fichier TXT contenant d'autres commandes, de donner le choix à l'utilisateur entre continuer à exécuter les commandes qui suivent ou s'arrêter et revenir au Flex. Par exemple, si le fichier LISTES TXT contient les commandes : LIST 1. TOTO. BAS CONTIN LIST 1. JEU. TXT, l'exécution de ce fichier à l'aide de la commande EXEC fera apparaitre la liste du programme TOTO, suivie du message ON CONTINUE (0-N) ? Si l'utilisateur répond OUI, la liste de JEU. TXT s'affichera sur l'écran, sinon la « main » sera redonnée au Flex. Le principe du programme est simple : cette commande est appelée par l'intermédiaire de l'ordre EXEC qui force le retour au Flex lorsque le drapeau de commandes ($AC28) est à zéro. En effet, le drapeau de commandes, lorsqu'il n'est pas nul, signale que le Flex a été appelé en tant que sousprogramme pour exécuter une commande et qu'au retour, il reviendra au programme appelant. REPEAT permet de répéter plusieurs fois la même commande. Exemple : RE- PEAT 5 LIST 1. TOTO. BAS affichera cinq fois la liste du programme TOTO. Là aussi, le principe est simple : le nombre qui suit REPEAT (ici 5) est rangé en mémoire comme compteur et le Flex est appelé en tant que sous-programme pour exécuter la commande (ici LIST) qui suit le nombre. L'entrée du Flex est alors $AD4B. Un test est fait au retour pour vérifier que l'exécution de la commande n'a pas généré d'erreurs, puis le compteur est décrémenté et, s'il n'est pas nul, la commande est exécutée une nouvelle fois (SAUT 2), après que le pointeur du tampond'entrée ait été restauré. Dans ces deux programmes que vous pouvez modifier à volonté, la liste des équivalences est prévue pour permettre aux programmes assemblés de tourner sous GPFIex (notre exemple) ou sous G2FIex et Flex. C'est la variable KKK qui permet, sans avoir à réécrire toutes les adresses, de modifier la destination : si KKK = $ 2000, le programme tournera sous GPFIex ; si KKK = 0, le programme tournera sous G2Flex ou Flex 9. Aimé St-Vryn T'47 Avnl 83 237 Utilitaire CONTIN UTILITAIRE CONTIN II-2-81 ASSEMBLEUR TSC 6E00 5 6 7 9 IO 11 12 13 e UTILITAIRE CONTINUE ee...e 44. CREE LE 23.06.62 eeeeee.eeeeeeme...e.e 14.EQUIVALFNCES 15 16 ENTIER BOOSEX KKK EDU 12000 VARIABLE. SERVANT R PASSER FACILES 18 AC2E DRACmD FOU IeCC28-KKK DRAPEAU DE COMMANDE 19 AD1E PSTRNG EAU 4CDIE-KKK SORTIE D'UNE CHAIRE DE CARACTERES vIERO ROIS GETCHR EAU 11.CD15-KKK ACQUISITION D'UN CARACTERE AU CLR 21 ADO3 FLEX FOU 00003-KKX POINT D'ENTREE A CHAUD DU FLEX 22 23 A108 ORD C100-KKK 24 25 DEBUT DU PROGRAMME 4 26 27 6I80 20 00 DEBUT FRA SAUT1 28 29 30 A102 CE AI IA SAUTI LDK 4mESS POINTE LA CHAIRE 31 A105 BD AD 1E JSR PST RNG IMPRESSION 32 A108 BD AD 15 JSR GETCHR ATTENTE REPONSE 33 Alie. 84 5F AND A 445F PASSAGE EN MAJUSCULES 34 A1OD 81 4F CMP A 4'0 EST-CE 0 (OUI) 35 A10F 26 03 BNE SAUT2 36 A111 7E AD 03 JMP FLEX RETOUR FLEX 37 A114 7F AC 2E SAUT2 CLR DRACm0 RAZ DU MODE COMMANDE 38 6117 7E AD 03 JMP FLEX RETOUR FLEX 39 48 ASIA 4F MESS FCC/ON CONTINUE.0-N),/41 AI2D 00 FCB 0.0,0,4 42 43 END DERUT AUCUNE ERREUR DETECTEE TABLE SYMBOLES DEBUT A100 DRACmD PC28 FIEl AD03 DETCHR AD15 KKK 2000 MESS PILA PSYRNG AD1E SAUTI 4102 SAUT2 A114 Utilitaire REPEAT 2DMMANDE REPEAT 13-2-83 ASSEMBLEUR TSC 6800 5 6 UTILITAIRE REPEAT.e. CREE LE 23.06.82 9 10 11 12.. LISTE DES EQUIvALENCES 3 ENTIER 0000E, KKK FOU 42000 VARIABLE SERVANT A PASSER FACILES 15 lE [1003 FLEX COU SCD03-KKK ENTREE A CHAUD DU FLEX AD4E INDEC EOU 4CD48-KKK ENTREF D'UN NOMBRE DECIMAL 17 AD40 DOCMND FOU $CD48-KKK APPEL DU D 0 S 16 AC14 BUFPNT FOU SCC14-KKK POINTEUR DU TAMPON DE LIGNE 19 20 9E00 ORG 4RF00-KKK 21 22 DEPUT DU PROGRAMME 23 24 9E00 20 04 DEBUT FRA SAUTI 25 26.er STOCKAGE TEMPORAIRE 27 28 9F02 00 00 CPTR FOR 0 29 9F04 00 00 PTRRUE EDF 0 30 Si 9F06 BD AD 48 SAUTI JSR INDEC COMPTEUR DE BOUCLES 32 9E09 25 24 RCS FIN ERREUR, 33 9FRIB FF 9F 02 SIX CPTR SAVE COMPTEUR 34 9F0E FE AC 14 LDX BUFPNT POINTEUR DU BUFFER 35 9F11 FF 9F 04 STx PTREUF SAVE PTR BUFFER 3E 9F14 BE 9F 03 LDA A CPTR+I CPTR'.0 37 9E17 27 1E, &EP FIN 38 9E19 PD AD 46 SAUT2 JSR DOCMND EXECUT ION CMNDE 79 9F1C 2E 11 BNE FIN ERREUR, 40 SFIE BE 9F 03 LDA A CPTR+I COMPTEUR DE BOUCLES 41 se21 4A DEC A DECREmENTE COMPTEUR 42 9F22 B7 9F 03 STA A CPTR+I NOUVEAU COMPTEUR 43 9E25 27 0E BEP FIN REPETITION 44 9F27 FE 9F 04 LOB PIABUE RECUP PTR BUFFER 45 9F2A FF AC 14 STX BUFPNT 46 9.20 20 EA RRA SPUT2 REPETITION 47 9F 2f 7E AD 03 FIN JMP FLEX RETOUR FIFx 46 49 END DEBUT AUCUNE ERREUR DETECTEE TABLE SYMBOLES EUEPNT AC14 CPTR DERUT 9E00 DOCMND ROUA FIN 9F2F FLEX AD03 INDEC AD48 Km, 2600 PIRBUF 9E04 SAUTI 9F06 SAUT2 9F19 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 47 avril 1983 Page 1L'Ordinateur Individuel numéro 47 avril 1983 Page 2-3L'Ordinateur Individuel numéro 47 avril 1983 Page 4-5L'Ordinateur Individuel numéro 47 avril 1983 Page 6-7L'Ordinateur Individuel numéro 47 avril 1983 Page 8-9L'Ordinateur Individuel numéro 47 avril 1983 Page 10-11L'Ordinateur Individuel numéro 47 avril 1983 Page 12-13L'Ordinateur Individuel numéro 47 avril 1983 Page 14-15L'Ordinateur Individuel numéro 47 avril 1983 Page 16-17L'Ordinateur Individuel numéro 47 avril 1983 Page 18-19L'Ordinateur Individuel numéro 47 avril 1983 Page 20-21L'Ordinateur Individuel numéro 47 avril 1983 Page 22-23L'Ordinateur Individuel numéro 47 avril 1983 Page 24-25L'Ordinateur Individuel numéro 47 avril 1983 Page 26-27L'Ordinateur Individuel numéro 47 avril 1983 Page 28-29L'Ordinateur Individuel numéro 47 avril 1983 Page 30-31L'Ordinateur Individuel numéro 47 avril 1983 Page 32-33L'Ordinateur Individuel numéro 47 avril 1983 Page 34-35L'Ordinateur Individuel numéro 47 avril 1983 Page 36-37L'Ordinateur Individuel numéro 47 avril 1983 Page 38-39L'Ordinateur Individuel numéro 47 avril 1983 Page 40-41L'Ordinateur Individuel numéro 47 avril 1983 Page 42-43L'Ordinateur Individuel numéro 47 avril 1983 Page 44-45L'Ordinateur Individuel numéro 47 avril 1983 Page 46-47L'Ordinateur Individuel numéro 47 avril 1983 Page 48-49L'Ordinateur Individuel numéro 47 avril 1983 Page 50-51L'Ordinateur Individuel numéro 47 avril 1983 Page 52-53L'Ordinateur Individuel numéro 47 avril 1983 Page 54-55L'Ordinateur Individuel numéro 47 avril 1983 Page 56-57L'Ordinateur Individuel numéro 47 avril 1983 Page 58-59L'Ordinateur Individuel numéro 47 avril 1983 Page 60-61L'Ordinateur Individuel numéro 47 avril 1983 Page 62-63L'Ordinateur Individuel numéro 47 avril 1983 Page 64-65L'Ordinateur Individuel numéro 47 avril 1983 Page 66-67L'Ordinateur Individuel numéro 47 avril 1983 Page 68-69L'Ordinateur Individuel numéro 47 avril 1983 Page 70-71L'Ordinateur Individuel numéro 47 avril 1983 Page 72-73L'Ordinateur Individuel numéro 47 avril 1983 Page 74-75L'Ordinateur Individuel numéro 47 avril 1983 Page 76-77L'Ordinateur Individuel numéro 47 avril 1983 Page 78-79L'Ordinateur Individuel numéro 47 avril 1983 Page 80-81L'Ordinateur Individuel numéro 47 avril 1983 Page 82-83L'Ordinateur Individuel numéro 47 avril 1983 Page 84-85L'Ordinateur Individuel numéro 47 avril 1983 Page 86-87L'Ordinateur Individuel numéro 47 avril 1983 Page 88-89L'Ordinateur Individuel numéro 47 avril 1983 Page 90-91L'Ordinateur Individuel numéro 47 avril 1983 Page 92-93L'Ordinateur Individuel numéro 47 avril 1983 Page 94-95L'Ordinateur Individuel numéro 47 avril 1983 Page 96-97L'Ordinateur Individuel numéro 47 avril 1983 Page 98-99L'Ordinateur Individuel numéro 47 avril 1983 Page 100-101L'Ordinateur Individuel numéro 47 avril 1983 Page 102-103L'Ordinateur Individuel numéro 47 avril 1983 Page 104-105L'Ordinateur Individuel numéro 47 avril 1983 Page 106-107L'Ordinateur Individuel numéro 47 avril 1983 Page 108-109L'Ordinateur Individuel numéro 47 avril 1983 Page 110-111L'Ordinateur Individuel numéro 47 avril 1983 Page 112-113L'Ordinateur Individuel numéro 47 avril 1983 Page 114-115L'Ordinateur Individuel numéro 47 avril 1983 Page 116-117L'Ordinateur Individuel numéro 47 avril 1983 Page 118-119L'Ordinateur Individuel numéro 47 avril 1983 Page 120-121L'Ordinateur Individuel numéro 47 avril 1983 Page 122-123L'Ordinateur Individuel numéro 47 avril 1983 Page 124-125L'Ordinateur Individuel numéro 47 avril 1983 Page 126-127L'Ordinateur Individuel numéro 47 avril 1983 Page 128-129L'Ordinateur Individuel numéro 47 avril 1983 Page 130-131L'Ordinateur Individuel numéro 47 avril 1983 Page 132-133L'Ordinateur Individuel numéro 47 avril 1983 Page 134-135L'Ordinateur Individuel numéro 47 avril 1983 Page 136-137L'Ordinateur Individuel numéro 47 avril 1983 Page 138-139L'Ordinateur Individuel numéro 47 avril 1983 Page 140-141L'Ordinateur Individuel numéro 47 avril 1983 Page 142-143L'Ordinateur Individuel numéro 47 avril 1983 Page 144-145L'Ordinateur Individuel numéro 47 avril 1983 Page 146-147L'Ordinateur Individuel numéro 47 avril 1983 Page 148-149L'Ordinateur Individuel numéro 47 avril 1983 Page 150-151L'Ordinateur Individuel numéro 47 avril 1983 Page 152-153L'Ordinateur Individuel numéro 47 avril 1983 Page 154-155L'Ordinateur Individuel numéro 47 avril 1983 Page 156-157L'Ordinateur Individuel numéro 47 avril 1983 Page 158-159L'Ordinateur Individuel numéro 47 avril 1983 Page 160-161L'Ordinateur Individuel numéro 47 avril 1983 Page 162-163L'Ordinateur Individuel numéro 47 avril 1983 Page 164-165L'Ordinateur Individuel numéro 47 avril 1983 Page 166-167L'Ordinateur Individuel numéro 47 avril 1983 Page 168-169L'Ordinateur Individuel numéro 47 avril 1983 Page 170-171L'Ordinateur Individuel numéro 47 avril 1983 Page 172-173L'Ordinateur Individuel numéro 47 avril 1983 Page 174-175L'Ordinateur Individuel numéro 47 avril 1983 Page 176-177L'Ordinateur Individuel numéro 47 avril 1983 Page 178-179L'Ordinateur Individuel numéro 47 avril 1983 Page 180-181L'Ordinateur Individuel numéro 47 avril 1983 Page 182-183L'Ordinateur Individuel numéro 47 avril 1983 Page 184-185L'Ordinateur Individuel numéro 47 avril 1983 Page 186-187L'Ordinateur Individuel numéro 47 avril 1983 Page 188-189L'Ordinateur Individuel numéro 47 avril 1983 Page 190-191L'Ordinateur Individuel numéro 47 avril 1983 Page 192-193L'Ordinateur Individuel numéro 47 avril 1983 Page 194-195L'Ordinateur Individuel numéro 47 avril 1983 Page 196-197L'Ordinateur Individuel numéro 47 avril 1983 Page 198-199L'Ordinateur Individuel numéro 47 avril 1983 Page 200-201L'Ordinateur Individuel numéro 47 avril 1983 Page 202-203L'Ordinateur Individuel numéro 47 avril 1983 Page 204-205L'Ordinateur Individuel numéro 47 avril 1983 Page 206-207L'Ordinateur Individuel numéro 47 avril 1983 Page 208-209L'Ordinateur Individuel numéro 47 avril 1983 Page 210-211L'Ordinateur Individuel numéro 47 avril 1983 Page 212-213L'Ordinateur Individuel numéro 47 avril 1983 Page 214-215L'Ordinateur Individuel numéro 47 avril 1983 Page 216-217L'Ordinateur Individuel numéro 47 avril 1983 Page 218-219L'Ordinateur Individuel numéro 47 avril 1983 Page 220-221L'Ordinateur Individuel numéro 47 avril 1983 Page 222-223L'Ordinateur Individuel numéro 47 avril 1983 Page 224-225L'Ordinateur Individuel numéro 47 avril 1983 Page 226-227L'Ordinateur Individuel numéro 47 avril 1983 Page 228-229L'Ordinateur Individuel numéro 47 avril 1983 Page 230-231L'Ordinateur Individuel numéro 47 avril 1983 Page 232-233L'Ordinateur Individuel numéro 47 avril 1983 Page 234-235L'Ordinateur Individuel numéro 47 avril 1983 Page 236-237L'Ordinateur Individuel numéro 47 avril 1983 Page 238-239L'Ordinateur Individuel numéro 47 avril 1983 Page 240-241L'Ordinateur Individuel numéro 47 avril 1983 Page 242-243L'Ordinateur Individuel numéro 47 avril 1983 Page 244-245L'Ordinateur Individuel numéro 47 avril 1983 Page 246-247L'Ordinateur Individuel numéro 47 avril 1983 Page 248-249L'Ordinateur Individuel numéro 47 avril 1983 Page 250-251L'Ordinateur Individuel numéro 47 avril 1983 Page 252-253L'Ordinateur Individuel numéro 47 avril 1983 Page 254-255L'Ordinateur Individuel numéro 47 avril 1983 Page 256-257L'Ordinateur Individuel numéro 47 avril 1983 Page 258-259L'Ordinateur Individuel numéro 47 avril 1983 Page 260-261L'Ordinateur Individuel numéro 47 avril 1983 Page 262