Server Operating System

This code has been declared by its author to be Public Domain code.

Server Operating System by ShadowTurtle

2002

Hello,
this is a Tool for Server Programmer.
Oh.. you can change the Port Number for Connect to the Server. (yes... I'm can't good Speak english. *g*)

cu ShadowTurtle

AppTitle "Server Operating System"
Graphics 800, 600, 16, 2

Global PortNum = 110

Print "Server Operating System"
.resetconnect:
Print "Press enter for exit!"
Serv$ = Input$("Connect to (Port " + Str$(PortNum) + ") ?")
If Serv$ = "" Then
	Print "Programm exit. Press a key!"
	WaitKey()
	End
Else
	Print "Connect to " + Serv$ + " (Port " + Str$(PortNum) + ") ..."
	TheServer = OpenTCPStream(Serv$, PortNum)
	If Not TheServer Then
		Print "Connection failed! Press a key... (Key U = Config Port!)"
		WaitKey()
		If KeyDown(22) Then
			NewPort = Input("Enter new Port number: ")
			If NewPort = 0 Then
				Print "Programm exit. Press a key!"
				WaitKey()
				End
			Else
				PortNum = NewPort
				Goto resetconnect
			End If
		Else
			End
		End If
	End If
End If

Print "Connected! Press 'end' and the Programm say: Bye, Bye! *g*"

While Not Lower$(A$) = "end"
	i$ = ReadLine(TheServer)
	Print Serv$ + " " + i$
	A$ = Input$(Serv$ + ">")
	WriteLine TheServer, A$
Wend
CloseTCPStream(TheServer)

Print "Programm exit. Press a key! (Bye, Bye)"
WaitKey()
End

Comments

None.

Code Archives Forum