Forum
Salut, je remet mon deuuligne de juillet pour le mois de septembre et aussi un deuuligne de "GILLES59"
NB: N'est t'il pas possible de rajouter un aperçu avant envoi sur les forum ?
| ****************** ********** Le Deuuligne de RetroPoke #05 ********** |
 ATTENTION, un train peut cacher une locomotive ! L'autre jour je vous ai parlé que le BASIC Locomotive de l' Amstrad était très bien foutu mais que ce n'était pas facile d'y intégrer du code binaire en moins de 2 lignes de programmation. C'était sans compter avec les vecteurs systèmes qui permettent de faire des petits programmes parfois surprenant ! |
| 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) amstrad.eu vous récompensera en affichant votre programme sur la page principale du site. RetroPoke
|
| RSX: GPRINT (RETROPOKE) |
| Cet utilitaire permet d'ajouter un crénage X et Y au texte et de l'afficher au pixel près dans n'importe quel MODE écran de l'AMSTRAD 464/664/6128 et 464+/6128+. Je vous fourni également le code source ASM que vous pouvez utiliser/modifier. Les RSX sont les suivant :      |
| Listing & Téléchargement (dsk & asm) |
|
10 MODE 1:p=&A400:MEMORY p-1:READ a$:FOR a=0 TO &74:POKE p+a,VAL("&"+MID$(a$,a*2+1,2)):NEXT:SAVE"pack-gph",b,&A400,&74:CALL &A400:|GPEN,3:a$="DEUULIGNE RSX 01":FOR l=-6 TO 8:|GPAS,l,8:MOVE 150-l*4,170-l*16:|GPRINT,@a$:NEXT:LOCATE 28,23:PRINT"RSX PACK #01" 20 DATA "0109A421F7BDC3D1BC1AA4C333A4C351A4C35FA4C36DA4C371A4475052494ED4475041D3475045CE474D4F44C547464F4EC400EB7EB7C847235E2356C51A13D5CDFCBB110000210400CDC3BBD1C110ECC9ED5347A4DD6603DD6E022244A4C93D28077BCDE4BBDD5E027BC3DEBB7BC359BC7BC39FBB"
|
| NEMO (Gilles59) |
| Un deux ligne qui mériterait de tourner au Musée d'Art Moderne de New York! |
| Listing & Téléchargement |
|
1 DEFINT a-z:t=2+RND*8:MODE 1:BORDER 0: INK 0,0:C=20:L=13:a=(a+1) MOD 15:c$=CHR$(-((a=0)*205+(a=1)*238+(a=2)*233+(a=3)*200+(a=4)*159+(a=5)*144+(a=6)*201+(a=7)*204+(a=8)*127+(a=9)*206+(a=10)*207+(a=11)*212+(a=12)*202+(a=13)*253+(a=14)*61))
2 PEN RND*4:i=RND*t:j=RND*t:LOCATE c-i,l-j:PRINT c$:LOCATE c-j,l-i:PRINT c$:LOCATE c+i,l+j:PRINT c$:LOCATE c+j,l+i:PRINT c$:LOCATE c+j,l-i:PRINT c$:LOCATE c+i,l-j:PRINT c$:LOCATE c-j,l+i:PRINT c$:LOCATE c-i,l+j:PRINT c$:IF INKEY$="a" THEN 1 ELSE 2 |
Je m'en occupe demain 😉 Merci RetroPoke et dsl pour mon manque d'implication en ce moment 😉
OK, merci.
Tu n'as pas à être désolé. On a tous des priorités dans la vie !
Bon, c'est en ligne 😉
