my $a;
for( $a=1; $a<100000001; $a=$a+1 ) {
$t = $t + $a;
}
print $t;

##</code><code>##

Declare Sub o2_asmo Lib "thinbasic_oxygen.dll" (ByVal s As String)
Declare Sub o2_basic Lib "thinbasic_oxygen.dll" (ByVal s As String)
Declare Function o2_buf Lib "thinbasic_oxygen.dll" (ByVal n As Long) As Long
Declare Function o2_error Lib "thinbasic_oxygen.dll" () As String
Declare Function o2_exec Lib "thinbasic_oxygen.dll" (Optional ByVal p As Long) As Long
Declare Function o2_get Lib "thinbasic_oxygen.dll" Alias "o2_buf" () As String
Declare Function o2_len Lib "thinbasic_oxygen.dll" () As Long
Declare Function o2_prep Lib "thinbasic_oxygen.dll" (ByVal srcBSTR As String) As String
Declare Sub o2_put Lib "thinbasic_oxygen.dll" Alias "o2_buf" (ByVal c As String)
Declare Function o2_view Lib "thinbasic_oxygen.dll" (ByVal srcBSTR As String) As String

##</code><code>##

Private Sub Command1_Click()
Dim src As String
src = " dim a as quad : dim i as long: for i=1 to 100000000: a=a+i : next i: Print str a: mov eax,a  :terminate "

o2_basic src
o2_exec

End Sub

##</code><code>##

#! perl -slw
use Win32::API;
my $o2basic = new Win32::API( "thinBasic_Oxygen.dll","o2_basic", [P], P );
my $o2exec = new Win32::API( "thinBasic_Oxygen.dll","o2_exec", [P] );
my $src = " dim a as quad : dim i as long: for i=1 to 100000000: a=a+i : next i: Print str a: mov eax,a  :terminate ";
$o2basic->Call( $src ); #gives an error here
#what should i do here with o2exec ??:
#$o2exec->??;