Représentation d'une chaine de caractère en mémoire ?

dim m$
dim i%,ad%
m$="BIEN"
ad%=adr(m$)
print ad%
i%=peek(ad%)
print chr$(i%)

dim m$
dim i,
dim adressePointeur
dim adresseReelleChaine
dim octetLu

m$="BIEN"

' pour BIEN la chaine recherchée est : 66 73 69 78

adressePointeur = adr(m$)

print "Adresse du pointeur : " + str$(adressePointeur)
print

peek_reverse

adresseReelleChaine = peek32(adressePointeur)

print "adresse réelle de la chaine donnéee par le pointeur : " + str$(adresseReelleChaine)
print

' lecture sur 4 octets :

for i = adresseReelleChaine to adresseReelleChaine + 3

    octetLu = peek(i)
    print CHR$(octetLu) +" " ;

next i

end

dim adressePointeur, adresseMemoire
dim chaine1$, chaine2$
dim i, longueurVariable%, octetLu%

chaine1$ = "Bonjour les Panoramiciens !"
chaine2$ = "Hello everybody !"

' lecture de la première variable "chaine1$"
longueurVariable% = len(chaine1$)
adressePointeur = adr(chaine1$)
peek_reverse
adresseMemoire = peek32(adressePointeur)
print

for i = adresseMemoire to adresseMemoire + longueurVariable%
    octetLu% = peek(i)
    print chr$(octetLu%) + " ";
next i


' lecture de la deuxième variable "chaine2$"
longueurVariable% = len(chaine2$)
adressePointeur = adr(chaine2$)
peek_reverse
adresseMemoire = peek32(adressePointeur)
print
print

for i = adresseMemoire to adresseMemoire + longueurVariable%
    octetLu% = peek(i)
    print chr$(octetLu%) + " ";
next i

end