Forum

DEULIGNES : PLEIN L...
 
Notifications
Retirer tout

DEULIGNES : PLEIN LES YEUX

3 Posts
2 Utilisateurs
0 Reactions
230 Vu
(@retropoke)
Posts: 310
Début du sujet
 

DEUX LIGNE : PLEIN LES YEUX

 Voici un deuligne qui vient s'ajouter à ma liste des petits programmes.
Pour tout vous dire, j'ai créé ce deuligne pour le magazine AMSTRAD 100% Numéro 51 qui devait sortir pour juillet 2023.
J'espère qu'il sortira un jour...

Plein les yeux est une petite démo qui pourrait être facilement adaptée pour vos pages d'accueil ou vos menus.

En appuyant sur les touches [1] et [2], vous pourrez faire varier les deux couleurs qui stimulent un défilement.
Le sens de défilement s'inversera à chaque appui sur une touche du clavier.

Le listing :

10 DEFINT a-z:MODE 0:BORDER 0:FOR a=0 TO 15:INK a,0:NEXT:CLG 1:INK 1,26:WHILE l<159:c=l*2:e=1+e MOD 14:MOVE c,l:DRAW 639-c,l,e+1:DRAW 639-c,385-l:DRAW c,385-l:DRAW c,l:l=l+2:WEND:CALL &BB9F,1:FOR a=0 TO 7:PEN a MOD 2:PRINT,,,TAB(4)"PLEIN LES YEUX",:NEXT
20 p=20:m=23:z=-1:CALL &BB9F:WHILE 1:PRINT CHR$(30)" TAPEZ 1="p" 2="m;:WHILE INKEY$="":FOR a=1 TO 2:FOR b=2-6*(z=-1) TO 8+6*(z=-1) STEP z:INK b,p:INK b+7,m:CALL &BD19:NEXT:c=p:p=m:m=c:NEXT:WEND:z=-z:p=(p+INKEY(13)+1)MOD 27:m=(m+INKEY(14)+1)MOD 27:WEND

 

 

 

 

 

La disquette : PLYEUX.DSK

 
Posté : 26/07/2024 11:53 am
(@phenix)
Posts: 356
Membre Admin
 

Tu as la médaille d'or de la discipline Deuuulingne de Paris 2024 ;).

 
Posté : 26/07/2024 8:50 pm
(@retropoke)
Posts: 310
Début du sujet
 

Merci. Ce n'est pas difficile non plus en étant le seul dans cette épreuve ! 🙂

 
Posté : 27/07/2024 7:39 am
Share: