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 : 120 - 121  |  Aller à la page   OK
Pages suivantes >
120 121
Le logiciel autorise la création de programmes lumineux Réalisation à discrétion. 665 HOME : R$ = "" 670 PRINT "Voulez vous'voir'ce programme 675 IF R$ = "0" THEN PRINT CHR$ (4):"RUN 680 PRINT : PRINT "Voulez vous programmer 685 IF R$ = "0" THEN RUN 690 NEW 695 END 700 REM 1500 REM ** TRAITE ERREUR ** 1505 REM ** MAUVAISE SORTIE ** 1510 HOME : PRINT "Votre choix est de " FLASH : PRINT "8" NORMAL : PRINT " sorties.' ! ! " 1515 VTAB 21 : PRINT "Frappez une touche " GET R$ 1520 GOTO 305 1525 REM ** ERREUR CHOIX ** 1530 HOME : PRINT "Votre choix n'est pas valide !!! ! " 1535 VTAB 21 : PRINT "Frappez une touche " GET R$ 1540 GOTO 305 1545 REM ** ERREUR PGM ** 1550 HOME : PRINT "CE PROGRAMME EXISTE DEJA ". PRINT CHR$ (4) ; "CAT LOG" 1555 R$ = "" : INPUT R$ : GOTO 620 1560 REM 1600 REM ** ERREUR NUMERO ** 1605 HOME : PRINT G$ ; G$ ; "IL FAUT UN " INVERSE : PRINT : PRINT " DE PROGRAMME" 1610 VTAB 21 : PRINT "FRAPPER UNE TOUCHE" : GET R$ 1615 GOTO 625 1620 REM 10500 REM **** SBR HEXA > DEC **** 10505 IF B$ = "A" THEN B = 10 : RETURN 10510 IF 6$ = "B" THEN B = 11 : RETURN 10515 IF B$ = "C" THEN B = 12 : RETURN 10520 IF 8$ = "D" THEN B = 13 : RETURN 10525 IF 8$ = "E" THEN B = 14 : RETURN DISCOI" INPUT R$ a nouveau " INPUT R$ "NUMER0" NORMAL NAME..DISCO.DATE..08/20/84 TIME..2255 STARTING LINE..0 ENDING LINE..10600 PAGE..03 10530 IF B$ = "F" THEN B = 15 : RETURN 10535 GOTO 1530 10600 REM ***************************** Fig. 9 (suite et fin). NAME..DISCOI DATE..08/20/84 TIME..2301 PAGE..01 STARTING LINE..0 ENDING LINE..1500 0 REM ** INITIALISATION ** 5 G$ = "" : REM Ge=CTRL G 10 PA = 49347:PB = 49346:IB = 49344:IA = 49345:BUF = 8192 : DIM R(21) 15 POKE PA,255 : POKE P8,255 : POKE IA,255 : POKE 16,255 20 HOME : R$ = "" : PRINT "Desirez vous visualiser sur:" 25 VTAB 10 : HTAB 15 : FLASH : PRINT "(8>" INVERSE : PRINT " SORTIES" : NORMAL 30 VTAB 12 : HTAB 15 : FLASH : PRINT "<16>" INVERSE : PRINT " SORTIES" : NORMAL 35 VTAB 21 : PRINT "Votre choix : " INPUT R$ : IF VAL (R$) < > 8 AND VAL (R$) (> 16 THEN 35 40 SO = VAL (R$) 45 REM 100 REM **** CONFIG **** 105 POKE 216,00 110 HOME : PRINT "Desirez vous:" 115 VTAB 5 : HTAB 5 : FLASH : PRINT "" INVERSE : PRINT "OUCLER" : NORMAL 120 VTAB 8 : HTAB 5 : FLASH : PRINT "" INVERSE : PRINT "NCHAINER" : NORMAL 125 VTAB 11 : HTAB 5 : FLASH : PRINT "" INVERSE : PRINT "ORTIR" : NORMAL 130 135 VTAB 21 : INPUT "Votre choix : " ; R$ 140 IF R$ = "S" THEN HOME : NEW 145 IF R$ = "B" THEN LET C = 0 : GOTO 200 150 IF R$ = "E" THEN LET C = I : GOTO 200 155 GOTO 135 Fig. 10. — Listing du programme Discol. 120 MICRO-SYSTEMES que car on perd alors la souplesse souhaitée lors du déroulement de Discol. Il est à noter également que le programme publié ne fonctionne qu'avec les cartes décrites dans ce présent numéro. Les possesseurs de carte Via Apple classiques devront modifier les lignes 10 des deux programmes de la façon suivante : DISCO : 10 PB = 50178 : PA = 50179 : IB = 50176 : IA = 50177 : BUF = 8192 : DEBU = 0 : DB = 1 DISCOI : 10 PA = 50179 : PB = 50178 : IB = 50176 : IA = 50177 : BUF = 8192 : DIM R(21) Imaginons que la disquette est prête avec ses trois programmes, Init (en autostart), Disco et Disco 1. Assurez-vous que vos cartes d'interface son bien en place. Le programme décrit exige que la carte 6522 soit introduite dans le slot 4 sous peine de le voir se... planter. Lorsque l'on allume l'ordinateur, le programme Init se lance tout seul et offre un écran de présentation du programme Disco. Frappez alors une touche pour obtenir la suite. Celle-ci consiste en un menu qui ouvre les possibilités de lancer Disco (programmer), Discol (exécuter un programme de lumière), ou enfin de quitter Init en l'effaçant. La démarche logique veut que vous n'ayez pas encore de programmes de lumière sur votre disquette ; il vous faut donc en préparer au moins un. Pour cela, appuyez sur P.Vous obtenez de nouveau ce que les Anglo- Saxons nomment pompeusement la bannière du programme. Après avoir appuyé sur une quelconque touche, vous devez choisir entre 8 ou 16 sorties. Ainsi que nous l'avons dit plus haut, la version de base de la carte décrite est 8 sorties ; il vous faut donc, dans le cas où vous ne disposez que de la version de base, entrer « 8 ». La programmation Décembre 1984
16 entrées/sorties pour Apple II Réalisation 160 REM 200 REM **** VITESSE **** 205 HOME : PRINT "Entrez la vitesse de de+ilement:" INPUT R$:V = VAL (R$) 210 IF R$ = "" OR R$ = " " THEN PRINT G$ : GOTO 205 215 IF ASC (R$) > ASC ("9") THEN PRINT G$ : GOTO 205 220 IF C = 1 THEN 1075 225 IF C = 0 THEN HOME : GOTO 1105 230 HOME : PRINT "Entrez le numero de pain " INPUT NU$ 235 ONERR GOTO 1400 240 LET T$ = "BLOAD PGM" + NU$ : IF SO = 16 THEN T$ = T$ + ".16" 245 PRINT CHR$ (4) ; T$ 250 IF SO = 8 THEN L = PEEK (BUF) 255 IF SO = 16 THEN L = 2 * PEEK (OUF) 260 REM 300 REM ** DEROULEMENT ** 305 HOME 310 ONERR GOTO 1000 315 LET DEBU = 0 320 LET DEBU = DEBU + 1 325 IF DEBU = > L + 1 AND C = 0 THEN 315 330 IF DEBU = > L + 1 AND C = 1 THEN 1300 335 VTAB 1 : PRINT " " : HTAB 1 : PRINT DEBU 340 LET LA = PEEK (BUF + DEBU) 345 POKE IA,255 - LA 350 IF SO = 8 THEN 370 355 LET DEBU = DEBU + 1 360 LET LB = PEEK (BUF + DEBU) 365 POKE IB,255 - LB 370 FOR N = 0 TO V 375 NEXT N 380 GOTO 320 385 REM 390 REM 1000 REM ****** MODIF VITESSE ****** 1005 HOME 1010 HTAB 5 1015 INVERSE : PRINT "MODIFICATION DE LA VITESSE" : NORMAL : PRINT 1020 PRINT " < MOINS VITE PLUS VITE >" : PRINT 1025 FLASH : PRINT "'0'FIN DE PGM'ESPACE'RETOUR AU PGM" : NOPMAL : PRINT 1030 PRINT "VITESSE ACTUELLE : " FLASH : PRINT V : NORMAL 1035 PRINT : PRINT "NOUVELLE VITESSE : " ; 1040 GET A$ 1045 IF ASC (A$) = 8 THEN V = V - 2 1050 IF ASC (A$) = 21 THEN V = V + 2 1055 VTAB 9 : HTAB 19 : FLASH : PRINT V : NORMAL 1060 IF ASC (A$) = 32 THEN HOME : GOTO 315 1065 IF A$ = "Q" THEN RUN 1070 GOTO 1040 1075 HOME 1080 REM T10.0 REM ******* CHOIX ENCHAINE ******* 1105 PRINT "Commencez par verifler que" : PRINT allez me donner" : PRINT "existent" 1110 PRINT CHR$ (4) ; "CATALOG" : PRINT 1115 INVERSE : PRINT "POUR POURSUIVRE TAPER'S'1120 HOME : IF C = 0 THEN GOTO 230 1125 PRINT "ENTRER VOS No DE PROGRAMMES (MAXI 20)" : PRINT : PRINT "A LA FIN TAPER'0 1130 T = 1 1135 PRINT "CHOIX No" ; T ; " : " INPUT T$ 1140 IF T$ = "Q" THEN GOTO 1155 1145 LET R(T) = VAL (T$) 1150 LET T = T + 1 : IF T < = 20 THEN 1135 1155 T = 0 1160 REM 1300 REM *** ENCHAINE II *** 1305 T = T + 1 1310 IF T > 20 OR R(T) = 0 THEN T = 1 1315 IF STR$ (R(T)) = NU$ THEN 250 1320 LET NUS = STR$ (R(T)) 1325 GOTO 235 1330 END 1335 REM 1400 REM ** ERREUR PGM ** 1405 HOME : PRINT G$ ; G$ 1410 PRINT "LE PROGRAMME QUE VOUS AVEZ.." 1415 VTAB 18 : PRINT "FRAPPER UNE TOUCHE" : G ET R$ 1420 GOTO 100 1500 REM *********************** "les programmes que vous NORMAL : INPUT R$ DEMANDE" : PRINT "N'EXISTE PAS Fig. 10 (suite et fin). Décembre 1984 proprement dite commence. Vous entrez simplement les numéros des lampes à allumer (de 0 à 7 dans le cas de huit sorties, de 0 à F dans le cas de seize sorties) sans vous soucier de l'ordre. Par exemple, la séquence 0246 est similaire à 6204 allumant les lampes 0, 2, 4 et 6. Par contre, une entrée du type 02246 n'est pas du tout semblable à 0246. Ce type d'entrée donne d'ailleurs un résultat erroné qu'il vous est toutefois possible de rattraper si cela vous arrivait. Lorsque vous avez tapé les numéros des lampes à allumer, effectuez « return ». Vous obtenez alors un retour en voyant s'allumer les diodes LED correspondantes sur la carte de puissance. Il vous faut ensuite valider. Toute entrée différente de « N » est considérée comme une validation et la séquence est envoyée dans le buffer. A l'inverse, si vous tapez « N », votre dernière entrée est annulée et vous pouvez afficher la nouvelle. Si vous avez validé, vous arrivez à la séquence suivante. Disco possède quelques possibilités d'entrées supplémentaires. Ces ordres sont les suivants : M : renouvelle la dernière entrée. T : allume toutes les lampes. R : éteint toutes les lampes. Lorsque votre programme est terminé (fig. 12) et que vous êtes satisfait, tapez « Q ». Vous allez donner un numéro à votre programme (ce numéro doit être numérique, pardon pour le pléonasme, afin d'éviter de futures confusions). Si vous donnez un numéro déjà affecté, Disco vous en informe en vous donnant le « Catalog ». Il vous est alors demandé si vous désirez « voir » le programme que vous venez de réaliser. Si vous répondez par la négative, il vous est proposé de programmer à nouveau. Si vous ne voulez plus programmer, vous quittez le programme Disco en l'effaçant. Si vous avez demandé à voir votre MICRO-SYSTEMES — 121



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