Original:
Code: Select all
Repeat
'UPDATE CONSOLE
Color cbwhite
If console=OFF Then
Text 0,0,"Press SPACE to open console"
If KeyHit(cbkeyspace) Then
console=ON
Locate 10,30
ClearKeys
EndIf
Else
command$=Input("? ")
'to enable password field, comment the line above
'and uncomment the line below
'command$=Input("? ","*")
Text 0,0,"Close console by pressing RETURN"
If KeyHit(cbkeyreturn)
console=OFF
CloseInput
ClearKeys
EndIf
EndIf
Drawscreen
Until EscapeKey()
Code: Select all
a=Input(message$, hide$)
Print a