:Input "Enter a string:",Str1
  :Prompt i
  :If(i ≠ 75000): Then
  :Disp "That isn't 75000"
  :Else
  :Stop