#include once "windows.bi"
#include "counter.bas"
Width 80,40
Const sf="######", wo=17, LoopCounterValue=10000000
Dim As uInt i, y=2, z = 3
Dim As Double d, d2=Atn(1)
Dim As String s="Gallia est omnis divisa in partes tres..", c
Print "command";Tab(wo+2);"cycles"
Counter_Begin (LoopCounterValue, REALTIME_PRIORITY_CLASS, THREAD_PRIORITY_TIME_CRITICAL)
	i=1
counter_end()
Print "i = 1";:Print Tab(Wo);:Print Using sf;counter_cycles

counter_begin(LoopCounterValue, REALTIME_PRIORITY_CLASS, THREAD_PRIORITY_TIME_CRITICAL)
	i=i+2
counter_end()
Print "i = i + 2";:Print Tab(Wo);:Print Using sf;counter_cycles

counter_begin(LoopCounterValue, REALTIME_PRIORITY_CLASS, THREAD_PRIORITY_TIME_CRITICAL)
	i+=2
counter_end()
Print "i+= 2";:Print Tab(Wo);:Print Using sf;counter_cycles

counter_begin(LoopCounterValue, REALTIME_PRIORITY_CLASS, THREAD_PRIORITY_TIME_CRITICAL)
	i=i * 3
counter_end()
Print "i = i * 3";:?Tab(Wo);:Print Using sf;counter_cycles

counter_begin(LoopCounterValue, REALTIME_PRIORITY_CLASS, THREAD_PRIORITY_TIME_CRITICAL)
	i*=3
counter_end()
Print "i*= 3";:Print Tab(Wo);:Print Using sf;counter_cycles

counter_begin(LoopCounterValue, REALTIME_PRIORITY_CLASS, THREAD_PRIORITY_TIME_CRITICAL)
	i=i*4
counter_end()
Print "i = i * 4";:Print Tab(Wo);:Print Using sf;counter_cycles

counter_begin(LoopCounterValue, REALTIME_PRIORITY_CLASS, THREAD_PRIORITY_TIME_CRITICAL)
	i*=4
counter_end()
Print "i*= 4";:Print Tab(Wo);:Print Using sf;counter_cycles

counter_begin(LoopCounterValue, REALTIME_PRIORITY_CLASS, THREAD_PRIORITY_TIME_CRITICAL)
	i=i/3
counter_end()
Print "i = i / 3";:Print Tab(Wo);:Print Using sf$;counter_cycles

counter_begin(LoopCounterValue, REALTIME_PRIORITY_CLASS, THREAD_PRIORITY_TIME_CRITICAL)
	i/=3
counter_end()
Print "i/= 3";:Print Tab(Wo);:Print Using sf;counter_cycles

counter_begin(LoopCounterValue, REALTIME_PRIORITY_CLASS, THREAD_PRIORITY_TIME_CRITICAL)
	i=i/4
counter_end()
Print "i = i / 4";:Print Tab(Wo);:Print Using sf;counter_cycles

counter_begin(LoopCounterValue, REALTIME_PRIORITY_CLASS, THREAD_PRIORITY_TIME_CRITICAL)
	i/=4
counter_end()
Print "i/= 4";:Print Tab(Wo);:Print Using sf;counter_cycles

counter_begin(LoopCounterValue, REALTIME_PRIORITY_CLASS, THREAD_PRIORITY_TIME_CRITICAL)
	i=i\3
counter_end()
Print "i = i \ 3";:Print Tab(Wo);:Print Using sf;counter_cycles

counter_begin(LoopCounterValue, REALTIME_PRIORITY_CLASS, THREAD_PRIORITY_TIME_CRITICAL)
	i\=3
counter_end()
Print "i\= 3";:Print Tab(Wo);:Print Using sf;counter_cycles

counter_begin(LoopCounterValue, REALTIME_PRIORITY_CLASS, THREAD_PRIORITY_TIME_CRITICAL)
	i=i\4
counter_end()
Print "i = i \ 4";:Print Tab(Wo);:Print Using sf;counter_cycles

counter_begin(LoopCounterValue, REALTIME_PRIORITY_CLASS, THREAD_PRIORITY_TIME_CRITICAL)
	i\=4
counter_end()
Print "i\= 4";:Print Tab(Wo);:Print Using sf;counter_cycles

counter_begin(LoopCounterValue, REALTIME_PRIORITY_CLASS, THREAD_PRIORITY_TIME_CRITICAL)
	i=y/z
counter_end()
Print "i = y / z";:Print Tab(Wo);:Print Using sf;counter_cycles

counter_begin(LoopCounterValue, REALTIME_PRIORITY_CLASS, THREAD_PRIORITY_TIME_CRITICAL)
	i=y\z
counter_end()
Print "i = y \ z";:Print Tab(Wo);:Print Using sf;counter_cycles

counter_begin(LoopCounterValue, REALTIME_PRIORITY_CLASS, THREAD_PRIORITY_TIME_CRITICAL)
	i=y mod z
counter_end()
Print "i = y mod z";:Print Tab(Wo);:Print Using sf;counter_cycles

counter_begin(LoopCounterValue, REALTIME_PRIORITY_CLASS, THREAD_PRIORITY_TIME_CRITICAL)
	d=d2^z
counter_end()
Print "d = y ^ z";:Print Tab(Wo);:Print Using sf;counter_cycles

counter_begin(LoopCounterValue, REALTIME_PRIORITY_CLASS, THREAD_PRIORITY_TIME_CRITICAL)
	d=d2*d2*d2
counter_end()
Print "d = y * y * y";:Print Tab(Wo);:Print Using sf;counter_cycles

counter_begin(LoopCounterValue, REALTIME_PRIORITY_CLASS, THREAD_PRIORITY_TIME_CRITICAL)
	d=d2^3
counter_end()
Print "d = y ^ 3";:Print Tab(Wo);:Print Using sf;counter_cycles

counter_begin(LoopCounterValue, REALTIME_PRIORITY_CLASS, THREAD_PRIORITY_TIME_CRITICAL)
	i=sqr(y)
counter_end()
Print "i = sqr(y)";:Print Tab(Wo);:Print Using sf;counter_cycles

counter_begin(LoopCounterValue, REALTIME_PRIORITY_CLASS, THREAD_PRIORITY_TIME_CRITICAL)
	d=sin(d2)
counter_end()
Print "d = sin(d2)";:Print Tab(Wo);:Print Using sf;counter_cycles

counter_begin(LoopCounterValue, REALTIME_PRIORITY_CLASS, THREAD_PRIORITY_TIME_CRITICAL)
	c=s[0]
counter_end()
Print "c = s[0]";:Print Tab(Wo);:Print Using sf;counter_cycles

counter_begin(LoopCounterValue, REALTIME_PRIORITY_CLASS, THREAD_PRIORITY_TIME_CRITICAL)
	c=Mid(s, 1, 1)
counter_end()
Print "c = Mid(s, 1, 1)";:Print Tab(Wo);:Print Using sf;counter_cycles

counter_begin(LoopCounterValue, REALTIME_PRIORITY_CLASS, THREAD_PRIORITY_TIME_CRITICAL)
	c=Left(s, 1)
counter_end()
Print "c = Left(s, 1)";:Print Tab(Wo);:Print Using sf;counter_cycles

counter_begin(LoopCounterValue, REALTIME_PRIORITY_CLASS, THREAD_PRIORITY_TIME_CRITICAL)
	c=Right(s, 1)
counter_end()
Print "c = Right(s, 1)";:Print Tab(Wo);:Print Using sf;counter_cycles;
sleep