identifier un caractere graphique à l ecran

[smague]

Le Basic 512 des Thomson permet de definir des caractères utilisateurs personnalisés les GR$
Ceux-ci sont définis par le programmeur par DEFGR$(x) où x represente le numero d'index du caractère.
Pour l'utilisateur d'un programme ,il peut étre interessant de connaitre le numero d'un GR£ qui s'affiche sur son écran sans avoir à rentrer dans le listing du programme.
( à fortiori si le programme est protégé)

la routine Assembleur suivante fera le necessaire

ORG $7300
LDX $60CF
STX $7200
LDX $602D
STX $7202
LDX $7202
STX $60CF
LDA $7205
LDX $7206
JSR $E824
STB $7208
LDX $7200
STX $60CF
RTS
END

assembler cette routine et nommez là "DETECTGR.BIN"
Puis sous Basic 512 chargez là en mémoire par
LOADM "DETECTGR.BIN"

Si vous repérez à l'écran un caractere utilisateur particulier ,notez les coordonnées de sa position horizontale X ( X compris entre 1 et 40)
notez sa position verticale Y (avec Y compris entre 0 et 24)
entrez les instructions suivantes:
POKE&H7206,0 : POKE&H7207,X+1:POKE&H7205,Y
Puis entrer la commande EXEC &H7300
Vous obtenez 0 si le caractère est non reconnu sinon vous obtenez directement le numero du GR$ defini par le programme.