Code fix

[Kernelpanic]

That's a useful feature. Whether one are now asking for a number, a letter, or a word.

Code: (Select All)

Option _Explicit

Dim As String a

Print "Which option (from 1 to 9)?"
Do
  a = Input$(1)
Loop Until a > "0" And a <= "9"

If a = "7" Then
  Print: Print "They come never back!"
ElseIf a <> "7" Then
  Beep: Print: Print "Go down!"
End If

End