XProfan

Français

p.specht

dans XProfan-11 GIBT es DOCH un Pendant zum BASIC-PEEK et POKE !
Überall wohin Bereichsvariable abgefragt ou bien beschickt volonté, peux aussi un Integer-Wert comme Memoryadresse stehen!!!

Kompilieren Marque Séparation

Titre de la fenêtre "P. Specht´s 7 Jahre verzögertes AHA-Erlebnis"
Cls : font 2 : var c$ = »
var MeineVariable%=123456789
var ab!  = 12.34
var def! = 56.78
var ghi! = 90.12
imprimer
imprimer " Adresssprung     Adresse      Wert      NameAddy      Variablenbezeichner"
imprimer
imprimer "                 ",addr(MeineVariable%),"   ",long(addr(MeineVariable%),0),
imprimer   long(addr(MeineVariable%)-4,0);tab(56);string$( long(addr(MeineVariable%)-4,0),0 )
imprimer "                 ",addr(ab!),"   ",float(addr(ab!),0), long(addr(ab!),8);tab(56);string$( long(addr(ab!)-4,0),0 )
imprimer "+ ";addr(def!)-addr(ab!)," =   ",addr(def!),"   ",float(addr(def!),0),long(addr(def!),8);tab(56);

whileLoop 0,7

    c$=char$(long(addr(ab!),8),&Boucle,1);

    si c$=chr$(0):imprimer "*";

        d'autre : imprimer c$; : endif
        endwhile :imprimer
        imprimer "+ ";addr(ghi!)-addr(def!)," =   ",addr(ghi!),"   ",float(addr(ghi!),0),long(addr(ghi!),8);tab(56);

        whileLoop 0,7

            c$=char$(long(addr(def!),8),&Boucle,1);

            si c$=chr$(0):imprimer "*";

                d'autre : imprimer c$; : endif
                endwhile :imprimer
                waitInput