Citation de
RetroPoke le 26 juillet 2024, 10 h 53 min
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.
/image%2F1341024%2F20240726%2Fob_b2423e_img.png?resize=640%2C450&ssl=1)
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
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
Ldir Hector and Rity have reacted to this post.
