Micros ID n°2 janvier 1987
Micros ID n°2 janvier 1987
  • Prix facial : 22 F

  • Parution : n°2 de janvier 1987

  • Périodicité : trimestriel

  • Editeur : Mieva Presse

  • Format : (206 x 291) mm

  • Nombre de pages : 84

  • Taille du fichier PDF : 123 Mo

  • Dans ce numéro : PC compatible, comment le choisir ?

  • Prix de vente (PDF) : gratuit

Dans ce numéro...
< Pages précédentes
Pages : 44 - 45  |  Aller à la page   OK
Pages suivantes >
44 45
44:\uvrs BALL de Frédéric PUTEAUX 750 IF MO OR T<=0 THEN 4060 760 GOTO - 550 770 REM TABLEAU 1 780 DATA #i*******MIM*$ 790 DATA #011t*IMCWeletç* 800 DATA itabbbbbbbbbbbi#1 810 DATA *Iyabbbbbbbbbih** 820 DATA tiyy*tabbbi**1-111#1 830 DATA 1(*yypkyitthltçhht* 840 DATA 1[4y#I0t*hlahht# 850 DATA Ceyyletxqqqp*Shhlt* 860 DATA *tyy*******Cehh** 870 DATA **yy*********hh** 880 DATA #401a****##hh#$ 890 DATA *Ityy**0**Çlthhlt* 900 DATA ttyytt####***hh#I 910 DATA **yy*******10(hht* 920 DATA #tyyabbbbbbbihh** 930 DATA **yyyabbbbbihhh#* 940 DATA tlyyyy**Mhhhh*t 950 DATA) 10tyyyyPe**çhhhh#* 960 DATA ISyyyxqqqqqphhh#1 970 DATA Ieyyxqqqqqqqphh#* 980 DATA Iti****###Ilittla# 990 DATA ***************** 1000 RESTORE 780 1010 VPOKE&H200C,&HA4 1020 VPOKE&H200DM54 1030 VFOKE&H200E,&HB5 1040 VPOKEb.H200F,&HBA 1050 VFOKE&H2005,&H7 1060 VPOKE&H2010,&H87 1070 FOR I=1 TO 22:READ A$:LOCATE 10, 23,0:PRINTA$POKE&HD102,0:DEFUSR=&HD 200:0=USR(0):NEXT 1080 GOSUB1500:RETURN 1090 A1=A1/1.05:81=81+(B1>-6)*.8:RETU RN 1100 A1=A1-(A1<6)1.8:81=81+(81>-6)1.8 : RETURN 1110 A1=A1-(Al<6)1.8:B1=B1/1.05:RETUR N 1120 A1=A1-(Al<6)#.8:B1=B1-(B1<6)#.8 : RETURN 1130 A1=A1/1.05:B1=B1-(B1<6)#.8:RETUR N 1140 A1=41+(A1>-6)1.8:81=81-(B1<6)1.8 : RETURN 1150 A1=A1+(41>-6)#.8:B1=B1/1.05:RETU RN 1160 A1=A1+(A1)-6)*.8:81=81+(81>-6)1. 8:RETURN 1170 A1=A1/1.1:B1=B1+(B1>-6):GOTO 720 Laing LANGAGE : BASIC MSX TAILLE MEMOIRE : 12,8 K 1180 Al=41-(Al'6):B1=B1+(Bl'-6):GOTO 720 1190 A1=A1- (AU6):B1=B1/1.1:GOTO 720 1200 Al=41-(Al 6):B1=B1-(Ble.6):GOTO 7 20 1210 Al=41/1.1:B1=B1-(Bl<6):GOTO 720 1220 A1=A1+(A1>-6):B1=B1-(B1<6):GOTO 720 1230 A1=A1+(Al -6):81=81/1.1:GOTO 720 1240 A1=A1+(A1 -6):B1=B1+(B1 -6):GOTO 720 1250 INTERVALOFF:GOSUB4170:SOUND9,31 : SOUND2,N(M,0):SOUND 3,N(M,1):SOUND 4, N(M,0):SOUND 5,N(M,1):SOUND 10,16:M=M +1:M=MMOD17:T=T-1:LOCATE 2,5:FRINTRIG HT$("0"+RIGHTi(STR$(1.) ,LEN(STRe(T))-1) ,2):SOUND 13,11:INTERVALON:GOSUB4180 : RETURN 1260 DATA 3C,7E,FF,FF,FF,FF,7E,3C 1270 RESTORE1260:FOR I=0 TO 7:READA$ : VPOI
1330 VPOKE I*8+J,VAL("&b"+B$):F=0:NEX T J,I 1340 F=0:FOR 1=48 TO 57:X=I*8+PEEK(4) +PEEK(5)*256:FOR J=0 TO 7:B$="":A$=RI GHT$("0000000"+BIN$(PEEK(X+J)),8):FOR K=1 TO 7 1350 C$=MIDS(A,1):IF F THEN B$=B$+ "1":IF C$="1" THEN F=1:GOTO 1370 ELSE F=0:GOT0 1370 1360 IF C$="1" THEN B$=B$+C$:F=1 ELSE F=0:B$=B$+C$ 1370 NEXT K 1380 VPOKE I*8+J,VAL("&b"+B$):F=0:NEX T J,I:RETURN 1390 DATA18,3C,66,66,7E,66,66,0,7C,36, 36,3C,36,36,7C,0,1C,36,60,60,60,36,1C,0,78,3C,36,36,36,3C,78,0,7E,60,60,7C,60,60,7E,0,7E 1400 DATA60,60,7C,60,60,60,0,3C,66,60, 7E,66,66,3C,0,66,66,66,7E,66,66,66,0, 3C,18,18,18,18,18,3C,0,1E,C,C,C,6C,6C,38,0,66 1410 DATA6C,78,70,78,6C,66,0,60,60,60, 60,60,60,7E,0,66,7E,7E,7E,66,66,66,0, 66,76,76,7E,6E,6E,66,0,3C,66,66,66,6 6,66,3C,0,7C 1420 DATA66,66,7C,60,60,60,0,3C,66,66, 66,7E,6C,3E,0,7C,66,66,7C,78,6C,66,0, 3C,66,60,3C,6,66,3C,0,7E,18,18,18,18, 18,18,0,66 1430 DATA66,66,66,66,66,3C,0,66,66,66, 66,3C,3C,18,0,66,66,66,7E,7E,7E,66,0, 66,66,3C,18,3C,66,66,0,66,66,66,3C,1 8,18,18,0,7E,6,C,18,30,60,7E,0 1440 RESTORE 1390 1450 FOR I=65*8 TO 727:READAS:VP0F. EI, VAL("&h"+A$):NEXT 1460 FOR 1=384 TO 463:READA$:VPOKEI,V AL("&h"+A$):NEXT 1470 DATA3C,66,6E,7E,76,66,3C,0,18,38, 78,18,18,18,7E,0,3C,66,6,C,38,60,7E, 0,3C,66,6,1C,6,66,3C,0,C,1C,3C,6C,7E,C,C,0 1480 DATA7E,60,78,C,6,C,78,0,1C,30,60, 7C,66,66,3C,0,7E,66,C,18,18,18,18,0, 3C,66,66,3C,66,66,3C,0,3C,66,66,3E,6,C,38,0 1490 RETURN 1500 DATA 21,00,18,11,00,00,CD,4A,00, FE,80,C2,0F,D0,13,23,7C,FE,1B,C2,06,D 0,D5,E1,22,00,D1,C9 1510 RESTORE1500:FOR 1=&HD000TO&HDO1B : READA$:POKE1,VAL("&h"+A$):NEXT Lain LIVE'S BALL LANGAGE : BASIC MSX TAILLE MEMOIRE : 12,8 K de Frédéric PUTEAUX 1520 DEFUSR=&HD000:(2=USR(0):N=PEEK(&H D100)+PEEK(&HD101)*256:RETURN 1530 INTERVALOFF:S=S+5:G0SU81250:INTE RVALOFF:GOSUB 1280:BEEP:IF THEN 1 530 1540 PUTSPRITEO,(0,208) 1550 POKE&HD102,1:FOR I=0 T024:DEFUSR =&HD200:U=USR(0):NEXT 1560 IF W1=6 OR W1=9 THEN GOSUB 3410 ELSE GOSUB 3420 1570 IF W1=9 THEN V=V+1 1580 IF W1>3 THEN EN=1:EM=1 1590 IF W1=6 OR W1=9 THEN EN=0 ELSE E N=EM 1600 W1=W1+1:W1=W1 MOD10:GOTO 460 1610 DATA 3A,2,D1,FE,1,CA,48,D2,21,28, 18,3E,17,32,88,D2,E5,11,0,D3,1,18,0, CD,59,0,E1,E5,11,20,0,47,ED,52,11,0,D 3,EB,1,18,0,CD,5C,0,E1,11,20,0,19,3A, 88,D2,3D,32,88,D2,FE,0,20,D4,21,E8,1A, 1,18 1620 DATA 0,3E,20,CD,56,0,C9,21,E8,1A, 3E,17,32,88,D2,E5,11,20,0,ED,52,11,0, D3,1,18,0,CD,59,0,E1,E5,11,0,D3,EB,1, 18,0,CD,5C,0,E1, 11, 20,0,ED,52,3A,88, 02,30,32,88,D2,FE,0,20,D4,21,8,18,1,1 8 1630 DATA 0,3E,20,CD,56,0,C9 1640 RESTORE1610:FORI=&HD200TO&HD287 : READA$:POKEI,VAL("&h"+A$):NEXT:RETURN 1650 DATA ***************** 1660 DATA *ç*************ÇI 1670 DATA **abbbbbbbbbbbi** 1680 DATAityabbbbbbbbbihtt 1690 DATA letyyçMellale*çhh#* 1700 DATA Styy*IlatlatedItt 1710 DATA *401(abbbi**hhIg* 1720 DATA #4011yabihtthh## 1730 DATA iityyllkyyçhh**hh** 1740 DATA Ileyy#/iyyçhh##hhla 1750 DATA **yy**yxqph**hh#1t 1760 DATA #14y#1(xqqqpithh#* 1770 DATA **yyMte#11r*hh*le 1780 DATA **yyç*******Çhh** 1790 DATA **yxqqqqqqqqqph** 1800 DATA **xqqqqqqqqqqqp** 1810 DATA #çhhhhhh#yyyyyyPIt 1820 DATA tikhhhhhhçyyyyyyla 1830 DATA **hhhhhh*yyyyyy** 1840 DATA ***************** 1850 DATA **Çlptç*ç*peç*Ç** 1860 DATA ***************** 1870 VPOKE&H200C,&H2A



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