program ThreadTest

total = 0

sub thread1 as thread

for i = 1 to 2

total = total + i

next

end sub

sub thread2 as thread

for i = 3 to 5

call thread1

total = total +i

next

end sub

sub thread3 as thread

call thread2

for i = 6 to 8

total = total * i

next

end sub

call thread3

wait

writeln (Total =, total)

end