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 : 42 - 43  |  Aller à la page   OK
Pages suivantes >
42 43
PSEUDO-LISP de Nicolas CHOUKROUN 275 FORT8=1TON2:AAe=Xe(Z1(8).1-8):IFAA I< ""THENGOSUB1000:VPOiE39,57:Z1(9)=I 276 IFZ=OANDAAS ""THENPRINTAAe:" " ; ELSEIFZ=1THENGOSUB280 279 NEXTT8:RETURN 280 FORT9=1TON2:AAi=Xe(Z1(9),T9):IFAA I ""THENGOSUB1000 281 IFIWEYe=" "THEN20 282 IFAAes, ""THENPRINTAAe:" 290 NEXTT9:RETLIRN 300 FORT=0TON5:FORTT=1TON2:IFXe(T.Tf) =Ai(1)THENPRINTXi(T,0) ; " " ; 308 NEXTTT.T:GOT030 400'LISTER TOUS LES NOMS 402 FORT=OTON5:PRINTXe(T,0) ; " "N EXTT:GOT030 500 FORT=1TON2:FORTT=OTON5 504 IF)(e(TT,T), ""THENPRINTXi(TT,T) ; " 506 NEXTTT,T:GOT030 600'EFF 1 NOM 610 AA$=A$(0):GOSUB1000:1FZ=OTHENGOSU 83000:GOT030 620 PRINTI:FORT=OTON2:Xe(I.T)="":NEXT T:GOT030 700'EFF 1 COMPL 702 AA$=A$(0):GOSUB1000:IFZ=OTHENGOSU 84000:G07030 704 FORTT=1TOJJ-1:FORT=1TON2:IFXe(I,T) =Ae(TT)THENXe(I,T)="":TT=JJ:T=N2:GOT 030 706 NEXTT,TT:GOT030 800 AAe=Ae(0):GOSUB1000:IFJJ 2THEN804 ELSEIFZ=1THENPRINT"Existe."ELSEPRINT" N'existe pas." 803 GOT030 804 KK=0:FORT=1TOJJ-1:FORTT=OTON5:Ae= Ae(T):GOSUB2020 805 IFZ=1THENkk=0+1 806 NEXTTT,T 808 IFKK=N5+1THENPRINT"VRAI"ELSEPRINT "FAUX" 810 GOT030 900 AA$=A$(0):GOSUB1000:IFZ=OTHENN5=N 5+1:Xe(N5,0)=Ae(0):FORT=1TOJJ:Xe(N5,T) =4e(T):NEXTT:GOT0920 912 F0RT=1TOJJ:Ae=Ai(T):IFAS, ""THENP OVE&HPBB1,255:GOSUB2020:IFZ=1THEN918 914 FORTT=1TON2:IFX$(I,TT)=""THENX$(I, TT)=Ae(T):GOT0918 916 NEXTTT 918 NEXTT 920 RETURN Udine, LANGAGE : BASIC MSX TAILLE MEMOIRE : 3,8K 1000 Z=0:FORI=OTON5:IFXe(1.0)=AAiTHEN Z=1:RETURN 1020 NEXTI:RETURN 2000 AAe=Ae(0):GOSUB1000:IFZ=OTHENRET URN 2020 Z=0:FORJ=1TON2:IFXI(I.J)=AeTHENZ =1:RETURN 2030 NEXTJ:RETURN 3000 PRINT"Nom ineistant.":BEEP:RETU RN 4000 PRINT"Complement inexistant.":BE EP:RETURN 5000 GOSUB6000:CLS:LOCATE0,0:PRINT"Pr ogramme : PseudoC.":PRINT"Copwright 1986.":PRINT"Auteur : Chouiroun Nicol as.":PRINTSTRINGe(40,"-"):GOSUB6100 5999 RETURN 6000 COLOR4,4,4:POkEM-1F3B1,24:PME&HF 383,0:SCREENO:RETURN 6100 POt'U,HF3B1,20:POPUMFBB1,255:PO E&HF3B3,160:SCREENO:COLOR15:RETURN 6200 PRINT"Buffers=" ; N5:GOT030 10000 CLS:INPUT"Buffer de depart : ":N : PRINT"Preparer la cassete.":Xe=INPUT $(1):PRINT"Sauvegarde." 10010 OPENAS(1)+Ai(2)FOROUTPUTAS#1 10012 FORT=NTON5:FORTT=OTON2:PRINT"Bu ffer no : " ; T,"Element no : ":TT ; Xe(T,T T):PRINT#1,Xe(T,TT):NEXTTT,T:G0T030 10100 CLS:INPUT"Buffer de depart : ":N : PRINT"Preparer la cassete.":Xe=INPUT e(1):PRINT"Chargement." 10110 OPENA$(1)+Ae(2)FORINPUTAS#1 10112 FORT=NTON1:FORTT=OTON2:PRINT"Bu ffer no : " ; T:TT ; Xe(T,TT)INPUT#1,X$ (T,TT):NEXTTT,T:GOT030 20000 CLS:BEEP:PRINT"Erreur de progra mmation.":PRINT"Verifier le listing ou modifie : le programme.":PRINT" Les variables sont conservees.":Ai=IN PUTi(1):RESUME20
LIVE'S BALL de Frédéric PUTEAUX Nous avons déjà présenté Frédéric PUTEAUX dans le N°6 de MICROS MSX, à l'occasion de la remise des prix du Concours de programmes No 2. Ce mois-ci, il nous propose un programme tout BASIC qui malheureusement par sa longueur a dû être publié en deux parties (la suite... dans le No 3 de MI- CROS ID), par contre il est déjà disponible dans son intégralité sur la cassette Listings No 8. LIVE'S BALL exploite le thème de Xyzolog : jouer avec le centre de gravité d'une balle à travers des décors accidentés. Plusieurs situations vous sont proposées. 10 COLOR 15,1,1:kEY OFF:SCREEN 0,0,0 20 CLEAR2000MD000 30 POI,E,WFBB1,0 40 POKE&HFBB0,0 50 ON STOP GOSUB 4240:STOPON 60 POKE&HFBB1,0 70 POKE&HFBB0,0 80 GOSUB 4190 90 KEYOFF 100 GOSUB 4250 110 ON STOP GOSUB 4240:STOPON 120 GOSUB 1610 130 RESTORE 140 COLOR 15,1,1 150 DEFINTA-Z:DEFDBL A-B,E,H,S:A=0:A1 =0:A2=0:E1=0:E2=0 160 HI=10000 170 GOSUB 2230 180 DATA 80,CO 3 E0,F0,F8,FC,FE,FF 190 DATA 01,03,07,OF,1F,3F,7F,FF 200 SCREEN 1,0 210 FOR I=0 TO 7 220 READ Ai:A=VAL("&h"+A$) 230 VPOKE776+I,A 240 VPOKE896+I,A 250 VPOKE904+1,255 260 VPOkE784+1,0 270 VPOKE 832+1,255 280 NEXT 290 FOR I=0 TO 7 300 READ AS:A=VAL("&h"+AS) 310 VPOkE840+I,A 320 VPOKE960+I,A 330 VPOKE&H200C,&H89 340 VPOKE968+1,0 350 VPOKE336+1,0 360 NEXT 370 GOSUB 1260 380 VPOKE&H200Cd,HA4 Lain LANGAGE : BASIC MSX TAILLE MEMOIRE : 12,8 K 390 VPOKE&H200D,&H54 400 VPOkEbH200E,&HB5 410 VPOFE&H200F,&HBA 420 VPOKE&H2005,&H7 430 VPOKE&H2010,&H87 440 W1=0:V=3:M0=0:EN=0:EM=0 450 SOUND 7,&B00111000:SOUND 12,64:S0 UND 11,15:SOUND 6,7 460 ON W1+1 GOSUB 770,1650,1940,2250, 2540,2830,3120,3430,3720,3120 470 LOCATE 0,7:PRINT"STAGE:":LOCATE 2, 8:PRINTRIGHT$("0"+RIGHT*(STRS(W1+1), LEN(STR3(W1+1))-1),2) 480 LOCATE 0,10:PRINT"VIES : ":LOCATE 2,11:PRINTRIGHT*("0"+RIGHTS(STRS(V),L EN(STRS(V))-1),2) 490 A=128:B=96:A1=0:B1=0:ZY=8:ZZ=15:Z X=255:T=100:E1=216:E2=96:0NINTERVAL=5 OGOSUB 1250:M=0 500 LOCATE 0,1:PRINT"SCORE:":GOSUB 12 80:INTERVALON 510 LOCATE 0,13:PRINT"HIGH : " 520 LOCATE 0,14:PRINTRIGHT$("00000"+R IGHT$(STR$(HI),LEN(STR$(HI))-1),6) 530 LOCATE 0,4:PRINT"BONUS:" 540 PUTSPRITE0,(0,208):PUTSPRITE1,(12 8,208) : M0=0:SPRITEON 550 PUTSPRITE0,(A,B),15,0 560 ON EN GOSUB 4010 570 IF 80=1 THEN SOUND 1,0:SOUND 0,ZX : SOUND 8,27:ZX=2X-96:IF ZX,0 THEN ZX= 255:ZZ=ZZ-1:IF ZZ=-1 THEN ZZ=0:B0=0 580 X=(A+A1+4)/8+(INT((B+B1+4)/8))*32 OfH1800 590 Y=VPEEk(X):N=STICK(0) 600 A1=A1-A1/10:81=81-81/10 610 ON N GOSUB 1090,1100,1110,1120,11 30,1140,1150,1160 620 IF Y=42 THEN GOTO 720 630 IF Y=128THEN VP0hEX,42:S=S+100:B0 =1:ZZ=15:ZX=255:GOSUB 1280:GOTO 720 640 IF Y=97 THEN 1200 650 IF Y=98 THEN 1210 660 IF Y=10STHEN 1220 670 IF Y=104THEN 1230 680 IF Y=112THEN 1240 690 IF Y=113THEN 1170 700 IF Y=120THEN 1180 710 IF Y=121THEN 1190 720 A=A-(YÇ\32)*A1 730 B=B-(Y032)*B1 740 DEFUSR=&HD000:0=USR(0):IF PEEK(&H D100)=0 ANDPEEK(&MD101)=0 THEN 1530



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