include "date.oxh"
include "system.oxh"
PROC verg:
global ms&,wid%,wid_x%,wid_y%,x%,l%,la%
local a&,t1&,t2&,d&,x,k%,b,c,b%,b&,b$(10)
wid% = gcreate(120,20,520,220,1,$101)
gat 30,30
glineby 30,30
do
        a&=0
        t1&=DTNOW&:
        do rem ausführschleife
           a&=a&+1
           x%=1
rem     b&=b&+2
rem b$=chr$(65)
rem gat 30,30
rem gprintb "Test",300,2                
rem glineby 30,30
rem gbutton "Holger",2,100,30,0
rem     x=sin(2.2**2.2)
rem gcircle 55
rem busy "test"
rem busy off
rem b=sqr(2)
        until a& > 2000
        t2&=DTNOW&:
        d&=DTMICROSDIFF&:(t1&,t2&)
        DTDELETEDATETIME:(t1&)  
        DTDELETEDATETIME:(t2&)
        print d&/15620,"  ",d&
        k%=get
until k%=27
ENDP