Login from?

Bloody hell, I'm not being cheeky, but I've never seen code like that since the 80's!!!

Its a bit of a slug to read, you should make it more readable for our sake, and simplify the execution, for your users sake... ! ;)

;A couple of global variables,just in case
Global userID%,userPassword$

;Start up
StartUp()


Function Startup()
Print "Checking for details"
;Try and open the user file
filein = ReadFile("user.txt")
If filein <> 0
	userID = Int(ReadLine$(filein))
	userPassword = ReadLine$(filein)
	Print "You are authorised..."
	Print "UserID:"+userID
	Delay 3000
Else
	Print "You are a new user, please create an account:-
	Print ""
	userID = Int(Input$("Enter a new user ID Number: "))
	userPassword$ = Input$("Enter a new Password: ")
	;Create a new file
	fileout = WriteFile("user.txt")
	WriteLine(fileout,userID)
	WriteLine(fileout,userPassword)
	CloseFile fileout
	Print ""
	Print "Thank you, you are automatically logged in"
	Delay 3000
End If
CloseFile filein
End Function 

Dabz