XProfan

Window Title "P. Specht´s 7 years verzögertes AHA-Erlebnis"
Cls : font 2 : var c$ = ""
var MeineVariable%=123456789
var ex!  = 12.34
var def! = 56.78
var ghi! = 90.12
print
print " Adresssprung     address      worth      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(off!),"   ",float(addr(off!),0), long(addr(off!),8);tab(56);string $( long(addr(off!)-4,0),0 )
print "+ ";addr(def!)-addr(off!)," =   ",addr(def!),"   ",float(addr(def!),0),long(addr(def!),8);tab(56);

whileLoop 0,7

    c$=char$(long(addr(off!),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