Micro Systèmes n°33 jui/aoû 1983
Micro Systèmes n°33 jui/aoû 1983
  • Prix facial : 21 F

  • Parution : n°33 de jui/aoû 1983

  • Périodicité : mensuel

  • Editeur : Société Parisienne d'Edition

  • Format : (203 x 271) mm

  • Nombre de pages : 198

  • Taille du fichier PDF : 154 Mo

  • Dans ce numéro : spécial NCC'83... les nouveaux produits présentés à Los Angeles.

  • Prix de vente (PDF) : gratuit

Dans ce numéro...
< Pages précédentes
Pages : 134 - 135  |  Aller à la page   OK
Pages suivantes >
134 135
4.310 IF X<35 THEN PRINT AT 11,17 4.320 IF X>=35 THEN PRINT AT 10,1 7 ; 11 - 4330 LET C=0 4340 GOSUB 6000+INT (SC/2) 4350 GOTO 1000 5000 REM CHARGEMENT GRAIN SCORE 5005 PRINT AT 10,0 ; " 5010 PRINT AT 10,G ; " 5100 LET SC=5C+1 5110 PRINT AT 11,24 ; 5C 5200 LET G=1 5300 LET C=0 5400 GOSUB 6000+INT (SC ; 2) 5500 GOTO 1000 6000 REM CHARGEMENT TABLEAU GODET 111 6004 LET V$(1)= V V- 6005 RETURN 6009 LET V$(2)=" U V" 5010 RETURN 6014 LET V$(3)=" V V- 6015 RETURN 6019 LET V$(4) V U" 6020 RETURN 6029 LET V$(5) V" 6030 RETURN 6039 LET V$(6)="V V V- 6040 RETURN 6049 LET V$(7)="V V V" 6050 RETURN 6059 LET v$(8)=- U U- 6060 RETURN 5069 LET V$(9)=" V V- 6070 RETURN 6089 LET V$(10)=". U- 6090 RETURN 5109 LET V$(11) ✓ U U- 6110 RETURN 6129 LET V$(12) 5130 RETURN 6149 LET V$(13) 6150 RETURN 6169 LET V$(14) 6170 RETURN 6209 LET V$(15) 5210 RETURN 6249 LET V$(16) 6250 RETURN 6289 LET V$(17) 6290 RETURN 6329 LET V$(153) 6330 RETURN 6369 LET U$(19) 5370 RETURN 6409 LET V$(20) 6410 RETURN 5420 GOTO 7200 ="U =" ='="11,) ="V ✓ V - ✓ U- 7000 REM FIN DE PARTIE 7020 PRINT AT 2,9 ; "ree" 7030 PRINT AT 2,9 ; "***" 7040 LET P=3 7050 GOTO 190 7100 FOR M=15 TO 5 STEP -1 7110 PRINT AT 2,9 ; "Ben" 7120 PRINT ATM,4 ; V$(31) 7125 FOR 0=1 TO 5 7126 NEXT O 7130 PRINT AT 2,9 ; "***" 7140 PRINT AT M.4 ; V$(30) 7150 NEXT M 7160 PRINT AT 2,9 ; " 7170 PRINT RI" 10,17 ; " - U V V V".1,3 V V V" ✓ V ✓ V V" 7200 IF SC)MSC THEN LET M5C=5C 7210 PRINT AT 18,3 ; "ENERGIES EMM RGRSINEES "SC 7220 PRINT AT 19,+10 ; "MEILLEUR SC ORE " ; MSC 7300 FOR N=1 TO 20 7310 LET V$(N)=."" 7320 NEXT N 7330 PRINT AT 9,0 ; " POUR UNE N OUVELLE PARTIE" ; RT 11,0 ; " APPU YEZ SUR UNE TOUCHE" 7400 IF INKEY$<)"" THEN GOTO 100 7410 GOTO 7400 8000 REM INITIALISATION TABLEAU SAUVEGARDE 8010 PRINT AT 19,1 ; "SRISIE TABLE PU GODETS" 8015 SCROLL 8020 PRINT " MeMMIIMMIMIMMr 8@30 ormV$(31,3) 8040 FOR V=21 TO 31 8050 SCROLL 8060 INPUT V$(V) 8070 PRINT " " ; V$(V) ; " V$f" ; 1.). 8080 NEXT V 8090 CLS 8100 PRINT AT 11,3 ; "SRUVEGRRDE D U PROGRAMME" 2110 PRINT RT 13,3 ; "DEMMRREZ LR CASSETTE'3120 PRINT RT 15,3 ; "ET APPUYEZ 5 UR 5" 8200 IF INKEY$="5" THEN GOTO 821 5 8210 8215 3220 8230 GOTO 8200 CLS SAVE "ENERGIIEle GOTO 1 9000 REM REGLES DU JEU 9010 PRINT AT 11.12:"ENERGIE"AT 3,11:"JEU VIDEO ; ' ; Rt 19,3 ; "OUED} UE PART DANS L ESPACE" 9020 FOR k=1 TG 40 9030 PRINT RT 9,0 ; "************* *******************" ; AT 13,0 ; -** ******************************- 9040 PRINT AT 9,0 ; " "RT 13,0" 9050 NEXT te. 9090 CLS 9095 PRINT 91(m PRINT "eerTes LE PLEIti e ut* ERGIES ","A VOTRE"„"VRISSERU 5P RT/AL SIRIUS" 9110 PRINT 9120 PRINT "DEPLRCEZ LES GRAINS D ENERGIES","R L RIDE DES TOUCHE 5 1 ET 0","EN EVITRNT LES GODETS PRENEURS","REPRESENTES PAR UN " 9130 PRINT 9140 PRINT "ATTENTION R LA PORTE DU VRISERU","QUI SE PERME",,"DE TEMPS EN TEMPS" 9150 PRINT 9160 PRINT "LA POSE D UN GRAIN 5 UR UNE","PRLETTE REPESENTEE PAR. PROVOQUE L ENTREE RUTOMR TIQUE","DE 8 ENERGIES DANS LE VA ISSERU" 9170 PRINT 9180 PRINT "POUR COMMENCER LA PR RTIE"."RPPUYEZ SUR G- 9200 IF INKEY$="G" THEN GOTO 100 9210 GOTO 9200 134 - MICRO-SYSTEMES Juillet-Août 1983
Forth  : le mode tortue désormais disponible La tortue, cet animal permettant de réaliser d'élégants dessins avec une facilité inouïe, a peut-être été liée trop hâtivement à Logo... Ici, Forth lui apporte une célérité peu coutumière. UNE ler%eige go> TORTUE a Oit& diasedevie FOR TH Aegloge framede Les deux différences principales entre la tortue Forth et Logo sont, premièrement, que la tortue Forth, pour des raisons de vitesse d'exécution, n'apparaît jamais sur l'écran, et, deuxièmement, que toutes les commandes de la tortue Forth doivent être précédées de leurs paramètres et non pas suivies comme en Logo. Mais si vous savez programmer en Forth, vous vous en doutiez bien ! Par exemple, au lieu de LEFT 50 en Logo, vous aurez 50 GAUCHE en Forth. Bien que la tortue soit invisible, il faut se souvenir qu'elle est toujours « pointée » vers son CAP et que n GAUCHE ou n DROITE ne font qu'augmenter ce CAP de n ou de — n degrés. Le CAP de la tortue est exprimé en degrés sur un cercle trigonométrique dont le centre est la position actuelle de la tortue. Ce CAP sera toujours pris modulo 360. Les commandes de la tortue se divisent en quatres parties  : • Les commandes de placement  : XCOOR, YCOOR, XY- COOR, METLECAP.• Les commandes de déplacement  : DROITE, GAUCHE, AVANCE, RECULE.• Les commandes d'initialisation et des couleurs  : ORI- GINE, INITT, LCRAYON, BCRAYON, GOMME. Juillet-Août 1983• Les commandes informatives  : COORX, COORY, COORXY, CAP. Toutes ces commandes sont décrites dans le glossaire (tableau 1). Celui-ci contient également la description des variables, des fonctions trigonométriques, des primitives graphiques nécessaires à la tortue et des quelques applications traduites de Logo ayant permis de réaliser les dessins illustrant cet article. La définition des fonctions trigonométriques Pour déplacer la tortue, deux fonctions trigonométriques sont nécessaires  : sinus et cosinus. Mais comment exprimer des nombres inférieurs à 1 sous forme d'entiers ? Tout simplement grâce au mot */. En effet, il faut se rendre compte que sinus et cosinus ne sont utilisés que lors de multiplications. Il suffira alors pour calculer, par exemple, 20 * 0,250, d'effectuer 20 1 4 */. Le nombre 0,250 est alors exprimé en deux nombres entiers  : 1 et 4 (0,250 = 1/4). La même astuce est utilisée pour les sinus et cosinus  : les mots SIN et COS renvoient sur la pile un nombre de 16 bits (compris entre — 32767 et 32767). Par exemple  : 0 COS 32767 45 SIN 23170 Et ainsi pour calculer  : 20 * SIN (45) il suffira de taper  : 20 45 SIN 32767 */Remarquons que l'on pourra créer les mots :  : COS* COS 32767 */ ;  : SIN* SIN 32767 */ ; La façon la plus simple et la plus efficace de créer COS et SIN est alors d'utiliser une table de 91 nombres contenant la valeur des COS de 0 à 90. Il ne reste plus alors dans SIN et COS qu'à calculer le signe du sinus ou du cosinus suivant la position de l'angle sur le cercle trigonometrique sachant que  : SIN(X)=COS(90—X) Quant à 360MOD, qui renvoie le modulo 360 (compris entre 0 et 359) d'un nombre quelconque, ce mot n'utilise pas le mot Forth MOD, car dans l'intervalle (— 3000, 3000) la méthode par comparaisons est plus rapide et les angles utilisés par la tortue seront quasiment tous compris dans cet intervalle. Le mot OUBLIE du glossaire n'est utilisé qu'une seule fois afin de remplir la TABLE et est oublié immédiatement après. Ce mot teste s'il y a suffisament de nombres en piles et si la somme de tous ces nombres est bien égale à — 6765  : ces deux vérifications devraient vous éviter bien des erreurs dues à la frappe des 91 nombres. La tortue et ses commandes La lecture du listing (fig. 1) avec ses commentaires ainsi que celle du glossaire devraient vous permettre de comprendre facilement cette partie du programme. Il est nécessaire d'expliciter les primitives ainsi que les caractéristiques graphiques du Victor II HR afin de vous simplifier l'adaptation de ce programme à votre machine. MICRO-SYSTEMES — 135



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 :


Micro Systèmes numéro 33 jui/aoû 1983 Page 1Micro Systèmes numéro 33 jui/aoû 1983 Page 2-3Micro Systèmes numéro 33 jui/aoû 1983 Page 4-5Micro Systèmes numéro 33 jui/aoû 1983 Page 6-7Micro Systèmes numéro 33 jui/aoû 1983 Page 8-9Micro Systèmes numéro 33 jui/aoû 1983 Page 10-11Micro Systèmes numéro 33 jui/aoû 1983 Page 12-13Micro Systèmes numéro 33 jui/aoû 1983 Page 14-15Micro Systèmes numéro 33 jui/aoû 1983 Page 16-17Micro Systèmes numéro 33 jui/aoû 1983 Page 18-19Micro Systèmes numéro 33 jui/aoû 1983 Page 20-21Micro Systèmes numéro 33 jui/aoû 1983 Page 22-23Micro Systèmes numéro 33 jui/aoû 1983 Page 24-25Micro Systèmes numéro 33 jui/aoû 1983 Page 26-27Micro Systèmes numéro 33 jui/aoû 1983 Page 28-29Micro Systèmes numéro 33 jui/aoû 1983 Page 30-31Micro Systèmes numéro 33 jui/aoû 1983 Page 32-33Micro Systèmes numéro 33 jui/aoû 1983 Page 34-35Micro Systèmes numéro 33 jui/aoû 1983 Page 36-37Micro Systèmes numéro 33 jui/aoû 1983 Page 38-39Micro Systèmes numéro 33 jui/aoû 1983 Page 40-41Micro Systèmes numéro 33 jui/aoû 1983 Page 42-43Micro Systèmes numéro 33 jui/aoû 1983 Page 44-45Micro Systèmes numéro 33 jui/aoû 1983 Page 46-47Micro Systèmes numéro 33 jui/aoû 1983 Page 48-49Micro Systèmes numéro 33 jui/aoû 1983 Page 50-51Micro Systèmes numéro 33 jui/aoû 1983 Page 52-53Micro Systèmes numéro 33 jui/aoû 1983 Page 54-55Micro Systèmes numéro 33 jui/aoû 1983 Page 56-57Micro Systèmes numéro 33 jui/aoû 1983 Page 58-59Micro Systèmes numéro 33 jui/aoû 1983 Page 60-61Micro Systèmes numéro 33 jui/aoû 1983 Page 62-63Micro Systèmes numéro 33 jui/aoû 1983 Page 64-65Micro Systèmes numéro 33 jui/aoû 1983 Page 66-67Micro Systèmes numéro 33 jui/aoû 1983 Page 68-69Micro Systèmes numéro 33 jui/aoû 1983 Page 70-71Micro Systèmes numéro 33 jui/aoû 1983 Page 72-73Micro Systèmes numéro 33 jui/aoû 1983 Page 74-75Micro Systèmes numéro 33 jui/aoû 1983 Page 76-77Micro Systèmes numéro 33 jui/aoû 1983 Page 78-79Micro Systèmes numéro 33 jui/aoû 1983 Page 80-81Micro Systèmes numéro 33 jui/aoû 1983 Page 82-83Micro Systèmes numéro 33 jui/aoû 1983 Page 84-85Micro Systèmes numéro 33 jui/aoû 1983 Page 86-87Micro Systèmes numéro 33 jui/aoû 1983 Page 88-89Micro Systèmes numéro 33 jui/aoû 1983 Page 90-91Micro Systèmes numéro 33 jui/aoû 1983 Page 92-93Micro Systèmes numéro 33 jui/aoû 1983 Page 94-95Micro Systèmes numéro 33 jui/aoû 1983 Page 96-97Micro Systèmes numéro 33 jui/aoû 1983 Page 98-99Micro Systèmes numéro 33 jui/aoû 1983 Page 100-101Micro Systèmes numéro 33 jui/aoû 1983 Page 102-103Micro Systèmes numéro 33 jui/aoû 1983 Page 104-105Micro Systèmes numéro 33 jui/aoû 1983 Page 106-107Micro Systèmes numéro 33 jui/aoû 1983 Page 108-109Micro Systèmes numéro 33 jui/aoû 1983 Page 110-111Micro Systèmes numéro 33 jui/aoû 1983 Page 112-113Micro Systèmes numéro 33 jui/aoû 1983 Page 114-115Micro Systèmes numéro 33 jui/aoû 1983 Page 116-117Micro Systèmes numéro 33 jui/aoû 1983 Page 118-119Micro Systèmes numéro 33 jui/aoû 1983 Page 120-121Micro Systèmes numéro 33 jui/aoû 1983 Page 122-123Micro Systèmes numéro 33 jui/aoû 1983 Page 124-125Micro Systèmes numéro 33 jui/aoû 1983 Page 126-127Micro Systèmes numéro 33 jui/aoû 1983 Page 128-129Micro Systèmes numéro 33 jui/aoû 1983 Page 130-131Micro Systèmes numéro 33 jui/aoû 1983 Page 132-133Micro Systèmes numéro 33 jui/aoû 1983 Page 134-135Micro Systèmes numéro 33 jui/aoû 1983 Page 136-137Micro Systèmes numéro 33 jui/aoû 1983 Page 138-139Micro Systèmes numéro 33 jui/aoû 1983 Page 140-141Micro Systèmes numéro 33 jui/aoû 1983 Page 142-143Micro Systèmes numéro 33 jui/aoû 1983 Page 144-145Micro Systèmes numéro 33 jui/aoû 1983 Page 146-147Micro Systèmes numéro 33 jui/aoû 1983 Page 148-149Micro Systèmes numéro 33 jui/aoû 1983 Page 150-151Micro Systèmes numéro 33 jui/aoû 1983 Page 152-153Micro Systèmes numéro 33 jui/aoû 1983 Page 154-155Micro Systèmes numéro 33 jui/aoû 1983 Page 156-157Micro Systèmes numéro 33 jui/aoû 1983 Page 158-159Micro Systèmes numéro 33 jui/aoû 1983 Page 160-161Micro Systèmes numéro 33 jui/aoû 1983 Page 162-163Micro Systèmes numéro 33 jui/aoû 1983 Page 164-165Micro Systèmes numéro 33 jui/aoû 1983 Page 166-167Micro Systèmes numéro 33 jui/aoû 1983 Page 168-169Micro Systèmes numéro 33 jui/aoû 1983 Page 170-171Micro Systèmes numéro 33 jui/aoû 1983 Page 172-173Micro Systèmes numéro 33 jui/aoû 1983 Page 174-175Micro Systèmes numéro 33 jui/aoû 1983 Page 176-177Micro Systèmes numéro 33 jui/aoû 1983 Page 178-179Micro Systèmes numéro 33 jui/aoû 1983 Page 180-181Micro Systèmes numéro 33 jui/aoû 1983 Page 182-183Micro Systèmes numéro 33 jui/aoû 1983 Page 184-185Micro Systèmes numéro 33 jui/aoû 1983 Page 186-187Micro Systèmes numéro 33 jui/aoû 1983 Page 188-189Micro Systèmes numéro 33 jui/aoû 1983 Page 190-191Micro Systèmes numéro 33 jui/aoû 1983 Page 192-193Micro Systèmes numéro 33 jui/aoû 1983 Page 194-195Micro Systèmes numéro 33 jui/aoû 1983 Page 196-197Micro Systèmes numéro 33 jui/aoû 1983 Page 198