Need help with compilation............

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Paul A. B.

I amde a program(pretty much useless, but its a start), and it runs fine while it is still not compiled and has debugging enabled. When I either turn debugging off or compile the code, it freezes. Can anyone help me out?? Thanks alot.

Here is the code:

Global Window_0
Global portnumber = 1

CreateWindow_Window_0()

Const EVNT_GADGET_ACTION= $401

Repeat Select WaitEvent(1)

Case EVNT_GADGET_ACTION

While portnumber < 65000
CreateTCPServer(portnumber)
portnumber = portnumber + 1

CreateLabel("Port being opened : " + portnumber, 95, 80, 192, 20, Window_0)
Wend
If portnumber = 65000
CreateLabel("All TCP ports have been opened, keep program on to keep ports up", 95, 80, 192, 30, Window_0)
End If

End Select

Forever
Function CreateWindow_Window_0 ()

Window_0 = CreateWindow( "Pauls Port Opener", 290, 210, 391, 354 ,Desktop(), 3 )
CreateLabel("Welcome to port opener v 1.1 . Just click the las button and all your ports will be opened!", 63, 47, 256, 200, Window_0)
CreateLabel("Made by Paul B", 95, 80, 192, 20, Window_0)

CreateButton("Click to begin port opening process", 78, 209, 224, 64, Window_0, 1)

End Function