' - Permet de récupérer l'adresse de l'écran physique -
XBIOS(Adrphy,2)

' - Ouvre une zone de mémoire de 33ko qui porte le nom de Bufpict -
Bufpict = Memory (33000)
' - Charge les données du fichier image.pi1 dans la zone mémoire ' Bufpict -
BLOAD "c:\image.pi1",Bufpict
' - Deplace 32ko de donnée à partir du 34em octet du Bufpict
' Pour les placer dans l'écran physique. C'est les data de l'image. -
MEMORY_MOVE Bufpict+34,32000 TO Adrphy
' -Deplace 32 octets à partir de l'octet 2 du Bufpict pour les placer
'en $FF8240. Registre qui gère la palette de couleur. -
MEMORY_MOVE Bufpict+2,32 TO $FF8240