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 : 220 - 221  |  Aller à la page   OK
Pages suivantes >
220 221
écran, celle-ci étant sauvegardée au-delà de RAMTOP. Voici donc une autre méthode, écrite en assembleur, qui sauvegardera une page écran dans une chaîne dimensionnée (704 (d)) qui devra être la première variable déclarée du programme (DIM A$ (704). Ce sous-programme est entièrement relogeable ; si on l'implante à la première ligne on l'appelle par RAND USR 16514 (tableau 2). Pour restaurer la page écran, il suffira de faire : PRINT AS. Les deux premières lignes de programme seront donc ainsi : 1 REM il 2 DIM AS (704) A noter que les sous-programmes présentés ici, ainsi que le programme du PROGRAMME ECRIVANT EN MINUSCULES POUR ZX81+MEMOIRE Entrer d'abord le petit Prelraln- -me Suivant 10 DIM X (216) 20 FOR I=1 TO 216 30 INPUT X(I) 40 PRINT XCIY- - - ; 50 NEXT I Rui5 raper RUN Puis pour chacune des 216 valeurs suivanres : entrer laual -eur puis la rauche "NEULINE- 0 ; 0 ; 120 ; 8 ; 120 ; 72 ; 126 ; 0 ; 0 32 ; 32 ; 60 ; 36 ; 36 ; 60 ; 0 ; 0 ; 0 ; 0 ; 60 ; 32 ; 32 ; 60 ; 0 ; 0 ; 4 ; 4 60'36 ; 36 ; 80 ; 0 ; 0 ; 0 ; 50:. 3 6 ; 60 ; 32 ; 60 ; 0 ; 0 ; 28 ; 32 ; 32 ; 56 ; 32 ; 32 ; 0 ; 0 ; 60 ; 36 ; 60 ; 1 2 ; 20 ; 20 ; 8 ; 10 ; 32 ; 32 ; 32 ; 50 ; 36 ; 36 ; 0 ; 0 ; 16 ; 0 ; 16 ; 15 ; 16 24 ; 0 ; 0 ; 8 ; 0 ; 8 ; 8 ; 8 ; 8 ; 56 ; 0 ; 32 ; 36 ; 40 ; 48 ; 40 ; 36 ; 0 ; 0 ; 16 ; 16 ; 16 ; 16 ; 16, 16 ; 0 ; 0 ; 0 ; 0 ; 124 ; 82 ; 82 ; 82 ; 0 ; 0 ; 0 ; 0 ; 56 ; 36 ; 36 ; 36 ; 0. ; 0 ; 0, 0 ; 60 ; 36 ; 36 ; 60 ; 0 ; 0 ; 0 ; 60 ; 36 ; 36 ; 60 ; 32 ; 32 ; 0 : 0 ; 60 ; 36 ; 3 6 ; 60 ; 4 ; 4 ; 0 ; 0 ; 0 ; 28 ; 16 ; 16 16 ; 0 ; 0 ; 0 ; 28 ; 16 ; 28 ; 4 ; 28 ; 0 ; 0 ; 16 ; 28 ; 16 ; 16 ; 16 ; 16 ; 0 ; 0 ; 0 ; 0 ; 36 ; 36 ; 36 ; 62. ; 0 ; 0 ; 0 ; 0 ; 36 ; 36 ; 36 ; 24 ; 0 ; 0 ; 0 ; 0 ; 74 ; 74 ; 74. ; 52 ; 0 ; 0 ; 0 ; 0 ; 36 ; 24 ; 24 ; 36 ; 0 ; 0 ; 0 ; 36 ; 36, 60 ; 16 ; 16 ; 0 ; 0 ; 0 ; 124 ; 3 ; 18 ; 32 ; 1.24 ; 0 ; 0 ; 5 ; 8 ; 16 ; 1 ; 0 ; 0 ; 0 ; PARTIR DE MAINTENANT N'ENTRER NI -RUN- NI "CLEAR" NI "NEW'usqu'a ce que vous avez char -tF1 l e prellrairkine final SANS QU'IL N'Y AIT BESOIN D EtereA CER LE PROGRAMME PRECEDRNT IL FAUT ENTRER CELUI-LA 1 REM "ECRIT EN MINUSCULES" 2,SAVE "ÉCRIT EN MINUSCULE" 3 POKE 16389,124 4 FAST 5 FOR I=0 TO 112 6 POKE 31744+I,PEEK (2161+I) 7 NEXT I 8 POKE 31800,63 9 POKE 31857,201 21 PRINT "ENTRER L ECRITURE (E N MODE","GRAPHIQUE POUR LES MINU SCULES)" 22 INPUT C$ 23 CLS 25 DIM B$(32*(1+LEN C$.<32)) 27 LET 8$=C$ 30 FOR 1=0 TO LEN B$2-32-1 35 DIM A$(32 ; 8) 40 FOR A=1 TO 32 50 GOSUB 1000 60 NEXT R 70 GO5U8 9988 80 NEXT I 90 GOTO 20 manuel d'utilisation de l'imprimante, nécessitent un fichier d'affichage à sa taille maximale. Yves Husson Imprimante ou machine à écrire ? L'adjonction d'une imprimante au ZX-81 ne manque pas d'intérêt ; tous les possesseurs de ce modèle en Programme ZX-80/81 sont déjà persuadés. Cependant, l'apostrophe et les minuscules faisaient défaut dans le Basic standard. Voici ci-dessous un petit programme qui y remédie et permet d'utiliser l'imprimante comme une machine à écrire. Serge Hugonnard 1000 LET C=CODE B$(1+32+R) 1005 IF 0=192 THEN LET C=11 1007 IF C=154 THEN LET C=192 1010 IF C>=0 AND C<=6'3 THEN GOTO.1030 1020 IF C>=166 AND C<=192 THEN G {TO 1070 1025 RETURN 1030 FOR E=1 TO 1035 LET P$(R,E)=CHR$ PEEK (7679 +E+(8*-C)) 1040 NEXT E 1050 RETURN 1070 FOR E=1 TO 8 1080 LET P$(R,E)=CHP$ X(fC-166)* 8+E) 1090 NEXT E 1100 RETUr-N 9988 FOR J=1 TO 32 9990 FOR K=1. TC 8 9992 POKE 3225t5+K+8*4J-1) ; CnDE A $(J,K) 9993 NEXT K 9994 NEXT i 9995 FOR ri,z0 TO 31 9996 POKE 16444 4-H,M 9997 NEXT H 9998 LET HPRINT=U8P 51744 9999 RETURN Puis taper la touche-FAST" TAPER "GOTO" Et, avant de taper "NEULINE", ME TIRE VOTRE ENREGISTREUR EN PO8 TTION D'ENnFnI5Tt›FMENT Lorsque l'enreisrrealenr EST TER MINE LE RROGRRMME R DEMRRE IL NE VOUS RESTE QU'ri ENTRER VO TRE TEXTE EN PENSANT A LA PRESEN TATION (CHAQUEl./GNE DE L'IMPRI MANTE AYANT 32 CRRACTERE8) POUR QUE TCUS LES PREMIeP5 CARACTERFS SOIENT R LA terne COLONNE DE DROI TE. SONNES ECR/TvRtS *Jarre jeu. de carcheres. que rehausse d'un rote estZfe.Pu te d'un autre En errer vous he disposen plus que deS cdractEre5 suivants : (espace) uni'ileY $ r 7) > + - e/1 2 3 4 5 6 7 8 9ABC H IJKLMNOFOR5 X Y Z'(apostrophe) a b Ihijkimnupq O D E F T U U ✓ de F r u Que unuS ubreneZ rESPEcliuF.4:eni par Pour l'espare ; tout saur les i ; » TRE APRES..n.tere. (DOU8LES GUILLEMES)POUA, " £ $) > < m + 0 1à3 4 5 6 789P8CDei G HIJKLM_N O_P 9RS_TUU W X Y Z latV-è-v,IiLt EN (10PtGAAf) a à M rAerrl ! POUP LEB riNuSCULEm L'Ordinateur Individuel 220 4'45 Février 83
V du p.e.t. INPUT d'une expression arithmétique Il est intéressant, parfois, d'introduire des données sous la forme d'une expression arithmétique telle : QUANTITE ? 20 + 40 - 70. L'instruction : 10 INPUT « QUANTITE » ; Q ne le permet pas. Le CBM affiche le message d'erreur « ? REDO FROM START », soit « recommencez ». La solution serait d'entrer cette expression sous forme de chaîne de caractères et d'utiliser un sous-programme de décodage. C'est ce que propose le programme suivant. Dans sa version actuelle, il ne permet que les additions et soustractions, mais rien n'empêche d'y inclure d'autres opérations mathématiques. Denis-Henri Petit 1 REM TEST : INPUT D'UNE EXPRESSION ARITHMETIOUE 2 REM DENIS-HENRI PETIT 10 PRINT"OURNTITE".:.:00SUB1000:Q=X 20 PRINTQ 30 END 1000 INPUT Xi:L=LEN(X$) 1010 I=1:B$="":0P=0:F=0 1020 Ae.M10i



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