Citation de RetroPoke le 21 juin 2025, 08:26

Salut la compagnie !
Pour sortir des routines d'organisations qui n'en finissent plus pour mon dernier jeu SPEED RACER, je vous présente un programme en deux lignes pour fêter les 40 ans de l'Amstrad CPC 6128.

Je me suis demandé comment marquer le coup en deux lignes seulement.
Dessiner un gâteau ? Ouais, bon, j'en ai déjà fait 1 pour les 25 ans d'amstrad.eu.
Faire un paquet cadeau ? Là aussi j'ai donné, pour des cartes de vœux et autre concours !

Alors pourquoi pas dessiner une disquette 3" qui fasse baver les amoureux de l'Amiga 500, et cela, en seulement 2 lignes de BASIC.
J'ai eu recours à une astuce de 'Ldir Hector' dans ce programme pour dessiner des cercles pleins. Un grand merci à lui!

Amstrad, c'est fun et fort à la fois !

 

 LISTING 

10 BORDER 26:INK 0,13:INK 1,26:INK 2,0:MODE 1:CLG 1:WINDOW 11,30,2,24:PAPER 2:CLS:WINDOW 12,29,17,19:PAPER 3:CLS:PRINT:PRINT" Amsoft":TAG:PLOT 176,382,2:PRINT CHR$(16);:PLOT 218,382:PRINT CHR$(142);:PLOT 440,126:PRINT"A";:ORIGIN 226,46,180,460,92,18:CLG 1 20 PRINT"RUN"+CHR$(34)+"40AN6128";:FOR t=1 TO 6:READ p,m,r,z,i:FOR l=-r/z TO r/z:u=r^2:y=SQR(u-l^2):ORIGIN p,m,0,639,0,399:MOVE l,y:DRAW l,-y,i:NEXT l,t:CALL &BB06:DATA 320,312,46,2,0,320,212,30,1,1,208,360,9,1,1,434,360,9,1,1,320,160,9,1,1,320,212,9,1,2

Cliquez sur la petite disquette pour télécharger le programme en 2 lignes.