Code archives/Networking/Server Operating System

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

Download source code

Server Operating System by ShadowTurtle
(Posted 24 years ago)
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