L'Ordinateur Individuel n°45 février 1983
L'Ordinateur Individuel n°45 février 1983
  • Prix facial : 20 F

  • Parution : n°45 de février 1983

  • Périodicité : mensuel

  • Editeur : Groupe Tests

  • Format : (202 x 281) mm

  • Nombre de pages : 254

  • Taille du fichier PDF : 257 Mo

  • Dans ce numéro : création artistique et informatique... tout un programme !

  • Prix de vente (PDF) : gratuit

Dans ce numéro...
< Pages précédentes
Pages : 170 - 171  |  Aller à la page   OK
Pages suivantes >
170 171
665 REM) 0AIGUILLAGE VERS LES ROUTINES < 670 IF X$="A"THEN 800 (suite) 680 IF Xf="C"THEN 860 690 IF Xle="D"PP=DPIX$=All:GOTO 660 700 IF Xle="F" AND X=1 THEN 500 710 IF Xi="R" THEN 870 720 IF Xle="I" THEN 910 730 IF Xle="L" THEN 950 740 IF X$="M" PRINT MP—FP:GOTO 620 750 IF X$="S" THEN 920 760 IF X$="T" THEN FP=PP:GOTO 620 770 IF X$="+"PP=PP+VAL(A$):IF PP/FP ERROR15 ELSE 620 775 IF X$="—"PP=PP—VAL(A$):IF PP ROUTINES DE L'EDITEUR < 800 PP=FP 810 IF PP=MP ERRORIO ELSE GOSUB 100:IF A$=CHR$(8) IF PP/FP PRINTA$ ; IPP=PP -1 GOTO 810 820 IF A$-CHR$(27) FP=PP:PRINT:GOTO 620 830 IFAS=CHR$(9) X=8—(POSCO)AND7) : IF X)0 FOR I=1 TO X POKE PP.32:PP=PP+I : IF PP=MP ERRORIO ELSE NEXT:PRINT STRING$(X,32)IIGOTO 810 ELSE 810 840 IF A$=CHR$(13) A$=CHR$(10) 850 POKE PP.ASC(A$):PRINT A$PP=PP+1:GOTO 810 860 IF PP+LEN(A$)>=FP ERROR10 ELSE FOR 1=0 TO LEN(A$)-1 : POKE PP+I,ASC(MIDS(A$,I+1.1)) : NEXT:GOTO 620 870 IF PP+LEN(A$))=FP ERRORIO ELSE GOSUB 880:GOTO 620 880 X$="" FOR I=PP TO PP+LEN(A$)-1 : X$=)($+CHRIe(PEEK(1)) NEXT 890 IF X$=A$ RETURN ELSE PP=PP+1:IF PP+LEN(A$)>=FP PRINT PRINT"EXPRESSION NON IDENTIFIEE "IA$ : RETURN 900 X1=RIGHTS(X$,LEN(X1)-1)+CHR$(PEEK(PP+LEN COMMANDES) LIST ET) EDIT L < 940 IF DP=FP RETURN ELSE FOR I=DP TO FP-1 : PRINT CHR$(PEEK(I)) NEXT : PRINT:RETURN 950 IF DP=FP PRINT"PAS DE PROGRAMME.":GOTO 620 960 Y=1:PRINTUSING"11111 " ; Y ; FOR I=DP TO FP-1 : X=PEEK(I) : PRINT CHR$(X)1 : IF X=10 Y=Y+1 : PRINTUSING"****$ "IY : 970 IF I=PP PRINT CHR$(8) ; CHR$(94) ; CHRCX) ; 980 NEXT I:PRINT:GOTO 620 1000 REM ================ » > INTERPRETEUR VERS. 2.1 <((= 1010 DV=0:VC=DV MA=0:SM(MA)=0:SM(MA+1)=0:MA=2 PU=0 VI=0:VR=0:MM=0 1015 REM > RECHERCHE SS.—PROGRAMME 1020 PP=DP:FV=DV:VC=DV:FL=1 1022 GOSUB 200:IF X035 THEN 1022 1025 GOSUB 300:IF X$0A$ THEN 1022 ELSE FL=0 1030 GOSUB 200:IF X058 ERROR22 1035 REM > DECLARATIONS DES VARIABLES < 1040 GOSUB 200:IF X037 THEN 1100 ELSE GOSUB 300:X$=A$ 1050 GOSUB 200:IF X058 ERROR22 1060 NVVVC)=Xf:VC=VC+1:FV=VC:GOSUB 300 IF ilf="ENTIER" THEN TV(VC-1)256+VI:VI=VI+1:GOTO 1080 ELSE IF A$="REEL" THEN TV(VC-1)=512+VR:VR.MR+1:00TO 1080 ELSE ERROR2 1080 GOSUB 200:IFX059 THEN ERROR1 ELSE GOTO 1040 1082 REM suite page 171 (VerWeurinenirrel 170 sous-programmes LIST, EDIT et DUMP. 540 : commande RECUP et calcul de la taille de mémoire à récupérer (ici X). 560 : message d'erreur en cas de commande non valide. L'éditeur Le segment de programme fait appel au « pilote » situé en 100- 140. 110 : allumage du curseur. 120 : lecture du clavier avec attente ; si le caractère lu est « standard », extinction du curseur et retour. 130 : décodage des caractères spéciaux et obtention des codes graphiques. 140 : extinction du curseur et retour. 610 : message d'accueil. 620 : message d'attente « * » ; initialisation de la chaîne X$ qui va contenir la commande (X$ joue le rôle du buffer ou tampon en Basic). 630 : lecture du clavier par l'intermédiaire du pilote ; décodage de < return ou de « » pour les corrections. 640 : décodage du code ESCAPE (voir si une modification est nécessaire avec la nouvelle MEM). 650 : tant qu'on n'a pas frappé , lecture du clavier. 660 : test de chaîne vide et suppression des blancs de début ; extraction éventuelle de la souschaîne à droite de la commande dans A$ (X$ contient la commande). 670-795 : aiguillage vers les routines, traitement des commandes F,M, T, +, —, et d'une éventuelle concaténation avec D (en 690). Commande A 800 : initialisation du pointeur en fin de programme. 810 : si débordement mémoire, erreur ; sinon, appel du « pilote » de clavier avec prise en compte d'annulation par saut arrière du curseur « ». 820 : test du caractère de contrôle (Escape et traitement. 830 : test de « » pour la tabulation et traitement (insertion de X blancs). 840 : test du saut de ligne (l'utilisation de CHR$ (10) plutôt que CHR$ (13) permet la compatibilité avec certaines routines de la MEM en vue d'une transcription en assembleur). 850 : mise en mémoire du caractère lu. n°45 Février 83
Commande C 860 : test de débordement de programme et mise en mémoire. Commande R Un peu compliquée ! mais elle peut être rendue plus performante. La zone 880-900 étant commune à R et à S, la ligne 870 l'appelle par un GOSUB. 880 : lecture d'une chaîne de même longueur que la chaîne recherchée, dans le programme, à partir de l'emplacement du curseur. 890 : test pour vérifier que la chaîne est trouvée. Sinon, incrémentation du pointeur et message d'erreur si la fin du programme est atteinte. 900 : on décale la chaîne en éliminant le caractère de gauche et en ajoutant le caractère suivant du programme et on repart. Commande I 910 : elle provoque un décalage du programme vers la droite et fait appel à la commandèC. Commande S 920 : elle fait appel à la commande R et décale le programme vers la gauche. Commande) LIST 940 : elle lit les caractères en zone mémoire programme et les affiche sur l'écran. Commande L 950-980 : un peu plus compliquée que la précédente ; elle est de plus ralentie par des tests inutiles, que vous pouvez supprimer avec plaisir en scindant la boucle numéro 2 : avant PP puis après PP pour éviter le test de la ligne 970, qui positionne le curseur. Le PRINT USING est destiné aux numéros de lignes vides (on peut s'en passer !). L'interpréteur Lors de l'analyse du texte du programme, l'interpréteur utilise deux sous-programmes. 200-240 : lecture du caractère significatif suivant : c'est à peu de choses près le RST 16 de la MEM du TRS-80 avec, en plus, le fait qu'il saute joyeusement les commentaires (ligne 210) et qu'il regarde si l'on ne sort pas des bornes du programme (ce qui provoque alors une erreur, numéro quatre). 300-320 : lecture d'un mot. On cherche la première chaîne de caractères à partir de l'emplacement 1085 REM > RECHERCHE D'UN TERMINATEUR < 1090 GOSUB 200:IF X=59 GOSUB 200 (suite) ELSE IF X=46 THEN 1270 ELSE ERROR1 1100 REM > ANALYSE DES INSTRUCTIONS < 1105 IF X=44 OR X=33 THEN 1700 1110 IF X)41 ON X-41 GOTO 1210,1230,1240,1260,1270,1280 1120 IF X)90 ON X-90 GOTO 1330.1290 1125 IF X)39 ON X-39 GOTO 2000,2010 1130 IF X=63 THEN 1600 1135 IF X=59 GOSUB 200:GOTO 1100 1140 PP=PP-1:GOSUB 300 1145 IF A$="SORTIE" THEN 2020 1150 IF P$="OPPOSE" THEN 2040 1155 IF P$="SIGNE" THEN 2050 1190 SM(MA)=PP:SM(MA+1)=DV+256*FV DV=FV:MA=MA+2:X$=A$ GOTO 1020 1200 REM ===============))) BIBLIOTHEQUE « < === MIL 1210 GOSUB400:X'=Y ! : GOSUB400:Y ! =Y ! X ! : GOSUB410:GOT01090 1230 GOSUB400:X'=Y':GOSUB400:Y'=Y'+X':GOSUB410:GOT01090 1260 GOSUB400:U=Y':GOSUB400:Y'=Y'-X':GOSUB410:00T01090 1270 MA=MA-2 IF MA(2 RETURN ELSE IF SM(MA)



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 :


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