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?
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?