XProfan

Título de la ventana "P. Specht´s 7 Jahre verzögertes AHA-Erlebnis"
Cls : font 2 : var c$ = ""
var MeineVariable%=123456789
var de!  = 12.34
var def! = 56.78
var ghi! = 90.12
imprimir
imprimir " Adresssprung     Adresse      Valor      NameAddy      Variablenbezeichner"
imprimir
imprimir "                 ",addr(MeineVariable%),"   ",long(addr(MeineVariable%),0),
imprimir   long(addr(MeineVariable%)-4,0);tab(56);cadena$( long(addr(MeineVariable%)-4,0),0 )
imprimir "                 ",addr(de!),"   ",float(addr(de!),0), long(addr(de!),8);tab(56);cadena$( long(addr(de!)-4,0),0 )
imprimir "+ ";addr(def!)-addr(de!)," =   ",addr(def!),"   ",float(addr(def!),0),long(addr(def!),8);tab(56);

whileLoop 0,7

    c$=char$(long(addr(de!),8),&Loop,1);

    if c$=chr$(0):imprimir "*";

        más : imprimir c$; : endif
        endwhile :imprimir
        imprimir "+ ";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),&Loop,1);

            if c$=chr$(0):imprimir "*";

                más : imprimir c$; : endif
                endwhile :imprimir
                waitInput