Micro Systèmes n°22 mar/avr 1982
Micro Systèmes n°22 mar/avr 1982
  • Prix facial : 18 F

  • Parution : n°22 de mar/avr 1982

  • Périodicité : mensuel

  • Editeur : Société Parisienne d'Edition

  • Format : (213 x 271) mm

  • Nombre de pages : 230

  • Taille du fichier PDF : 176 Mo

  • Dans ce numéro : David Em, artiste sur ordinateur... un voyage dans le monde de l'imaginaire.

  • Prix de vente (PDF) : gratuit

Dans ce numéro...
< Pages précédentes
Pages : 140 - 141  |  Aller à la page   OK
Pages suivantes >
140 141
610 INPUT " H.MN  : " ; TP 620 PRINT  : PRINT " HAUTEUR PLEINE MER SOUS LA FORME " 640 INPUT " M.CM  : " ; HP 660 PRINT  : PRINT " HEURE BASSE MER SOUS LA FORME " 670 INPUT " H.MN  : " ; TB 690 PRINT  : PRINT " HAUTEUR BASSE MER SOUS LA FORME " 700 INPUT " M.CM  : " ; HB 710 PRINT 800 TP = 60 * INT (TP) + 100 * (TP - INT (TP)) 810 TB = 60 * INT (TB) + 100 * (TB - INT (TB)) 820 TP = TP + K1 830 HP = HP + K2 840 TB = TB + K3 850 HB = HB + K4 2000 GOTO 4080 3000 END 4000 INPUT " NOM DU PORT PRINCIPAL " ; A$ 4005 PRINT 4010 INPUT " LA DATE " ; B$ 4020 PRINT  : PRINT " HEURE PLEINE MER SOUS LA FORME " 4025 INPUT " H.MN  : " ; TP 4030 PRINT  : PRINT " HAUTEUR PLEINE MER SOUS LA FORME " 4035 INPUT " M.CM  : " ; HP 4040 PRINT  : PRINT " HEURE BASSE MER SOUS LA FORME " 4045 INPUT " H.MN  : " ; TB 4050 PRINT  : PRINT " HAUTEUR BASSE MER SOUS LA FORME " 4055 INPUT " M.CM  : " ; HB 4060 TP = 60 * INT (TP) + 100 * (TP - INT (TP)) 4070 TB = 60 * INT (TB) + 100 * (TB - INT (TB)) 4080 DT = ABS (TP - TB) 4090 IF DT > 720 THEN 6000 4100 IF TB< TP THEN Te = TB  : T6 = TP  : GOTO 4120 4110 TO = TP  : T6 = TB 4120 DT = T6 - Te 4130 REM TO EST L'HEURE DE DEBUT DE LA MAREE (MONTANTE OU DESCENDANTE) 4140 HM = DT/6 4150 REM HM EST L'HEURE MAREE 4160 T1 = TO + HM  : T2 = T1 + HM  : T3 = T2 + HM  : T4 = T3 + HM  : T5= T4+HM 4170 DH = HP - HB  : HH = DH/12 4180 HO = HB  : H1 = HO + HH  : H2 = HO + 3 * HH 4185 H3 = (HP + HB)/2 4190 H4 = HP - 3 * HH H5 = HP - HH  : H6 = HP 4195 GOSUB 6300 4200 T = Te  : GOSUB 6100 4210 TA = TX TW = TY 4220 T = T1  : GOSUB 6100 4230 TC = TX  : TD = TY 4240 T = T2  : GOSUB 6100 4250 TE = TX  : TF = TY 4260 T = T3  : GOSUB 6100 4270 TG = TX TH = TY 4280 T = T4  : GOSUB 6100 4290 TI = TX  : TJ = TY 4300 T = T5  : GOSUB 6100 4310 TK = TX  : TL = TY 4320 T = T6  : GUSU.B 6100 4330 TM = TX  : TN = TY 4360 T = TP  : GOSUB 6100 4370 TR = TX  : TS = TY 5100 PRINT A$ ; " " ; Bie 5150 PRINT 5160 T6 = TM + TN/100  : TP = TR + TS/100 5200 IF T6 = TP THEN 5400 5210 PRINT " HEURE PM " HTAB 11  : PRINT TA ; "H" ; TW ; "MN" ;  : HTAB 22  : PRINT " HAUTEUR PM " ;  : HTAB 35  : PRINT H6 ; "M" 5215 PRINT 140 — MICRO-SYSTEMES Mars-Avril 1982
5220 HTAB 11  : PRINT TC ; "H" ; TD ; "MN" ;  : HTAB 35  : PRINT H5 ; "M" 5225 PRINT 5230 HTAB 11  : PRINT TE ; "H" ; TF ; "MN" ;  : HTAB 35  : PRINT H4 ; "M" 5235 PRINT 5240 PRINT " MI—MAREE " ;  : HTAB 11  : PRINT TG ; "H" ; TH ; "MN" ;  : HTAB 22  : PRINT " HAUTEUR MM " ; HTAB 35  : PRINT H3 ; "M" 5245 PRINT 5250 HTAB 11  : PRINT TI ; "H" ; TJ ; "MN" ;  : HTAB 35  : PRINT H2 ; "M" 5255 PRINT 5260 HTAB 11  : PRINT TK ; "H" ; TL ; "MN" ;  : HTAB 35  : PRINT H1 ; "M" 5265 PRINT 5270 PRINT " HEURE BM " ;  : HTAB 11  : PRINT TM ; "H" ; TN ; "MN" HTAB 22  : PRINT " HAUTEUR BM " ;  : HTAB 35  : PRINT HO ; "M" 5275 PRINT 5280 PRINT " POUR LE MEME PORT FRAPPER UVE TOUCHE " 5285 PRINT 5290 CET C$ 5300 IF W = 1 THEN 4010 5310 GOTO 350 5400 PRINT " HEURE BM " ;  : HTAB 11  : PRINT TA ; "H" ; TW ; "MN" ;  : HTAB 22  : PRINT "HAUTEUR BM " ;  : HTAB 35  : PRINT HO ; "M" 5405 PRINT 5410 HTAB 11  : PRINT TC:"H" ; TD:"MN" ;  : HTAB 35  : PRINT H1 ; "M" 5415 PRINT 5420 HTAB 11  : PRINT TE ; "H" ; TF ; "MN" ; HTAB 35  : PRINT H2 ; "M" 5425 PRINT 5430 PRINT " MI—MAREE " ;  : HTAB 11  : PRINT TG:"H" ; TH:"MN" ;  : HTAB 22  : PRINT " HAUTEUR MM " ;  : HTAB 35  : PRINT H3 ; "M" 5435 PRINT 5440 HTAB 11  : PRINT TI ; "H" ; TJ ; "MN" ;  : HTAB 35  : PRINT H4 ; "M" 5445 PRINT 5450 HTAB 11  : PRINT TK ; "H" ; TL ; "MN" ;  : HTAB 35  : PEINT H5 ; "M" 5455 PRINT 5460 PRINT " HEURE PM " ;  : HTAB 11  : PRINT TM ; "H" ; TN ; "MN" ;  : HTAB 22  : PRINT " HAUTEUR PM " ;  : HTAB 35  : PRINT H6 ; "M" 5470 GOTO 5275 5900 END 6000 IF TB < TP THEN T6 = TB  : T0 = TP  : GOTO 6020 6010 T6 = TP TO = TB 6020 T6 = T6 + 1440  : GOTO 4120 6100 T = INT (T) 6105 REM POUR AVOIR UN NOMBRE ENTIER DE MN 6110 TX = INT (T/60) 6115 REM TX REPRESENTE LES HEURES 6120 TY = T — 60 * TX 6125 REM TY REPRESENTE LES MN RESTANTES 6130 IF TX> 23 THEN TX = TX — 24 6135 REM ON PASSE AU LENDEMAIN MATIN 6140 RETURN 6200 Z = 100 * H  : Z = INT (Z) 6210 H = Z/100  : RETURN 6300 H = HO  : GOSUB 6200 6310 HO = E 6320 H = H1  : GOSUB 6200 6330 H1 = H 6340 H = H2  : GOSUB 6200 6350 H2 = H 6360 H = H3  : GOSUB 6200 6370 H3 = H 6380 H = H4  : GOSUB 621-‘ 63Q0 H4 = H 6400 H = H5  : GOSUB 6200 6410 H5 = H 6420 H = H6  : GOSUB 62(0 6430 H6 = H 6440 RETURN Mars-Avril 1982 MICRO-SYSTEMES — 141



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