Your mail is here

BlitzPlus Forums/BlitzPlus Beginners Area/Your mail is here

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.

Function command()

Command$=Input$("/cmd>")
If Command$="notify" Then
cmd=1
EndIf
If Command$="Notify" Then
cmd=1
EndIf
If Command$="NOTIFY" Then
cmd=1
EndIf
If Not cmd=1 Then
Print"Command Not Recognized."
command()
End If

End Function

Function notifyc()
Print("Notify What?")
Delay 500
queryn$=Input$("/cmd/query> ")
Delay 500
Notify queryn$
End Function

;----Program----
Print("OS by Paul")
Print("User Login")
n1$=Input$("First Name: ")
n2$=Input$("Last Name: ")
Delay 700
Print("Authenticating...")
Delay 1000
Print("Welcome, "+ n1$)
Delay 500
Print("--------------------")
Print("Logged In as:")
Print("::"+ n1$ + " " + n2$ + "::")
Print("--------------------")



While Not KeyHit(1)
Repeat
command()
Until cmd=1
notifyc()

Wend
End

;-----------------------
that code back there is
giving me a big problem.
I am trying to create a
DOS-style text based
command interface
and I cannot organize
it correctly.
How would one go about
doing this?