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 : 214 - 215  |  Aller à la page   OK
Pages suivantes >
214 215
e S 3 SS 8 3803 8SS g a g 33333 smessEls zsgstusszsgsa 383111388E 8838 g a EISS333333333333 113883833838333 3838388338118 H 33333888 g 38 8 3 ss ES 333 a a gag SM 83E4338 3 33 388333383 SS Saga 333333351 33333838383 g 333133228333 8 53333323E3 g 3333333333 S 33333333 g g â g 838 gag gag 333 3 SS 81:1 Sag â E u MMOPOCK FONTS (128) -t00,00,00,00,00,00.00.00] FONT4 (128) -000,00,00,00.00,0C,3C.7C) FONTS (130) -(00.00,0C.3C.FC.FC,FC.FC1 FONT4C 131) -(00.0e.se.se.çc.ec.Fc.sc] FONTS (132) -(00,00,00.00.80,C0.00.60) FONTS (133) -(00,00,00,00,00,00,00.00) FONTS (134 ›CF8,70,3C.14.08.18,28,287 FONit (135lq(00.FC.IC.28.14.00,28.101 FONTS (136 1-t04.FC,FC,2C,18,08.38.041 FONTS (137) -(00.00,80.00.00,00.00.001 FONTS (138).(00,00,00,08,00,00,00,00] FONT4 (133) -c2e.2e,18.08,2c.ee.18.1e) FONTS (140 l-008,0C.1C,3C.E0,FC.FC.ÇC1 FONTS (141).(04,98.58.F8,3C,f8,F8,Ç0) FOtetC 142) q(00.00,30.30,F0.00.00.001 FONT4 (143) -000.00.00,00.04,18.20.487 FONTS (144) -CiC.10.10,28,r4.00,00.00) FONfiC 145) -crc.7C. »,041.cc.30.00.00) FONDS (146) -CE0.50.20,70.88,04,00.001 FONT « 147) -coo,ae,00.00.00.re,20,10] Fig. L - Listing des FONTS calculées. dans le coin inférieur droit, signalant le mode « effacement ». Le déplacement du spot efface alors les points rencontrés par ce dernier. Pour revenir en mode « dessin », il suffit d'une nouvelle pression sur F6. Un nouveau bip est émis et l'étoile disparaît. Il existe deux vitesses de déplacement du spot. Au départ, c'est le mode « rapide » qui est sélectionné. Pour passer en mode lent », pressez la barre d'espacement. Un bip est émis et les coordonnées du spot s'affichent en clignotant dans la zone réservée au « dialogue ». Une nouvelle pression sur la barre autorise le retour en mode rapide. Les coordonnées ne sont plus affichées. Pour une prise en compte plus rapide dç toutes les commandes en mode lent, pressez la touche désirée lorsque les coordonnées « s'effacent » au cours du clignotement. Pour positionner le spot au point de coordonnées (x < I. * 6, y < FI * 8), pressez la touche P.X = ? est alors affiché. Il faut entrer x et appuyer sur RE- TURN. Si x L * 6, la valeur entrée n'est pas acceptée. 214 — MICRO-SYSTEMES 78 CONSOLE,0 79'NUMERO PREMIER CARACTERE GRAPHIQUE 80 CLS:INPUT"Voutez-vous fixer le numer o du premier caractere graphique" ; D 81 IFLEFT$(0,1)<>"O'THENR=128:GOT095 85 CLS:INPUT'Numero" ; R 86 IFR)127ANDR(160ORR>223ANDR<256GOT090 87 GOSUB72:PRINT"Cette valeur R doit et re >127 et <160 ou >223 et (256" ; 86 GOSU820 ; GOT085 90 S=-C192-R)*(R<160)-(256-R)*(R>223) 91 IFN<=SGOT095 92 G0SU822:PRINT" Numero trop elevepou ✓ les dimensions du cadre" ; 93 GOSU870 ; GOT085 95 N=L*H 96'OPTION SAUVEGARDE SUR CASSETTE 100 CLS:1NPUT"Uoulez-vous archiver le. dessin sur cassette" ; 0 101 IFLEFT$C0,1)="0"THENE=IELSEE=0 ; GOTO1 10 102 CLS:PRINT"Pensez a positionner la ban de et a regiertonalite et volume a" ; 103 LOCATE0,3:PRINT"5/10 ; O.K. ?' ; 104 GOSUB20 105 CLS:INPUT" Voulez-vous donner un ti tre a l'enre- gistrement" ; 0 106 IFLEFT$C0,1)="N"THENCT="SANS TITRE" : GOT0110 102 CLS ; LINEINPUT" Quel est ce titre ? " ; CT 108'OPTION SORTIE PARAMETRES 110 CLS:PRINT" Voulez-vous editer les FO NT$ des carac-teres graphiques en" ; 111 LOCATE0,3 ; INPUT"notation dec.mate" ; 0 112 IP=0 ; IFLEFT$(0,1)<>"0"THEN120 113 CLS ; PRINT"L'.mprimante est en servie e ? ; couleur selectionnee 7 " ; 114 LOCATE3,3 ; PRINT'Ators O.K. 2" ; 115 IP=1 ; GOSU870 116'*****DEBUT OU MODULE GRAPHIQUE******** 120 CLS:LINECL*6,0)-CL*6,H*6) ; LINE-(0,H* 8) 125 X=0 ; 11=0:P=1:F=1:Z=1 126 GOT0140 127'VITESSE LENTE 130 A=STRS(X):A=RIGHTSCA,LEN(A)-1):GOSUB 270 131 A=STR$(Y):A=RIGHTCA,LEN(A)-1) ; GOSUB 272 135 BEEP0,2 ; BEEP0,1 136 A.. « ':GOSU6270:GOSUB272 137'VITESSE RAPIDE 140 T=STICK(0)+1:ONTGOSU6150,120,172,175 >177,180,182,185,187 141 PRESETCX,Y):IFP=1THENPSET(X,Y) 142 IF8=1THEN140ELSE130 145'SCRUTATION DU CLAVIER 150 PSETCX,Y):BEEP0,2 ; BEEP0,1 151 PRESETCX,Y) 152 IFSTRIG(1)GOT0200 153 IFSTRIG(0)GOT0210 155 IFTKEY("D')GOT0215 156 IFTKEY("P')GOT0220 157 IFTKET("U)GOT0240 158 IFTKEY("L")GOT0250 159 IFTKETC"M')GOT0300 Listing du programme (suite). 160 IFTKETC"E'JGOT0120 161 IFTKETC"A')GOT0350 162 RETURN 165'TRAITEMENT DES TOUCHES OU CURSEUR 170 Y=Y-1:1FYXLTHENX=XL 174 RETURN 175 X=X1-1:IFX>XLTHENX=XL 176 RETURN 127 X=X1-1:Y=Y*1:1FX>XLTHENX=XL 178 IFY>YLTHENY=YL 129 RETURN 180 Y=Yr11IFY>YLTHENY=YL 181 RETURN 182 Y=Y1-1:X=X-1:IFY>YLTHENY=YL 183 IFXXLGOT0221 225 A="Y= ?':GOSU6270 226 A="":GOSU8272:GOSU8280:T=VAL(C) 227 A=" "GOSU8222:IFY>YLGOT0226 229 A=" ":GOSU8270zGOSU8222 230 IFF=ITHENX1=X:Y1=Y ; F=0,RETURN 231 IFF=OTHENX2=X:Y2=Y ; F=IRETURN 235'TRACE D'UN CERCLE 240 A="R= ? ":GOSU8220 241 A="":GOSU6272,GOSU8280 ; W=UAL(C) 242 IFW127THENA="' : GOSU8272:GOT 0241 243 CIRCLECX,T),W 244 A="':GOSUB270.GOSUB272 245 RETURN 247'AFFICHAGE D'UN CHR$ 250 A="X= ?' ; GOSU8270 251 A= : GOSUB222 ; GOSUB280.U=UALCC) 252 4=":GOSU8222:1FU=LGOT0251 255 A='(= ? ":GOSU8220 256 A="":GOSU6222:GOSU8280:U=VALCC) 257 A=" ":GOSU8222,IFV=HGOT0256 259 A="C= ? ":GOSU8220 260 A="":GOSU8222 ; GOSU8280W=UALCC) 261 A= -:GOSUB222 ; IFW<320RW>255GOT026 0 262 4=" ":GOSUB220 263 LOCATEU,V:RRINTCHRS(VALCC)) ; Décembre 1984
264 RETURN 267'DIALOGUE 220 IF0=0THENLOCATE17,0ELSELOCATE5,3 271 GOT0225 272 IFQ=OTHENLOCATE12,1ELSELOCATE10,3 273 GOT0275 274 LOCATE12,3 275 PRINTA ; 276 1F0=2ANDLEFT$CA,1)=" "AND2=1THENLINE (0,24)-(6*L,24) 277 RETURN 228'EQUIUALENT DE INPUT 280 J=STRIG(0):C="'281 0=INKEYS:IFO="'THEN281 282 IFD=CHR$C13)THENRETURN 283 PRINTDC=CrO:GOT0281 285'286'******FIN OU MODULE GRAPHIQUE********* 287'300 PSETCX,Y):GOSUB400 301 CLS:INPUT" Voulez-vous revoir le dessin' ; D 302 IFLEFT$CD,1)="0"THENGOSUB500 310 CLS:PRINT" Uoulez-vous editer les FO NT$ des carac-teres graphiques en" ; 311 LOCATE0,3:INPUT"notation HEXA" ; 0 312 IFLEFT$CD,1)<>"0"THEN330 320 CLS:INPUT" SORTIE EN CONTINU" ; D 322 1FLEFT$CD, 1 l="0"THENW=1ELSEl.1=0 325 GOSU8360 330 CLS:INPUT" Voulez-vous reproduire le dessin sur papier" ; 0 331 IFLEFT$CD,1)="0"THENGOSUB540 335 IFE=0GOT0340 336 CLS:INPUT'Uoulez-vous verifier l'enr egistrement" ; 0 337 IFLEFT$C0,1)="0"THENCONSOLE0,1:GOSUB 600 340 CLS:INPUT" Uoutez-vous initia-liser les caracteresgraphiques" ; 0 341 IFLEFT$(0,1)="0"THENCONSOLE@,1 350 CLS:INPUT"Uoulez-vous faire unautre dessin" ; 0 352 CONSOLE, » 1,1:1FLEFT$(0,1)="0"GOT050 355 CLS:END 356'-SORTIE DES FONT* EN HEXAOECIMAL- 360 LPR1NTCT 365 S=R 370 FORI=OTOH-1:FORJ=OTOL-1 371 CLS:PR1NT"FONT$(" ; S ;')=" ; FONT$(S) 372 LPRINT"FONT$(" ; S ;')=' ; FONT$CS) 373 IFW=OTHENGOSUB70 375 5=5t1:IFS>159ANDS<224THENS=224 376 NEXTJ,I 372 RETURN 380'MODULE DE SAUVEGARDE SUR CASSETTE 400 IFE=OGOT0420 402 A="CAS":GOSU8270 403 A="0K ?':GOSUB222 404 BEEP0,3:BEEP0,1 405 A=" ":GOSUB222 406 BEEP0,3:BEEP0,1 407 IFINKEY$=""THEN403 408 J=STRIG(0):GOSUB270 409'BLANC SONORE DE SEPARATION 410 MOTORON:BEEP0,60:BEEP0,1 411 INIT#1,"CASO:'Listing du programme (suite). 415 PRINT#1,CT,L,H,N,R 420 A="NUM : GOSUB270 421 S=R:F=0.K=0.0=CHR$C34) 425 IFIP=1THENLPRINTCT:LPRINT 427'DEBUT BALAYAGE ECRAN 430 FORY=OTOH-1:FORX=OTOL-1 431 K=Kr1 432'AFFICHAGE OU NUMERO DU CARACTERE- 433 A=RIGHT*(STR$CS),3):G0SUB222 434 GOSUB460:IFE=1THENGOSUB440 435 NEXTX,Y:RETURM 437'FIN BALAYAGE 440 IFCLENCO>LENCC)>253)GOT0445 441 D=DrC 442 IFK



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