proses dan thread

Program ThreadTest1
    Sub thread1 as thread
        for i=1 to 10
            Writeln ("in Thread1:",i)
        Next
    End sub

    Sub thread2 as thread
        for i=11 to 20
            Writeln ("in thread2:",i)
        Next
    End sub

Call thread1
Call thread2

Do
Loop

end