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 : 138 - 139  |  Aller à la page   OK
Pages suivantes >
138 139
1 3 DIM Pril9.111 11111111 4 01M 5$(1,1) 5 DIM M$(1,1) 6 PIM/4(1,1) 7 D/M J$(1 ; 13 6 DIM K$(1.1) 9 DIM L$(1,1) 10 DIM 0$(1,1) 11 DIM E$(1,1) 15 GOSUB 4000 19 GOTO 500 20 INPUT A$ 21 PRINT AT ZZ,0 ; A$ 22 LET ZZ=ZZ+1 23 IF ZZ)=21 THEN GOSUB 5000 24 IF LEN A$.(4 THEN GOTO 30 25 IF 6$(1 TO 4)<>"POUR" THEN GOTO 30 26 IF 54180 THE>. GOTO 490 27 PRINT -PAS POSSIBLE : PLUS D E PLACE 26 LET U=0 29 RETURN 30 LET C$="" 31 LET 1$= 32 FOR N=1 TO LEN R$ 33 IF CODE A$(N)>37 OR CODE AS (N) <20 TMEN LET Z$=Z$+R$(N) 34 IF CODE A$(N)<=37 AND CODE 34(N),20 THEN LET C$=C$+R$(N) 35 NEXT N 36 IF Z$ "FIN" TMEN LET U=0 37 RETURN 40 IF M$ (TO 21=- AV- THEN LET 42 IF M5 (TO 21=-GR- THEN LET A=R+(BM*PI.,180) 44 IF M$ (TO 21=-DR- TMEN LET A=R-(6M*PI/160) 45 IF M$ (TO 21=- » - THEN LET (4=A+(6MtPI/180) 46 IF M$ (TO 21=") THEN LET RelaRM+BM 46 IF M1) (TO 2)." » - OR M$ (TO 2)=-DR- OR H$t TO 2)=-GA" THON RETURN 50 IF M$ (TO 2)4/-115- AND MS(1 ic) - > - THEN GOSUB 70 51 IF NOT U THEN GOTO 66 52 FOR R=1 TO RH 53 LET XX=X+R*C05 A 54 LET YY=Y+R*SIN R 55 IF XX,63 OR YY143 THON GOTO 58 56 IF V TMEN PLOT XX,YY Se NEXT R 60 LET X=XX 62 LET Y=YY 66 LET u=1 68 RETURN 70 IF MS(, -CACH- THON GOTO 86 72 LET U=0 75 LET V=0 80 RETURN 86 IF M$t) -MONT- THEN GOTO 95 87 LET U=0 88 LET V=1 90 RETURN 95 LET TT=220 98 LET TP=6 99 LET T=0 100 LET PA=O 102 IF P1S=D$(1) THEN GOTO TT 104 LET T=T+TP 106 LET PA=E 106 IF MS=ES(1) THON 110 LET T=T+TP 112 LET PAse GOTO TT 114 IF M5=F$(1) THEN GOTO TT 116 LET T=T+TP 116 LET PA=G 120 IF ms=astr, THON GOTO TT 122 LET T=T+TP 124 LET PR=H 126 IF MS=M$(1) THEN GOTO TT 128 LET TeT+TP 130 LET PA=I 132 IF M$=I$(1) THEN GOTO TT 134 LET T=T+TP 136 LET PA=J 136 IF M$=,16(1) THON GOTO TT 140 LET T=T+TP 142 LET PA=K 144 IF Mg)=K$(1) THEN GOTO TT 146 LET T=T+TP 148 LET PA=L 150 IF MS=L$(1) THEN GOTO TT 152 LET T=T+TP 153 LET 1=1 154 IF M$="PROG" THON GOTO 156 155 PRINT AT 1,0 ; "LE NOM N EST PAS DECLRRE- 156 LET P=0 157 LET U=0 158 LET m=0 159 RETURN 160 LET PS=DS(N) 162 LET PP=D(N) 164 RETURN 166 LET PS=Es(N) 168 LET PP=E(N) 170 RETURN 172 LET P$=F$(N (174 LET PP=F(N) 176 RETURN 178 LET PS=GS(N1 150 LET PP=G(N) 162 RETURN 184 LET P5=e15(N) Programme graphique pour ZX-81 186 LET PP=M(N) 186 RETURN 190 LET PS=IS(N) 192 LET PP=I(N) 194 RETURN 196 LET P$=J$(N) 198 LET PP=U(N) 200 RETURN 202 LET P$=K$(N) 204 LET PP=K)N (206 RETURN 208 LET PS=L*(N) 210 LET PP=L(N) 212 RETURN 220 LET NN=2 223 LET CB=0 224 FOR C=1 TO EE 226 FOR N=NN TO PR 226 GOSUB 160+T 229 IF NOT PP AND P5r› -CRCNE- (40 Pie "MONT" TMEN SOSUB 6000 230 IF P$<>"REPE- THEN GOTO 238 -32 LET EE=PP 233 LET N.N+1 234 LET NN=N 236 GOTO 224 238 LET MS=PS 240 LET BM=PP 242 GOSUB 40 243 NEXT N 244 NEXT C 245 IF CT THEN GOSUB 6100 246 IF CB TMEN GOTO 223 247 LET T=0 248 LET EE=1 250 LET U=0 252 RETURN 300 LET D=0 302 DIM 0$10,4) 304 LET D$(1)=A$(6 TO) 306 DIM D(D) 308 FOR T=2 TO 0 310 312 314 L CS 316 318 320 322 324 326 38 330 332 334 CS 336 338 340 342 344 346 sse 352 354 CS 356 358 360 362 364 366 368 370 372 374 L CS 376 378 380 382 384 386 388 390 392 394 L CS 396 398 400 402 404 406 4ee 410 412 414 CS 416 418 420 422 424 426 423 430 432 434 - CS 436 438 440 442 444 446 443 450 452 454 GOSUB 20 LET DS(T)=ZS IF CODE CS THEN LET D(T)=1,1F. NEXT T RETURN LET E=0 DU* ES(E.4) LET E$(1)=AS(6 TO) DIM EfE1 FOR T=2 TO GOSUB 20 LET ES(1- 1=7$ IF CODE CS TMEN LET E(T)=VF NEXT T RETURN LET F=0 DIM FS(F,4) LET F$(11=A$(6 TO) DIM F(F) FOR T=2 TO 0 GOSUB 20 LET FS(T)=Z$ IF CODE C$ THEN LET F(T)=VR NEXT T RETURN LET G=0 DIM 5$(5,4) LET G$(1)=A$t6 TO) DIM G(G) FOR T=2 TO 0 GOSUB 20 LET GS(T)=Z5 IF CODE CO THON LET G(T)=VR NEXT T RETURN LET H=0 DIM LET H$(1)=R$(6 TO DIM H(M) FOR T=2 TO GOSUB 20 LET MS(T)=Z$ IF CODE C$ THON LET H(T)=VR NEXT T RETURN LET 1=0 DIM 15(1,4) LET I$11=6$(6 TO) DIM I(I) FOR T=2 70 GOSUB 20 LET IS(T)=Z$ IF CODE CS THEN LET I(T)=VA NEXT T RETURN LET 5=0 DIM JS(J,41 LET 5$(11=65(6 TO) DIM 5(..1) FOR T=2 TO 0 GOSUB 20 LET J5(T)=2$ IF CODE C$ THON LET J(T)=VR NEXT T RETURN LET K=0 DIM KS(K,4) LET K$(1)=65(6 TO 1 DIM FOR T=2 TO 0 GOSUB 20 LET K$iT1=7.$ IF CODE CI THON LET (T) « VR - CS 456 458 460 462 464 456 468 470 472 474 L $ 476 478 490 492 494 496 500 501 502 504 506 508 510 512 514 516 518 519 520 522 523 524 1000 1020 1022.030 1232 1034 1048 1050 CA. 1054 1055 1056 1057 1.358 1059 1060 1061 1062 1063 1064 1065 1066 1068 1070 1072 NEXT T RETURN LET L=0 DIM LS(L,4) LET TO › DIM L(L) FOR T=2 TO O GOSUB 20 LET LS‘T, =Z$ IF CODE C$ THEN LET L(T)=Lei (NEXT T RETURN GOSUB 300+5 LET S=5+20 LET U=0 RETURN CL5 LET X=30 LET Y=20 LET A=0 LET EE=1 LET Z=EE LET (.1=2LET 0=1 LET U=7 » LET T=A LET V=.7 LET 211=3 LET CT=A LET ce=a LET P$="" LET 5T=-1 GOSUB 3000 DIM 8$(04) DIM 8(0) FOR M=1 TO 0 GOSUB 20 IF NOT U THEN GOTO 500 LET 65((11 =15 IF CODE CI THEN LET B(M)=V A NEXT M LET MM=1 FOR P=1 TO 0 FOR M=MM TO 0 IF BS(M)(, -REPE- THEN GOTO LET 0=8(M) LET MH=M+1 LET M=M+1 GOTO 1056 LET M5=8S(M) LET BM=B(M) GOSUB 40 NEXT H NEXT P IF MOT Z THEN GOTO 1030 PRINT AT 0,07 1074 LET 0=1 1075 PAUSE 404 1e76 IF INKEYS="Z- THEN COPY 1092 GOTO 1000 2000 SRVE -zxLoole 2001 RUN 3000 PRINT RT 0,0 ; -DESIREZ DONNER PLUSIEURS ORDRES POIS 7 3005 LET U=1 3010 INPUT A$ 3015 IF A$(1)=-0- THEN GOTO 3100 3020 LET 0=1 3025 LET Z=0 3040 GOTO 3110 3100 PRINT "COMBIEN'7'- 3105 INPUT O 3110 PRINT AT 0,0," 3111 PRINT - 3112 PRINT AT 0,0 "'DONNER L ORDR.5 QUAND » -M"'PARAIT" 3115 IF 0411 THON PRINT AT 1,0 ; 0 ORDRES" 3120 RETURN 1000 LET 5=0 4001 LET D=5 4002 LET E=5 4003 LET F=S 4004 LET G=.5 4005 LET H=5 4006 LET/=5 4007 LET J=5 4008 LET K=S 4009 LET L=5 4011 RETURN 3000 FOR N=2 TO 21 5005 PRINT AT N,0 ; " 5010 NEXT N 5015 LET ZZ=2 5020 RETURN 3000 LET SC=C 5005 LET 5EE=EE 6010 LET SN=N+1 6015 LET SNN=SN 6020 LET SPR=PR 3022 LET ST=T 3025 LET CT=1 5030 RETURN 5100 LET C=SC 5105 LET EE=SEE 3110 LET N=SN 3115 LET NN=5NN 4120 LET PR=SPA 6125 LET T=ST 5130 LET CT=0 6135 LET CB=1 5140 RETURN 5356 OCTETS DE PROGRAMME. ('Ordinateur Individuel 138 n 45 Fevner 83 VOUS R LA
Ligne 1 : Ligne 15 : Ligne 19 : Ligne 20 : Ligne 40 : -Ligne 50 : Ligne 52 : Ligne 55 : Ligne 70 : Ligne 95 : Ligne 154 : Ligne 160 : Ligne 220 : Ligne 229 : Ligne 244 : Ligne 300 : Ligne 478 : Ligne 490 : Ligne 500 : Ligne 501 : Ligne 1000 : Ligne 1020 : Ligne 1032 : Ligne 1059 : Ligne 1065 : Ligne 1072 : Ligne 1076 : Ligne 1092 : Ligne 2000 : Ligne 2001 : Ligne 3000 : Ligne 3015 : Ligne 3020 : Ligne 3100 : Ligne 3110 : Ligne 4000 : Ligne 5000 : Ligne 6000 : Ligne 6100 : Structure du programme initialisation des tableaux contenant les instructions programmées. (voir en 4000). (saut en début de programme). séparation des composantes numériques et alphabétiques des variables. identification des instructions de base (sauf CACH et MONT) et affectation à des variables de commandes graphiques. saut vers identification des autres instructions (70). dessin point par point avec « glissement » des axes de coordonnées. sécurité pour les coordonnées dépassant la résolution de l'écran. identification des instructions CACH et MONT. vérification de l'existence de l'instruction programmée dans le tableau ad hoc. message d'erreur si l'instruction est inconnue. recherche du programme de l'ihstruction. exécution de l'instruction programmée. l'instruction contient-elle une autre instruction programmée ? (test) fin d'exécution. tableaux des neuf instructions programmées (ces neuf tableaux sont identiques. Ils sont déclarés en ligne 1 à 11 et sont remplis successivement en fonction de la variable S contrôlée entre les lignes 490 à 496). fin de tableau. contrôle de la variable S. début du programme. initialisation des variables — sauf celles gérant les instructions programmées — et positionnement du pointeur au centre de l'écran. choix du mode (voir en 3000). initialisation du tableau des entrées. voir Input à partir de 20. réinitialisation de la boucle en cas de répétition. exécution du dessin (voir en 40). fin du programme principal. copie du dessin ? (test) sous-programme en 3000 (voir en 1000). sauvegarde du programme. lancement. choix du mode. test de choix. initialisation du mode direct. suite du mode programme. réunion des sous-programmes et gestion de mise en page. initialisation des variables contrôlant la longueur des tableaux d'instructions programmés. boucle de sécurité ; effacement partiel des instructions lorsque leur nombre est trop important. sauvegarde des variables de contrôle de la boucle 220 à 244. restitution des variables de contrôle. e 45 Févner 83 139 DONNER L ORDRE QUAND PARAIT 8 ORDRES C FiCH'3A90 a010 D R90 MONT REPE36 e-.2 DR 10 DONNER L ORDRE QUAND PARAIT 3 ORDRES CACH ; A90 RU 10 CAR 150 MONT PEPE3 PU20 DR120 DONNER L ORDRE QUAND PARAIT ORDRES C:riC1-1 Ga90',IV 10 990 ioNT CF E k" - !, J20 GR90 Quelques autres exemples de dessins réalisés à l'aide du programme. par fréquence d'appels. Cette disposition permet d'améliorer la vitesse d'exécution. Dans le même esprit, il est possible d'ajouter : 221 FAST 251 SLOW Pour faire imprimer les essais obtenus, il y a deux possibilités : 1°) en mode programme : appuyer sur la touche « COPY Z », lorsque le bandeau en vidéo inverse « ordres exécutés appuyer sur C » est affiché ; 2°) en mode direct : faire PROG pour revenir à l'affichage du bandeau, et faire comme précédemment. Assez simple d'utilisation, ce programme est suffisamment structuré pour faciliter toute modification. Rien n'empêche en effet d'augmenter le nombre des instructions programmables, de concevoir des instructions de deuxième niveau, ou même, plus simplement, de concevoir quelques instructions de base supplémentaires. Tout cela avec, bien sûr, un peu de mémoire en plus. Et les plus prévoyants pourront même envisager de gérer huit couleurs... en attendant la sortie du ZX Spectrum. Jean-Pierre Ramet L'Orenateur Individuel



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