*********************
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
Que de bon moment. La SCALA devrait nous remercier pour la publicité gratuite sur les réseaux 🙂
Super compte-rendu ! J'ai adoré regarder le croco-fest à distance via les lives, merci de les organiser. L'interview sur Felgon…
"j’ai honteusement abandonné le CPC … oui, vous pouvez me huer …" boooooooooooooooh !!!!! Nebulus, seuls les vrais savent. Quelle…
Il y avait pas mal d'échanges dans la cour, mais je me rappelle surtout qu'on n'était pas nombreux. Il y…
Que de souvenirs, d'échanges...Les amstrad CPC ont été très nombreux dans mon milieu. De loin l'ordinateur le plus fréquemment offert,…