Micro Systèmes n°48 décembre 1984
Micro Systèmes n°48 décembre 1984
  • Prix facial : 24 F

  • Parution : n°48 de décembre 1984

  • Périodicité : mensuel

  • Editeur : Société Parisienne d'Edition

  • Format : (203 x 271) mm

  • Nombre de pages : 246

  • Taille du fichier PDF : 187 Mo

  • Dans ce numéro : MSX... un nouveau standard ?

  • Prix de vente (PDF) : gratuit

Dans ce numéro...
< Pages précédentes
Pages : 216 - 217  |  Aller à la page   OK
Pages suivantes >
216 217
572 X0=8*(11-1) 525 LPRINT"03":LPRINT"M"- ! -STRS(X1311-",0" 580 FORJ=OTOXL 581 IFPOINT(J,I)THENLPRINT'PWELSELPRINT 582 NEXTJ:G0T0595 585 XD=8*I 586 LPRINT"01":LPRINT"M"-STR$Cffle","*ST R*(YD) 590 FORJ=XLTOOSTEP-1 591 IFPOINT(J,I)THENLPRINT"PWELSELPRINT 592 NEXTJ 595 NEXTI:RETURN 596'RELECTURE D'UN ENREGISTREMENT 600 CLS:PRINT" Bande positionnee ? PLAT ? Volume et tenante = 2/10 ? "I 601 LOCATE1,3:PRINT" Alors allez-y g" : 602 GOSU870 610 INIT#1,"CASI:" 612 INPUT#1,CT,L,H,N,R 613 CLS:PRINTCT,LfHflffl 612'LECTURE TANT QUE F=1 620 S=R 621 INPUTIII,F,C 622 A="":I=1 625 FORJ=1TOLENCC)-1 626 D=MIDS(C,J,1):IFDOCHR$(44)THENA=AtD : GDT0629 622 OCI)=VAL(A):A=" 628 1=1*1:1FI>8THENGOSUB640 629 NEXTJ:0(8)=VAL(A):GOSU8640 630 IFF=0GOT0621 631'F=1 signale la fin d'enregistrement 635 GOSUB500:RETURN 632'MEMORISATION 640 FONTSCS)="0[1],0(2),11(3),0(4),0(5),0 (61,0(21,0(8)" 642 CLS:PRINT"FONT*("1.S.')=". 643 FORP=1T02:PRINTQCP).",". NEXT 644 PRINTQ(8) ; 650 S=Stl:IFS>159ANDS<224TNENS=224 651 A="":I=1:RETURN 690'EXPLICATIONS 700 FORI=1T018 702 READA:CLS:PRINTA. 704 GOSU820:NEXT:RETURN 710 DATA" Avec un ecran fixe,PRESSEZ sur une tou-che QUELCONQUE pour continuer" 715 DATA" Pour dessiner,utiliser les 4 t ouches de deplacement du cur-seur" 720 DATA"Pour tracer une dia-gonate, appuyer sur tes 2 touches appropriees" 725 DATA"Pour passer en MODE LENT, pres sez la barre d'espacement'730 DATA"Dans ce cas,tes coordonneesX,)'du point s'affichent et cli-gnotent" 735 DATA"Pour revenir au MODERAPIDE,Pres sez a nouveau ta barre'740 DATA"Pour EFFACER,pressezd'abord la touche defonction F6 situee au centre" 745 DATA" Dans ce cas une * est affiche e en bas,a droite de l'ecran'750 DATA"Pour revenir en MODE ECRITURE,p ressez a nouveau la touche F6'755 DATA"Pour positionner un point, pres sez P,et introduisez ses coordonnees" 760 DATA"Pour tracer une droite entre 2 ooints A et 8,pressez D... 765 DATH"...apres avo ; r introduit les co ordonnees de A et B par l'op-t ion P" 720 DATA" Pour tracer un CERCLE, pre ssez C etintroduisez le rayon'775 DATA" Pour inscrire un caractere,p ressez L et introduisez «. " 780 DATA"...ta position (X,T) et le code ASCII du caractere'785 DATA" Pour effacer TOUT l'ecran,pr essez E" 790 DATA" Pour interrompre pressez A" 795 DATA" Une fois le dessin acheve, pr essez M pour lancer la memo-risation Listing du programme (suite et fin). Ilill:110 legivrei gr'I zem.sai.=:-A. MICRO-ST5rEnE5 FONTS (128)...8,68,124,124.124.128.129.128" rONT8 (129 1.,8,188.188.188,188.48.244,244- q:114T4C 138) ».8,26.108,188,188,188,236.236'r01418 (131 1-'8,224,220.220.220.220.220,220'q3NT41C 132 ›.0.228.228,228.228,156,128,128 rONT4C 133] -"8,561.184.184,184.184,60,60...131118 (134 1.'8,240.252,252,252,28.28,124..01.114 (135 1...8,68.124.124.124.126.128.128'.01,174C 136 1-.8,184,188.188,188.68.60.68'..1:8414C 137 01.1r8 (138 1-.8,8,0,8.0,0.0.8'q>11.4C 139 014TiC 148 1-'0.0.0,0,0,0,0.0.0MriC 141 OrIT4C 142 014T4C 143 3-'0.0,8.8.8.0,0.8- rONT4 (144/a-128.128.126,128.120,128.126,e'rONT4 (145 1-'244,244, 244,244, 244.244. 244.8'.-13141-4C 146) -'236,238,238.238.238.238.236,8'.Mitir4 (147 1-"222,228.220.220.228.220,204,2'q3NriC 148 1-' ! 28,15.9.156,188,188,188,188.0..8NT4C 149 1-.66.188,188.188,188,188,68. 8'158 1-'120.128.124,60,68,60.26.2., ON t 151 3-',28,122,120.120.120,56.352.1e rOMPIIC 152) 68,60,68,252,252.252,248.8..13NrtC 153 q:44T4C 154 1-'0,0,0,0,0,8,0,0"3N14 (155."13e414 (156 c-Of4r4 (157.Dr418C 158 q31.118 (159 ‘-0111.4C 224 1-'0,08,124,124.128.128,124,124'.'Or1r4C 225 1-'8.184,188,188.68,8,248,252'.-(14r8C 226 1-'8.128,128,128.128,120,124.124'q31414C 227 2-.8,128,128.120,128.56,152.288'‘'0814 (228) 8,124,252.252.240.248.252.252" 01418 (229) -'0.112,120.128,120.0,240,248" ‘-or11ec 238 1-'8,252,252,252,252,8.68.68", 0814C 231 1-'6.220,228.229,228.28,28,28".111414C 232 3-. 0.124,124.124.60.128.128.252"0e41t (233).,0,68,124,124,124,128,128,128'.(618C 234) -'0.188,188,188,188.48,244,244".06114 (235) -'8,76.108,188,108,108.236,236`.-01418C 236 P.,8.188.188,188,156.132,132,252..131416 (237).0,156.188.188.188,68.68.18808est 238) -'8,228,228,220.20.8,252.252'.-0014C 239) -'8,0.128.128.128.8.8.128'rON14C 248 708.8.120.129.128.129,56,8-.171Irdic 241)..252,66,68,68.252,252 ; 248.8'Op414C 242 1...124,121,68.28.12.1202.0'c'19414C 243 1.'224,248,224092,192,142.192.8',01414C 244 p.. ! 24,8,240.248,244,244.116.0.'0N1CC 245) ».'248.128,120.120,248.248,248,8'q7414C 240 ›,08,68.60,60,68.661.68.8", 0614C 242).."28.28.28.28,28.28,28,8" criNDIC 248 ›'252,252,128,128088,188,180,0'0810 (243) 4'128,128.128,128,128,128.128.8'.61,68C 258 3"244.244.244.244.244,244.244,8".61414 (251) -236,236.236.236.236,230.230.0',0141IC 252).."252.252,132.132.228.222.228,8'.-0614 (253 3-'150,128,08,68.188,1148,156.8'.-0614C 254 1-,252,28,28.28,124,124,124,0'.61418C 255 1"128.128.128.1211.128.128.0.9" Fig. 2. - Le Logo de Micro-Systèmes tel qu'il est imprimé. On constate que les points ne sont pas carrés comme sur l'écran du X 07. une à une et éditées éventuellement sur l'imprimante. La sauvegarde s'effectue par « paquets » sur la cassette. Chaque « FONTS » mémorisée entraîne l'affichage de son numéro sur l'écran. Un petit bip est émis. Les questions auxquelles il a fallu répondre Comment créer un INPUT sans « dévastation » de l'écran ? Le dialogue au cours des « options » P,C, L nécessite l'équivalent de la fonction INPUT classique. Or, il est impératif d'éviter tout déroulement dévastateur de l'écran. Le sous-programme des lignes 280 à 283 remplit cet office. Comment effectuer une recopie point par point « rapide » ? L'idéal serait de disposer d'un pavé « carré » programmé dans les caractères de l'imprimante X-710. Malheureusement, ce n'est pas le cas. A défaut, on utilise le caractère CNRS (127) qui imprime un X (fig. 2) sur le papier. Son symbole sur l'écran est le fameux point d'interrogation à l'envers (i,) qui n'est accessible par aucune touche. Pour l'introduire dans les lignes 581 et 591, il faut procéder de la façon suivante : Faire CLS, puis ? CNRS (127) et RETURN Le symbole est produit et il suffit de le déplacer sur l'écran pour l'introduire dans le texte des lignes 581 et 591 à l'endroit adéquat. L'inconvénient (mineur) de l'utilisation de ce caractère est une légère déformation dans le sens de la hauteur de l'image imprimante par rapport au dessin présenté sur l'écran. Par contre, la recopie qui se fait dans les deux sens est relativement rapide. Comment compacter les enregistrements sur cassette ? L'examen du module « sauvegarde » permet de voir que plusieurs « FONTS » successives sont « accrochées » les unes aux autres pour obtenir une variable D$ d'une longueur aussi proche que possible de la longueur maximum autorisée pour une chaîne de caractères, soit 255 caractères. Grâce à cette astuce, on limite le nombre d'enregistrements et on diminue considérablement le temps de sauvegarde (où, à l'inverse, de lecture d'un enregistrement). 216 — MICRO-SYSTEMES Décembre 1984
Tableau des principales variables utilisées Variables Valeurs possibles Rôle AS quelconque Affichage dans zone de dialogue CTS quelconque Titre de l'enregistrement E 0 Pas d'enregistrement sur cassette I Enregistrement sur cassette F 0 Vaut zéro pour tout enregistrement d'une chaine de FONTS, sauf la dernière I Signale la fin de l'enregistrement H 1..ç. H ‹ 4 Hauteur du cadre (nombre de lignes) IP o Pas de sortie des FONTS sur imprimante 1 Sortie sur imprimante L I‹ L -< 20 Largeur du cadre (nombre de colonnes) N I à 64 Surface du dessin (N = H s L) P o 1 Mode effacement Mode dessin Q Localisation de la zone de dialogue : 02 Utilisation des colonnes 17, 18, 19 I Utilisation de la ligne 3 2 Restauraton du trait du cadre lorsque Q= 1 et H = 3 R 128 à 159 224 à 255 Numéro du premier caractère graphique qui sera utilisé en mémorisation S idem R Numéro du caractère courant en phase de mémorisation T 0 à 8 Etat des touches de déplacement du curseurX,Y 0.-<...X..L 0 -<., Y YL Coordonnées du spot XL 6 à 120 Limite de x YL 8 à 32 Limite de y Z 1 Vitesse rapide Vitesse lente Tableau des va ria bles. Particularités du programme Le listing (fig. 3) est commenté et permet de repérer facilement la structure du programme : Lignes 20 à 115 : module d'initialisation. Lignes 120 à 283 : module graphique. C'est le « coeur » du programme. Lignes 300 à 355 : traitements du dessin. Lignes 400 à 477 : module de sauvegarde sur cassette et de mémorisation des FONTS. Lignes 500 à 506 : module d'affichage. Lignes 540 à 595 : module de recopie point par point sur l'imprimante X- 710. Lignes 600 à 651 : module de relecture d'un enregistrement. Ce module est à recopier dans tout programme qui utilise un stockage de dessins sur cassette. Lignes 700 à 795 : explications des fonctions offertes à l'utilisateur. SUPER VEGAS MONTE UNITE CENTRALE : 4, microprocesseur 6809 64 Ko de mémoire R.A.M..1 lecteur de disquettes double face (320Ko) possibilité d'extension à 4 lecteurs interfaces parallèles pour imprimante (type "Centronics") et manettes.2 E/S série RS 232C ▪ horloge temps réel avec batterie de sauvegarde sorties vidéo monochrome et couleur (RVB) CLAVIER : clavier ergonomique 101 touches (détachable) pavés machine à écrire (Azerty), numérique et de fonctions ▪ adaptation parfaite au traitement de textes LOGICIEL DE BASE : Flex et S. Basic OPTIONS : carte graphique THR 512 x 512 1 8 couleurs 4, carte graphique HR 256 x 256 2 plans ▪ boîtier SS30 pour connexions des cartes : - interface S.A.S.I. (SCSI) - interface IEEE 488 - digitalisation d'images -programmateur d'EPROMS -convertisseurs AD et DA -synthèse vocale - ANTIOPE etc.. LANGAGES ET LOGICIELS : langageC, PL 9, Pascal, Forth, assembleurs nombreux outils de développement et dessin assisté. Monté en coffret noir métal, connecteurs très haute fiabilité (type militaire). Prix : 14 950 F TTC Offre valable dans la limite des stocks disponibles Vegas Circuit imprimé + 2 Eproms + 1 disque Flex + dossier de montage 1 200 F Clavier Azerty 101 touches matricéX,Y 590 F Codeur en kit interface//350 F Coffret 290 F M (MICROKIT 15, Quai Jules Guesde 94400 Vitry - Tél. (1) 681.88.37 1 Décembre 1984 SERVICE-LECTEURS N" 183 MICRO-SYSTEMES — 217



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