*********************
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
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,…
Super article pour de super souvenirs ! Pauvre gars qui a vu son CPC en bouillie haha C'est sûr que…
Anecdote complètement folle et pourtant vrai !! A l'époque, je me disais qu'il était vraiment con... Aujourd'hui aussi 😀
Merci pour ces proses mon cher Phenix, Ahhh ce bon vieux 3d Grand Prix avec ses roues très astucieusement rendue…