Home

Add

Edit

Without Linenumbers

Code in Textfield

Download

  1. Dim Shared g_stdout As Integer
    
  2. 
    
  3. 
    
  4. 
    
  5. Sub TH_Load(Foo As String)
    
  6. Print #G_STDOUT, foo
    
  7. End Sub
    
  8. 
    
  9. 
    
  10. 
    
  11. Sub TH_Init(Nothing As Any Ptr)
    
  12. ThreadCall TH_Load("blub")
    
  13. End Sub
    
  14. 
    
  15. 
    
  16. g_stdout = Freefile
    
  17. Open Cons For Output As #G_STDOUT
    
  18. Screenres 300, 300, 32
    
  19. threadcall TH_Init(0)
    
  20. Do Until Inkey() = Chr(27)
    
  21.     Sleep 10, 1
    
  22. Loop
    
  23. End 0