*************************************

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 !

Chaque mois je vous proposerais un nouveau programme tenant sur 2 lignes BASIC maximum.
Le règlement est simple.
– 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.
En espérant que vous apporterez de l’eau au moulin pour participer à l’édition de l’édito du mois.

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 :
* ùGPRINT, àa$
* ùPAS, CrénageX, CrénageY
* ùGPEN, Crayon [, Papier]
* ùGMODE, (NORMAL/XOR/AND/OR)
* ùGFOND, (Transparent ON/OFF)

Listing et téléchargement :

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 »

TELECHARGEMENT

NEMO (Gilles59)

Un deux ligne qui mériterait de tourner au Musée d’Art Moderne de New York!

   

Listing et 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

TELECHARGEMENT