Citation de RetroPoke le 6 octobre 2022, 10 h 06 min

Bonjour à toutes et tous.
Dorénavant, le deuuligne du mois ainsi que vos participations, seront publiés directement dans le forum.
Vous pourrez de cette manière, commenter ou critiquer directement les deuulignes depuis le forum.

Je vous présente donc le deuuligne du mois d'octobre : PAYS-SAGE

********************* **************** Le Deuuligne de RetroPoke #06 **************** *********************

La nature a bien des façons de nous montrer toute sa puissance. Ne serait-ce que par la beauté d'un couché de soleil au bord de l'eau !  .

Voici le règlement si vous voulez vous aussi participer au deuuligne du mois ? * 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. amstrad.eu vous récompensera en affichant votre programme sur la page principale du site. RetroPoke

PAYS-SAGE (RETROPOKE)

Ce programme dessinera devant vous un couché de soleil au bord de l'eau. L'appui sur une touche, relancera le programme.

Listing & Téléchargement

10 INK 1,11:INK 4,9:MODE 0:PEN 1:PRINT STRING$(240,&CF),,:PEN 6:PRINT STRING$(240,&CF);:FOR i=5 TO 99:y=SQR(10816-i*i):MOVE 456+i,216+y:DRAWR-i*2,0,11:MOVE 448+i+RND*16,228-y*1.4:DRAWR-i*2,0:NEXT:l=2:WHILE z<640:z=z+3:y=y+l*2:MOVE z,224+y:DRAW z,216,5 20 DRAWR 0,-y*1.4,0:f=RND*185:MOVE z-12,f:DRAWR 4+RND*30,RND*3,0:DRAWR-4,2,11+(z<360 OR z>520 OR f>99):l=l*(1+2*(y<34 OR y>40+RND*50)):WEND:FOR a=0 TO 60:c=RND*50:h=60+RND*250:MOVE-20+c*4,0:DRAWR c,h,4+RND:DRAWR c/2,h/8:DRAWR c/2,h/16:NEXT:CALL &BB06:RUN   TELECHARGEMENT   Retrouvez les explications super détaillées, fait par Eric Boulat (LDIR HECTOR) :  https://www.youtube.com/embed/QG5pqjpKlXM?