SVM n°24 janvier 1986
SVM n°24 janvier 1986
  • Prix facial : 18 F

  • Parution : n°24 de janvier 1986

  • Périodicité : mensuel

  • Editeur : Excelsior Publications

  • Format : (203 x 280) mm

  • Nombre de pages : 132

  • Taille du fichier PDF : 149 Mo

  • Dans ce numéro : spécial Amiga de Commodore.

  • Prix de vente (PDF) : gratuit

Dans ce numéro...
< Pages précédentes
Pages : 70 - 71  |  Aller à la page   OK
Pages suivantes >
70 71
l'606 IF S(w,12)=0 THEN GO TO 650 0 608 PRINT AT bb,2 ; T$(w) ; " " ; T$ (S(w,12)) ; S(w,12)) : INK l ; 1 ; AT bb,24:"1 bb,211 ; "1 N 2" 610 LET a=S(w,12) : LET S(w,16)= bb 620 LET pb=45+(1.85*(S(a,2)-S(w pb=li5+(1.85*(S(a,2)-S(w, 2)))'622 LET pb=pb*(S(w,13)/sdm)*(se m/S(a,13)) 624 6211 LET fm1=.80+.20*(S(w,10)=1) +.45*(S(w,10)>1) +.1 ! 5*(S(w,10)>1) 626 LET fm2=.80+.20*(S(a,10)=1) +.45*(S(a,10)>1) +.1 ! 5*(S(a,10)>1) 628 LET cp1=.80+.20*(S(w,11)=0) CP1=.80+.20*(S(w,11)=0) +.45*(S(w,11)=1) +.1 ! 5*(S(w,11)=1) 630 LET cp2=.80+.20*(S(a,11)=0) +.45*(S(a,11)=1) +.li5* (640 6110 LET pb=pb*(fml/fm2)*(cpl/cp pb=pb*(fm1/fm2)*(cp1/cp 2) 645 6115 LET S(w.14)=pb : S(w,ll !) =pb : LET bb=bb+1 b+ l : PRINT PRIN.T INK 7 ; AT 7 : bb-1,20 ; INT pb 650 NEXT w 700 FOR w=l w=1 TO 20 702 IF S(w,12)=0 THEN GO TO 722 704 7011 LET c1=1 cl=l 710 FOR q=1 q=l TO 20 712 IF q=w THEN GO TO 718 714 7111 IF S(q,14)=0 S(q,11 !) =0 THEN GO TO 718 716 IF S(4,14)>=S(w,14) S(q,ll !) >=S(w,11 !) THEN LE L""E T cl=c1+1 cl=cl+l 718 NEXT q 720 LET S(w.15)=c1 S(w.15)=cl 722 NEXT w 750 FOR w=1 w=l TO 20 751 IF S(w,12)=0 THEN GO TO 760 752 IF S(w,15)=10 OR S(w,15)=9 THEN PRINT INK 6 ; AT S(w,16),28 ; " 2" 2 " 754 751 ! IF S(w,15)=8 OR S(w,15)=7 T HEN PRINT INK 6 ; AT S(w,16).26 ; "N S(w,16),26:"N v. " 756 IF S(w,15)=6 THEN PRINT INK K 6 ; AT S(w,16),24 ; "1 S, 211 ; "1 N" 758 IF S(w,15)<6 AND S(w,15)>0 THEN PRINT INK 6 ; AT 6:AT S(w,16),211:" S(w,16),24 ; " 1" l " 760 NEXT w 765 BEEP 1.50 : BEEP.5,30 : PRIN T PAPER 4 ; li ; INK 0 ; AT O:AT 19,5 ; "VOICI 19,5:"VOICI MES PRONOSTICS " 800 STOP 1000 PRINT PAPER 0 ; O : INK 6 ; AT bb, 25 ; "1" ; 25:"1" : INK 1 ; AT l ; AT bb,27 ; "N : 2" : 2 11 : RE TURN 1010 LET S(w,1)=S(w,1)+2 : S(w,l)=S(w,1)+2 : LETS S ( (w,l !) =S(w,li)+l : w,4)=S(w,4)+1 : LET S(w,7)=1 1020 LET S(a,7)=0 1025 RETURN 1100 PRINT PAPER 0 ; O ; INK 1 ; AT l ; AT bb, 25 ; "1" ; INK 6:AT 6 ; AT bb,27 ; "N" ; : ; INK 1 ; AT l:AT bb.29 ; "2" : bb,29:"2" : RETURN 1110 LET S(w,1)=S(w,1)+1 : S(w,l)=S(w,1)+1 : LETS S ( (w,7)=0 1120 LET S(a,l)=S(a,1)+1 : S(a.l)=S(a,1)+1 : LET S(s,7)=1 a,7) 1125 RETURN 1200 PRINT PAPER 0 ; O : INK 1:AT l ; AT bb, 25 ; "1 N" ; N" : INK 6 ; AT bb,29 ; "2" : RE TURN 1210 LET S(w,7)=-1, 1220 LET S(a,1)=S(a,1)+2 : S(a,l)=S(a,1)+2 : LET S (a.7)=2 : LET S{a,6)=S(a,6)+1 S(a,6)=S(a,6)+1 1225 RETURN 1300 BEEP 1,50 : 1 PRINT PAPER 6 ; 6 : I NK 0 ; O ; FLASH fl:AT 0,0 ; " " : PAPER 0 ; O : INK 6:"MATCHS DU JOUR " ; " ; PAPER 6 : 6 : INK 0 ; " O:" " ENTRÉE DES DONNÉES 9000 BORDER 0 : PAPER 0 : INK 4 : Il : C LS 9002 PRINT PAPER 5 ; 5 : INK 1 ; AT l ; AT 2.0 2,0 ; "MISE : "MISE A JOUR DES TABLEAUX T$ ET S" 9010 FOR w=0 w=O TO 300 : NEXT w 9020 CLS : BEEP 1,10 1, 10 9050 PRINT PAPER 6 ; 6 : INK 2 ; AT 0.5 0,5 ; "ON : "ON COMMENCE PART$" 9100 DIM T$(20.8) T$(20,8) 9110 FOR w=1 W=l TO 20 9112 PRINT INK 6 ; AT w,l ; w 9114 9111 ! INPUT A$ 9116 LET 1=LEN l A$ 9118 IF 1>8 THEN GO TO 9130 9120 IF 1<8 THEN FOR q=1+1 q=l+l TO 8 : LET A$=A$+" " : NEXT q 9130 LET T$(w)=A$(1 TO 8) 9132 BEEP.1,10 : PRINT AT w,5 ; T$ (w) 9134 9131 ! NEXT w 9200 CLS : DIM S(20,16) : GO SUB 9400 91 ! 00 9202 PRINT PAPER 2 ; 2 : INK 0 ; AT O ; AT 0,1 0, 1 2 ; "TABLEAU S" 9205 PRINT PAPER 5 ; 5 : INK 1 ; AT l:AT 2,1 2.1 ; "CHOISISSEZ : "CHOISISSEZ L'ELEMENT DE TABLEA U" ; AT U":AT 3,11 ; "A 3.ll:"A MODIFIER" ; AT 4,7 ; " l !, 7:" FAITES" : INK 0 ; " O:" F " ; " : INK 1 ; "POU l:"POU R FINIR" 9210 FOR w=1 w=l TO 16 : PRINT INK 6 ; AT w+5,l ; w ; w+5,1 ; w ; INK (4+(w>9)) ; AT (l ! +(w>9)) ; AT w+5.3 ; Z$(w) :.3:Z$(w) : NEXT w 9212 PAUSE 0 9214 9211 ! IF INKEY$="f" 11 f 11 OR INKEY$="0" THEN STOP 9215 LET c=CODE INKEY$-48 : INKEY$-1 ! 8 : IF c< 0 OR c>9 THEN GO TO 9205 9220 CLS : FOR w=1 w=l TO 20 : PRINT AT w+l,5 ; T$(w) : w+1,5:T$(w) : NEXT w 9222 PRINT AT 0,1 ; INK 6 ; Z$(c) 9225 IF c>=6 THEN GO SUB 9300 9230 FOR w=1 w=l TO 20 9232 PRINT PAPER 6 ; 6 : INK 0 ; AT O ; AT w+1 w+l, 5 ; T$(w).5 : T$(w) 9236 INPUT d 9238 LET S(w,c)=d 9240 921 ! 0 IF INKEY$<>"" THEN GO TO 92 40 l ! O 9245 921 ! 5 PRINT PAPER 0 ; O ; INK 4 ; AT l ! ; AT w+1 w+l, 5 ; T$(w) ; AT.5 w+l,16 ; S(w,c w+1,16 ; S(w,c)) 9250 NEXT w 9252 CLS : GO TO 9205 9300 PRINT INK 2 ; AT 2,21 ; "ENTREE 2,2l ; "ENTREE DES" ; AT 3,21 ; "3 DERNIERS" ; AT 4, Il, 22 ; "RESULTATS" 9302 PRINT INK 6 ; AT 6,21 ; "PREMIE 6,2l ; "PREMIE R CAS" 9304 11 PRINT INK 4 ; AT l ! ; AT 7,19 ; "Match 7.19:"Match a domi-" ; AT - 8,19 ; "cile 8,19:"cile : Entrer" : AT 9,19:"1,0 9.19:"1,0 ou -1 se-" ; AT se-":AT 10,1 10,l 9 ; "lon 9 : le resul-" ; AT 11,19 ; "tat (11,19:"tat (1=victoi" ; AT l=victoi" ; AT 12,19 ; "re,0=nul, 12,19:"re,O=nul, -1 =" ; AT =":AT 13,19 ; "defaite)" 9310 PRINT INK 6 ; AT 15,22 ; "SECON D CAS" " 9312 PRINT INK 4 ; AT l ! ; AT 16,19 ; "Match a l'ex-" ; AT 17,19 ; "terieur: : en -":AT- 18,19 ; "trez 18,19:"trez 2,1 ou 0" ; AT O":AT 1 9,19 ; "(2=victoire," ; AT 9.19:"(2=victoire,":AT 20,19 ; "1= 20,19:"1= nu1,0=defae ; AT nul,O= ":AT 21,19 ; "te)". 9400 91100 DIM Z$(16,28) : 2$(16,28) : RESTORE 9450 91 ! 50 9410 91110 FOR w=1 w=l TO 16 : READ Z$(w) : ZS(w) : NEXT w 9420 91120 RETURN 9450 91150 DATA "Nombre de points" 9451 91151 DATA "classement des equipe s" 9452 91152 DATA "Matchs joues a domici le" 9453 91153 DATA "Matchs gagnes a domic ile" 9454 911511 DATA "Matchs joues a l'exte rieur" 9455 91155 DATA "Matchs gagnes a l'ext erieur" 9456 91156 DATA "Dernier" resultat" 9457 91157 DATA "Avant-dernier resulta t" 9458 91158 DATA "Avant-avant-dernier r esultat" 9459 91159 DATA "Forme du moment Fm" 9460 91160 DATA "Circonstances" particu lieres" 9461 91161 DATA "No de l'equipe visite use" 9462 91162 DATA "Sd ou Se" 9463 91163 DATA "Probabilite pb" 9464 9116 11 DATA "Classement" des pb" 70 SCIENCE VIE & JlllCKO MICRO 1"1° N°24 - JANVIER 1986
L'histoire de la souris qui a une mémoire d'éléphant. En ce temps-là, Macintosh était le plus grand des petits. Génial. Pratique. Astticieux... Apple lui avait en effet appris l'Homme. Mais quand on a autant de qualités, encore faut-il les développer mur être aussi puissant qu'un géant. Alors HyperDrive est né. Une mémoire colossale située à l'intérieur de Macintosh. Imaginez un éléphant dans une souris et vous comprendrez aisément la puissance de votre nouveau Macintosh. Sans manipulation de disquettes. 10 ou 20 Mega octets. Au choix. L'équivalent de 25 ou 50 disquettes Macintosh. Le secret : HyperDrive est un - et le seul - HYPERDRIVEm La révolution intérieure de Macintosh. "/P P•INGENIERIE disque dur installé à l'intérieur de Macintosh. Connecté directement sur le célèbre micro-processeur 68000, il est le plus rapide... et aussi le plus souple. Des caractéristiques étonnantes qui le placent au tout premier rang des disques durs actuels. Avec HyperDrive Macintosh reste le micro le plus génial et devient l'un des micros les plus rapides, les plus puissants et les plus performants du marché. Alors ayez bonne mémoire... et rappelez-vous qu'il est disponible chez votre renvendeur Apple. 0 0



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 :


SVM numéro 24 janvier 1986 Page 1SVM numéro 24 janvier 1986 Page 2-3SVM numéro 24 janvier 1986 Page 4-5SVM numéro 24 janvier 1986 Page 6-7SVM numéro 24 janvier 1986 Page 8-9SVM numéro 24 janvier 1986 Page 10-11SVM numéro 24 janvier 1986 Page 12-13SVM numéro 24 janvier 1986 Page 14-15SVM numéro 24 janvier 1986 Page 16-17SVM numéro 24 janvier 1986 Page 18-19SVM numéro 24 janvier 1986 Page 20-21SVM numéro 24 janvier 1986 Page 22-23SVM numéro 24 janvier 1986 Page 24-25SVM numéro 24 janvier 1986 Page 26-27SVM numéro 24 janvier 1986 Page 28-29SVM numéro 24 janvier 1986 Page 30-31SVM numéro 24 janvier 1986 Page 32-33SVM numéro 24 janvier 1986 Page 34-35SVM numéro 24 janvier 1986 Page 36-37SVM numéro 24 janvier 1986 Page 38-39SVM numéro 24 janvier 1986 Page 40-41SVM numéro 24 janvier 1986 Page 42-43SVM numéro 24 janvier 1986 Page 44-45SVM numéro 24 janvier 1986 Page 46-47SVM numéro 24 janvier 1986 Page 48-49SVM numéro 24 janvier 1986 Page 50-51SVM numéro 24 janvier 1986 Page 52-53SVM numéro 24 janvier 1986 Page 54-55SVM numéro 24 janvier 1986 Page 56-57SVM numéro 24 janvier 1986 Page 58-59SVM numéro 24 janvier 1986 Page 60-61SVM numéro 24 janvier 1986 Page 62-63SVM numéro 24 janvier 1986 Page 64-65SVM numéro 24 janvier 1986 Page 66-67SVM numéro 24 janvier 1986 Page 68-69SVM numéro 24 janvier 1986 Page 70-71SVM numéro 24 janvier 1986 Page 72-73SVM numéro 24 janvier 1986 Page 74-75SVM numéro 24 janvier 1986 Page 76-77SVM numéro 24 janvier 1986 Page 78-79SVM numéro 24 janvier 1986 Page 80-81SVM numéro 24 janvier 1986 Page 82-83SVM numéro 24 janvier 1986 Page 84-85SVM numéro 24 janvier 1986 Page 86-87SVM numéro 24 janvier 1986 Page 88-89SVM numéro 24 janvier 1986 Page 90-91SVM numéro 24 janvier 1986 Page 92-93SVM numéro 24 janvier 1986 Page 94-95SVM numéro 24 janvier 1986 Page 96-97SVM numéro 24 janvier 1986 Page 98-99SVM numéro 24 janvier 1986 Page 100-101SVM numéro 24 janvier 1986 Page 102-103SVM numéro 24 janvier 1986 Page 104-105SVM numéro 24 janvier 1986 Page 106-107SVM numéro 24 janvier 1986 Page 108-109SVM numéro 24 janvier 1986 Page 110-111SVM numéro 24 janvier 1986 Page 112-113SVM numéro 24 janvier 1986 Page 114-115SVM numéro 24 janvier 1986 Page 116-117SVM numéro 24 janvier 1986 Page 118-119SVM numéro 24 janvier 1986 Page 120-121SVM numéro 24 janvier 1986 Page 122-123SVM numéro 24 janvier 1986 Page 124-125SVM numéro 24 janvier 1986 Page 126-127SVM numéro 24 janvier 1986 Page 128-129SVM numéro 24 janvier 1986 Page 130-131SVM numéro 24 janvier 1986 Page 132