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 : 210 - 211  |  Aller à la page   OK
Pages suivantes >
210 211
470 : 4A0 REM*******************0*****EXECUTE LES PROORAMMES************* 4W1 500 ORAPHIC2 510 P%=K+1:D=0:REMINCREMENTE LE POINTEUR DE 520 D=D+1 PL(P%)=D+1+T*1000:REM- RANGE ADRESSE PROCHAINE INSTRUT1O4 DANS LA PILE eDe REM- _..TEST SI LE MOT EU CONNU- 540 IFMCS(T:D)="THEN2000 550 FORS=1TOM 560 IFMCS(T,D>=M(S)THENT=S:00T0510 570 NEXT 580 FORS=1TON IFLEFTS(MCS(T,D),4)(>N$(S)THENNEXT:00T0594 59' ;'GO1 O600 594 GRAPHICO:PRINT"e311" PRINT"COMMENT FRIRE "MC$U,D>:IFP%-1>OTHENPRINT"DANS "MS) 598 GOT020 599 REM- REVOIT VERS EXECUTION 600 0NSGOSNE700,800,9001000,11001200,13001400J100,1600A70018001900A950:1':10 OU0520 E.90 REM-.._._._._.. _.._EXECUTE AVAN- 700 J=LEN(MC(T,D)):B=VAL(MIDS(MCS(TJD),6,j)) 710 PB=B 720 XN=E*COS(2*.g*RO/360>i-XT 730 YN=B*SIN(2ffl80/360>-i-YT 740 IFCM=1THEN:DRAW2,XT,YTTOXN,YN 750 XT=XN:YT=YN 71".0 RETURN 790 REM EXECUTE DROI 800 j=LEN(MU:B=VAL(MIDS(MCS(T,D),6)j)) 1310 B=B+PB:00T0710 1390 REM- EXECUTE EFFH 1400 SCNCLR:RETURN 1490 REM..._.EXECUTE COUL- 1500 j=LEN(MCS(T,D)):A=VAL(MIDS(MC*(TdD),6,1)) Listing (suite). 210 — MICRO-SYSTEMES Décembre 1984
1510 J=LEN(MCKT,D>):B=VAL(MID$KMCS(T,D),8,1 » 1524.1 J=LEN(MCS(T,D)):C=VAL(MIDS(MCS(T,D),10,1)) 1530 J=LEN):E=VAL(MIDS(MCS(T,D>,12,1Y) 1540 COLORA,B,C,E:RETURN 1590 REM EXECUTE PEIN 160171 PAINT2,XT,e:RETURN 1690 REM U.,:ECUTE 1700 XT=0:YT=0:RETURN 1790 REM EXECUTE CENT - 1800 XT=512:YT=512:RETURN 1890 REM- EXECUTE CTOR- 1900 TR=0:RETURN 1940 REM EXECUTE MTOR 1950 TR=1:RETURN 1970 REM -._. -E.f.ECUTE AUGM- 1980 J=LEN(MCS(T,D)):B=VAL(MIDSOTHENK=K-1:T=INT(PL:D=INTMPL(P%)/1000": ! -T>*1000+.5):GOT n530 2005 REM CALCUL POUR DELINER LA TORTUE. 2010 n=25*COSO:AG+90)*2#ft/360):YE=25*SIN((AG+90>*2#.tr/360):X1=XE+XT:Y1=YE+YT 2020 X2=e-a:Y2=YT-YE:X3=XT+304COS(MG*2*.R/360):Y3=YT+30*SIN(FIG*2#11-/360) 2025 IFTR=OTHEN2100:REM DOIT-0N LA DESSINER ? 207-10 DRAW2,X1,Y1TOX2,Y2TW.3,Y3TOX1,Y1 2100 WAIT653,4:OOT020:REM ATTEND LA FRAPPE DE'CTRL'2.17.100 IF LeOnENRE"THEN3100 3005 REM EXECUTE ENRE. 2.01171 J4:=MID$(19$,6,4):FORT=1TOM:IFj$K>MS(T>THENNEXT:AS=JS:60T0420 3020 OPEN1,1,1,J$ 3030 D=0 040 D=D+1:IFMCS(T,LO<>""THENPRINT#1,MC$U,D):60T03040 3045 PRINT#1,"@*" 3050 CLOSE1:60T020 3100 IFLS<>"CHAR"THEN3200 3105 REM EXECUTE CHAR- 3110 JS=MID$"@*"THENMCS(M,D.)=01 : 00103140 3150 CLOSE1:OOT020 IFLS<>"LIST"THEN3400 32i:12 REM E./.ECUTE LIST 3205 OPEN4,4 3210 EDe=MID$(FIS,6,4):FORT=1TOM 3220 IFED$G.Me(T)THENNEXT:PRINT"e3A":PRINTEDe M E81- INCONU ! ".1:L08E4 GOT020 3230 K=0:PRINT#4,CHR$(14)" "EDS,CHR$(15):PRINT#4 3240 K=K+1 3250 IFMCs(T,K).CY"THENPRINT#4,MC5(T,K"):OOTO3240 : 3260 PRINT#4,"FIN":PRINT#4:CLOSE4:60T020 : 3400 GOT0420 _isting (suite et fin). Décembre 1984 MICRO-SYSTEMES — 211



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