fault - Freebasic コンパイルの失敗

Question

私はBASICの学習とStackoverflowの使用を始めたばかりです。これは FBIDE の私のコードです。エラー メッセージは次のとおりです。

42 変数が宣言されていません: var1 in 'input "Enter Function Number" ;var1 /
-
32 予想される 'END IF' は 'end sub' で 'end' を見つけました/
-
'end sub' に 32 個の 'END IF' が必要です
-

コード：

declare sub premain
declare sub main
dim var1 as integer
premain
sub premain
  print "EMC ALPHA v1.0"
  main
end sub 

sub main
   print "Functions:"
   print "1.Add"
   print "2.Subtract"
   print "3.Multiply"
   print "4.Divide"

   input "Enter Function Number" ;var1
   if var1=1 then
      print "HElo"
end sub