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 : 208 - 209  |  Aller à la page   OK
Pages suivantes >
208 209
AG : angle AM : ancien angle D : n°d'instruction M$(n) : mots utilisateur N$(n) : mots d'origine MC$(n,p) : instructions Liste des variables PB : ancien avancement PL(n) : pile P% : pointeur de Pile (XT, YT) : anciennes coordonnées (XN, YN) : nouvelles coordonnées Exemples de créations graphiques Pour programmer TRIA il faut écrire : POUR TRIA CENT REPE 60 INCR 13 DROI 118 FIN L'ordinateur affiche READY. Puis, il suffit d'écrire TRIA suivi de (RETURN) 10 REM...W..4+4**e> 20 REM* COPIE ECRRN * 30 REM* HAUTE RESOLU.* 40 REM**************** 50 REM STEPHANE SABBAOUE 1983 52 60 GRAPHIC2:GRAPHIC0 70 S.1024 80 REM*CODAGE EN HUM* 90 READASAFAS."*"THENPRINT"nLA ROUTINE S'APPELLE AVEC SYS 1024 ENI, 100 RIS.LEFTSCRI.1) 110 NI.ASC(RIS>-48:1FNTHENNI.N1-7 120 AIS=RIGHTSRS,1> 130 N.ASC-48:IFNi9THENN=N-7 140 N1.111*16+N:POKES,NI, 5=S+1:130T090 150 DATAR9,01,82,04.80.00,20,BA,FF,A9,00.20eBD,FF.20 160 DATACO,FF.A2,01.20.C9.FF,A9.08,20.112.FF,A9,00,85 170 DATA01,85,62,A9,10,85,02.85.63.A9,14,85,64.A9,08 180 DATA85.65,A0.06.R6.65,81,62,4A,C8,00,FC,26.FB,88 190 DATAIO,F3,85,F8,09.80.20,112,FF 195 DATREA.ER.ER.ER.ER.EA 200 DATAER,C6,65,D0,DF,ER,EA,C6,64,F0,10,18,A5,62,69 216 DATAR0.85.62.135.63.69,00,85.63.10.90.C5,89,00,20 220 DATA52,FF.18,85,01,69,07,85,01,A5,02.69,00.85,02 230 DATAC9.10,D0.08.R5,01,C9.ALD0.02,F0,08,145.02.85 240 DATA63,A5.01,85,62,18.90,98,89,0F,20,02,FF.20.CC 250 DATRFF,R9.01,20,C3,FF,60,ER.* 300 310 EN REMPLACANT LA LIGNE 195 PAR'DATA 20,112,FF.ER,ER.ER 315 320 - ON OBTIENT LA COPIE EN DOUBLE LARGEUR 325 33E1 EN REMPLRCRNT LR LIGNE 195 PRR : DATA 20.D2.FF.20,D2.FF 335 340 : ON OBTIENT LA COPIE EN TRIPLE LARGEUR READY. Routine écrite en assembleur 6502, pour effectuer des copies d'écran. truction : « POUR xxxx ». Ce nouveau mot remplacera automatiquement l'ancien du même nom. Pour réaliser CARE, le processus est identique, seules les valeurs numériques changent. POUR CARE CENT REPE 50 1NCR 16 DROI 88 FIN 208 — MICRO-SYSTEMES La syntaxe La chose la plus importante à savoir est que l'on ne peut pas mettre plusieurs instructions par ligne et que chaque ligne doit être validée par la touche RETURN. Il faut savoir également que les espaces entre les mots sont obligatoires sauf s'il s'agit d'une instruction et de son paramètre (par exemple, AVAN30 est aussi correct que AVAN 30) l'espace étant mis automatiquement lors de l'édition par le programme. Pour étendre Logo Pour intégrer d'autre mots clefs, il faut redimensionner n$ (ligne 2), puis agir sur les lignes 15, 16, 600 et programmer le mot désiré (voir lignes 700 à 760 par exemple). Pour rajouter des commandes, il faut les mettre en 3400 (voir les lignes 3100 à 3150 par exemple). Et si, en plus... Si vous disposez de l'imprimante graphique du Vic (type GP-100VC ou CBM) et que vous désirez stocker vos plus beaux dessins sur papier, nous vous donnons la routine écrite en assembleur 6502 effectuant la copie de l'écran haute résolution du Vic. Il vous suffit pour cela de faire « tourner » cette routine, puis de charger le programme Logo et d'inclure à la ligne 2100 la commande SYS 1024. Ainsi, l'écran sera automatiquement stocké sur l'imprimante dès la fin du dessin. S'il vous était arrivé de « retomber » dans Basic, il faut faire un « GOTO 20 » pour revenir à Logo sans avoir perdu la mémoire ! Décembre 1984
L. Ci Ir ; 0) REM- 1 GRAPHIC2:GRAPHICO DIMPL(100.),MC$<30,30>,M$(80>Ae(16):60T010 : 3 REM- ERREUR 4 PEINT""] num PR1NT" "60f020 _Jc.- 6 REM****************************DELUT+MOTS CLEFS**********************04+ 10 PRINT"'4** VIC-LOGO V2 ***" 12 PRINT"enB200 HOPIS FREE" 15 N=16:FORT=1T016:READN$U):NEXT 16 DATRAVAN:DROI:GAUC,REPE,CACH:MONT,INCR,EFFFbCOUL,PEIN,MAISCENT:CTORAITOR,AUGM,AFFI 17 CM=1:TR=1 19 REM ENTREE+INITIA TAMPON EF : 20 GRAPHICO 2:3 AG=0:PB=0 24P%=0:AM=0 ▪ XT=0:YT=0 ▪ PRINT:PRINT"READY." D=0:POKE631,20:POKE63220 POKE633,17:POKE198,3 ▪ INPUTAS 37 REM***************************TEST*40************************************ 40 LS=LEFTS(AS,4) 50 IFLS<>"POUR"THEN200 52 REM CP-ECRITURE 55 PRINT 1=0 VS=MIDS(Fe,6,4) 70 FORT=1TOM:IFV2:=M$CDTHENK=T:FORY=1T012:MCS(LY ? ="":NEM:60T090 NEXTT:M=M+1K=M:MS(M)=V$ 90 POKE631,157:POKE632,157:POKE633,32:POKE634,32:POKE198,4ANPUTH$ 100 IFAS="FIN"THEN20 102 IFMID4:(M$,51><>" "ANDLEN(M$ » 4THENMS=LEFTS(AS,4)+" "+MIDSi.A$,59) 110 D=D+1:MCS(K,D)=AS:00T090 190 REM SP-EDITION 200 POKE631,71:POKE632,207:POKE63352:POKE634,13:PÜKE1984 205 IFL$<>"EDIT"THEN300 210 PRINTED$=MIDS""THENPRINT" "MCSKT,K):00T0240 255 PRINT" FIN" 260 GOT020 290 REM LISTE DE':".: ; MOT.3 300 IFL$0"MOTS"THEN400 310 FORT=1TOM:PRINTne(T)"/"ME>11- ▪ FORT=1TOM:FRINTM$U)"/"NEXT:GOT020 400 FORT=1TOM:IFLS=M$CT>THEN500 410 NEXT 415 GOT03000:REMSAUT POUR DEFINIR D'AUTRES ORDRE° 41:3 REM- I NSTRUC I ON INCONUE 420 PRINT"233A":PRINT"JE NE CONNAIS PAS : " ; Re:GOT020 Listing du programme. Décembre 1984 MICRO-SYSTEMES — 209



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