*********************
THE ALIENS WAR
*********************
Chaque mois je vous proposerais un nouveau programme tenant sur 2 lignes BASIC maximum. Le règlement est simple.
– Deux Lignes en BASIC (Les lignes peuvent contenir du BASIC et du langage MACHINE)
– Un seul deux lignes par disquette
– Un petit résumé et explicatif du programme dans un fichier ALIRE.BAS si nécessaire.
– Envoyez le tout à: concours(@)amstrad.eu avant le 20 du mois en cours pour l’édito du mois d’après.
En espérant que vous apporterez de l’eau au moulin pour participer à l’édition de l’édito du mois.
RetroPoke
Listing :
10 DEFINT a-z:MODE 0:x=10:WINDOW#2,4,17,2,24:WHILE x:z=1+z MOD 10:LOCATE#2,2+z MOD 2,1:PEN#2,2+Z:PRINT#2,CHR$(11)”* * * * * * “:b=0:WHILE b<99:x=MIN(15,MAX(4,x-INKEY(8)+INKEY(1))):PEN 1:LOCATE x,25:PRINT” ï “:l=24:WHILE INKEY(47)=0:b=b+20:WHILE l>1:PEN 4
40 t=TEST(x*32+12,407-l*16):LOCATE x+1,l:PRINT”!”CHR$(8);:SOUND 3,t*50+50-l,2:l=l*-(t<2)-1:s=s+t:PRINT” “:WEND:LOCATE 9,1:PRINT s:WEND:b=b+1:WEND:FOR a=4 TO 16:IF TEST(a*32+12,22)>0 THEN LOCATE 6,10:PRINT”GAME OVER”:WHILE INKEY(47):WEND:RUN ELSE NEXT:WEND
Téléchargement : Deuligne RetroPoke 01 THE ALIENS WAR
Une bien belle et précieuse interview
cvbcvbcvb
cvbcvbcvb
cvbcvb
Commentaire 2 cvbcvb