Micros ID n°1 décembre 1986
Micros ID n°1 décembre 1986
  • Prix facial : 22 F

  • Parution : n°1 de décembre 1986

  • Périodicité : trimestriel

  • Editeur : Mieva Presse

  • Format : (201 x 296) mm

  • Nombre de pages : 84

  • Taille du fichier PDF : 72,6 Mo

  • Dans ce numéro : Sony contre Amstrad : le combat

  • Prix de vente (PDF) : gratuit

Dans ce numéro...
< Pages précédentes
Pages : 50 - 51  |  Aller à la page   OK
Pages suivantes >
50 51
MULTILOGIC LANGAGE : BASIC PC de Daniel MARTIN et Guy BALTEAU 980 REM EXTINCTION CURSEUR 990 LINE(X+40+3)-(X+12,Y+5),O,BF 1000 GOSUB 1490 1010 IF MI(X1,Y1)=1 THEN GOTO 1040 1020 IF MT(X1,Y1)=2 THEN GOTO 1080 1030 RETURN 1040 REM CROIX 1050 LINE(X+1,Y+1)-(X+14,Y+6) 1060 LINE(X+1,Y+6)-(X+14,Y+1) 1070 RETURN 1080 REM BLOC 1090 LINE(X,Y)-(X+15,Y+8)„BF 1110 REM EFFACEMENT 1120 LINE(X+1,Y+1)-(X+15,Y+7),O,BF 1130 RETURN 1140 REM GESTION DES OUI 1150 TIMER OFF 1160 GOSUB 1490 1170 IF MT(X1,Y1)=2 THEN RETURN 1180 IF LAX1P, LT(Y1) THEN PT=PT-500 : LOCATE 22,1:PRINT"ERREUR »'- 500 POINTS" : FOR I=1 TO 3000 : NEXT I : LOCATE 22,1:PRINT SPACE$(40):TIMER ON:RETURN 1190 X2=X:Y2=Y 1200 FOR 1=0 TO 9 1210 MT(X1,I)=1 1220 MT(I,Y1)=1 1230 X=316+1#16 1240 Y=Y2 1250 GOSUB 1040 1260 X=X2 1270 Y=55+I#8 1280 GOSUB 1040 1290 NEXT I 1300 Y=Y2 1310 GOSUB 1080 1320 MT(X1,Y1)=2 1330 PT=PT+100 1340 L(X1)=X1-17 1350 GOSUB 1520 1360 CP=CP+1 1370 IF CP=10 THEN GOSUB 1990:GOTO 1760 1380 TIMER ON 1390 RETURN 1400 REM GESTION DES NON 1410 GOSUB 1490 1420 GOSUB 1040 1430 MT(X1,Y1)=1 1440 RETURN 1450 REM GESTION DES BLANC 1460 GOSUB 1490 1470 IF MT(X1,Y1)=1 THEN MI(X1,Y1)=0 : GOSUB 1110 1480 RETURN 1490 REM COORDONNEE RELATIVE 1500 X1=(X-316)/16:Y1=(Y-55)/8
MULTILOGIC LANGAGE : BASIC PC 1510 RETURN 1520 REM REMPLACEMENT 1530 FOR I=0 TO 6 1540 V$=RIGHTS(STR$(T(I)),LEN(STR$(T(I)))-1) 1550 L$(1)="" 1560 FOR J=1 TO LEMS) 1570 C(I)=L$(1)+CHR$(65+L(ASC(MIMV$,J,1))-48))+" " 1580 NEXT J 1590 NEXT I 1600 REM AFFICHAGE PROBLEME 1610 LOCATE 8,14 1620 PRINT L$(0) 1630 LOCATE 9,12 1640 PRINT "$ " ; L$(1) H 1660 PRINT " 1670 FOR I=0 TO 3 1680 LOCATE 11+1,24-LEN(L$(I+2))-I$2 1690 PRINT L$(1+2) 1700 NEXT I 1710 LOCATE 15,6 1720 PRINT " 1730 LOCATE 16,24-LEN(L$(6)) 1740 PRINT L$(6) 1750 RETURN 1760 REM GAGNE 1770 LOCATE 22,1 1780 PRINT"BRAVO VOUS AVEZ GAGNE " ; 1790 IF PT>2800 THEN PRINT"$$$ SUPER CHAMPION ***":GOTO 1840 1800 IF PT>2500 THEN PRINT"$$$ CHAMPION **#":GOTO 1840 1810 IF PT>2000 THEN PRINT"$*$ BON AMATEUR ***":GOTO 1840 1820 IF PT>1000 THEN PRINT"#$$ DEBUTANT ###":GOTO 1840 1830 PRINT"VOTRE SCORE EST CEPENDANT ABSOLUMENT NUL" 1840 INPUT"AUTRE PARTIE (0/N) " ; R$ 1850 IF LEFT$(1q$,1)="0" THEN RUN 1860 CLS 1870 PRINT"BYE BYE LACHEUR" 1880 STOP 1890 REM PERDU 1900 TIMER OFF 1910 LOCATE 22,1 1920 PRINT"LE TEMPS EST ECOULE. VOUS AVEZ PERDU" 1930 FOR I=0 TO 9 1940 L(I)=I-17 1950 NEXT I 1960 GOSUB 1520 1970 LOCATE 23,1 1980 GOTO 1840 1990 REM MAJ COMPTEUR 2000 LOCATE 20,52 2010 PRINT USING "####" ; PT 2020 PT=PT-1 2030 IF PT<0 THEN GOTO 1890 2040 RETURN Len de Daniel MARTIN et Guy BALTEAU



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 :


Micros ID numéro 1 décembre 1986 Page 1Micros ID numéro 1 décembre 1986 Page 2-3Micros ID numéro 1 décembre 1986 Page 4-5Micros ID numéro 1 décembre 1986 Page 6-7Micros ID numéro 1 décembre 1986 Page 8-9Micros ID numéro 1 décembre 1986 Page 10-11Micros ID numéro 1 décembre 1986 Page 12-13Micros ID numéro 1 décembre 1986 Page 14-15Micros ID numéro 1 décembre 1986 Page 16-17Micros ID numéro 1 décembre 1986 Page 18-19Micros ID numéro 1 décembre 1986 Page 20-21Micros ID numéro 1 décembre 1986 Page 22-23Micros ID numéro 1 décembre 1986 Page 24-25Micros ID numéro 1 décembre 1986 Page 26-27Micros ID numéro 1 décembre 1986 Page 28-29Micros ID numéro 1 décembre 1986 Page 30-31Micros ID numéro 1 décembre 1986 Page 32-33Micros ID numéro 1 décembre 1986 Page 34-35Micros ID numéro 1 décembre 1986 Page 36-37Micros ID numéro 1 décembre 1986 Page 38-39Micros ID numéro 1 décembre 1986 Page 40-41Micros ID numéro 1 décembre 1986 Page 42-43Micros ID numéro 1 décembre 1986 Page 44-45Micros ID numéro 1 décembre 1986 Page 46-47Micros ID numéro 1 décembre 1986 Page 48-49Micros ID numéro 1 décembre 1986 Page 50-51Micros ID numéro 1 décembre 1986 Page 52-53Micros ID numéro 1 décembre 1986 Page 54-55Micros ID numéro 1 décembre 1986 Page 56-57Micros ID numéro 1 décembre 1986 Page 58-59Micros ID numéro 1 décembre 1986 Page 60-61Micros ID numéro 1 décembre 1986 Page 62-63Micros ID numéro 1 décembre 1986 Page 64-65Micros ID numéro 1 décembre 1986 Page 66-67Micros ID numéro 1 décembre 1986 Page 68-69Micros ID numéro 1 décembre 1986 Page 70-71Micros ID numéro 1 décembre 1986 Page 72-73Micros ID numéro 1 décembre 1986 Page 74-75Micros ID numéro 1 décembre 1986 Page 76-77Micros ID numéro 1 décembre 1986 Page 78-79Micros ID numéro 1 décembre 1986 Page 80-81Micros ID numéro 1 décembre 1986 Page 82-83Micros ID numéro 1 décembre 1986 Page 84