XProfan

WindowTitle "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
print
print " Adresssprung     Adresse      Wert      NameAddy      Variablenbezeichner"
print
print "                 ",addr(MeineVariable%),"   ",long(addr(MeineVariable%),0),
print   long(addr(MeineVariable%)-4,0);tab(56);string$( long(addr(MeineVariable%)-4,0),0 )
print "                 ",addr(ab!),"   ",float(addr(ab!),0), long(addr(ab!),8);tab(56);string$( long(addr(ab!)-4,0),0 )
print "+ ";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),&Loop,1);

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

        else : print c$; : endif
        endwhile :print
        print "+ ";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):print "*";

                else : print c$; : endif
                endwhile :print
                waitInput